Description
This method creates multiple records in table CyGroupCompany
Parameters
icParentRowId | input | character | Parent Row ID |
iiNbrRecordsToCreate | input | integer | Number of new records to create |
tCyGroupCompanyRef | output | temp-table | Created CMaskJournal records |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program3/bcompanygroup.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 tCyGroupCompanyRef.
/* Execution block */
do viI = 1 to iiNbrRecordsToCreate:
/* Create new record */
<M-74 run AddDetailLine
(input 'CyGroupCompany':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 tCyGroupCompanyRef.
buffer-copy tCyGroupCompany to tCyGroupCompanyRef.
end.
end. /* MAIN_BLOCK */