method CalcAllCInvoiceForMatchedReceipt

query calculated fields procedure

Description

Calculate the field MatchingType for the query CInvoiceForMatchedReceipt.

Parameters

icFromCreditorCode	input	character
icToCreditorCode	input	character
icFromInvoiceJournal	input	character
icToInvoiceJournal	input	character
iiInvoiceVoucher	input	integer
iiToInvoiceVoucher	input	integer
itFromPostingDate	input	date
itToPostingDate	input	date
icInvoiceReference	input	character
ilIsLogisticMatching	input	logical
itFromMatchingDate	input	date
itToMatchingDate	input	date
iiCompanyId	input	integer
itPostingDate	input	date
iiFromInvoiceVoucher	input	integer
iiCreditorID	input	integer
iiPeriod_ID	input	integer
iiJournal_ID	input	integer
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

query CInvoiceForMatchedReceipt

program code (program1/bapmatchingreport.p)

assign vcFinancialMatching = {&INVOICEMATCHING-FINANCIAL-TR}
           vcReceiverMatching  = {&INVOICEMATCHING-RECEIVER-TR}.
    
    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 {&tcMatchingType} = (if {&tlCInvoiceIsLogisticMatching} = false
                                    then vcFinancialMatching
                                    else if {&tlCInvoiceIsLogisticMatching} = true
                                         then vcReceiverMatching
                                         else "?":U).        
        vhQuery:get-next().
    end.
    vhQuery:query-close().
    delete object vhQuery.