method GetTaxEnvironmentByParam

Description

Wrapper method to simplify call to GetTaxEnvironment.

Parameters

icFromTaxZoneCode	input	character
icToTaxZone	input	character
icTaxClassCode	input	character
ocTaxEnvCode	output	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BVAT.GetTaxEnvironment

program code (program1/pgtm.p)

if oiReturnStatus = 0 then oiReturnStatus = -98.

empty temp-table tTaxEnvData.

create tTaxEnvData.

assign
    tTaxEnvData.tcFromTaxZoneCode = icFromTaxZoneCode
    tTaxEnvData.tcToTaxZoneCode = icToTaxZone
    tTaxEnvData.tcTaxClassCode = icTaxClassCode
    tTaxEnvData.tcTaxEnvCode = "":U.

<M-2 run GetTaxEnvironment
   (input-output tTaxEnvData (tTaxEnvData), 
    output viFcReturnSuper (oiReturnStatus)) in PGTM>

find first tTaxEnvData no-error.
if available tTaxEnvData then 
    assign
        ocTaxEnvCode = tTaxEnvData.tcTaxEnvCode.

if viFcReturnSuper <> 0 then 
    assign oiReturnStatus = viFcReturnSuper.

if oiReturnStatus = -98 then
    assign oiReturnStatus = 0.