diff --git a/LSL2/STPROC/WO_MAT_ACTIONS.txt b/LSL2/STPROC/WO_MAT_ACTIONS.txt index 099fd21..7a95233 100644 --- a/LSL2/STPROC/WO_MAT_ACTIONS.txt +++ b/LSL2/STPROC/WO_MAT_ACTIONS.txt @@ -773,6 +773,22 @@ WRITE_RECORD: obj_Notes('Create',Parms) end + If {REACTOR_TYPE} EQ 'EPP' then + NewEppMUFlag = Record + OrigEppMUFlag = OrigRecord + NewInvActions = Record + OrigInvActions = OrigRecord + 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 NE Record then Work_Order_Services('UpdateReceivedQty', WONo) Work_Order_Services('UpdateReleasedQty', WONo) @@ -832,4 +848,3 @@ Restore_System_Variables: @FILE.ERROR = OrigFileError return -