project QadFinancials > class BCreditorReport > method CreditorAACGroup

Parameters

Internal usage

program code (program7/bcreditorreport.p)

empty temp-table tqCreditorAACGroup.

/* Call the CreditorAgeingAnalysisCurrent method and copy retrieved data */
<M-4 run CreditorAgeingAnalysisCurrent
   (input  icLanguageCode (icLanguageCode), 
    input  tFilter (tFilter), 
    output dcrCreditorAgeingAnalysisCurrent (dcrCreditorAgeingAnalysisCurrent), 
    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  'CreditorAACGroup':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: SummaryByFilter#GroupingLevelFilter */

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

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

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

for each tqCreditorAgeingAnalysisCurrent:
    create tqCreditorAACGroup.
    buffer-copy tqCreditorAgeingAnalysisCurrent to tqCreditorAACGroup.
    assign tqCreditorAACGroup.tcReportingInfo              = vcFilterInfo    
           tqCreditorAACGroup.tcSortByName1                = vcSortByFilter1
           tqCreditorAACGroup.tcCreditorAgeingTypeAACGroup = vcAgeingTypeFilter1.
end.