From 15495aa7ef77c07f60e18e72f35308e99e682407 Mon Sep 17 00:00:00 2001 From: "Stieber Daniel (CSC FI SPS MESLEO)" Date: Fri, 28 Feb 2025 22:01:25 +0100 Subject: [PATCH] Merged PR 11838: fixed verification logic to remove prefix fixed verification logic to remove prefix --- LSL2/STPROC/NCR_SERVICES.txt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/LSL2/STPROC/NCR_SERVICES.txt b/LSL2/STPROC/NCR_SERVICES.txt index 6b92678..6f7f57f 100644 --- a/LSL2/STPROC/NCR_SERVICES.txt +++ b/LSL2/STPROC/NCR_SERVICES.txt @@ -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. //---------------------------------------------------------------------------------------------------------------------- Service ProcessScanData(ScanData, ScanType = SCAN_TYPES, FirstCassID, OperatorID) - + If (ScanData NE '') then Convert @Lower.Case to @Upper.Case in ScanData // 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 Swap 'FDI' with '' in CassetteID Swap '^FS' with '' in CassetteID + Swap 'I' with '' in CassetteID Convert '.' to '*' in CassetteID WMIRow = Database_Services('ReadDataRow', 'WM_IN', CassetteID) If Error_Services('NoError') then @@ -136,6 +137,7 @@ Service ProcessScanData(ScanData, ScanType = SCAN_TYPES, FirstCassID, OperatorID CassetteID = ScanData Swap 'FDI' with '' in CassetteID Swap '^FS' with '' in CassetteID + Swap 'I' with '' in CassetteID Convert '.' to '*' in CassetteID WMIRow = Database_Services('ReadDataRow', 'WM_IN', CassetteID) If Error_Services('NoError') then @@ -416,6 +418,7 @@ end service Service SendToSPC(NCRNo, RDSList, ReactorType, PSNo, DeptResp, LossCode, LossDesc, LossStage, LossBy, ACCode, ACDesc) + Headers = 'Logging DTM' : @FM : 'Machine' : @FM : 'Level' : @FM : 'Log' ColumnWidths = 20 : @FM : 12 : @FM : 7 : @FM : 500 Machine = Environment_Services('GetServer') @@ -585,4 +588,3 @@ Service SendToSPC(NCRNo, RDSList, ReactorType, PSNo, DeptResp, LossCode, LossDes end service -