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

moved costly calls to the backend procedure queue to speedup sap transaction processing and releasing material

Browse Source
This commit is contained in:
Infineon\StieberD
2025-03-31 13:44:03 -07:00
parent 58c800b504
commit 59c07b1a8b
5 changed files with 33 additions and 1703 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
LSL2/STPROC/WO_MAT_ACTIONS.txt
View File

@ -58,7 +58,7 @@ Equ Comma$ to ','
Declare function Error_Services, Database_Services, Environment_Services, Logging_Services, obj_WO_Mat, Max
Declare function GaN_Services, Signature_Services, obj_WO_LOG, SRP_Array, MemberOf, Datetime
Declare subroutine Error_Services, Database_Services, Environment_Services, Logging_Services, Obj_SAP, obj_Notes
Declare subroutine SAP_Services, Work_Order_Services, Material_Services, RList, Schedule_Services
Declare subroutine SAP_Services, Material_Services, RList, Service_Services
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\WO_Mat'
LogDate = Oconv(Date(), 'D4/')
@ -244,6 +244,7 @@ READ_RECORD:
// Record = ''
return
READONLY_RECORD_PRE:
// In order to stop a record from being read in this action these lines of code must be used:
//
@ -253,6 +254,7 @@ READONLY_RECORD_PRE:
// ActionFlow = ACTION_STOP$
return
READONLY_RECORD:
// In order to stop a record from being read in this action these lines of code must be used:
//
@ -261,6 +263,7 @@ READONLY_RECORD:
// Record = ''
return
WRITE_RECORD_PRE:
WOMatKeyID = Name
@ -814,21 +817,23 @@ WRITE_RECORD:
end
If OrigRecord<WO_MAT_WAFER_QTY$> NE Record<WO_MAT_WAFER_QTY$> then
Work_Order_Services('UpdateReceivedQty', WONo)
Work_Order_Services('UpdateReleasedQty', WONo)
Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateReceivedQty':@VM:WONo)
Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateReleasedQty':@VM:WONo)
end
CurrWaferCount = obj_WO_Mat('CurrWaferCnt', WOMatKeyID)
If CurrWaferCount EQ 0 then
// This should catch cases where the entire cassette is "peeled off", NCR'ed, or used for destructive testing.
Schedule_Services('MarkCassProcessed', WONo, CassNo, Datetime())
Service_Services('PostProcedure', 'SCHEDULE_SERVICES', 'MarkCassProcessed':@VM:WONo:@VM:CassNo:@VM:Datetime())
end
return
DELETE_RECORD_PRE:
return
DELETE_RECORD:
return
@ -878,3 +883,4 @@ Restore_System_Variables:
@FILE.ERROR = OrigFileError
return