report procedure
Parameters
Internal usage
unused
program code (program1/bddocumentreport.p)
empty temp-table tqDDocumentReportSumStatement.
<M-1 run GetReportLabels (input 'DDocumentReportSumStatement':U (icReportName),
input icLanguageCode (icLanguageCode),
input tFilter (tFilter),
output tqHeader (tqHeader),
output tqFilter (tqFilter),
output tqText (tqText),
output oiReturnStatus (oiReturnStatus)) in BDDocumentReport>
if oiReturnStatus <> 0
then return.
<M-3 run SetDataItemsBasesOnFilterTT
(output oiReturnStatus (oiReturnStatus)) in BDDocumentReport>
if oiReturnStatus <> 0
then return.
empty temp-table tDDocumentReportAll.
<M-2 run DDocumentReportAll (output tDDocumentReportAll (tDDocumentReportAll),
input {&DOCUMENTTYPEDEBTOR-SUMSTATE} (icDocumentType),
output oiReturnStatus (oiReturnStatus)) in BDDocumentReport>
for each tDDocumentReportAll where tDDocumentReportAll.tcDDocRepDocumentType = {&DOCUMENTTYPEDEBTOR-SUMSTATE}:
create tqDDocumentReportSumStatement.
assign tqDDocumentReportSumStatement.tcDDocRepDocumentType = {&DOCUMENTTYPEDEBTOR-SUMSTATE-TR}
tqDDocumentReportSumStatement.tiDDocumentID = tDDocumentReportAll.tiDDocumentID
tqDDocumentReportSumStatement.tiDDocRepYear = tDDocumentReportAll.tiDDocRepYear
tqDDocumentReportSumStatement.tiDDocRepNumber = tDDocumentReportAll.tiDDocRepNumber
tqDDocumentReportSumStatement.tcDDocRepDocumentStatus = tDDocumentReportAll.tcDDocRepDocumentStatus
tqDDocumentReportSumStatement.tcDDocRepReference = tDDocumentReportAll.tcDDocRepReference
tqDDocumentReportSumStatement.ttDDocRepDueDate = tDDocumentReportAll.ttDDocRepDueDate
tqDDocumentReportSumStatement.tdDDocRepAmount = tDDocumentReportAll.tdDDocRepAmount
tqDDocumentReportSumStatement.tcDDocRepAmountInText = tDDocumentReportAll.tcDDocRepAmountInText
tqDDocumentReportSumStatement.tcDDocRepCurrency = tDDocumentReportAll.tcDDocRepCurrency
tqDDocumentReportSumStatement.ttDDocRepCreationDate = tDDocumentReportAll.ttDDocRepCreationDate
tqDDocumentReportSumStatement.tcDDocRepCompanyBRCode = tDDocumentReportAll.tcDDocRepCompanyBRCode
tqDDocumentReportSumStatement.tcDDocRepCompanyName1 = tDDocumentReportAll.tcDDocRepCompanyName1
tqDDocumentReportSumStatement.tcDDocRepCompanyName2 = tDDocumentReportAll.tcDDocRepCompanyName2
tqDDocumentReportSumStatement.tcDDocRepCompanyStreet1 = tDDocumentReportAll.tcDDocRepCompanyStreet1
tqDDocumentReportSumStatement.tcDDocRepCompanyStreet2 = tDDocumentReportAll.tcDDocRepCompanyStreet2
tqDDocumentReportSumStatement.tiDDocRepCompanyFormat = tDDocumentReportAll.tiDDocRepCompanyFormat
tqDDocumentReportSumStatement.tcDDocRepCompanyZip = tDDocumentReportAll.tcDDocRepCompanyZip
tqDDocumentReportSumStatement.tcDDocRepCompanyCity = tDDocumentReportAll.tcDDocRepCompanyCity
tqDDocumentReportSumStatement.tcDDocRepCompanyCounty = tDDocumentReportAll.tcDDocRepCompanyCounty
tqDDocumentReportSumStatement.tcDDocRepCompanyCountry = tDDocumentReportAll.tcDDocRepCompanyCountry
tqDDocumentReportSumStatement.tcDDocRepCompanyBankNumber = tDDocumentReportAll.tcDDocRepCompanyBankNumber
tqDDocumentReportSumStatement.tcDDocRepCompanyBankNumberForm = tDDocumentReportAll.tcDDocRepCompanyBankNumberForm
tqDDocumentReportSumStatement.tcDDocRepCompanyBankNumberExten = tDDocumentReportAll.tcDDocRepCompanyBankNumberExten
tqDDocumentReportSumStatement.tcDDocRepCompanyBankNumberValid = tDDocumentReportAll.tcDDocRepCompanyBankNumberValid
tqDDocumentReportSumStatement.tcDDocRepCompanyBankNumberSwift = tDDocumentReportAll.tcDDocRepCompanyBankNumberSwift
tqDDocumentReportSumStatement.tcDDocRepCompanyBankBRCode = tDDocumentReportAll.tcDDocRepCompanyBankBRCode
tqDDocumentReportSumStatement.tcDDocRepCompanyBankName1 = tDDocumentReportAll.tcDDocRepCompanyBankName1
tqDDocumentReportSumStatement.tcDDocRepCompanyBankName2 = tDDocumentReportAll.tcDDocRepCompanyBankName2
tqDDocumentReportSumStatement.tcDDocRepCompanyBankStreet1 = tDDocumentReportAll.tcDDocRepCompanyBankStreet1
tqDDocumentReportSumStatement.tcDDocRepCompanyBankStreet2 = tDDocumentReportAll.tcDDocRepCompanyBankStreet2
tqDDocumentReportSumStatement.tiDDocRepCompanyBankFormat = tDDocumentReportAll.tiDDocRepCompanyBankFormat
tqDDocumentReportSumStatement.tcDDocRepCompanyBankZip = tDDocumentReportAll.tcDDocRepCompanyBankZip
tqDDocumentReportSumStatement.tcDDocRepCompanyBankCity = tDDocumentReportAll.tcDDocRepCompanyBankCity
tqDDocumentReportSumStatement.tcDDocRepCompanyBankCounty = tDDocumentReportAll.tcDDocRepCompanyBankCounty
tqDDocumentReportSumStatement.tcDDocRepCompanyBankCountry = tDDocumentReportAll.tcDDocRepCompanyBankCountry.
assign tqDDocumentReportSumStatement.tcDDocRepDebtorBRCode = tDDocumentReportAll.tcDDocRepDebtorBRCode
tqDDocumentReportSumStatement.tcDDocRepDebtorName1 = tDDocumentReportAll.tcDDocRepDebtorName1
tqDDocumentReportSumStatement.tcDDocRepDebtorName2 = tDDocumentReportAll.tcDDocRepDebtorName2
tqDDocumentReportSumStatement.tcDDocRepDebtorStreet1 = tDDocumentReportAll.tcDDocRepDebtorStreet1
tqDDocumentReportSumStatement.tcDDocRepDebtorStreet2 = tDDocumentReportAll.tcDDocRepDebtorStreet2
tqDDocumentReportSumStatement.tiDDocRepDebtorFormat = tDDocumentReportAll.tiDDocRepDebtorFormat
tqDDocumentReportSumStatement.tcDDocRepDebtorZip = tDDocumentReportAll.tcDDocRepDebtorZip
tqDDocumentReportSumStatement.tcDDocRepDebtorCity = tDDocumentReportAll.tcDDocRepDebtorCity
tqDDocumentReportSumStatement.tcDDocRepDebtorCounty = tDDocumentReportAll.tcDDocRepDebtorCounty
tqDDocumentReportSumStatement.tcDDocRepDebtorCountry = tDDocumentReportAll.tcDDocRepDebtorCountry
tqDDocumentReportSumStatement.tcDDocRepDebtorCode = tDDocumentReportAll.tcDDocRepDebtorCode
tqDDocumentReportSumStatement.tcDDocRepDebtorVatNumber = tDDocumentReportAll.tcDDocRepDebtorVatNumber
tqDDocumentReportSumStatement.tcDDocRepDebtorBankNumber = tDDocumentReportAll.tcDDocRepDebtorBankNumber
tqDDocumentReportSumStatement.tcDDocRepDebtorBankNumberForm = tDDocumentReportAll.tcDDocRepDebtorBankNumberForm
tqDDocumentReportSumStatement.tcDDocRepDebtorBankNumberExtent = tDDocumentReportAll.tcDDocRepDebtorBankNumberExtent
tqDDocumentReportSumStatement.tcDDocRepDebtorBankNumberVal = tDDocumentReportAll.tcDDocRepDebtorBankNumberVal
tqDDocumentReportSumStatement.tcDDocRepDebtorBankNumberSwift = tDDocumentReportAll.tcDDocRepDebtorBankNumberSwift
tqDDocumentReportSumStatement.tcDDocRepDebtorBankBRCode = tDDocumentReportAll.tcDDocRepDebtorBankBRCode
tqDDocumentReportSumStatement.tcDDocRepDebtorBankBRName1 = tDDocumentReportAll.tcDDocRepDebtorBankBRName1
tqDDocumentReportSumStatement.tcDDocRepDebtorBankBRName2 = tDDocumentReportAll.tcDDocRepDebtorBankBRName2
tqDDocumentReportSumStatement.tcDDocRepDebtorBankBRStreet1 = tDDocumentReportAll.tcDDocRepDebtorBankBRStreet1
tqDDocumentReportSumStatement.tcDDocRepDebtorBankBRStreet2 = tDDocumentReportAll.tcDDocRepDebtorBankBRStreet2
tqDDocumentReportSumStatement.tiDDocRepDebtorBankBRFormat = tDDocumentReportAll.tiDDocRepDebtorBankBRFormat
tqDDocumentReportSumStatement.tcDDocRepDebtorBankBRZip = tDDocumentReportAll.tcDDocRepDebtorBankBRZip
tqDDocumentReportSumStatement.tcDDocRepDebtorBankBRCity = tDDocumentReportAll.tcDDocRepDebtorBankBRCity
tqDDocumentReportSumStatement.tcDDocRepDebtorBankBRCounty = tDDocumentReportAll.tcDDocRepDebtorBankBRCounty
tqDDocumentReportSumStatement.tcDDocRepDebtorBankBRCountry = tDDocumentReportAll.tcDDocRepDebtorBankBRCountry
tqDDocumentReportSumStatement.tcDDocRepDebtorVatNumber = tDDocumentReportAll.tcDDocRepDebtorVatNumber.
assign tqDDocumentReportSumStatement.tcDDocRepDInvoiceDebtorCode = tDDocumentReportAll.tcDDocRepDInvoiceDebtorCode
tqDDocumentReportSumStatement.tiDDocRepDInvoiceYear = tDDocumentReportAll.tiDDocRepDInvoiceYear
tqDDocumentReportSumStatement.tiDDocRepDInvoicePeriod = tDDocumentReportAll.tiDDocRepDInvoicePeriod
tqDDocumentReportSumStatement.tcDDocRepDInvoiceJournalCode = tDDocumentReportAll.tcDDocRepDInvoiceJournalCode
tqDDocumentReportSumStatement.tiDDocRepDInvoiceVoucher = tDDocumentReportAll.tiDDocRepDInvoiceVoucher
tqDDocumentReportSumStatement.ttDDocRepDInvoiceDate = tDDocumentReportAll.ttDDocRepDInvoiceDate
tqDDocumentReportSumStatement.tcDDocRepDInvoiceReference = tDDocumentReportAll.tcDDocRepDInvoiceReference
tqDDocumentReportSumStatement.tdDDocRepDInvoiceBalanceTC = tDDocumentReportAll.tdDDocRepDInvoiceBalanceTC
/*tqDDocumentReportSumStatement.ttDDocRepDInvoiceDueDate = tDDocumentReportAll.ttDDocRepDInvoiceDueDate */
tqDDocumentReportSumStatement.tcDDocRepDInvoiceCurrencyCode = tDDocumentReportAll.tcDDocRepDInvoiceCurrencyCode
tqDDocumentReportSumStatement.tiDDocRepDInvoiceCurrNumbOfDec = tDDocumentReportAll.tiDDocRepDInvoiceCurrNumbOfDec
/*tqDDocumentReportSumStatement.ttDDocRepDInvoiceDiscountDueDat = tDDocumentReportAll.ttDDocRepDInvoiceDiscountDueDat */
tqDDocumentReportSumStatement.tdDDocRepDInvoiceXRefAmountTC = tDDocumentReportAll.tdDDocRepDInvoiceXRefAmountTC
tqDDocumentReportSumStatement.tdDDocRepDInvoiceXRefDiscAmTC = tDDocumentReportAll.tdDDocRepDInvoiceXRefDiscAmTC
.
assign tqDDocumentReportSumStatement.tdDDocRepDInvoiceTotalBalanceTC = tDDocumentReportAll.tdDDocRepDInvoiceTotalBalanceTC
tqDDocumentReportSumStatement.tdDDocRepDInvoiceTotalAllocTC = tDDocumentReportAll.tdDDocRepDInvoiceTotalAllocTC
tqDDocumentReportSumStatement.tdDDocRepDInvoiceTotalDiscTC = tDDocumentReportAll.tdDDocRepDInvoiceTotalDiscTC.
end.