method DefaultValuesNewBankNumber

Description

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

Parameters

iiCreditorId	input	integer
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 (program3/bcinvoice.p)

if iiCreditorId = ?
then assign iiCreditorId = 0.

if icBankNumber = ?
then assign icBankNumber = "":U.

if icBankNumberExtension = ?
then assign icBankNumberExtension = "":U.

if iiCreditorId = 0 or
   icBankNumber = "":U
then return.

assign icBankNumber = replace(icBankNumber, " ":U, "":U)
       icBankNumber = replace(icBankNumber, ".":U, "":U)
       icBankNumber = replace(icBankNumber, "-":U, "":U)
       icBankNumber = replace(icBankNumber, "/":U, "":U).

<Q-5 run BankNumberPrim (all) (Read) (NoCache)
   (input ?, (BankNumberId)
    input iiCreditorId, (ParentObjectId)
    input icBankNumber, (BankNumber)
    input icBankNumberExtension, (BankNumberExtension)
    input ?, (BankPayFormatID)
    output dataset tqBankNumberPrim) in BBankNumber >

find first tqBankNumberPrim where
           tqBankNumberPrim.tiParentObject_ID     = iiCreditorId 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.