method DefaultValuesNewBankNumber

Description

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

Parameters

icDebtorCode	input	character	Customer Code
icBankNumber	input	character	Bank Number
icBankNumberExtension	input	character	Bank Number Extension
ocBankNumberSwiftCode	output	character	Swift Code of the Bank Number
ocBankNumberBusinessRelationCode	output	character	Business Relation Code of the Bank Number
ocBankNumberValidation	output	character	Validation of the Bank Number
oiReturnStatus	output	integer	Return 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.