project QadFinancials > class BDInvoice > method CreateDIBank

Parameters

Internal usage

program code (program1/bdinvoice.p)

if iiDebtorId = ? or iiDebtorId = 0
then do:
    if icDebtorCode = ? or icDebtorCode = "":U
    then return.
        
    <Q-6 run DebtorPrim (all) (Read) (NoCache)
       (input viCompanyId, (CompanyId)
        input icDebtorCode, (DebtorCode)
        input ?, (Debtor_ID)
        output dataset tqDebtorPrim) in BDebtor >

    find first tqDebtorPrim where 
               tqDebtorPrim.tcDebtorCode = icDebtorCode no-error.
    if available tqDebtorPrim
    then assign iiDebtorId = tqDebtorPrim.tiDebtor_ID.
    else return.
end.

empty temp-table tApiDInvoiceBank.
empty temp-table tApiDInvoiceBankPayCode.

<M-5 run DefaultValuesBank
   (input  iiDInvoiceId (iiDInvoiceId), 
    input  icDInvoiceRowid (icRowId), 
    input  idDInvoiceOriginalTC (idDInvoiceOriginalTC), 
    input  iiDebtorId (iiDebtorId), 
    output tApiDInvoiceBank (tApiDInvoiceBank), 
    output tApiDInvoiceBankPaycode (tApiDInvoiceBankPayCode), 
    output viFcReturnSuper (oiReturnStatus)) in BDInvoice>

if viFcReturnSuper < 0 or oiReturnStatus = 0
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.

for each tDInvoiceBank where 
         tDInvoiceBank.tc_ParentRowid =  icDInvoiceRowid:
    <M-4 run CreateDIBankPayCode
       (input  tDInvoiceBank.DInvoiceBank_ID (iiDInvoiceBankId), 
        input  tDInvoiceBank.tc_Rowid (icDInvoiceBankRowid), 
        input  tDInvoiceBank.BankNumber_ID (iiBankNumberId), 
        output tApiDInvoiceBankPayCode (tApiDInvoiceBankPayCode), 
        output viFcReturnSuper (oiReturnStatus)) in BDInvoice>

    if viFcReturnSuper < 0 or oiReturnStatus = 0
    then assign oiReturnStatus = viFcReturnSuper.
    if oiReturnStatus < 0
    then return.

    create tApiDInvoiceBank.
    buffer-copy tDInvoiceBank to tApiDInvoiceBank.
end.