Z250_Materials

REPORT z241_materials.

DATA: it_materials  TYPE Z241_t_material,
      it_fieldcat    TYPE slis_t_fieldcat_alv,
      it_sort        TYPE slis_t_sortinfo_alv,
      it_events      TYPE slis_t_event,
      wa_events      TYPE slis_alv_event,
      wa_layout      TYPE slis_layout_alv,
      wa_order       TYPE Z241_MATERIAL.

TYPE-POOLS: slis.
TABLES: Z241_MATERIAL.
SELECTION-SCREEN BEGIN OF BLOCK MATERIAL
  WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_matnr FOR Z241_MATERIAL-MATNR,
                s_descr FOR Z241_MATERIAL-DESCR,
                s_c_date FOR Z241_MATERIAL-creation_date.
SELECTION-SCREEN END OF BLOCK MATERIAL.

*&---------------------------------------------------------------------*
*&  INCLUDE           Z241_MATERIAL
*&---------------------------------------------------------------------*
START-OF-SELECTION.
  PERFORM fetch_data.
  PERFORM prepare_fldcat.
  PERFORM prepare_layout.
  PERFORM fill_events.
  PERFORM call_alv.
*&---------------------------------------------------------------------*
*&      FORM  FETCH_DATA
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM fetch_data .

    SELECT * FROM Z241_MATERIAL INTO CORRESPONDING FIELDS OF TABLE it_materials
      WHERE MATNR IN s_matnr
        AND descr IN s_descr
        AND creation_date IN s_c_date.
    IF sy-subrc EQ 0.
      LOOP AT it_materials ASSIGNING FIELD-SYMBOL(<lwa_material>).
      ENDLOOP.
    ELSE.
      MESSAGE 'NO DATA FOUND' TYPE 'I'.
    ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*&      FORM  PREPARE_FLDCAT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM prepare_fldcat .

  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
*     I_PROGRAM_NAME         =     " INTERNAL TABLE DECLARATION PROGRAM
*     I_INTERNAL_TABNAME     =     " OUTPUT TABLE NAME
      i_structure_name       = 'Z241_S_MATERIAL'    " STRUCTURE NAME (STRUCTURE, TABLE, VIEW)
*     I_CLIENT_NEVER_DISPLAY = 'X'    " HIDE CLIENT FIELDS
*     I_INCLNAME             =     " DATA DECLARATION INCLUDE NAME
*     I_BYPASSING_BUFFER     =     " IGNORE BUFFER WHILE READING
*     I_BUFFER_ACTIVE        =     " SPECIAL BUFFERING ACTIVE
    CHANGING
      ct_fieldcat            = it_fieldcat    " FIELD CATALOG WITH FIELD DESCRIPTIONS
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  LOOP AT it_fieldcat ASSIGNING FIELD-SYMBOL(<lwa_fcat>).
    CASE <lwa_fcat>-fieldname.
      WHEN 'MATNR'.
        <lwa_fcat>-col_pos = 1.
      WHEN 'DESCR'  .
        <lwa_fcat>-col_pos = 2.
      WHEN 'PRICE'.
        <lwa_fcat>-col_pos = 3.
      WHEN 'CURRENCY'.
        <lwa_fcat>-col_pos = 4.
      WHEN 'QUANTITY'.
        <lwa_fcat>-col_pos = 5.
        <lwa_fcat>-reptext = 'Available Quantity'.
      WHEN 'UOM' OR 'BOX'.
      <lwa_fcat>-no_out =
      <lwa_fcat>-tech = abap_true.
    ENDCASE.
  ENDLOOP.


ENDFORM.
*&---------------------------------------------------------------------*
*&      FORM  PREPARE_LAYOUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM prepare_layout .
  wa_layout-box_fieldname = 'BOX'.
ENDFORM.
*&---------------------------------------------------------------------*
*&      FORM  FILL_EVENTS
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM fill_events .

  wa_events-name = 'PF_STATUS_SET'.
  wa_events-form = 'F_PF_STATUS_SET'.
  APPEND wa_events TO it_events.
  CLEAR wa_events.

  wa_events-name = 'USER_COMMAND'.
  wa_events-form = 'F_USER_COMMAND'.
  APPEND wa_events TO it_events.

