Description
Actions to take after writing current instance to the database, and before final commit of the transaction.
Use the field tc_status to test the status of the updated records:
'' = unchanged
'N' = new
'C' = changed
'D' = deleted
Parameters
oiReturnStatus | output | integer | |
Internal usage
unused
program code (program/bexpensenote.p)
<ANCESTOR-CODE>
for each tExpNote where
can-do(vcExpenseNoteCommitNumber,tExpNote.tc_Rowid) and
tExpNote.ExpNoteNumber <> 0 and
tExpNote.ExpNoteNumber <> ? :
assign vhFcComponent = ?.
<M-2 run CommitNumber
(input viCompanyId (iiCompanyID),
input tExpNote.ExpNoteYear (iiNumbrYear),
input 'EXPNOTE':U (icNumbrType),
input tExpNote.ExpNoteNumber (iiNumbr),
input viFcCurrentInstanceId (iiInstanceId),
input vcFcComponentName (icClassName),
output viFcReturnSuper (oiReturnStatus)) in BNumber>
if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus = 0)
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.
end.