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.