project QadFinancials > class BBankNumber > method CalcAllSelectBankNumberPayFormat

query calculated fields procedure

Description

Assign a value to query calculated fields


Parameters


iiCompanyIdinputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
query SelectBankNumberPayFormat


program code (program1/bbanknumber.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().

<Q-4 run BankNumberForPayFormatBank  (Start) in BBankNumber >

do while not vhQuery:query-off-end:
    <Q-3 run BankNumberForPayFormatBank (all) (Read) (NoCache)
       (input ?, (CompanyId)
        input {&tiParentObject_ID}, (ParentObjectID)
        input {&tiBankNumber_ID}, (BankNumberID)
        output dataset tqBankNumberForPayFormatBank) in BBankNumber >
    find first tqBankNumberForPayFormatBank where
               tqBankNumberForPayFormatBank.tiParentObject_ID = {&tiParentObject_ID} and
               tqBankNumberForPayFormatBank.tiBankNumber_ID   = {&tiBankNumber_ID}
               no-error.
    if available tqBankNumberForPayFormatBank
    then assign {&tcCompanyCode} = tqBankNumberForPayFormatBank.tcCompanyCode.
    else assign {&tcCompanyCode} = "":U.
    vhQuery:get-next().
end.

<Q-5 run BankNumberForPayFormatBank  (Stop) in BBankNumber >

vhQuery:query-close().
delete object vhQuery.