repo.or.cz
/
capital-apms-progress.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Adjustments to FM Call report, reorder layout, section headers.
[capital-apms-progress.git]
/
trigger
/
crperson.p
blob
857274c09c5af5a2d48c74605d9070445df86ed6
1
TRIGGER
PROCEDURE
FOR CREATE OF
Person.
2
3
DEF
BUFFER
last-person
FOR
Person.
4
FIND LAST
last-person
NO-LOCK NO-ERROR
.
5
IF AVAILABLE
(
last-person
)
THEN
Person.PersonCode
=
last-person.PersonCode
+
1
.
6
ELSE
Person.PersonCode
=
1
.