method PostSave

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.