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

Fixed typo in NCR_SERVICES preventing RDS scans from processing correctly. Fixed a vnav in NCR_ACTIONS under the delete action.

Browse Source
This commit is contained in:
Infineon\StieberD
2025-11-14 03:17:55 -07:00
parent 2d58c47c93
commit 165b6cf943
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
LSL2/STPROC/NCR_ACTIONS.txt
View File

@ -711,6 +711,7 @@ return
DELETE_RECORD:
NCRNo = Name
WorkOrderNo = {WO_NO}
CassNo = {WO_MAT_CASS_NO}
WoMatKey = WorkOrderNo : '*' : CassNo
@ -736,7 +737,6 @@ DELETE_RECORD:
SAPBatchNo = Xlate('WO_MAT', WOMatKey, 'SAP_BATCH_NO', 'X')
If SAPBatchNo NE '' then
NCRNo = Name
TransQty = Sum(obj_NCR('RejQty',NCRNo:@RM:Record))
TransQty = TransQty * '-1'

5
LSL2/STPROC/NCR_SERVICES.txt
View File

@ -134,8 +134,8 @@ Service ProcessScanData(ScanData, ScanType = SCAN_TYPES, FirstCassID, OperatorID
Convert '.' to '*' in CassetteID
ValidcassID = RowExists('WM_IN', CassetteID) or RowExists('WM_OUT', CassetteID)
Case RDSCass
RDSRow = Database_Services('ReadDataRow', 'RDS', CassetteID)
ValidCass = RowExists('RDS', CassetteID)
RDSRow = Database_Services('ReadDataRow', 'RDS', CassetteID)
ValidcassID = RowExists('RDS', CassetteID)
End Case
If ( (Seq1 EQ 'SEQ1') or (Seq1 EQ 'SEQ2') ) then
@ -559,3 +559,4 @@ Service ConvertRecordToJson(NCRId)
end service