project QadFinancials > class BDebtorReport > method DebtorMasterCard

Parameters

Internal usage

program code (program7/bdebtorreport.p)

empty temp-table tqDebtorMasterCard.

<M-1 run GetReportLabels (input  'DebtorMasterCard':U (icReportName), 
                          input  icLanguageCode (icLanguageCode), 
                          input  tFilter (tFilter), 
                          output tqHeader (tqHeader), 
                          output tqFilter (tqFilter), 
                          output tqText (tqText), 
                          output oiReturnStatus (oiReturnStatus)) in BDebtorReport>

if oiReturnStatus <> 0
then return.     

<M-2 run SetDataItemsBasedOnFilterTT (output viFcReturnSuper (oiReturnStatus)) in BDebtorReport>                         

<Q-3 run DebtorAllItems (all) (Read) (NoCache)
          (input viCompanyId, (CompanyId)
           input vcCandoBRCodeFilter, (BusinessRelationCodeFilter)
           input vcFromBRCodeFilter, (BusRelCodeFromFilter)
           input vcToBRCodeFilter, (BusRelCodeToFilter)
           input vcCandoDebtorCodeFilter, (DebtorCodeFilter)
           input vcFromDebtorCodeFilter, (DebtorCodeFromFilter)
           input vcToDebtorCodeFilter, (DebtorCodeToFilter)
           input vcCurrencyCodeFilter, (CurrencyCodeFilter)
           input vlPrintReminderFilter, (PrintReminder)
           input vlPrintStatementFilter, (PrintStatement)
           input vcBusRelNameFilter, (BusinessRelationName1)
           input vcAddressStreetFilter, (AddressStreet1)
           input vcAddressCityFilter1, (AddressCity)
           input vlActiveDebtorsFilter, (IsActive)
           input vcProfileCodeCnFilter1, (ProfileCodeCn)
           input vcProfileCodeDivFilter1, (ProfileCodeDiv)
           input vcProfileCodeInvFilter1, (ProfileCodeInv)
           input vcPaymentCondCodeNmFilter1, (PaymentCondCodeNm)
           input vcReasonCodeFilter1, (ReasonCode)
           input vcBLWICodeFilter, (BLWICode)
           input vcTaxIdFederalFilter, (FederalTaxId)
           input vcTaxIdStateFilter, (StateTaxId)
           output dataset tqDebtorAllItems) in BDebtorReport >


<Q-7 run GetDebtorBankNumbers  (Start) in BDebtorReport >
if viBDebtorID = 0 or
   viBDebtorID = ?     
then do:
    <I-94 {bFcStartAndOpenInstance
         &ADD-TO-TRANSACTION   = "false"
         &CLASS                = "BDebtor"}>
end.
else do:
    <I-20 {bFcOpenInstance
         &CLASS           = "BDebtor"}>
end.

for each tqDebtorAllItems:
        create tqDebtorMasterCard.
        buffer-copy tqDebtorAllItems to tqDebtorMasterCard.

        <M-11 run CalculateBalances
           (input  tqDebtorMasterCard.tiDebtor_ID (iiDebtorId), 
            input  tqDebtorMasterCard.tcDebtorCode (icDebtorCode), 
            input  tqDebtorMasterCard.tcCurrencyCode (icCurrencyCode), 
            input  false (ilSalesOrders), 
            input  tqDebtorMasterCard.tlDebtorIsInclOpenItmCredLim (ilOpenItems), 
            input  ? (ilDrafts), 
            input  tqDebtorMasterCard.tlDebtorIsTurnOverCredLim (ilCreditOnTurnover), 
            input  tqDebtorMasterCard.tdDebtorPercTurnOverCredLim (idPercentageOfTurnover), 
            output vdSOBalance (odSOBalance), 
            output vdOIBalance (odOIBalance), 
            output vdDraftBalance (odDraftBalance), 
            output vdCreditOnTurnOver (odCreditOnTurnover), 
            output viFcReturnSuper (oiReturnStatus)) in BDebtor>

        assign tqDebtorMasterCard.tdDebtorCreditOnTurnOver = vdDebtorCreditOnTurnOver.

        /*Bank Numbers*/          
         assign viDebtorIDFilter = tqDebtorAllItems.tiDebtor_ID
                    vcBankNumberString = "":U.
          <Q-10 run GetDebtorBankNumbers (all) (Read) (Cache)
             (input viDebtorIDFilter, (DebtorIDFilter)
              output dataset tqGetDebtorBankNumbers) in BDebtorReport >
          for each tqGetDebtorBankNumbers:
              assign vcBankNumberString = vcBankNumberString + substitute("&2&1&3&1&4&1&5&1&6&1&7&1&8&1":U,chr(2),
                (string(tqGetDebtorBankNumbers.tlBankNumberIsDefault) + "_"),
                (tqGetDebtorBankNumbers.tcBankNumberValidation + "_"),
                (tqGetDebtorBankNumbers.tcBankNumber + "_"),
                (tqGetDebtorBankNumbers.tcBankNumberExtension + "_"),
                (tqGetDebtorBankNumbers.tcBankNumberSwiftCode + "_"),
                (string(tqGetDebtorBankNumbers.tlBankNumberIsActive) + "_"),
                (tqGetDebtorBankNumbers.tcBusinessRelationCode + "_")) + substitute("&3&1&4&1&5&1&6&2":U,chr(2),chr(4),        
                (tqGetDebtorBankNumbers.tcCurrencyCode + "_"),
                (tqGetDebtorBankNumbers.tcBankNumber2 + "_"),
                (tqGetDebtorBankNumbers.tcPayFormatTypeCode + "_"),
                (tqGetDebtorBankNumbers.tcPayFormatTypePayInstrument + "_")).      
          end.   
          
          assign vcBankNumberString = replace(vcBankNumberString,"?":U,"_":U).
          assign tqDebtorMasterCard.tcBankNumberString = vcBankNumberString.                                                           
end.
 
<I-36 {bFcCloseAndStopInstance
     &CLASS           = "BDebtor"}>

<Q-8 run GetDebtorBankNumbers  (Stop) in BDebtorReport >