project QadFinancials > class BDebtor > method GetDInvoiceActivity
Parameters
icCompanyListID | input | character | |
iiDebtorID | input | integer | |
itDInvoiceEndData | input | date | |
itDInvoiceStartDate | input | date | |
ilDInvoiceIsOpen | input | logical | |
tDInvoiceSales | output | temp-table | |
tDInvoicePay | output | temp-table | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program1/bdebtor.p)
empty temp-table tDInvoiceSales.
empty temp-table tDInvoicePayment.
/* Get data from Invoice */
<M-5 run GetDebtorInvoiceData
(input icCompanyListID (icCompanyListID),
input iiDebtorID (iiDebtorID),
input itDInvoiceStartDate (itDInvoiceStartDate),
input itDInvoiceEndData (itDInvoiceEndDate),
input ilDInvoiceIsOpen (ilDInvoiceIsOpen),
output tDInvoiceSales (tDInvoiceSales),
output viFcReturnSuper (oiReturnStatus)) in BDebtor>
if viFcReturnSuper < 0
then do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.
<M-6 run GetActivityData
(input icCompanyListID (icCompanyListID),
input iiDebtorID (iiDebtorID),
input itDInvoiceStartDate (itDInvoiceStartDate),
input itDInvoiceEndData (itDInvoiceEndDate),
input ilDInvoiceIsOpen (ilDInvoiceIsOpen),
output tDInvoicePay (tDInvoicePay),
output viFcReturnSuper (oiReturnStatus)) in BDebtor>
if viFcReturnSuper < 0
then do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.