project QadFinancials > class BCMask > method CreateCMaskJournals

Description

This method creates multiple records in table CMaskJournal


Parameters


icParentRowIdinputcharacterParent Row ID
iiNbrRecordsToCreateinputintegerNumber of new records to create
tCMaskJournalRefoutputtemp-tableCreated CMaskJournal records
oiReturnStatusoutputintegerReturn 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 */