Description
default the tax environment
Parameters
| icToTxzTaxZone | input | character | to tax zone |
| icFromTxzTaxZone | input | character | from tax zone |
| icTxclTaxClass | input | character | Tax Class |
| ocTxenvTaxEnv | output | character | tax environment |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program6/bjournalentry.p)
/* replace unknown values */
if icFromTxzTaxZone = ? then assign icFromTxzTaxZone = "":U.
if icToTxzTaxZone = ? then assign icToTxzTaxZone = "":U.
if icTxclTaxClass = ? then assign icTxclTaxClass = "":U.
/* get the tax environment */
assign vhFcComponent = ?.
<M-1 run GetTaxEnvironment
(input true (ilStartAndOpenPGTM),
input icFromTxzTaxZone (icShipFromTaxZone),
input icToTxzTaxZone (icShipToTaxZone),
input icTxclTaxClass (icTxclTaxCls),
output ocTxenvTaxEnv (ocTxenvTaxEnv),
output viFcReturnSuper (oiReturnStatus)) in BVAT>
if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus = 0)
then assign oiReturnStatus = viFcReturnSuper.