project QadFinancials > class BDebtorReport > method DebtorAACGroup

Parameters

Internal usage

program code (program7/bdebtorreport.p)

empty temp-table tqDebtorAACGroup.

<M-1 run DebtorAgeingAnalysisCurrent
   (input  icLanguageCode (icLanguageCode), 
    input  tFilter (tFilter), 
    output dcrDebtorAgeingAnalysisCurrent (dcrDebtorAgeingAnalysisCurrent), 
    output viFcReturnSuper (oiReturnStatus)) in BDebtorReport>

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

if oiReturnStatus < 0
then return.

<M-3 run GetReportLabels
   (input  'DebtorAACGroup':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 tqDebtorAgeingAnalysisCurrent)
then do:
    if vcSummaryByFilter = ?
    then assign vcSummaryByFilter = {&DEBTORSUMMARYBY-ALL}.

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

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

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