project BLF > class BDraftInstance > method CalcAllSelectDraftInstance
query calculated fields procedure
Description
Assign a value to query calculated fields
Parameters
iiCompanyId | input | integer | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
BLF
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.