*----------------------------------------------------------------------*
***INCLUDE ZDISPOSAL_PAI_SCREEN1.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0001  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0001 INPUT.
   get CURSOR FIELD CURSORFIELD.
CASE sy-ucomm .
     WHEN 'SEARCH'. "search
      PERFORM set_ids.
      IF HAS_ERROR = abap_false.
        PERFORM search.
        else.
          CLEAR IT_REQ. "empty alv table
      ENDIF.
        perform refresh.

    WHEN 'RESET'."reset
      perform reset.
      perform refresh.
      CLEAR RES_COUNT_MSG.
      RESET_IS_PRESSED = ABAP_TRUE.
      CLEAR SELECTED_DOCS.

     WHEN 'NEW'. " new entery
          CALL METHOD R_REQ_GRID->GET_SELECTED_ROWS
         IMPORTING
                    et_index_rows = SELECTED_DOCS.

      set parameter id 'BUK' field ZFI_DISPOSAL_REQ-ZZCOMPANY_CODE .
      set parameter id 'SELECTED_REQ_ID' field '-1' ." clear
      set parameter id 'OP_SC1' FIELD 'A'." insert operation for master data
      set parameter id 'OP_SC2' FIELD 'S'." SHOW operation for Details data(assets)
      set parameter id 'OP_SC3' FIELD 'S'." SHOW operation for Details data(DOCS)
      set parameter id 'OP_SC4' FIELD 'S'." SHOW operation for Details data(APPROVAL)
      CALL TRANSACTION 'ZDREQ'.

        "28/6/2015  >>>>>>>>>>>>>>>>
        "Empty ALV After Return
        CLEAR IT_REQ. "empty alv table
        CLEAR RES_COUNT_MSG.
        PERFORM refresh.
        "28/6/2015  <<<<<<<<<<<<<<<<

      WHEN 'BACK'.

       leave to screen 0. " 23-6-15 omar el halawany

ENDCASE.
ENDMODULE.                 " USER_COMMAND_0001  INPUT