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

added services and triggers to manually add index transactions to keep indexes up-to-date

Browse Source
This commit is contained in:
Infineon\StieberD
2025-07-25 16:28:54 -07:00
committed by Stieber Daniel (CSC FI SPS MESLEO)
parent 71daf317f0
commit c89bb6b3d4
5 changed files with 387 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
LSL2/STPROC/WO_MAT_ACTIONS.txt
View File

@ -285,16 +285,15 @@ WRITE_RECORD_PRE:
end else
CriticalFieldName = 'Error determining field name'
end
Record<CriticalField> = OrigRecord<CriticalField>
Recipients = ''
SentFrom = 'SYSTEM'
Subject = 'WO_MAT_ACTIONS - Critical Field Erase Attempt'
Subject = 'WO_MAT_ACTIONS - Critical Field Erased'
Message = OConv(Datetime(), 'DT2/^H')
Message<2> = 'Computer: ':@Station
Message<3> = 'User: ':@User4
Message<4> = 'WO_MAT key: ':Name
NoteMessage = 'Readonly field ':CriticalField:' (':CriticalFieldName:') restored.'
NoteMessage = 'Readonly field ':CriticalField:' (':CriticalFieldName:') erased. Value erased ':Quote(OrigRecord<CriticalField>)
Message<5> = NoteMessage
Message<6> = 'Call Stack:':CRLF$:RetStack()
Swap @FM with \0D0A\ in Message
@ -869,6 +868,8 @@ WRITE_RECORD:
// This should catch cases where the entire cassette is "peeled off", NCR'ed, or used for destructive testing.
Service_Services('PostProcedure', 'SCHEDULE_SERVICES', 'MarkCassProcessed':SD$:WONo:SD$:CassNo:SD$:Datetime())
end
Service_Services('PostProcedure', 'WO_MAT_SERVICES', 'VerifyWOLogWOMatKeyColumn':SD$:Name)
return