phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
LSL2/STPROC/COPY_RECORD_TO_SQL.txt
View File

@ -33,8 +33,6 @@ Ans = ""
// Make sure table is uppercase
Convert @LOWER_CASE to @UPPER_CASE in Table
* TablesToSkip = "ANNUAL_CONTRACTS,DESIG_ERR_GRP,INVOICE,MFC_LOC,NAMES,ORDER,ORDER_CHANGE,QUOTE,RDS,REACT_ESC,SURFACE_SCAN,TW_PRIME_USAGE,TW_USAGE,VISION_LOG,VISION_ORDER"
* TablesToSkip = "ANNUAL_CONTRACTS,DESIG_ERR_GRP,EXPORTS,INVOICE,MFC_LOC,NAMES,ORDER,ORDER_CHANGE,QUOTE,REACT_ESC,SURFACE_SCAN,TW_PRIME_USAGE,TW_USAGE,VISION_LOG,VISION_ORDER"
TablesToSkip = Database_Services('ReadDataRow', 'APP_INFO', 'SQL_TABLES_TO_SKIP')
Locate Table in TablesToSkip by "AL" using "," setting ListPos else
@ -56,21 +54,16 @@ Locate Table in TablesToSkip by "AL" using "," setting ListPos else
@ID = Key
Ans = Function(@Handler(Connection, Key, @RECORD))
If Ans EQ '' then
If ( Assigned(pKey) and (pKey NE '') ) then
Open 'SQL_PENDING' to pTable then
Delete pTable, pKey else null
end
end
If Assigned(pKey) then
If pKey NE '' then
Open 'SQL_PENDING' to pTable then
Delete pTable, pKey else null
end
end
end
end
end
end else
// Log the error and delete the key from the pending queue as the record doesn't exist anymore
// or the transaction is garbage.
* If Assigned(pKey) then
* Open 'SQL_PENDING' to pTable then
* Delete pTable, pKey else null
* end
* end
Ans = 'Unable to read ':Key:' from ':Table:' table.'
end
end
@ -98,25 +91,26 @@ Locate Table in TablesToSkip by "AL" using "," setting ListPos else
end
end
If (Assigned(pKey) and (pKey NE '') ) then
// Always log the result
Open 'SQL_LOG' to hLog then
If Ans EQ '' then
Result = 'PROCESSED'
end else
Result = Ans
end
CurrDate = Date()
Read Log from hLog, CurrDate then
Log := @FM:pKey:@VM:Result
end else
Log = pKey:@VM:Result
end
Write Log to hLog, CurrDate
end
If Assigned(pKey) then
If (pKey NE '') then
// Always log the result
Open 'SQL_LOG' to hLog then
If Ans EQ '' then
Result = 'PROCESSED'
end else
Result = Ans
end
CurrDate = Date()
Read Log from hLog, CurrDate then
Log := @FM:pKey:@VM:Result
end else
Log = pKey:@VM:Result
end
Write Log to hLog, CurrDate
end
end
end
end
end
Return Ans