project QadFinancials > class BDInvoice > 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.