project QadFinancials > class PGTM > method GetTaxEnvironmentByParam

Description

Wrapper method to simplify call to GetTaxEnvironment.


Parameters


icFromTaxZoneCodeinputcharacter
icToTaxZoneinputcharacter
icTaxClassCodeinputcharacter
ocTaxEnvCodeoutputcharacter
oiReturnStatusoutputintegerReturn 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.