72 lines
1.4 KiB
ABAP
72 lines
1.4 KiB
ABAP
FUNCTION {{p}}parcel_fee
|
|
IMPORTING
|
|
iv_postcode TYPE string
|
|
iv_weight TYPE decfloat34
|
|
iv_express TYPE abap_bool
|
|
EXPORTING
|
|
ev_tour TYPE string
|
|
ev_skip TYPE abap_bool
|
|
ev_fee TYPE decfloat34
|
|
EXCEPTIONS
|
|
unknown_zone
|
|
invalid_weight.
|
|
|
|
CONSTANTS lc_max_fee TYPE decfloat34 VALUE '25'.
|
|
CONSTANTS lc_express_fee TYPE decfloat34 VALUE '3.5'.
|
|
CONSTANTS lc_kg_fee TYPE decfloat34 VALUE '0.35'.
|
|
CONSTANTS lc_heavy_limit TYPE decfloat34 VALUE '10'.
|
|
|
|
IF iv_weight <= 0.
|
|
RAISE invalid_weight.
|
|
ENDIF.
|
|
|
|
CALL FUNCTION '{{P}}ZONE_LOOKUP'
|
|
EXPORTING
|
|
iv_postcode = iv_postcode
|
|
IMPORTING
|
|
ev_zone = DATA(lv_zone).
|
|
|
|
IF lv_zone IS INITIAL.
|
|
RAISE unknown_zone.
|
|
ENDIF.
|
|
|
|
ev_skip = abap_false.
|
|
ev_tour = lv_zone.
|
|
IF iv_weight > lc_heavy_limit.
|
|
ev_tour = |{ ev_tour }H|.
|
|
ENDIF.
|
|
|
|
CASE lv_zone.
|
|
WHEN 'N'.
|
|
ev_fee = 4.9.
|
|
WHEN 'W'.
|
|
ev_fee = 5.5.
|
|
WHEN 'C'.
|
|
ev_fee = 6.2.
|
|
WHEN 'E'.
|
|
ev_fee = 7.1.
|
|
WHEN 'S'.
|
|
ev_fee = 8.4.
|
|
ENDCASE.
|
|
|
|
DATA(lv_started_kg) = ceil( iv_weight ).
|
|
DATA(lv_extra_kg) = lv_started_kg - 1.
|
|
IF lv_extra_kg > 0.
|
|
ev_fee = ev_fee + lv_extra_kg * lc_kg_fee.
|
|
ENDIF.
|
|
|
|
IF iv_express = abap_true.
|
|
ev_fee = ev_fee + lc_express_fee.
|
|
ENDIF.
|
|
|
|
IF ev_fee > lc_max_fee.
|
|
ev_fee = lc_max_fee.
|
|
ENDIF.
|
|
|
|
IF lv_zone = 'S' AND iv_express = abap_false.
|
|
ev_skip = abap_true.
|
|
ev_fee = 0.
|
|
ENDIF.
|
|
|
|
ENDFUNCTION.
|