project QadFinancials > class BCreditorReport > method CreditorAABGroup

Parameters

Internal usage

program code (program7/bcreditorreport.p)

empty temp-table tqCreditorAABGroup.

/* Call the CreditorAgeingAnalysisCurrent method and copy retrieved data */
<M-1 run CreditorAgeingABackwards
   (input  icLanguageCode (icLanguageCode), 
    input  tFilter (tFilter), 
    output dcrCreditorAgeingABackwards (dcrCreditorAgeingABackwards), 
    output viFcReturnSuper (oiReturnStatus)) in BCreditorReport>

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

if oiReturnStatus < 0
then return.

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

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 = vcSummaryByFilter1.

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

if can-find(first tqCreditorAgeingABackwards)
then do:
    if vcSummaryByFilter1 = ?
    then assign vcSummaryByFilter1 = {&CREDITORSUMMARYBY-ALL}.

    if vcGroupingLevelFilter1 = ?
    then assign vcGroupingLevelFilter1 = {&CREDITORGROUPINGLEVEL-DIVISION}.

    assign vcFilterInfo = vcSummaryByFilter1 + "#":U + vcGroupingLevelFilter1.
end.

for each tqCreditorAgeingABackwards:
    create tqCreditorAABGroup.
    buffer-copy tqCreditorAgeingABackwards to tqCreditorAABGroup.
    assign tqCreditorAABGroup.tcReportingInfo              = vcFilterInfo    
           tqCreditorAABGroup.tcSortByName                 = vcSortByFilter1
           tqCreditorAABGroup.tcCreditorAgeingTypeAABGroup = vcAgeingTypeFilter1.  
end.