Calcular importe neto a partir del bruto

Función para calcular el importe neto a partir del importe bruto

call function ‘CALCULATE_TAX_FROM_GROSSAMOUNT’
exporting
i_bukrs                       = p_wa_bukrs
i_mwskz                       = p_wa_mwskz
*             I_TXJCD                       = ‘ ‘
i_waers                       = p_wa_waers
i_wrbtr                       = p_wa_importe
*             I_ZBD1P                       = 0
*             I_PRSDT                       =
*             I_PROTOKOLL                   =
*             I_TAXPS                       =
*             I_ACCNT_EXT                   =
*             I_ACCDATA                     =
*             IS_ENHANCEMENT                =
importing
*             E_FWNAV                       =
*             E_FWNVV                       =
*             E_FWSTE                       =
e_fwast                       = p_impiva
*           TABLES
*             T_MWDAT                       =
exceptions
bukrs_not_found               = 1
country_not_found             = 2
mwskz_not_defined             = 3
mwskz_not_valid               = 4
account_not_found             = 5
different_discount_base       = 6
different_tax_base            = 7
txjcd_not_valid               = 8
not_found                     = 9
ktosl_not_found               = 10
kalsm_not_found               = 11
parameter_error               = 12
knumh_not_found               = 13
kschl_not_found               = 14
unknown_error                 = 15
others                        = 16
.
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
else.
p_wa_importe = p_wa_importe – p_impiva.
endif.