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