query calculated fields procedure
Description
Assign a value to query calculated fields
Parameters
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.