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