project QadFinancials > class PGTM > 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
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.