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

Remove TW_All_Signed CC dependency

Browse Source
This commit is contained in:
Chase Tucker
2025-07-02 09:54:36 -07:00
parent ce252bf885
commit af6cd757de
4 changed files with 59 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
LSL2/STPROC/TW_USE_ACTIONS.txt
View File

@ -57,10 +57,11 @@ $insert WO_LOG_EQUATES
$insert WM_OUT_EQUATES
$insert WM_IN_EQUATES
$insert WO_MAT_EQUATES
$Insert TW_USE_EQUATES
Declare function Database_Services, obj_NCR, obj_SAP, Environment_Services, Logging_Services
Declare subroutine Error_Services, Database_Services, obj_NCR, obj_SAP, Material_Services, Work_Order_Services
Declare subroutine Logging_Services
Declare subroutine Logging_Services, Service_Services
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\TW_USE'
LogDate = Oconv(Date(), 'D4/')
@ -153,7 +154,17 @@ WRITE_RECORD_PRE:
return
WRITE_RECORD:
OrigQty = OrigRecord<TW_USE_TW_QTY$>
NewQty = Record<TW_USE_TW_QTY$>
OrigSig = OrigRecord<TW_USE_SIGNATURE$>
NewSig = OrigRecord<TW_USE_SIGNATURE$>
If OrigRecord EQ '' or OrigQty NE NewQty or OrigSig NE NewSig then
MetrologyID = Field(Name, '*', 1)
RDSNo = Xlate('RDS_TEST', MetrologyID, RDS_TEST_RDS_NO$, 'X')
Service_Services('PostProcedure', 'RDS_Services', 'AllTWUseSigned':@VM:RDSNo)
end
return
DELETE_RECORD_PRE: