project BLF > class BDraftInstance > method PostTransaction
Description
Actions to take after final commit of the transaction.
Parameters
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program/bdraftinstance.p)
<ANCESTOR-CODE>
if oiReturnStatus < 0
then return.
/* ================================================================= */
/* When deleting a draft instance, also delete the business object */
/* (this must be done outside a progress transaction) */
/* ================================================================= */
for each tDraftsToDelete:
<M-1 run BusinessClassActions
(input tDraftsToDelete.tcFcComponentName (icClassShortname),
input 'STOP':U (icAction),
input no (ilSubtransaction),
input-output viFcCount5 (biClassOpenCount),
input-output vhFcComponent (bhClassInstanceHandle),
input-output tDraftsToDelete.tiCurrentDraftInstanceId (biClassInstanceId),
input '' (icDraftReference),
output viFcReturnSuper (oiReturnStatus)) in BDraftInstance>
end.