REPORT {{p}}ext_check_old.

DATA gv_site TYPE {{p}}exting-site.

PARAMETERS: p_from TYPE d OBLIGATORY,
            p_to   TYPE d OBLIGATORY.

SELECT-OPTIONS: s_site FOR gv_site.

PARAMETERS p_defect AS CHECKBOX.

CLASS lcl_check DEFINITION FINAL.
  PUBLIC SECTION.
    TYPES ty_state TYPE c LENGTH 7.
    TYPES ty_urgency TYPE i.
    TYPES:
      BEGIN OF ty_line,
        ext_id       TYPE {{p}}exting-ext_id,
        site         TYPE {{p}}exting-site,
        ext_type     TYPE {{p}}exting-ext_type,
        weight_g     TYPE i,
        pressure_bar TYPE i,
        state        TYPE ty_state,
        urgency      TYPE ty_urgency,
      END OF ty_line,
      tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
      tt_site TYPE RANGE OF {{p}}exting-site.
    METHODS collect
      IMPORTING iv_from         TYPE d
                iv_to           TYPE d
                it_site         TYPE tt_site
                iv_defect_only  TYPE abap_bool
      RETURNING VALUE(rt_lines) TYPE tt_line.
    METHODS display
      CHANGING ct_lines TYPE tt_line.
  PRIVATE SECTION.
    TYPES tt_ext TYPE STANDARD TABLE OF {{p}}exting WITH EMPTY KEY.
    METHODS select_checks
      IMPORTING iv_from       TYPE d
                iv_to         TYPE d
                it_site       TYPE tt_site
      RETURNING VALUE(rt_ext) TYPE tt_ext.
    METHODS to_line
      IMPORTING is_ext         TYPE {{p}}exting
      RETURNING VALUE(rs_line) TYPE ty_line.
    METHODS state_of
      IMPORTING is_ext          TYPE {{p}}exting
      RETURNING VALUE(rv_state) TYPE ty_state.
    METHODS urgency_of
      IMPORTING is_ext            TYPE {{p}}exting
      RETURNING VALUE(rv_urgency) TYPE ty_urgency.
ENDCLASS.

CLASS lcl_check IMPLEMENTATION.
  METHOD collect.
    DATA lt_lines TYPE tt_line.
    DATA lt_ext TYPE tt_ext.
    DATA ls_ext TYPE {{p}}exting.
    lt_ext = select_checks( iv_from = iv_from iv_to = iv_to it_site = it_site ).
    LOOP AT lt_ext INTO ls_ext.
      IF iv_defect_only = abap_true AND urgency_of( ls_ext ) = 4.
        CONTINUE.
      ENDIF.
      APPEND to_line( ls_ext ) TO lt_lines.
    ENDLOOP.
    SORT lt_lines BY urgency ASCENDING ext_id ASCENDING.
    rt_lines = lt_lines.
  ENDMETHOD.

  METHOD select_checks.
    SELECT ext_id, site, ext_type, weight_g, pressure_bar, last_check, next_check
      FROM {{p}}exting
      WHERE last_check >= @iv_from
        AND last_check <= @iv_to
        AND site IN @it_site
      INTO TABLE @rt_ext.
  ENDMETHOD.

  METHOD to_line.
    rs_line-ext_id       = is_ext-ext_id.
    rs_line-site         = is_ext-site.
    rs_line-ext_type     = is_ext-ext_type.
    rs_line-weight_g     = is_ext-weight_g.
    rs_line-pressure_bar = is_ext-pressure_bar.
    rs_line-state        = state_of( is_ext ).
    rs_line-urgency      = urgency_of( is_ext ).
  ENDMETHOD.

  METHOD state_of.
    IF is_ext-weight_g < 4000.
      IF is_ext-ext_type = 'CO2'.
        rv_state = 'REPLACE'.
      ELSE.
        rv_state = 'REFILL'.
      ENDIF.
    ELSEIF is_ext-pressure_bar < 10.
      rv_state = 'SERVICE'.
    ELSEIF is_ext-next_check - is_ext-last_check < 300.
      rv_state = 'SHORT'.
    ELSE.
      rv_state = 'OK'.
    ENDIF.
  ENDMETHOD.

  METHOD urgency_of.
    CASE state_of( is_ext ).
      WHEN 'REPLACE' OR 'REFILL'.
        rv_urgency = 1.
      WHEN 'SERVICE'.
        rv_urgency = 2.
      WHEN 'SHORT'.
        rv_urgency = 3.
      WHEN OTHERS.
        rv_urgency = 4.
    ENDCASE.
  ENDMETHOD.

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

