FORM proc_   USING l_mwskzn LIKE mwskz
             CHANGING l_kbetr LIKE konp-kbetr .
  DATA: s_code_nds TYPE t007a-mwart.

  SELECT SINGLE t007a~mwart
               FROM t007a
               INTO s_code_nds
               WHERE t007a~kalsm = 'TAXRU'
               AND t007a~mwskz = l_mwskzn.
  IF sy-subrc = 0.
    SELECT SINGLE  konp~kbetr FROM konp
                               JOIN a003
                               ON konp~knumh = a003~knumh
                               INTO l_kbetr
                               WHERE
                                   konp~mwsk1 = l_mwskzn
                               AND a003~aland = 'RU'.

    IF sy-subrc = 0.
      l_kbetr = l_kbetr / 10.
    ELSE.
      l_kbetr = 0.
    ENDIF.
  ELSE.
    l_kbetr = 0.
  ENDIF.
ENDFORM.                    " proc_