project BLF > class BDraftInstance > method CalcAllSelectDraftInstance

query calculated fields procedure

Description

Assign a value to query calculated fields


Parameters


iiCompanyIdinputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
query SelectDraftInstance


program code (program1/bdraftinstance.p)

empty temp-table tSelectBusinessComponents.
empty temp-table tSelectBusinessActivities.

run appinfo/naviginfo.p
   (input vhFcSuper,
    input table tSelectBusinessComponents by-reference,
    input table tSelectBusinessActivities by-reference).

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:

    find first tSelectBusinessActivities where
               tSelectBusinessActivities.tcClassName = {&tcBusinessClass} and
               tSelectBusinessActivities.tcName      = {&tcActivity}
               no-error.
    if available tSelectBusinessActivities
    then assign {&tcBusActivityLabel} = tSelectBusinessActivities.tcLabel.

    find first tSelectBusinessComponents where
               tSelectBusinessComponents.tcName = {&tcBusinessClass}
               no-error.
    if available tSelectBusinessActivities
    then assign {&tcBusComponentLabel} = tSelectBusinessComponents.tcLabel.

    viTime = {&tiCreationTime}.
    visec  = viTime mod 60.
    viTime = (viTime - viSec) / 60.
    viMin  = viTime mod 60.
    viHrs  = (viTime - viMin) / 60.
    
    {&tcCreateTimeDisplay} = string(viHrs,"99":U) + ":":U
                                              + string(viMin,"99":U) + ":":U
                                              + string(viSec,"99":U).

    vhQuery:get-next().
end.

vhQuery:query-close().
delete object vhQuery.

empty temp-table tSelectBusinessComponents.
empty temp-table tSelectBusinessActivities.