report procedure
Parameters
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.