project QadFinancials > class BCMask > method CreateCMaskJournals
Description
This method creates multiple records in table CMaskJournal
Parameters
icParentRowId | input | character | Parent Row ID |
iiNbrRecordsToCreate | input | integer | Number of new records to create |
tCMaskJournalRef | output | temp-table | Created CMaskJournal records |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program3/bcmask.p)
/* ====================================================================================== *
* Method : CreateCMaskJournals *
* Description : This method creates new records for the CMaskJournal table *
* ====================================================================================== */
MAIN_BLOCK:
do on error undo, throw:
/* Default output parameters */
empty temp-table tCMaskJournalRef.
/* Execution block */
do viI = 1 to iiNbrRecordsToCreate:
/* Create new record */
<M-74 run AddDetailLine
(input 'CMaskJournal':U (icTable),
input icParentRowId (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BCMask>
if viFcReturnSuper < 0 or viFcReturnSuper > 0 and oiReturnStatus = 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0 then leave MAIN_BLOCK.
create tCMaskJournalRef.
buffer-copy tCMaskJournal to tCMaskJournalRef.
end.
end. /* MAIN_BLOCK */