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

minor fix to prevent an error message from being displayed on brand new work orders

Browse Source
This commit is contained in:
Infineon\StieberD
2025-07-29 12:03:55 -07:00
parent 0f0c735023
commit 4bfae8e7b7
1 changed files with 13 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
LSL2/STPROC/COMM_WO_REC.txt
View File

@ -179,15 +179,19 @@ Read:
MsgUp = Msg(@window, Def) MsgUp = Msg(@window, Def)
Columns = 'CASS_NO':@VM:'LOT_NO':@VM:'WAFER_QTY':@VM:'CUST_PART_NO':@VM:'SUB_PART_NO':@VM:'SUB_VEND_CD':@VM:'RX_DTM':@VM:'RX_BY':@VM:'ORDER_ITEM' Columns = 'CASS_NO':@VM:'LOT_NO':@VM:'WAFER_QTY':@VM:'CUST_PART_NO':@VM:'SUB_PART_NO':@VM:'SUB_VEND_CD':@VM:'RX_DTM':@VM:'RX_BY':@VM:'ORDER_ITEM'
WOMatKeys = Wo_Mat_Services('GetWOMatKeys', WONo) WOMatKeys = Wo_Mat_Services('GetWOMatKeys', WONo)
If Error_Services('NoError') then If Error_Services('NoError') then
CassData = WO_Mat_Services('GetWOMatData', WOMatKeys, Columns) If (WOMatKeys NE '') then
If Error_Services('NoError') then CassData = WO_Mat_Services('GetWOMatData', WOMatKeys, Columns)
Set_Property(@Window:'.CASS_NO', 'ARRAY', CassData) If Error_Services('NoError') then
Msg(@window, MsgUp) Set_Property(@Window:'.CASS_NO', 'ARRAY', CassData)
end else Msg(@window, MsgUp)
Msg(@window, MsgUp) end else
Msg(@Window, '', 'OK', '', 'Process Error':@FM:Error_Services('GetMessage')) Msg(@window, MsgUp)
end Msg(@Window, '', 'OK', '', 'Process Error':@FM:Error_Services('GetMessage'))
end
end else
Msg(@window, MsgUp)
end
end else end else
Msg(@window, MsgUp) Msg(@window, MsgUp)
Msg(@Window, '', 'OK', '', 'Process Error':@FM:Error_Services('GetMessage')) Msg(@Window, '', 'OK', '', 'Process Error':@FM:Error_Services('GetMessage'))