FORM FRM_KONDI_WERT_902.
*{   INSERT         RSDK901148                                        1

CALL FUNCTION 'Z_MEPRICE_WO_NDS'
  EXPORTING
    I_MWSKZ       = xkomv-MWSK1
    I_KAWRT       = komp-KZWI4 "xkomv-KAWRT
IMPORTING
   E_KWERT       = xkwert
          .
*базис = стоимость без НДС
XKOMV-KAWRT = komp-KZWI4 - xkwert.
*}   INSERT
ENDFORM.

FUNCTION Z_MEPRICE_WO_NDS.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  IMPORTING
*"     REFERENCE(I_MWSKZ) TYPE  MWSKZ
*"     REFERENCE(I_KAWRT) TYPE  KAWRT
*"     REFERENCE(I_WITHOUT_NDS) TYPE  XFELD OPTIONAL
*"  EXPORTING
*"     REFERENCE(E_KWERT) TYPE  KWERT
*"----------------------------------------------------------------------

DATA  ZNDS_PERCENT type ZD_NDS_PR.

CALL FUNCTION 'Z_GET_TAX_PERCENTAGE'
  EXPORTING
    ALAND         = 'RU'
    DATAB         = sy-datum
    MWSKZ         = I_MWSKZ
    TXJCD         = ' '
  IMPORTING
    e_prcnt       = ZNDS_PERCENT
          .
  if i_without_nds = ''.
    E_KWERT =  I_KAWRT * ZNDS_PERCENT / ( 100 + ZNDS_PERCENT ).
  else.
    E_KWERT =  I_KAWRT * ZNDS_PERCENT / 100 .
  endif.

ENDFUNCTION.