method DefaultValuesTaxEnv

Description

default the tax environment

Parameters

icShipToTaxZone	input	character	Tax Zone of the Ship To Address
icShipFromTaxZone	input	character	Tax Zone of the Supplier Address
icTaxClass	input	character	Tax Class of the supplier
ocTxenvTaxEnv	output	character	tax environment
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program3/bcinvoice.p)

if icShipFromTaxZone = ?
then assign icShipFromTaxZone = "":U.

if icShipToTaxZone = ?
then assign icShipToTaxZone = "":U.

if icTaxClass = ?
then assign icTaxClass = "":U.

assign vhFcComponent = ?.

<M-1 run GetTaxEnvironment
   (input  true (ilStartAndOpenPGTM), 
    input  icShipFromTaxZone (icShipFromTaxZone), 
    input  icShipToTaxZone (icShipToTaxZone), 
    input  icTaxClass (icTxclTaxCls), 
    output ocTxenvTaxEnv (ocTxenvTaxEnv), 
    output viFcReturnSuper (oiReturnStatus)) in BVAT>

if viFcReturnSuper < 0 or
   oiReturnStatus  = 0
then assign oiReturnStatus = viFcReturnSuper.