project QadFinancials > class BBusinessRelation > method CalcAllSelectContact

query calculated fields procedure

Description

Assign a value to query calculated fields


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
query SelectContact


program code (program1/bbusinessrelation.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().
do while not vhQuery:query-off-end:
    assign {&tcContactGenderCalc} = 
                  if {&tcContactGender} = "MALE":U
                  then #T-1'Male':9(833)T-1#
                  else if {&tcContactGender} = "FEMALE":U
                       then #T-2'Female':10(834)T-2#
                       else "?":U.
    
    vhQuery:get-next().
end.
vhQuery:query-close().
delete object vhQuery.