project QadFinancials > class BCDocumentReport > method CDocumentReportSumStatement

report procedure


Parameters


icLanguageCodeinputcharacter
tFilterinputtemp-table
dcrCDocumentReportSumStatementoutputdataset
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/bcdocumentreport.p)

empty temp-table tqCDocumentReportSumStatement.

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

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

if oiReturnStatus < 0
then return.

<M-2 run CDocumentReportAll (input  {&DOCUMENTTYPECREDITOR-SUMSTATE} (icCDocumentType), 
                             output viFcReturnSuper (oiReturnStatus)) in BCDocumentReport>

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

if oiReturnStatus < 0
then return.

for each tCDocumentReportAll:
    create tqCDocumentReportSumStatement.
    buffer-copy tCDocumentReportAll to tqCDocumentReportSumStatement.
end.