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

updated WO_MAT and WM_IN actions to mark cassettes as processed when cassettes have a quantity of zero

Browse Source
This commit is contained in:
Infineon\StieberD
2024-11-11 13:24:05 -07:00
parent 8282b5a7d4
commit 19fb71d733
13 changed files with 3414 additions and 3484 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
LSL2/STPROC/NCR_ACTIONS.txt
View File

@ -74,7 +74,7 @@ EQU COL$TAGS TO 9
EQU COL$TOOL_ID TO 10
Declare function Database_Services, obj_NCR, obj_SAP, Environment_Services, Logging_Services, obj_Tables
Declare function obj_WO_Mat, obj_RDS, Error_Services, MemberOf
Declare function obj_WO_Mat, obj_RDS, Error_Services, MemberOf, SRP_Array
Declare subroutine Error_Services, Database_Services, obj_NCR, obj_SAP, Material_Services, Work_Order_Services
Declare subroutine Logging_Services, Set_Status, obj_WO_Mat, obj_WO_Mat_Log, Schedule_Services, obj_Tables
Declare subroutine obj_RDS, SAP_Services, Pass_To_SQL, NCR_Services
@ -331,6 +331,7 @@ WRITE_RECORD:
OrigStatus = OrigRecord<NCR_STATUS$>
NewStatus = Record<NCR_STATUS$>
If ( (OrigStatus NE NewStatus) and (NewStatus EQ 'C') ) then
********************
@ -374,6 +375,8 @@ WRITE_RECORD:
WOMatKey = WONo:'*':CassNo
If (ReactorType EQ 'EPP') then
InCassNos = {CASS_NO}
****************************************************************************
* Verify the need to "Auto-Sign" the box after returning from the NCR form *
@ -498,12 +501,7 @@ WRITE_RECORD:
END
END
END
END
***********************************************************
* Mark the cassette as "processed" for scheduler purposes *
***********************************************************
Schedule_Services('MarkCassProcessed', WONo, CassNo, SigDTM)
END
***********************************************************************
* Send CASS_COMP transaction to SAP to inform SAP of the rejected box *
@ -651,12 +649,7 @@ WRITE_RECORD:
END
END
END
END
***********************************************************
* Mark the cassette as "processed" for scheduler purposes *
***********************************************************
Schedule_Services('MarkCassProcessed', WONo, CassNo, SigDTM)
END
***********************************************************************
* Send CASS_COMP transaction to SAP to inform SAP of the rejected box *