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/bdcollection.p)
<ANCESTOR-CODE>
for each tDCollection where
tDCollection.tc_Status = "N":U and
tDCollection.DCollectionNumber <> 0 and
tDCollection.DCollectionNumber <> ?:
assign vhFcComponent = ?.
<M-2 run CommitNumber
(input tDCollection.Company_ID (iiCompanyID),
input tDCollection.DCollectionYear (iiNumbrYear),
input 'DCOL':U (icNumbrType),
input tDCollection.DCollectionNumber (iiNumbr),
input viFcCurrentInstanceId (iiInstanceId),
input vcFcComponentName (icClassName),
output viFcReturnSuper (oiReturnStatus)) in BNumber>
if viFcReturnSuper < 0 or
oiReturnStatus = 0
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.
end.