REPORT {{p}}repair_list.

PARAMETERS p_date TYPE d OBLIGATORY.

CLASS lcl_report DEFINITION FINAL.
  PUBLIC SECTION.
    TYPES:
      BEGIN OF ty_line,
        job_id   TYPE {{p}}jobhdr-job_id,
        customer TYPE {{p}}jobhdr-customer,
        mechanic TYPE {{p}}mech-mech_name,
        items    TYPE i,
        total    TYPE {{p}}jobitm-price,
      END OF ty_line,
      tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY.
    METHODS run
      IMPORTING iv_date         TYPE d
      RETURNING VALUE(rt_lines) TYPE tt_line.
    METHODS display
      CHANGING ct_lines TYPE tt_line.
  PRIVATE SECTION.
    CONSTANTS c_unknown TYPE {{p}}mech-mech_name VALUE 'UNKNOWN'.
    TYPES:
      BEGIN OF ty_job,
        job_id   TYPE {{p}}jobhdr-job_id,
        customer TYPE {{p}}jobhdr-customer,
        mech_id  TYPE {{p}}jobhdr-mech_id,
      END OF ty_job,
      tt_job TYPE SORTED TABLE OF ty_job WITH UNIQUE KEY job_id.
    TYPES:
      BEGIN OF ty_sum,
        job_id TYPE {{p}}jobhdr-job_id,
        items  TYPE i,
        total  TYPE {{p}}jobitm-price,
      END OF ty_sum,
      tt_sum TYPE SORTED TABLE OF ty_sum WITH UNIQUE KEY job_id.
    TYPES:
      BEGIN OF ty_mech,
        mech_id   TYPE {{p}}mech-mech_id,
        mech_name TYPE {{p}}mech-mech_name,
      END OF ty_mech,
      tt_mech TYPE SORTED TABLE OF ty_mech WITH UNIQUE KEY mech_id.
    TYPES tt_job_range  TYPE RANGE OF {{p}}jobhdr-job_id.
    TYPES tt_mech_range TYPE RANGE OF {{p}}mech-mech_id.
    METHODS read_jobs
      IMPORTING iv_date         TYPE d
      RETURNING VALUE(rt_jobs)  TYPE tt_job.
    METHODS job_range
      IMPORTING it_jobs         TYPE tt_job
      RETURNING VALUE(rt_range) TYPE tt_job_range.
    METHODS mech_range
      IMPORTING it_jobs         TYPE tt_job
      RETURNING VALUE(rt_range) TYPE tt_mech_range.
    METHODS read_sums
      IMPORTING it_job_range    TYPE tt_job_range
      RETURNING VALUE(rt_sums)  TYPE tt_sum.
    METHODS read_mechanics
      IMPORTING it_mech_range   TYPE tt_mech_range
      RETURNING VALUE(rt_mech)  TYPE tt_mech.
ENDCLASS.

CLASS lcl_report IMPLEMENTATION.
  METHOD run.
    DATA(lt_jobs) = read_jobs( iv_date ).
    IF lt_jobs IS INITIAL.
      RETURN.
    ENDIF.

    DATA(lt_sums) = read_sums( job_range( lt_jobs ) ).
    DATA(lt_mech) = read_mechanics( mech_range( lt_jobs ) ).

    LOOP AT lt_jobs INTO DATA(ls_job).
      READ TABLE lt_sums INTO DATA(ls_sum) WITH TABLE KEY job_id = ls_job-job_id.
      IF sy-subrc <> 0.
        CONTINUE.
      ENDIF.

      READ TABLE lt_mech INTO DATA(ls_mech) WITH TABLE KEY mech_id = ls_job-mech_id.
      DATA(lv_mechanic) = COND {{p}}mech-mech_name(
        WHEN sy-subrc = 0 THEN ls_mech-mech_name
        ELSE c_unknown ).

      INSERT VALUE #( job_id   = ls_job-job_id
                      customer = ls_job-customer
                      mechanic = lv_mechanic
                      items    = ls_sum-items
                      total    = ls_sum-total ) INTO TABLE rt_lines.
    ENDLOOP.

    SORT rt_lines BY total DESCENDING job_id ASCENDING.
  ENDMETHOD.

  METHOD read_jobs.
    SELECT job_id, customer, mech_id
      FROM {{p}}jobhdr
      WHERE job_date = @iv_date
      INTO CORRESPONDING FIELDS OF TABLE @rt_jobs.
  ENDMETHOD.

  METHOD job_range.
    rt_range = VALUE #( FOR ls_job IN it_jobs
                        ( sign = 'I' option = 'EQ' low = ls_job-job_id ) ).
  ENDMETHOD.

  METHOD mech_range.
    rt_range = VALUE #( FOR ls_job IN it_jobs
                        ( sign = 'I' option = 'EQ' low = ls_job-mech_id ) ).
  ENDMETHOD.

  METHOD read_sums.
    SELECT job_id, qty, price
      FROM {{p}}jobitm
      WHERE job_id IN @it_job_range
      INTO TABLE @DATA(lt_items).

    LOOP AT lt_items INTO DATA(ls_item).
      READ TABLE rt_sums ASSIGNING FIELD-SYMBOL(<ls_sum>) WITH TABLE KEY job_id = ls_item-job_id.
      IF sy-subrc <> 0.
        INSERT VALUE #( job_id = ls_item-job_id ) INTO TABLE rt_sums ASSIGNING <ls_sum>.
      ENDIF.
      <ls_sum>-items = <ls_sum>-items + 1.
      <ls_sum>-total = <ls_sum>-total + ls_item-qty * ls_item-price.
    ENDLOOP.
  ENDMETHOD.

  METHOD read_mechanics.
    SELECT mech_id, mech_name
      FROM {{p}}mech
      WHERE mech_id IN @it_mech_range
      INTO CORRESPONDING FIELDS OF TABLE @rt_mech.
  ENDMETHOD.

  METHOD display.
    TRY.
        cl_salv_table=>factory( IMPORTING r_salv_table = DATA(lo_alv)
                                CHANGING  t_table      = ct_lines ).
        lo_alv->display( ).
      CATCH cx_salv_msg INTO DATA(lx_error).
        MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
    ENDTRY.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  DATA(go_report) = NEW lcl_report( ).
  DATA(gt_lines) = go_report->run( p_date ).
  go_report->display( CHANGING ct_lines = gt_lines ).

