project QadFinancials > class BDebtorReport > method DebtorAABGroup

Parameters

Internal usage

program code (program7/bdebtorreport.p)

empty temp-table tqDebtorAABGroup.

assign vlIsAABGroup = true.

<M-1 run DebtorAgeingAnalysisBackwards
   (input  icLanguageCode (icLanguageCode), 
    input  tFilter (tFilter), 
    output dcrDebtorAgeingAnalysisBackwards (dcrDebtorAgeingAnalysisBackwards), 
    output viFcReturnSuper (oiReturnStatus)) in BDebtorReport>
   
assign vlIsAABGroup = false.

if viFcReturnSuper < 0 or
   oiReturnStatus  = 0
then assign oiReturnStatus = viFcReturnSuper.

if oiReturnStatus < 0
then return.

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

if viFcReturnSuper < 0 or
   oiReturnStatus  = 0
then assign oiReturnStatus = viFcReturnSuper.

if oiReturnStatus < 0
then return.

create tqFilter.
assign 
    tqFilter.ti_Sequence = 0
    tqFilter.tcBusinessFieldLabel = "icActivityCode":U
    tqFilter.tcBusinessFieldName = "SummaryByInfo":U
    tqFilter.tcParameterValue = vcSummaryByFilter.

/* Add filterfields to one special line
   It has two fields separated by '#'
   tcreportingInfo: SummaryByFiler#GroupingLevelFilter */

if can-find(first tqDebtorAgeingAnalysisBackwards)
then do:
    if vcSummaryByFilter = ?
    then assign vcSummaryByFilter = {&DEBTORSUMMARYBY-ALL}.

    if vcGroupingLevelFilter = ?
    then assign vcGroupingLevelFilter = {&DEBTORGROUPINGLEVEL-DIVISION}.

    assign vcFilterInfo = vcSummaryByFilter + "#":U + vcGroupingLevelFilter.
end.

for each tqDebtorAgeingAnalysisBackwards:
    create tqDebtorAABGroup.
    buffer-copy tqDebtorAgeingAnalysisBackwards to tqDebtorAABGroup.
    assign tqDebtorAABGroup.tcReportingInfo      = vcFilterInfo   
           tqDebtorAABGroup.tcSortByFilter       = vcSortByNameFilter
           tqDebtorAABGroup.tcAgeingTypeAABGroup = vcAgeingTypeFilter. 
    if tqDebtorAABGroup.tcDInvoiceType = {&INVOICETYPE-DEDUCTION} then
    do:
        <M-50 run CalDeductionStatus
           (input  tqDebtorAABGroup.tiDInvoice_ID (iiDInvoiceID), 
            output tqDebtorAABGroup.tcDInvoiceDeductionStatus (ocDeductionStatus), 
            input-output tqDebtorAABGroup.tcDInvoiceType (bcDInvoiceType), 
            output oiReturnStatus (oiReturnStatus)) in BDebtorReport>
    end.

end.