method CalcAllCInvoiceForMatchingVariance

query calculated fields procedure

Description

Calculate the field MatchingType for the query CInvoiceForMatchingVariance.

Parameters

icFromCreditorCode	input	character
icToCreditorCode	input	character
icCompanyCode	input	character
icFromLogisticCharge	input	character
iiCompanyId	input	integer
icFromPurchaseOrder	input	character
icToPurchaseOrder	input	character
icFromItem	input	character
icToItem	input	character
itFromInvoiceDate	input	date
itToInvoiceDate	input	date
icReceiptSite	input	character
icCurrencyCode	input	character
icToLogisticCharge	input	character
ilIsLgCharge	input	logical
itFromInvoicePostingDt	input	date
itToInvoicePostingDt	input	date
icOrderType	input	character
iiDomainId	input	integer
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

query CInvoiceForMatchingVariance

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.