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/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.