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

reverting changes to update the work order quantities on the backend

Browse Source
This commit is contained in:
Infineon\StieberD
2025-04-02 13:07:12 -07:00
parent 5b8ec59e68
commit c1567147ab
6 changed files with 10 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
LSL2/STPROC/WORK_ORDER_SERVICES.txt
View File

@ -51,7 +51,7 @@ $Insert WM_OUT_EQUATES
Declare subroutine Error_Services, Work_Order_Services, Memory_Services, RList, Database_Services, SRP_JSON
Declare subroutine Btree.Extract, Set_Status, obj_WO_Log, obj_Notes, Print_Wo_Mat_In_Labels, Print_Wo_Mat_Out_Labels
Declare subroutine Print_Wmi_Labels, Print_Wmo_Labels, ErrMsg, Print_Cass_Labels, Logging_Services, Service_Services
Declare subroutine obj_WO_Mat_Log, WO_Mat_Services
Declare subroutine obj_WO_Mat_Log, WO_Mat_Services, Work_Order_Services
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, Datetime, obj_WO_Log, obj_WO_Step, Memberof
Declare function Environment_Services, Logging_Services, Hold_Services
@ -697,7 +697,7 @@ Service ReleaseCassettes(WONo)
end
end
Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateReleasedQty':@VM:WONo, False$)
Work_Order_Services('UpdateReleasedQty', WONo)
If ErrorMsg NE '' then Error_Services('Add', ErrorMsg)
Response = DCount(UnReleasedCassNos, @VM)
@ -1455,5 +1455,3 @@ ClearCursors:
return