diff --git a/LSL2/STPROC/COMM_DIALOG_WO_SCAN.txt b/LSL2/STPROC/COMM_DIALOG_WO_SCAN.txt index 6d23a35..614964d 100644 --- a/LSL2/STPROC/COMM_DIALOG_WO_SCAN.txt +++ b/LSL2/STPROC/COMM_DIALOG_WO_SCAN.txt @@ -363,24 +363,24 @@ LQP: IF VendCode NE ExpectedCode AND ExpectedCode NE '' THEN void = Msg(@WINDOW,'','EXPECTED_VENDOR_CODE','',ExpectedCode:@FM:VendCode) Set_Property(CtrlEntID, 'FOCUS', True$) - END else - ProcIds = Get_Property(@Window, '@PROC_IDS') - ListData = Get_Property(CtrlEntId, 'LIST') - WONo = CheckArray - RecDtm = CheckArray - ScanLotNo = ListData - ScanQty = ListData - ScanSubPartNo = ListData - ScanVendor = ListData - ProcIds<-1> = Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'ReceiveReleaseCassette':SD$:WONo:SD$:@User4:SD$:ScanLotNo:SD$:ScanQty:SD$:ScanSubPartNo:SD$:ScanVendor:SD$:RecDtm) - If Error_Services('NoError') then - Set_Property(@Window, '@PROC_IDS', ProcIds) - end else - ErrorMsg = Error_Services('GetMessage') - Msg(@Window, '', 'OK', '', 'Process Error':@FM:'Error submitting scan data to server for processing') - end end + ProcIds = Get_Property(@Window, '@PROC_IDS') + ListData = Get_Property(CtrlEntId, 'LIST') + WONo = CheckArray + RecDtm = CheckArray + ScanLotNo = ListData + ScanQty = ListData + ScanSubPartNo = ListData + ScanVendor = ListData + ProcIds<-1> = Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'ReceiveReleaseCassette':SD$:WONo:SD$:@User4:SD$:ScanLotNo:SD$:ScanQty:SD$:ScanSubPartNo:SD$:ScanVendor:SD$:RecDtm) + If Error_Services('NoError') then + Set_Property(@Window, '@PROC_IDS', ProcIds) + end else + ErrorMsg = Error_Services('GetMessage') + Msg(@Window, '', 'OK', '', 'Process Error':@FM:'Error submitting scan data to server for processing') + end + ListArray = Get_Property(CtrlEntId,'ARRAY') CheckArray = Get_Property(@WINDOW,'@CHECK_ARRAY')