fixed bug preventing rec rel jobs from posting if vendor code doesn't match expected vendor code
This commit is contained in:
@ -363,7 +363,8 @@ 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
|
||||
end
|
||||
|
||||
ProcIds = Get_Property(@Window, '@PROC_IDS')
|
||||
ListData = Get_Property(CtrlEntId, 'LIST')
|
||||
WONo = CheckArray<CA$WO_NO - 1>
|
||||
@ -379,7 +380,6 @@ LQP:
|
||||
ErrorMsg = Error_Services('GetMessage')
|
||||
Msg(@Window, '', 'OK', '', 'Process Error':@FM:'Error submitting scan data to server for processing')
|
||||
end
|
||||
end
|
||||
|
||||
ListArray = Get_Property(CtrlEntId,'ARRAY')
|
||||
CheckArray = Get_Property(@WINDOW,'@CHECK_ARRAY')
|
||||
|
Reference in New Issue
Block a user