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

Merged PR 11838: fixed verification logic to remove prefix

Browse Source 
fixed verification logic to remove prefix
This commit is contained in:
Stieber Daniel (CSC FI SPS MESLEO) 2025-02-28 22:01:25 +01:00
parent 1f1ecbe85b
commit 15495aa7ef
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
LSL2/STPROC/NCR_SERVICES.txt
View File

@ -84,7 +84,7 @@ Options SCAN_TYPES = 'CASSETTE_1', 'CASSETTE_2', 'WM_IN_1', 'WM_IN_2'
// Returns the current stage of a lot. Replaces CURR_STAGE calculated column. // Returns the current stage of a lot. Replaces CURR_STAGE calculated column.
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
Service ProcessScanData(ScanData, ScanType = SCAN_TYPES, FirstCassID, OperatorID) Service ProcessScanData(ScanData, ScanType = SCAN_TYPES, FirstCassID, OperatorID)
If (ScanData NE '') then If (ScanData NE '') then
Convert @Lower.Case to @Upper.Case in ScanData Convert @Lower.Case to @Upper.Case in ScanData
// Code 3of9 encodes the asterisk and underscore characters. These need to be decoded. // Code 3of9 encodes the asterisk and underscore characters. These need to be decoded.
@ -108,6 +108,7 @@ Service ProcessScanData(ScanData, ScanType = SCAN_TYPES, FirstCassID, OperatorID
CassetteID = ScanData CassetteID = ScanData
Swap 'FDI' with '' in CassetteID Swap 'FDI' with '' in CassetteID
Swap '^FS' with '' in CassetteID Swap '^FS' with '' in CassetteID
Swap 'I' with '' in CassetteID
Convert '.' to '*' in CassetteID Convert '.' to '*' in CassetteID
WMIRow = Database_Services('ReadDataRow', 'WM_IN', CassetteID) WMIRow = Database_Services('ReadDataRow', 'WM_IN', CassetteID)
If Error_Services('NoError') then If Error_Services('NoError') then
@ -136,6 +137,7 @@ Service ProcessScanData(ScanData, ScanType = SCAN_TYPES, FirstCassID, OperatorID
CassetteID = ScanData CassetteID = ScanData
Swap 'FDI' with '' in CassetteID Swap 'FDI' with '' in CassetteID
Swap '^FS' with '' in CassetteID Swap '^FS' with '' in CassetteID
Swap 'I' with '' in CassetteID
Convert '.' to '*' in CassetteID Convert '.' to '*' in CassetteID
WMIRow = Database_Services('ReadDataRow', 'WM_IN', CassetteID) WMIRow = Database_Services('ReadDataRow', 'WM_IN', CassetteID)
If Error_Services('NoError') then If Error_Services('NoError') then
@ -416,6 +418,7 @@ end service
Service SendToSPC(NCRNo, RDSList, ReactorType, PSNo, DeptResp, LossCode, LossDesc, LossStage, LossBy, ACCode, ACDesc) Service SendToSPC(NCRNo, RDSList, ReactorType, PSNo, DeptResp, LossCode, LossDesc, LossStage, LossBy, ACCode, ACDesc)
Headers = 'Logging DTM' : @FM : 'Machine' : @FM : 'Level' : @FM : 'Log' Headers = 'Logging DTM' : @FM : 'Machine' : @FM : 'Level' : @FM : 'Log'
ColumnWidths = 20 : @FM : 12 : @FM : 7 : @FM : 500 ColumnWidths = 20 : @FM : 12 : @FM : 7 : @FM : 500
Machine = Environment_Services('GetServer') Machine = Environment_Services('GetServer')
@ -585,4 +588,3 @@ Service SendToSPC(NCRNo, RDSList, ReactorType, PSNo, DeptResp, LossCode, LossDes
end service end service