method DataLoadMultiple

Description

Give the period records for an accounting year
Parameters

iiPeriodYear	input	integer	The year from which you want all the period records
oiReturnStatus	output	integer	Return status of the method.
Internal usage

unused
program code (program1/bperiod.p)

/* ======================== */
    /* validate input parameter */
    /* ======================== */
    if iiPeriodYear = 0
    then do:
        assign vcMessage      = trim(#T-5'Enter the GL calendar year you want to create.':255(3085)T-5#)
               oiReturnStatus = -1.
        <M-1 run SetMessage (input  vcMessage (icMessage),
                     input  '':U (icArguments),
                     input  '':U (icFieldName),
                     input  '':U (icFieldValue),
                     input  'E':U (icType),
                     input  3 (iiSeverity),
                     input  '':U (icRowid),
                     input  'QADFIN-211':U (icFcMsgNumber),
                     input  '' (icFcExplanation),
                     input  '' (icFcIdentification),
                     input  '' (icFcContext),
                     output viFcReturnSuper (oiReturnStatus)) in BPeriod>
        return.
    end.
    
    /* ====================================================================== */
    /* first clear the instance, otherwise problems when you execute it twice */
    /* ====================================================================== */
    <M-4 run ClearData (output viFcReturnSuper (oiReturnStatus)) in BPeriod>
    if viFcReturnSuper <> 0
    then do:
        assign oiReturnStatus = viFcReturnSuper.
        return.
    end.

    /* ========================================== */
    /* load the period records for the input year */
    /* ========================================== */
    <Q-2 run PeriodByYearPeriod (all) (Read) (NoCache)
          (input viCompanyId, (CompanyId)
           input iiPeriodYear, (PeriodYear)
           input 0, (PeriodPeriod)
           input ?, (PeriodId)
           output dataset tqPeriodByYearPeriod) in BPeriod >
    
    assign vcList = "":U.
    
    for each tqPeriodByYearPeriod where
             tqPeriodByYearPeriod.tiCompany_ID = viCompanyId and
             tqPeriodByYearPeriod.tiPeriodYear = iiPeriodYear
             no-lock:
        find tPeriod where
             tPeriod.Period_ID = tqPeriodByYearPeriod.tiPeriod_ID
             no-error.
        if not available tPeriod
        then do:
            if vcList = "":U
            then vcList = string (tqPeriodByYearPeriod.tiPeriod_ID).
            else if lookup (string(tqPeriodByYearPeriod.tiPeriod_ID),vcList,chr(4)) = 0
                 then vcList = vcList + chr(4) + string (tqPeriodByYearPeriod.tiPeriod_ID).
        end.
    end.    
    
    if vcList <> "":U
    then do:
        <M-3 run DataLoad (input  '':U (icRowids), 
                   input  vcList (icPkeys), 
                   input  '':U (icObjectIds), 
                   input  '' (icFreeform), 
                   input  true (ilKeepPrevious), 
                   output viFcReturnSuper (oiReturnStatus)) in BPeriod>
        if viFcReturnSuper <> 0
        then do:
            assign oiReturnStatus = viFcReturnSuper.
            return.
        end.
    end.