39769afce8
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
37 lines
638 B
ABAP
37 lines
638 B
ABAP
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.
|