project QadFinancials > class BDInvoice > method DefaultValuesNewBankNumber

Description

Default values for a new bank number : the related fields will be defaulted


Parameters


icDebtorCodeinputcharacterCustomer Code
icBankNumberinputcharacterBank Number
icBankNumberExtensioninputcharacterBank Number Extension
ocBankNumberSwiftCodeoutputcharacterSwift Code of the Bank Number
ocBankNumberBusinessRelationCodeoutputcharacterBusiness Relation Code of the Bank Number
ocBankNumberValidationoutputcharacterValidation of the Bank Number
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program4/bdinvoice.p)

/* ====================== */
/* replace unknown values */
/* ====================== */
if icBankNumber = ? then assign icBankNumber = "":U.
if icBankNumberExtension = ? then assign icBankNumberExtension = "":U.
if icDebtorCode = ? then assign icDebtorCode = "":U.

/* ======================== */
/* validate input parameter */
/* =======================  */
if icBankNumber = "":U or icDebtorCode = "":U 
then return.

<Q-1 run DebtorPrim (all) (Read) (NoCache)
   (input viCompanyId, (CompanyId)
    input icDebtorCode, (DebtorCode)
    input ?, (Debtor_ID)
    output dataset tqDebtorPrim) in BDebtor >

find first tqDebtorPrim no-error.
if not available tqDebtorPrim
then return.

/* ===================== */
/* search the banknumber */
/* ===================== */
assign icBankNumber = replace(icBankNumber," ":U,"":U)
       icBankNumber = replace(icBankNumber,".":U,"":U)
       icBankNumber = replace(icBankNumber,"-":U,"":U)
       icBankNumber = replace(icBankNumber,"/":U,"":U).
<Q-2 run BankNumberPrim (all) (Read) (NoCache)
      (input ?, (BankNumberId)
       input tqDebtorPrim.tiDebtor_ID, (ParentObjectId)
       input icBankNumber, (BankNumber)
       input icBankNumberExtension, (BankNumberExtension)
       input ?, (BankPayFormatID)
       output dataset tqBankNumberPrim) in BBankNumber >
find first tqBankNumberPrim where
           tqBankNumberPrim.tiParentObject_ID       = tqDebtorPrim.tiDebtor_ID and
           tqBankNumberPrim.tcBankNumber            = icBankNumber and
           tqBankNumberPrim.tcBankNumberExtension   = icBankNumberExtension
           no-error.
if not available tqBankNumberPrim
then return.

assign ocBankNumberSwiftCode            = tqBankNumberPrim.tcBankNumberSwiftCode
       ocBankNumberBusinessRelationCode = tqBankNumberPrim.tcBusinessRelationCode
       ocBankNumberValidation           = tqBankNumberPrim.tcBankNumberValidation.