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

query DInvoiceMovementForInvoice

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.