Generator: pilot analysis and fixes; G0002-G0021 tasks; handover notes merged
- Static bundle checks (name length, seed type, reserved words, contract test classes, testclasses_file), local abaplint parser check before SAP, max_tokens, robust JSON parse - Runner: G2 for CDS views with parameters, contract_check detail in report - G0020 and G0013 fixed by review and revalidated (oracle 100, null 0) - Pilot results in docs/faz1-tasarim.md 11e; handover notes merged into CLAUDE.md and docs Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
This commit is contained in:
73
tasks_gen/eval/G0005/reference/freight_calc.clas.abap
Normal file
73
tasks_gen/eval/G0005/reference/freight_calc.clas.abap
Normal file
@@ -0,0 +1,73 @@
|
||||
CLASS {{p}}freight_calc DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
||||
PUBLIC SECTION.
|
||||
TYPES ty_cost TYPE p LENGTH 15 DECIMALS 2.
|
||||
TYPES ty_weight TYPE p LENGTH 15 DECIMALS 3.
|
||||
TYPES: BEGIN OF ty_result,
|
||||
cost TYPE ty_cost,
|
||||
currency TYPE c LENGTH 5,
|
||||
END OF ty_result.
|
||||
|
||||
METHODS calculate
|
||||
IMPORTING iv_zone_code TYPE c LENGTH 4
|
||||
iv_weight_kg TYPE ty_weight
|
||||
iv_express TYPE abap_bool DEFAULT abap_false
|
||||
RETURNING VALUE(rs_result) TYPE ty_result
|
||||
RAISING {{p}}cx_freight_error.
|
||||
|
||||
PRIVATE SECTION.
|
||||
CONSTANTS c_express_factor TYPE p LENGTH 5 DECIMALS 2 VALUE '1.50'.
|
||||
CONSTANTS c_minimum_charge TYPE ty_cost VALUE '6.00'.
|
||||
|
||||
METHODS find_zone
|
||||
IMPORTING iv_zone_code TYPE c LENGTH 4
|
||||
RETURNING VALUE(rs_zone) TYPE {{p}}zone_master=>ty_zone
|
||||
RAISING {{p}}cx_freight_error.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}freight_calc IMPLEMENTATION.
|
||||
METHOD calculate.
|
||||
DATA lv_zone_code TYPE c LENGTH 4.
|
||||
lv_zone_code = to_upper( iv_zone_code ).
|
||||
|
||||
IF iv_weight_kg <= 0.
|
||||
DATA(lo_invalid) = NEW {{p}}cx_invalid_weight( ).
|
||||
lo_invalid->mv_zone_code = lv_zone_code.
|
||||
lo_invalid->mv_weight_kg = iv_weight_kg.
|
||||
RAISE EXCEPTION lo_invalid.
|
||||
ENDIF.
|
||||
|
||||
DATA(ls_zone) = find_zone( lv_zone_code ).
|
||||
|
||||
IF iv_weight_kg > ls_zone-max_weight_kg.
|
||||
DATA(lo_limit) = NEW {{p}}cx_weight_limit( ).
|
||||
lo_limit->mv_zone_code = lv_zone_code.
|
||||
lo_limit->mv_weight_kg = iv_weight_kg.
|
||||
lo_limit->mv_max_weight_kg = ls_zone-max_weight_kg.
|
||||
RAISE EXCEPTION lo_limit.
|
||||
ENDIF.
|
||||
|
||||
DATA lv_cost TYPE p LENGTH 15 DECIMALS 5.
|
||||
lv_cost = ls_zone-base_fee + iv_weight_kg * ls_zone-price_per_kg.
|
||||
IF iv_express = abap_true.
|
||||
lv_cost = lv_cost * c_express_factor.
|
||||
ENDIF.
|
||||
lv_cost = round( val = lv_cost dec = 2 ).
|
||||
IF lv_cost < c_minimum_charge.
|
||||
lv_cost = c_minimum_charge.
|
||||
ENDIF.
|
||||
|
||||
rs_result-cost = lv_cost.
|
||||
rs_result-currency = ls_zone-currency.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD find_zone.
|
||||
DATA(lt_zone) = {{p}}zone_master=>get_all( ).
|
||||
READ TABLE lt_zone INTO rs_zone WITH KEY zone_code = iv_zone_code.
|
||||
IF sy-subrc <> 0.
|
||||
DATA(lo_unknown) = NEW {{p}}cx_unknown_zone( ).
|
||||
lo_unknown->mv_zone_code = iv_zone_code.
|
||||
RAISE EXCEPTION lo_unknown.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user