method CalcAllDomainByDomainSharedSet

query calculated fields procedure

Description

Assign a value to query calculated fields

Parameters

iiDomainID	input	integer	Domain ID
iiSharedSetID	input	integer	Shared Set ID
icSharedSetCode	input	character	Shared Set Code
icSharedSetType	input	character	Shared Set Type
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

query DomainByDomainSharedSet

program code (program1/bdomain.p)

assign vcListSharedSetTypeCode  =  <M-1 GetSharedSetTypes () in BDomain>.

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 {&tcSharedSetTypeTranslated} = "?":U.    
    do viCounter = num-entries(vcListSharedSetTypeCode, chr(2)) to 1 by -2 :
        if entry(viCounter, vcListSharedSetTypeCode, chr(2)) = {&tcSharedSetTypeCode}
        then do :
            assign {&tcSharedSetTypeTranslated} = entry(viCounter - 1, vcListSharedSetTypeCode, chr(2)) no-error.
            leave.
        end. /* if entry */
    end.
    vhQuery:get-next().
end.
vhQuery:query-close().
delete object vhQuery.