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

restored supplement notifications

Browse Source
This commit is contained in:
Infineon\StieberD
2024-10-10 13:02:36 -07:00
committed by Stieber Daniel (CSC FI SPS MESLEO)
parent 403559fe19
commit ce21313054
3 changed files with 293 additions and 276 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
LSL2/STPROC/NDW_RDS_SUPPLEMENT_EVENTS.txt
View File

@ -366,22 +366,28 @@ return
SaveSupps:
ChangeCount = Dcount(OrigSelPos, @FM)
For I =1 to ChangeCount
Instructions = ''
RDSNotifyList = ''
ChangeCount = Dcount(OrigSelPos, @FM)
For I = 1 to ChangeCount
CurrRowNum = OrigSelPos<I>
CurrRow = RDSList<CurrRowNum>
LotSupps = CurrRow<1,15>
Swap CRLF with @FM in LotSupps
SuppCount = Dcount(LotSupps, @FM)
For J = 1 to SuppCount
ThisLot = CurrRow<1,5>
ThisStage = Field(LotSupps<J>, ':', 1)
ThisSupp = Field(LotSupps<J>, ': ', 2)
ThisSupp = TrimF(ThisSupp)
ret = Supplement_Services('CreateSupplement', 'RDS', ThisLot, ThisStage, ThisSupp, @USER4)
ThisLot = CurrRow<1,5>
RDSNotifyList<-1> = ThisLot
ThisStage = Field(LotSupps<J>, ':', 1)
ThisSupp = Field(LotSupps<J>, ': ', 2)
ThisSupp = TrimF(ThisSupp)
ret = Supplement_Services('CreateSupplement', 'RDS', ThisLot, ThisStage, ThisSupp, @User4)
Instructions = ThisSupp
Next J
Next I
If RDSNotifyList NE '' then Supplement_Services('SendNotifications', RDSNotifyList, 'Created', Instructions, @User4)
return
@ -404,4 +410,3 @@ EnableButtons:
return