ENDFORM.
*&---------------------------------------------------------------------*
*&      FORM  CALL_ALV
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM call_alv .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
*     I_INTERFACE_CHECK  = SPACE    " INTERFACE CONSISTENCY CHECK LOG OUTPUT
*     I_BYPASSING_BUFFER = SPACE    " IGNORE ALL BUFFERS
*     I_BUFFER_ACTIVE    = SPACE    " BUFFERING ACTIVE
      i_callback_program = sy-repid    " NAME OF THE CALLING PROGRAM
*     I_CALLBACK_PF_STATUS_SET    = SPACE    " SET EXIT ROUTINE TO STATUS
*     I_CALLBACK_USER_COMMAND     = SPACE    " EXIT ROUTINE FOR COMMAND HANDLING
*     I_CALLBACK_TOP_OF_PAGE      = SPACE    " EXIT ROUTINE FOR HANDLING TOP-OF-PAGE
*     I_CALLBACK_HTML_TOP_OF_PAGE = SPACE    " EXIT ROUTINE FOR HTML TOP-OF-PAGE
*     I_CALLBACK_HTML_END_OF_LIST = SPACE    " EXIT ROUTINE FOR HTML END-OF-LIST
*     I_STRUCTURE_NAME   =     " INTERNAL OUTPUT TABLE STRUCTURE NAME
*     I_BACKGROUND_ID    =     " OBJECT ID OF WALLPAPER
*     I_GRID_TITLE       =     " CONTROL TITLE
*     I_GRID_SETTINGS    =     " GRID SETTINGS
      is_layout          = wa_layout    " LIST LAYOUT SPECIFICATIONS
      it_fieldcat        = it_fieldcat    " FIELD CATALOG WITH FIELD DESCRIPTIONS
*     IT_EXCLUDING       =     " TABLE OF INACTIVE FUNCTION CODES
*     IT_SPECIAL_GROUPS  =     " GROUPING FIELDS FOR COLUMN SELECTION
      it_sort            = it_sort    " SORT CRITERIA FOR FIRST LIST DISPLAY
*     IT_FILTER          =     " FILTER CRITERIA FOR FIRST LIST OUTPUT
*     IS_SEL_HIDE        =     " SELECTION INFORMATION MODIFICATION
*     I_DEFAULT          = 'X'    " INITIAL VARIANT ACTIVE/INACTIVE LOGIC
*     I_SAVE             = SPACE    " VARIANTS CAN BE SAVED
*     IS_VARIANT         =     " VARIANT INFORMATION
      it_events          = it_events    " TABLE OF EVENTS TO PERFORM
*     IT_EVENT_EXIT      =     " STANDARD FCODE EXIT REQUESTS TABLE
*     IS_PRINT           =     " PRINT INFORMATION
*     IS_REPREP_ID       =     " INITIALIZATION KEY FOR RE/RE INTERFACE
*     I_SCREEN_START_COLUMN       = 0    " COORDINATES FOR LIST IN DIALOG BOX
*     I_SCREEN_START_LINE         = 0    " COORDINATES FOR LIST IN DIALOG BOX
*     I_SCREEN_END_COLUMN         = 0    " COORDINATES FOR LIST IN DIALOG BOX
*     I_SCREEN_END_LINE  = 0    " COORDINATES FOR LIST IN DIALOG BOX
*     I_HTML_HEIGHT_TOP  = 0    " HTML_TOP_OF_PAGE HEIGHT
*     I_HTML_HEIGHT_END  = 0    " HTML_END_OF_PAGE HEIGHT
*     IT_ALV_GRAPHICS    =     " PARAMETER FOR ALV GRAPHIC
*     IT_HYPERLINK       =     " HYPERLINKS
*     IT_ADD_FIELDCAT    =     " ADDITIONAL FIELD CATALOG OPTIONS
*     IT_EXCEPT_QINFO    =
*     IR_SALV_FULLSCREEN_ADAPTER  =     " ADAPTER FULLSCREEN -> TABLE
*  IMPORTING
*     E_EXIT_CAUSED_BY_CALLER     =     " DELETE LIST IN CALLBACK_USER_COMMAND
*     ES_EXIT_CAUSED_BY_USER      =     " HOW THE USER LEFT THE LIST
    TABLES
      t_outtab           = it_materials    " TABLE WITH DATA TO BE DISPLAYED
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*&      FORM  F_PF_STATUS_SET
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
FORM f_pf_status_set USING rt_extab TYPE slis_t_extab.

  SET PF-STATUS 'STANDARD' EXCLUDING rt_extab.

