project QadFinancials > class BActivityCode > method CalcAllSelectActivityCode

query calculated fields procedure

Description

Assign a value to query calculated fields


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
query SelectActivityCode


program code (program1/bactivitycode.p)

define variable vcActivityCodeType   as char case-sensitive no-undo.
define variable vcActivityCodeTypes  as char case-sensitive no-undo.

assign vcActivityCodeTypes = {&ACTIVITYCODETYPES}.

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().
do while not vhQuery:query-off-end:
    assign vcActivityCodeType       = {&tcActivityCodeType}
           {&tcActivityCodeTypeTr} = entry(lookup(vcActivityCodeType, 
                                                  vcActivityCodeTypes, 
                                                  chr(2)) 
                                           - (if lookup(vcActivityCodeType, vcActivityCodeTypes, chr(2)) mod 2 = 0 then 1 else 0),
                                           vcActivityCodeTypes,
                                           chr(2)) no-error.
    vhQuery:get-next().
end.
vhQuery:query-close().
delete object vhQuery.