method CalcAllDestinations

query calculated fields procedure

Description

Assign a value to query calculated fields

Parameters

iiCompanyId	input	integer	Company id
icBusComponentName	input	character	class short name
ilAllChanges	input	logical
oiReturnStatus	output	integer	Return status of the method.

Internal usage

BLF

query LookupDestinations

program code (program1/beventconfig.p)

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:
    if {&tcEventConfigStatusFieldName} begins "D+"    /* support for SP5 */
    then assign {&tcEventConfigStatusFieldName} = substring ({&tcEventConfigStatusFieldName},3,-1,"CHARACTER")
                {&tlSuppressEmpty}   = no
                {&tlSuppressDefault} = yes.
    else
    if {&tlEventConfigSuppressEmpty} = yes
    then assign {&tlSuppressEmpty}   = yes
                {&tlSuppressDefault} = no.
    else
    if {&tlEventConfigSuppressEmpty} = no
    then assign {&tlSuppressEmpty}   = no
                {&tlSuppressDefault} = no.
    else assign {&tlSuppressEmpty}   = no
                {&tlSuppressDefault} = yes.
    vhQuery:get-next().
end.
vhQuery:query-close().
delete object vhQuery.