START-OF-SELECTION.
  DATA lv_defect_only TYPE abap_bool.
  DATA go_check TYPE REF TO lcl_check.
  DATA gt_lines TYPE lcl_check=>tt_line.
  IF p_defect = 'X'.
    lv_defect_only = abap_true.
  ENDIF.
  CREATE OBJECT go_check.
  gt_lines = go_check->collect( iv_from        = p_from
                                iv_to          = p_to
                                it_site        = s_site[]
                                iv_defect_only = lv_defect_only ).
  go_check->display( CHANGING ct_lines = gt_lines ).

CLASS ltc_check 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 states_in_order FOR TESTING.
    METHODS defect_filter FOR TESTING.
    METHODS date_range FOR TESTING.
ENDCLASS.

CLASS ltc_check IMPLEMENTATION.
  METHOD class_setup.
    go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}EXTING' ) ) ).
    DATA lt_ext TYPE STANDARD TABLE OF {{p}}exting WITH EMPTY KEY.
    lt_ext = VALUE #(
      ( ext_id = 1 site = 'A' ext_type = 'CO2' weight_g = 3000 pressure_bar = 15 last_check = '20260101' next_check = '20270101' )
      ( ext_id = 2 site = 'A' ext_type = 'PW'  weight_g = 6000 pressure_bar = 8  last_check = '20260102' next_check = '20270102' )
      ( ext_id = 3 site = 'B' ext_type = 'PW'  weight_g = 5000 pressure_bar = 12 last_check = '20260103' next_check = '20260120' )
      ( ext_id = 4 site = 'B' ext_type = 'PW'  weight_g = 5000 pressure_bar = 12 last_check = '20260104' next_check = '20270104' ) ).
    go_env->insert_test_data( lt_ext ).
  ENDMETHOD.

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

  METHOD states_in_order.
    DATA lo_check TYPE REF TO lcl_check.
    DATA lt_lines TYPE lcl_check=>tt_line.
    CREATE OBJECT lo_check.
    lt_lines = lo_check->collect( iv_from        = '20260101'
                                  iv_to          = '20261231'
                                  it_site        = VALUE #( )
                                  iv_defect_only = abap_false ).
    cl_abap_unit_assert=>assert_equals( exp = 4 act = lines( lt_lines ) ).
    cl_abap_unit_assert=>assert_equals( exp = 'REPLACE' act = lt_lines[ 1 ]-state ).
    cl_abap_unit_assert=>assert_equals( exp = 'SERVICE' act = lt_lines[ 2 ]-state ).
    cl_abap_unit_assert=>assert_equals( exp = 'SHORT'   act = lt_lines[ 3 ]-state ).
    cl_abap_unit_assert=>assert_equals( exp = 'OK'      act = lt_lines[ 4 ]-state ).
  ENDMETHOD.

  METHOD defect_filter.
    DATA lo_check TYPE REF TO lcl_check.
    DATA lt_lines TYPE lcl_check=>tt_line.
    CREATE OBJECT lo_check.
    lt_lines = lo_check->collect( iv_from        = '20260101'
                                  iv_to          = '20261231'
                                  it_site        = VALUE #( )
                                  iv_defect_only = abap_true ).
    cl_abap_unit_assert=>assert_equals( exp = 3 act = lines( lt_lines ) ).
    cl_abap_unit_assert=>assert_equals( exp = 'SHORT' act = lt_lines[ 3 ]-state ).
  ENDMETHOD.

  METHOD date_range.
    DATA lo_check TYPE REF TO lcl_check.
    DATA lt_lines TYPE lcl_check=>tt_line.
    CREATE OBJECT lo_check.
    lt_lines = lo_check->collect( iv_from        = '20260103'
                                  iv_to          = '20260103'
                                  it_site        = VALUE #( )
                                  iv_defect_only = abap_false ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
    cl_abap_unit_assert=>assert_equals( exp = 3 act = lt_lines[ 1 ]-ext_id ).
  ENDMETHOD.
ENDCLASS.