project QadFinancials > class BDInvoice > method CalcAllDInvoiceMovementForInvoice
query calculated fields procedure
Description
Assign a value to query calculated fields
Parameters
iiCompanyId | input | integer | Company id |
itInvoiceDateFrom | input | date | |
itInvoiceDateTo | input | date | |
iiDebtorID | input | integer | |
ilInvoiceIsOpen | input | logical | |
icInvoiceMovementType | input | character | |
icExcludeJournalType | input | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bdinvoice.p)
create query vhQuery in widget-pool "non-persistent".
vhQuery:forward-only = yes.
vhQuery:set-buffers(ih_Buffer).
vhQuery:query-prepare("for each ":U + ih_Buffer:table).
vhQuery:query-open().
vhQuery:get-first().
do while not vhQuery:query-off-end:
assign {&tcDInvoiceNumber} = string({&tiDInvoicePostingYear}) + "/":U + {&tcJournalInvoiceCode} + "/":U + string({&tiDInvoiceVoucher},"999999999":U)
{&tcDocumentNumber} = string({&tiPostingYear}) + "/":U + {&tcJournalCode} + "/":U + string({&tiPostingVoucher},"999999999":U)
{&tdOriginalAmountLC} = {&tdDInvoiceOriginalDebitLC} - {&tdDInvoiceOriginalCreditLC}
{&tdOriginalAmountCC} = {&tdDInvoiceOriginalDebitCC} - {&tdDInvoiceOriginalCreditCC}
{&tdOriginalAmountTC} = {&tdDInvoiceOriginalDebitTC} - {&tdDInvoiceOriginalCreditTC}.
if {&ttDInvoiceDueDate} <> ?
then do:
if {&ttPostingDate} - {&ttDInvoiceDueDate} >= 0
then assign {&tiOverdueDays} = {&ttPostingDate} - {&ttDInvoiceDueDate}.
else assign {&tiOverdueDays} = 0.
end.
assign vttempdate = date(1,1,year({&ttPostingDate})) + (2 - weekday(date(1,1,year({&ttPostingDate})))).
if weekday(date(1,1,year({&ttPostingDate}))) >= 6 then
vttempdate = vttempdate + 7.
assign {&tiWeekNumbers} = truncate(((date({&ttPostingDate}) - vttempdate) + 7) / 7 , 0).
if {&tiWeekNumbers} > 52
then do:
assign vttempdate = date(1,1,year({&ttPostingDate}) + 1) + (2 - weekday(date(1,1,year({&ttPostingDate}) + 1))).
if weekday(date(1,1,year({&ttPostingDate}) + 1)) >= 6 then
vttempdate = vttempdate + 7.
if {&ttPostingDate} < vttempdate then
{&tiWeekNumbers} = 52.
end.
assign {&tdPaymentAmountTC} = {&tdPostingLineDebitTC} - {&tdPostingLineCreditTC}.
vhQuery:get-next().
end.
vhQuery:query-close().
delete object vhQuery.