project QadFinancials > class BCompanyProperty > method CalcAllCompanyPropertyForCalculate

query calculated fields procedure

Description

Assign a value to query calculated fields


Parameters


iiCompanyIdinputintegercompany id
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
query CompanyPropertyForCalculate


program code (program1/bcompanyproperty.p)

create query vhQuery in widget-pool "non-persistent".
vhQuery:set-buffers(ih_Buffer).
vhQuery:query-prepare("for each ":U + ih_Buffer:table).
vhQuery:query-open().
vhQuery:get-first().

<Q-2 run BusinessRelationPrim
   (Start) in BBusinessRelation >

do while not vhQuery:query-off-end:
    if {&tiBusinessRelation_ID} = 0 or
       {&tiBusinessRelation_ID} = ?
    then assign {&tcBusinessRelationCode} = "":U.
    else do:
        <Q-4 run BusinessRelationPrim (all) (Read) (Cache)
           (input {&tiBusinessRelation_ID}, (BusinessRelationId)
            input ?, (BusinessRelationCode)
            output dataset tqBusinessRelationPrim) in BBusinessRelation >

        find first tqBusinessRelationPrim where
                   tqBusinessRelationPrim.tiBusinessRelation_ID = {&tiBusinessRelation_ID}
                   no-error.

        assign {&tcBusinessRelationCode} = if available tqBusinessRelationPrim
                                           then tqBusinessRelationPrim.tcBusinessRelationCode
                                           else "":U.
    end.

    vhQuery:get-next().
end.

<Q-3 run BusinessRelationPrim
   (Stop) in BBusinessRelation >

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