ENDFORM.                    "F_PF_STATUS_SET


*&---------------------------------------------------------------------*
*&      FORM  F_USER_COMMAND
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*      -->R_UCOMM      TEXT
*      -->RS_SELFIELD  TEXT
*----------------------------------------------------------------------*
FORM f_user_command USING r_ucomm TYPE sy-ucomm
                          rs_selfield TYPE slis_selfield.

  DATA : it_ekko TYPE TABLE OF sval,
         wa_ekko TYPE sval.

  CASE r_ucomm.

    WHEN '&IC1'.
*      IF RS_SELFIELD-FIELDNAME = 'EBELN'.
*        SET PARAMETER ID : 'BES' FIELD RS_SELFIELD-VALUE.
*        CALL TRANSACTION 'ME23N'.
*      ENDIF.
    WHEN 'SAVE'.
    " LOOP AT it_po INTO wa_po.
    "   MOVE-CORRESPONDING wa_po TO wa_zzsiva_po_m.
    "   UPDATE zzsiva_po_m FROM wa_zzsiva_po_m.
    " ENDLOOP.
    " rs_selfield-refresh = 'X'.

    WHEN 'ADD'.
      CLEAR it_ekko.
      wa_ekko-tabname = 'Z241_MATERIAL'.
      wa_ekko-fieldname = 'MATNR'.
      APPEND wa_ekko TO it_ekko.

      wa_ekko-tabname = 'Z241_MATERIAL'.
      wa_ekko-fieldname = 'DESCR'.
      APPEND wa_ekko TO it_ekko.

      wa_ekko-tabname = 'Z241_MATERIAL'.
      wa_ekko-fieldname = 'PRICE'.
      APPEND wa_ekko TO it_ekko.

      CALL FUNCTION 'POPUP_GET_VALUES'
        EXPORTING
          popup_title     = 'Enter Material Details'    " TEXT OF TITLE LINE
        TABLES
          fields          = it_ekko    " TABLE FIELDS, VALUES AND ATTRIBUTES
        EXCEPTIONS
          error_in_fields = 1
          OTHERS          = 2.
      IF sy-subrc = 0.
        DATA lwa_material TYPE z241_material.
        LOOP AT it_ekko INTO wa_ekko.
          CASE wa_ekko-fieldname.
            WHEN 'MATNR'.
            lwa_material-MATNR = wa_ekko-value.
            WHEN 'DESCR'.
            lwa_material-descr = wa_ekko-value.
            WHEN 'PRICE'.
            lwa_material-price = wa_ekko-value.
          ENDCASE.
        ENDLOOP.
        IF sy-subrc EQ 0.
          IF line_exists( it_materials[ matnr = lwa_material-MATNR ] ).
          ELSE.

          lwa_material-CURRENCY = 'USD'.
          lwa_material-UOM = 1.
          INSERT Z241_MATERIAL From lwa_material.

          APPEND INITIAL LINE TO it_materials ASSIGNING FIeld-SYMBOL(<lwa_material>).
          <lwa_material> = CORRESPONDING #( lwa_material )
        ENDIF.
        rs_selfield-refresh = 'X'.


      ENDIF.

    WHEN 'DEL'.

    LOOP AT it_materials INTO lwa_material WHERE box = 'X'.
      DELETE FROM Z241_MATERIAL WHERE MATNR = lwa_material-matnr.
    ENDLOOP.

    DELETE it_materials WHERE box = 'X'.
    rs_selfield-refresh = 'X'.

  ENDCASE.
ENDFORM.                    "F_USER_COMMAND