project QadFinancials > class BBankEntry > 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


oiReturnStatusoutputinteger


Internal usage


unused


program code (program/bbankentry.p)

/* Note that the CommitNumber for WHT is done in component BWithHoldingTax */

<ANCESTOR-CODE>

for each tBankStateLine where
         tbankstateline.tc_status           <> "D":U                         and
         tBankStateLine.BankStateLineStatus = {&BANKSTATELINESTATUS-UNALLOC} and
         tBankStateLine.tiPostingVoucher    <> 0                             and
         tBankStateLine.tiPostingVoucher    <> ?:
                     
    assign vhFcComponent = ?.
    <M-22 run ReleaseNumber
       (input  tBankStateLine.Company_ID (iiCompanyId), 
        input  tBankStateLine.tiPostingPeriodYear (iiNumbrYear), 
        input  tBankStateLine.tcPostingJournalCode (icNumbrType), 
        input  tBankStateLine.tiPostingVoucher (iiNumbr), 
        input  viFcCurrentInstanceId (iiInstanceId), 
        input  vcFcComponentName (icClassName), 
        output viFcReturnSuper (oiReturnStatus)) in BNumber> 
    if viFcReturnSuper <> 0 and
       oiReturnStatus >= 0
    then assign oiReturnStatus = viFcReturnSuper.             
end.