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

modified WO_REC form to select WO_MAT keys instead of relying on WO_LOG<WO_MAT_KEY> field.

Browse Source 
refactored print cass labels to select on RDS table for list of RDSes instead of using relational column in WO_STEP table
This commit is contained in:
Infineon\StieberD
2025-07-24 16:57:21 -07:00
parent 6396264e64
commit a48f47ddc9
5 changed files with 548 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
LSL2/STPROC/COMM_WO_REC.txt
View File

@ -12,7 +12,7 @@ DECLARE SUBROUTINE Logging_Services, Post_Event, Work_Order_Services, Error_Serv
DECLARE FUNCTION Get_Property, Get_Status, Popup, Send_Message, Msg, Security_Check, Dialog_Box, RowExists, obj_Prod_Spec
DECLARE FUNCTION obj_Schedule, Dialog_Box, obj_WO_Log, obj_Order_Det, FindWindow,ShowWindow, obj_Tables, obj_WO_Mat, MemberOf
DECLARE FUNCTION Logging_Services, Environment_Services, Work_Order_Services, Error_Services, Service_Services
DECLARE FUNCTION SRP_Array, GetTickCount, Datetime
DECLARE FUNCTION SRP_Array, GetTickCount, Datetime, Wo_Mat_Services
$INSERT POPUP_EQUATES
$INSERT LOGICAL
@ -173,6 +173,26 @@ Read:
Set_Property(@WINDOW:'.RX_DTM','TEXT',CurrDTM)
END
Def = ""
Def<MTEXT$> = "Loading cassette data..."
Def<MTYPE$> = "U"
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'
WOMatKeys = Wo_Mat_Services('GetWOMatKeys', WONo)
If Error_Services('NoError') then
CassData = WO_Mat_Services('GetWOMatData', WOMatKeys, Columns)
If Error_Services('NoError') then
Set_Property(@Window:'.CASS_NO', 'ARRAY', CassData)
Msg(@window, MsgUp)
end else
Msg(@window, MsgUp)
Msg(@Window, '', 'OK', '', 'Process Error':@FM:Error_Services('GetMessage'))
end
end else
Msg(@window, MsgUp)
Msg(@Window, '', 'OK', '', 'Process Error':@FM:Error_Services('GetMessage'))
end
GOSUB Refresh
RETURN
@ -625,12 +645,7 @@ Scan:
end else
LogData<8> = 'N/A'
end
Logging_Services('AppendLog', objReceiveLog, LogData, @RM, @FM)
Def = ""
Def<MTEXT$> = "Processing complete. Refreshing form..."
Def<MTYPE$> = "T5"
Msg(@window, Def)
Logging_Services('AppendLog', objReceiveLog, LogData, @RM, @FM)
Post_Event(@Window, 'READ')
end
@ -916,3 +931,4 @@ AddLeftover:
RETURN