project QadFinancials > class BDebtor > method GetDInvoiceActivity


Parameters


icCompanyListIDinputcharacter
iiDebtorIDinputinteger
itDInvoiceEndDatainputdate
itDInvoiceStartDateinputdate
ilDInvoiceIsOpeninputlogical
tDInvoiceSalesoutputtemp-table
tDInvoicePayoutputtemp-table
oiReturnStatusoutputintegerReturn 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.