FUNCTION {{p}}customs_duty_old
  IMPORTING
    iv_value    TYPE decfloat34
    iv_country  TYPE string
    iv_category TYPE string
  EXPORTING
    ev_rate TYPE decfloat34
    ev_duty TYPE decfloat34
  EXCEPTIONS
    invalid_value.

  DATA lv_rate TYPE decfloat34.

  CASE iv_category.
    WHEN 'FOOD'.
      lv_rate = 5.
    WHEN 'TEXTILE'.
      lv_rate = 12.
    WHEN 'MACHINE'.
      lv_rate = 3.
    WHEN OTHERS.
      lv_rate = 0.
  ENDCASE.

  IF iv_country = 'CH' OR iv_country = 'DE'.
    lv_rate = 0.
  ENDIF.

  ev_rate = lv_rate.
  ev_duty = iv_value * lv_rate / 100.

  IF ev_duty < 5.
    ev_duty = 5.
  ENDIF.

ENDFUNCTION.