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

25
LSL2/STPROC/RDS_SERVICES.txt
View File

@ -1984,6 +1984,30 @@ Service PushSigProfileToWoMat(RDSNo)
end service
Service AllTWUseSigned(RDSNo)
If RDSNo NE '' then
LSKeys = Xlate('RDS', RDSNo, 'RDS_LS_SORTED', 'X')
AllMetKeys = XLATE('RDS_LAYER', LSKeys, RDS_LAYER_RDS_TEST_KEYS$, 'X')
AllSigned = 1
FOR I = 1 TO COUNT(AllMetKeys,@VM) + (AllMetKeys NE '')
MetKey = AllMetKeys<1,I>
AllSigned = obj_RDS_Test('TWSignedOff',MetKey)
UNTIL NOT(AllSigned)
NEXT I
Transaction_Services('PostWriteFieldTransaction', 'RDS', RDSNo, RDS_ALL_TW_USE_SIGNED$, AllSigned)
ErrorMessage = ''
If Error_Services('HasError') then
ErrorMessage = Error_Services('GetMessage')
end
If ErrorMessage NE '' then
ErrorMessage = 'Unable to determine if all TW Use have been signed for RDS ':RDSNo:', because ':ErrorMessage
Error_Services('Add', ErrorMessage)
end
end
end service
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Internal GoSubs
@ -1997,3 +2021,4 @@ ClearCursors:
return