project QadFinancials > class BDInvoice > method CalcDInvoiceNumberForSales1

query calculated fields procedure

Description

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


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 {&tiDInvoicePostingYear} <> ? or {&tcJournalCode} <> ? or {&tiDInvoiceVoucher} <> ? then
    assign {&tcDInvoiceNumberForSales} = string({&tiDInvoicePostingYear}) + "/":U + {&tcJournalCode} + "/":U + string({&tiDInvoiceVoucher},"999999999":U).
else
    assign {&tcDInvoiceNumberForSales} = NOW.