method GetExportGroupCodes

Parameters

icPayFormatTypeCode	input	character
iiBankNumber_ID	input	integer
bcBankGroup1	input-output	character
bcBankGroup2	input-output	character
bcBankGroup3	input-output	character
bcBankGroup4	input-output	character
bcBankGroup5	input-output	character
bcBankGroup6	input-output	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BPaymentSelection.ExportBEAbroad

program code (program1/bpaymentselection.p)

<Q-1 run BankNumberPayCodeByBankNbrID (all) (Read) (NoCache)
   (input iiBankNumber_ID, (BankNumberId)
    output dataset tqBankNumberPayCodeByBankNbrID) in BBankNumber >

<Q-6 run PayFormatGroupPrim  (Start) in BPaymentFormat >
<Q-11 run PayFormatCodebyGroupID (Start) in BPaymentFormat >

do viPayFormatGroupSequence = 1 to 6:
    find first tqBankNumberPayCodeByBankNbrID where
               tqBankNumberPayCodeByBankNbrID.tcPayFormatTypeCode      = icPayFormatTypeCode and
               tqBankNumberPayCodeByBankNbrID.tiPayFormatGroupSequence = viPayFormatGroupSequence
               no-error.
    if available tqBankNumberPayCodeByBankNbrID
    then do :
         if viPayFormatGroupSequence = 1
         then assign bcBankGroup1 = tqBankNumberPayCodeByBankNbrID.tcPayFormatCode.
         else if viPayFormatGroupSequence = 2
              then assign bcBankGroup2 = tqBankNumberPayCodeByBankNbrID.tcPayFormatCode.
         else if viPayFormatGroupSequence = 3
              then assign bcBankGroup3 = tqBankNumberPayCodeByBankNbrID.tcPayFormatCode.
         else if viPayFormatGroupSequence = 4
              then assign bcBankGroup4 = tqBankNumberPayCodeByBankNbrID.tcPayFormatCode.
         else if viPayFormatGroupSequence = 5
              then assign bcBankGroup5 = tqBankNumberPayCodeByBankNbrID.tcPayFormatCode.
         else if viPayFormatGroupSequence = 6
              then assign bcBankGroup6 = tqBankNumberPayCodeByBankNbrID.tcPayFormatCode.
    end.
    else do:
        <Q-4 run PayFormatGroupPrim (all) (Read) (Cache)
          (input ?, (PayFormatGroupID)
           input icPayFormatTypeCode, (PayFormatTypeCode)
           input viPayFormatGroupSequence, (PayFormatGroupSequence)
           output dataset tqPayFormatGroupPrim) in BPaymentFormat >
                              
        find first tqPayFormatGroupPrim no-error.
        if available tqPayFormatGroupPrim
        then do:
            <Q-10 run PayFormatCodebyGroupID (all) (Read) (Cache)
          (input ?, (PayFormatCodeID)
           input '':U, (PayFormatCode)
           input  tqPayFormatGroupPrim.tiPayFormatGroup_ID, (PayFormatGroupID)
           output dataset tqPayFormatCodebyGroupID) in BPaymentFormat >
            find first tqPayFormatCodebyGroupID /*default?*/ no-error.
            if available tqPayFormatCodebyGroupID
            then if viPayFormatGroupSequence = 1
                 then assign bcBankGroup1 = tqPayFormatCodebyGroupID.tcPayFormatCode.
                 else if viPayFormatGroupSequence = 2
                 then assign bcBankGroup2 = tqPayFormatCodebyGroupID.tcPayFormatCode.
                 else if viPayFormatGroupSequence = 3
                 then assign bcBankGroup3 = tqPayFormatCodebyGroupID.tcPayFormatCode.
                 else if viPayFormatGroupSequence = 4
                 then assign bcBankGroup4 = tqPayFormatCodebyGroupID.tcPayFormatCode.
                 else if viPayFormatGroupSequence = 5
                 then assign bcBankGroup5 = tqPayFormatCodebyGroupID.tcPayFormatCode.
                 else if viPayFormatGroupSequence = 6
                 then assign bcBankGroup6 = tqPayFormatCodebyGroupID.tcPayFormatCode.
        end.
    end.    
end.

<Q-8 run PayFormatGroupPrim  (Stop) in BPaymentFormat >
<Q-12 run PayFormatCodebyGroupID  (Stop) in BPaymentFormat >