CLASS ltc_report DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    CLASS-DATA go_env TYPE REF TO if_osql_test_environment.
    CLASS-METHODS class_setup.
    CLASS-METHODS class_teardown.
    METHODS totals_and_items FOR TESTING.
    METHODS unknown_mechanic FOR TESTING.
    METHODS skips_jobs_without_items FOR TESTING.
ENDCLASS.

CLASS ltc_report IMPLEMENTATION.
  METHOD class_setup.
    go_env = cl_osql_test_environment=>create(
      i_dependency_list = VALUE #( ( '{{P}}MECH' ) ( '{{P}}JOBHDR' ) ( '{{P}}JOBITM' ) ) ).

    DATA lt_mech TYPE STANDARD TABLE OF {{p}}mech WITH EMPTY KEY.
    lt_mech = VALUE #( ( mech_id = 'M1' mech_name = 'Anna' ) ).
    go_env->insert_test_data( lt_mech ).

    DATA lt_job TYPE STANDARD TABLE OF {{p}}jobhdr WITH EMPTY KEY.
    lt_job = VALUE #( ( job_id = 1 job_date = '20260410' customer = 'A' mech_id = 'M1' )
                      ( job_id = 2 job_date = '20260410' customer = 'B' mech_id = 'M9' )
                      ( job_id = 3 job_date = '20260410' customer = 'C' mech_id = 'M1' ) ).
    go_env->insert_test_data( lt_job ).

    DATA lt_item TYPE STANDARD TABLE OF {{p}}jobitm WITH EMPTY KEY.
    lt_item = VALUE #( ( job_id = 1 item_no = 10 spare_part = 'X' qty = 2 price = 10 )
                       ( job_id = 1 item_no = 20 spare_part = 'Y' qty = 1 price = 5 )
                       ( job_id = 2 item_no = 10 spare_part = 'Z' qty = 1 price = 40 ) ).
    go_env->insert_test_data( lt_item ).
  ENDMETHOD.

  METHOD class_teardown.
    go_env->destroy( ).
  ENDMETHOD.

  METHOD totals_and_items.
    DATA(lt_lines) = NEW lcl_report( )->run( '20260410' ).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
    cl_abap_unit_assert=>assert_equals( exp = 'B' act = lt_lines[ 1 ]-customer ).
    cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}jobitm-price( 40 ) act = lt_lines[ 1 ]-total ).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = lt_lines[ 2 ]-items ).
    cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}jobitm-price( 25 ) act = lt_lines[ 2 ]-total ).
  ENDMETHOD.

  METHOD unknown_mechanic.
    DATA(lt_lines) = NEW lcl_report( )->run( '20260410' ).
    cl_abap_unit_assert=>assert_equals( exp = 'UNKNOWN' act = lt_lines[ 1 ]-mechanic ).
  ENDMETHOD.

  METHOD skips_jobs_without_items.
    DATA(lt_lines) = NEW lcl_report( )->run( '20260410' ).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
  ENDMETHOD.
ENDCLASS.