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