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/bdraftinstance.p)

<ANCESTOR-CODE>
if oiReturnStatus < 0
then return.

/* ================================================================= */
/* Prepare delete of drafts                                          */
/* ================================================================= */
for each tfcDraftInstance where
         tfcDraftInstance.tc_Status = "D":U and
         tfcDraftInstance.DraftInstance_Id <> tfcDraftInstance.TransactionId:
    create tDraftsToDelete.
    assign tDraftsToDelete.tcFcComponentName = tfcDraftInstance.BusinessClass
           tDraftsToDelete.tiCurrentDraftInstanceId = tfcDraftInstance.DraftInstance_Id.
end.