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/RDS_ACTIONS.txt
View File

@ -65,8 +65,7 @@ Equ COMMA$ to ','
Declare function Error_Services, Database_Services, obj_RDS_Test, Logging_Services, Environment_Services
Declare function Tool_Parms_Services, Signature_Services, obj_WO_Mat_QA, Datetime, Override_Services
Declare function Rds_Services, SRP_DateTime, SRP_Math, obj_WO_Mat, Lot_Services, SRP_Array
Declare subroutine Error_Services, Database_Services, Logging_Services, Set_Status, Schedule_Services
Declare subroutine Work_Order_Services, Material_Services, Set_FSError
Declare subroutine Error_Services, Database_Services, Logging_Services, Service_Services
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\RDS'
LogDate = Oconv(Date(), 'D4/')
@ -577,6 +576,7 @@ READ_RECORD:
return
READONLY_RECORD_PRE:
// In order to stop a record from being read in this action these lines of code must be used:
//
@ -586,6 +586,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:
//
@ -848,6 +849,7 @@ WRITE_RECORD_PRE:
return
WRITE_RECORD:
WONo = Record<RDS_WO$>
@ -953,16 +955,17 @@ WRITE_RECORD:
WMIKeys = {WM_IN_KEY}
For each WMIKey in WMIKeys using @VM setting vPos
CassNo = Field(WMIKey, '*', 3)
Schedule_Services('MarkCassProcessed', WONo, CassNo, DatetimeOut)
Service_Services('PostProcedure', 'SCHEDULE_SERVICES':@VM:'MarkCassProcessed':@VM:WONo:@VM:CassNo:@VM:DatetimeOut)
Next WMIKey
end else
CassNo = Record<RDS_CASS_NO$>
Schedule_Services('MarkCassProcessed', WONo, CassNo, DatetimeOut)
Service_Services('PostProcedure', 'SCHEDULE_SERVICES':@VM:'MarkCassProcessed':@VM:WONo:@VM:CassNo:@VM:DatetimeOut)
end
end
return
DELETE_RECORD_PRE:
Notes = RetStack()
@ -976,11 +979,11 @@ DELETE_RECORD_PRE:
return
DELETE_RECORD:
return
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Internal GoSubs
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
@ -1040,4 +1043,3 @@ Restore_System_Variables:
return