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

modified WO_REC form to select WO_MAT keys instead of relying on WO_LOG<WO_MAT_KEY> field.

Browse Source 
refactored print cass labels to select on RDS table for list of RDSes instead of using relational column in WO_STEP table
This commit is contained in:
Infineon\StieberD
2025-07-24 16:57:21 -07:00
parent 6396264e64
commit a48f47ddc9
5 changed files with 548 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
LSL2/STPROC/WORK_ORDER_SERVICES.txt
View File

@ -59,7 +59,7 @@ Declare subroutine obj_WO_Mat, obj_Post_Log
Declare function SRP_Array, Work_Order_Services, Memory_Services, Database_Services, SRP_Sort_Array, SRP_JSON
Declare function Company_Services, obj_Prod_Spec, Schedule_Services, obj_WO_Log, obj_WO_Step, Memberof, Datetime
Declare function Environment_Services, Logging_Services, Hold_Services, Signature_Services, Lot_Services
Declare function SRP_Datetime, RTI_CreateGUID
Declare function SRP_Datetime, RTI_CreateGUID, RDS_Services
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\WO_LOG'
LogDate = Oconv(Date(), 'D4/')
@ -938,8 +938,7 @@ Service PrintLabels(WONo)
Msg(@WINDOW,MsgUp)
end ELSE
WOMatKeys = Xlate('WO_LOG', WONo, WO_LOG_WO_MAT_KEY$, 'X')
RDSNos = Xlate('WO_MAT', WOMatKeys, WO_MAT_RDS_NO$, 'X')
RDSNos = RDS_Services('GetRDSKeys', WONo)
end
If INDEX(RDSNos,@VM,1) then
@ -2075,3 +2074,4 @@ ClearCursors:
return