project QadFinancials > class BCreditorReport > method CalcAllGetWHTWithPayment

query calculated fields procedure

Description

Assign a value to query calculated fields


Parameters


iiCompanyIdinputintegerCompany id
icFromCreditorCodeinputcharacter
icToCreditorCodeinputcharacter
icPaymentSelCodeinputcharacter
iiPaymentNumberToinputinteger
iiPaymentNumberFrominputinteger
iiYearinputinteger
iiMonthinputinteger
icCertFormatCodeinputcharacter
iiWHTNumberFrominputintegerWHT Number From
iiWHTNumberToinputintegerWHT Number To
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
query GetWHTWithPayment


program code (program1/bcreditorreport.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 {&tcCDocumentStatusCalc} = <M-1 GetCDocumentStatusTranslation  (input  {&tcCDocumentStatus} (icStatus)) in BCreditorReport>.
    
    vhQuery:get-next().
end.
vhQuery:query-close().
delete object vhQuery.