?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Really, this should be it, for the passing income.
[capital-apms-progress.git] / trigger / wrnewdoc.p
blobc015c67945e9f5e504410d29357a68fb19b3f76f
1 TRIGGER PROCEDURE FOR WRITE OF NewDocument.
2
3 IF NEW NewDocument THEN DO:
4 FIND NewBatch OF NewDocument EXCLUSIVE-LOCK NO-ERROR.
5 NewBatch.DocumentCount = NewBatch.DocumentCount + 1.
6 END.
Capital Accounting & Property Management System (using Progress DB)