project BLF > class Transaction > method RemoveInstance
Description
Remove an instance from the transaction.
Parameters
| iiInstanceNr | input | integer | Instance number |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
BLF
QadFinancials
program code (program1/transaction.p)
/* Flag vlTransactionActive will be true when method CommitTransaction
or AbortTransaction is running.
At that time, no instances can be added or removed any more. */
if viTransactionLevel <= 0
or vlTransactionActive
then do:
<M-1 run SetMessage
(input 'No transaction active.':U (icMessage),
input '' (icArguments),
input '' (icFieldName),
input '' (icFieldValue),
input 'S':U (icType),
input 3 (iiSeverity),
input '' (icRowid),
input 'BLF-419':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in Transaction>
return.
end.
find first tInstances where
tInstances.tiInstanceNr = iiInstanceNr no-error.
if available tInstances
then delete tInstances.