method CalcAllCompanyPropertyForCalculate

query calculated fields procedure

Description

Assign a value to query calculated fields

Parameters

iiCompanyId	input	integer	company id
oiReturnStatus	output	integer	Return 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.