project QadFinancials > class BBankPayFormat > method DataLoadMultiple

Parameters

Internal usage

program code (program1/bbankpayformat.p)

if iiBankNumberId = 0 or iiBankNumberId = ?
then return.

/* Clear the instance */
<M-1 run ClearData
   (output viFcReturnSuper (oiReturnStatus)) in BBankPayFormat>

if viFcReturnSuper <> 0
then do:
    assign oiReturnStatus = viFcReturnSuper.
    return.
end.

/* Load the BankPayFormat records for the input bank */
<Q-2 run BankPayFormatByBankID (all) (Read) (NoCache)
   (input iiBankNumberId, (BankNumberId)
    output dataset tqBankPayFormatByBankID) in BBankPayFormat >

for each tqBankPayFormatByBankID no-lock:
    find tBankPayFormat where
         tBankPayFormat.BankPayFormat_ID = tqBankPayFormatByBankID.tiBankPayFormat_ID
         no-error.
    if not available tBankPayFormat
    then do:
        if vcList = "":U
        then vcList = string (tqBankPayFormatByBankID.tiBankPayFormat_ID).
        else if lookup (string(tqBankPayFormatByBankID.tiBankPayFormat_ID), vcList, chr(4)) = 0
             then vcList = vcList + chr(4) + string (tqBankPayFormatByBankID.tiBankPayFormat_ID).
    end.
end.    

if vcList <> "":U
then do:
    <M-3 run DataLoad
       (input  '':U (icRowids), 
        input  vcList (icPkeys), 
        input  '':U (icObjectIds), 
        input  '':U (icFreeform), 
        input  true (ilKeepPrevious), 
        output viFcReturnSuper (oiReturnStatus)) in BBankPayFormat>

    if viFcReturnSuper <> 0
    then do:
        assign oiReturnStatus = viFcReturnSuper.
        return.
    end.
end.