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