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

Updated WO_MAT_ACTIONS to trigger a write to

Browse Source 
the WM_OUT table for EpiPro lots under certain
conditions in order to update the WMO_CURR_STATUS
This commit is contained in:
Infineon\StieberD 2024-10-02 15:49:48 -07:00
parent 51569ca878
commit d077448999
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
LSL2/STPROC/WO_MAT_ACTIONS.txt
View File

@ -773,6 +773,22 @@ WRITE_RECORD:
obj_Notes('Create',Parms) obj_Notes('Create',Parms)
end end
If {REACTOR_TYPE} EQ 'EPP' then
NewEppMUFlag = Record<WO_MAT_EPO_MAKEUP_BOX$>
OrigEppMUFlag = OrigRecord<WO_MAT_EPO_MAKEUP_BOX$>
NewInvActions = Record<WO_MAT_INV_ACTION$>
OrigInvActions = OrigRecord<WO_MAT_INV_ACTION$>
If ( (NewEppMUFlag NE OrigEppMUFlag) or (NewInvActions NE OrigInvActions) ) then
// Need to trigger an update WMO Curr Status field because WM_MFS is not
// attached to the WO_MAT table and the WMO status may have changed.
WMOKey = {WMO_KEY}
WMORec = Database_Services('ReadDataRow', 'WM_OUT', WMOKey)
If Error_Services('NoError') then
Database_Services('WriteDataRow', 'WM_OUT', WMOKey, WMORec, True$, False$, True$)
end
end
end
If OrigRecord<WO_MAT_WAFER_QTY$> NE Record<WO_MAT_WAFER_QTY$> then If OrigRecord<WO_MAT_WAFER_QTY$> NE Record<WO_MAT_WAFER_QTY$> then
Work_Order_Services('UpdateReceivedQty', WONo) Work_Order_Services('UpdateReceivedQty', WONo)
Work_Order_Services('UpdateReleasedQty', WONo) Work_Order_Services('UpdateReleasedQty', WONo)
@ -832,4 +848,3 @@ Restore_System_Variables:
@FILE.ERROR = OrigFileError @FILE.ERROR = OrigFileError
return return