method CalcAllSelectVATPeriod

query calculated fields procedure

Description

Assign a value to query calculated fields

Parameters

iiCompanyId	input	integer	Company id
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

query SelectVATPeriod

program code (program1/bvatperiod.p)

assign vcVatPeriodStatusOpen       = {&VATPERIODSTATUS-OPEN}
       vcVatPeriodStatusOpenTr     = {&VATPERIODSTATUS-OPEN-TR}
       vcVatPeriodStatusLocked     = {&VATPERIODSTATUS-LOCKED}
       vcVatPeriodStatusLockedTr   = {&VATPERIODSTATUS-LOCKED-TR}
       vcVatPeriodStatusReported   = {&VATPERIODSTATUS-REPORTED}
       vcVatPeriodStatusReportedTr = {&VATPERIODSTATUS-REPORTED-TR}.

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 {&tcSelectVATPeriodStatus} = 
        if {&tcVatPeriodStatus} = vcVatPeriodStatusOpen 
        then vcVatPeriodStatusOpenTr 
        else if {&tcVatPeriodStatus} = vcVatPeriodStatusLocked
             then vcVatPeriodStatusLockedTr
             else if {&tcVatPeriodStatus} = vcVatPeriodStatusReported
                  then vcVatPeriodStatusReportedTr
                  else "?":U.
    vhQuery:get-next().
end.
vhQuery:query-close().
delete object vhQuery.