project QadFinancials > class BDebtor > method CreateBankNumberPayCode

Description

Method to populate the tDBankNumberPayCodeRef temp-table with default attributes from PayFormatCode and PayFormatGroup table


Parameters


icPayFormatTypeCodeinputcharacter
icParentRowIDinputcharacterCustomer RowID
tDBankNumberPayCodeRefoutputtemp-table
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program3/bdebtor.p)

empty temp-table tDBankNumberPayCodeRef.

<Q-1 run PayFormatCodeByDefault (all) (Read) (NoCache)
   (input icPayFormatTypeCode, (PayFormatTypeCode)
    input ?, (PayFormatGroupSequence)
    input yes, (PayFormatGroupIsActive)
    input yes, (PayFormatCodeIsActive)
    input yes, (PayFormatCodeIsDefault)
    output dataset tqPayFormatCodeByDefault) in BPaymentFormat >

for each tqPayFormatCodeByDefault no-lock:

    /* Allow only "Invoice" and "Payment" level attributes */
    if tqPayFormatCodeByDefault.tcPayFormatGroupLevel = {&PAYFORMATGROUPLEVEL-INVOICE} or
       tqPayFormatCodeByDefault.tcPayFormatGroupLevel = {&PAYFORMATGROUPLEVEL-PAYMENT}
    then do:

        create tDBankNumberPayCodeRef.
        assign 
               tDBankNumberPayCodeRef.BankNumberPayCodeSequence    = tqPayFormatCodeByDefault.tiPayFormatGroupSequence
               tDBankNumberPayCodeRef.PayFormatGroup_ID            = tqPayFormatCodeByDefault.tiPayFormatGroup_ID
               tDBankNumberPayCodeRef.tcPayFormatCodeValue         = tqPayFormatCodeByDefault.tcPayFormatCode
               tDBankNumberPayCodeRef.tcPayFormatCodeDescription   = tqPayFormatCodeByDefault.tcPayFormatCodeDescription
               tDBankNumberPayCodeRef.tcPayFormatGroupDescription  = tqPayFormatCodeByDefault.tcPayFormatGroupDescription
               tDBankNumberPayCodeRef.tiPayFormatGroupSequence     = tqPayFormatCodeByDefault.tiPayFormatGroupSequence
               tDBankNumberPayCodeRef.tcPayFormatGroupInputOption  = tqPayFormatCodeByDefault.tcPayFormatGroupInputOption
               tDBankNumberPayCodeRef.tcPayFormatGroupCode         = tqPayFormatCodeByDefault.tcPayFormatGroupCode
               tDBankNumberPayCodeRef.tlPayFormatGroupIsMandatory  = tqPayFormatCodeByDefault.tlPayFormatGroupIsMandatory
               tDBankNumberPayCodeRef.tcPayFormatGroupDataType     = tqPayFormatCodeByDefault.tcPayFormatGroupDataType
               tDBankNumberPayCodeRef.tc_ParentRowid               = icParentRowID
               viDBankNumberPayCodeRowid                           = viDBankNumberPayCodeRowid - 1
               tDBankNumberPayCodeRef.tc_Rowid                     = string(viDBankNumberPayCodeRowid).

        if tDBankNumberPayCodeRef.tcPayFormatGroupDataType  = {&PAYFORMATGROUPDATATYPE-LOGICAL} and
           (tDBankNumberPayCodeRef.tcPayFormatCodeValue     = ?                                 or
            tDBankNumberPayCodeRef.tcPayFormatCodeValue     = "":U)
        then assign tDBankNumberPayCodeRef.tcPayFormatCodeValue = "false":U.
    end.
end.