method CalcAllSelectReportSchedule

query calculated fields procedure

Description

Assign a value to query calculated fields

Parameters

oiReturnStatus

output

integer

Return status of the method.

Internal usage

BLF

query SelectReportSchedule

program code (program1/breportschedule.p)

if viTimeOffset = ?
then viUseTimeOffset = timezone(now).
else viUseTimeOffset = viTimeOffset.

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 {&tiRptRequestScheduleTime} = ?
    then {&tcScheduleTime} = "".
    else do:
        viDisplayTime = {&tiRptRequestScheduleTime} + viUseTimeOffset * 60.
        if viDisplayTime >= 24 * 60 * 60
        then assign {&ttRptRequestScheduleDate} = {&ttRptRequestScheduleDate} + 1
                    viDisplayTime               = viDisplayTime - 24 * 60 * 60.
        {&tcScheduleTime} = string(viDisplayTime, "HH:MM":U).
    end.

    vhQuery:get-next().
end.
vhQuery:query-close().
delete object vhQuery.