project QadFinancials > class BDInvoice > method CalcOverdueDaysForSales1

query calculated fields procedure

Description

Assign a value to query calculated field tqDInvoiceByDebtor.tiOverdueDaysForSales (available in preprocessor {&tiOverdueDaysForSales})


Parameters


iiCompanyIdinputintegerCompany id
iiDebtorIDinputinteger
itInvoicStartDateinputdate
itInvoiceEndDateinputdate
ilDInvoiceIsOpeninputlogical
icCompanyListIDinputcharacter
icInvoiceTypeinputcharacter
icCurrencyCodeinputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
query DinvoiceByDebtorITypeCurr


program code (program1/bdinvoice.p)

if {&tiOverdueDaysForSales} <> ?
then do:
    if  today >= {&ttDInvoiceDueDate} then
        assign {&tiOverdueDaysForSales} = today - {&ttDInvoiceDueDate}.
    else assign {&tiOverdueDaysForSales} = 0. 
end.