*&---------------------------------------------------------------------*
*& Report  Z_YY_DISPOSAL_REQ_INQ
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
*----------------------------------------------------------------------*
* Author : <Yara Mohamed/Developer user ID>
* Creation Date : <09-03-2017>
* Transaction : <Transaction code if attached>
* Technical design: <Assets Disposal Request Inquiry Screen>
* Description : < Show Disposal Request Information>
*----------------------------------------------------------------------*

REPORT Z_YY_DISPOSAL_REQ_INQ.

TABLES ZFI_DISPOSAL_REQ.

*ALV Data Required.

Data : IT_REQ TYPE TABLE OF ZFI_DISPOSAL_REQ,
       WA_REQ  LIKE LINE OF IT_REQ,
       IT_FCAT TYPE slis_t_fieldcat_alv,
       WA_FCAT TYPE slis_fieldcat_alv,
       ALV_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
       ALV_GRID TYPE REF TO CL_GUI_ALV_GRID.


*Selection Screen.
SELECTION-SCREEN BEGIN OF BLOCK SELECTION WITH FRAME TITLE text-001.

SELECTION-SCREEN BEGIN OF LINE.
  SELECTION-SCREEN COMMENT (20) text-002 FOR FIELD COM_CODE .
PARAMETERS :     COM_CODE LIKE ZFI_DISPOSAL_REQ-ZZCOMPANY_CODE DEFAULT '1000'.
SELECTION-SCREEN POSITION 35.
SELECTION-SCREEN COMMENT (20) text-003 FOR FIELD COST_CNT .
PARAMETERS :     COST_CNT LIKE ZFI_DISPOSAL_REQ-ZZCOST_CENTER.
SELECTION-SCREEN POSITION 70.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
  SELECTION-SCREEN COMMENT (20) text-004 FOR FIELD SER_NO .
PARAMETERS :     SER_NO   LIKE ZFI_DISPOSAL_REQ-ZZSR_NUMBER.
*SELECTION-SCREEN POSITION 10.
SELECTION-SCREEN COMMENT (20) text-005 FOR FIELD SRV_TYPE .
PARAMETERS :     SRV_TYPE LIKE ZFI_DISPOSAL_REQ-ZZSERVICE_TYPE.
SELECTION-SCREEN POSITION 70.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
  SELECTION-SCREEN COMMENT (20) text-006 FOR FIELD DATE .
PARAMETERS :     DATE LIKE ZFI_DISPOSAL_REQ-ZZDATE.
*SELECTION-SCREEN POSITION 35.
SELECTION-SCREEN COMMENT (20) text-007 FOR FIELD REQ_STS .
PARAMETERS :     REQ_STS  LIKE ZFI_DISPOSAL_REQ-ZZRQSTTS.
SELECTION-SCREEN PUSHBUTTON (10) BUT1 USER-COMMAND ABC.
SELECTION-SCREEN PUSHBUTTON (10) BUT2 USER-COMMAND ABC.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK SELECTION.


*Build ALV.
WA_FCAT-COL_POS = '1'.
WA_FCAT-FIELDNAME = 'ZZSR_NUMBER'.
WA_FCAT-seltext_m = 'Serial Number'.
WA_FCAT-outputlen = 19.
WA_FCAT-just = 'L'. "23-6-15
WA_FCAT-DATATYPE = 'NUMC'.
APPEND WA_FCAT TO IT_FCAT.
CLEAR WA_FCAT.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      it_fieldcat      = IT_FCAT
    TABLES
      t_outtab         = it_REQ.

*To make the field company code non-editable
at SELECTION-SCREEN OUTPUT.
  BUT1 = 'Search'.
BUT2 = 'Reset'.
 LOOP AT SCREEN.
   if screen-name = 'COM_CODE'.
     SCREEN-REQUIRED = 1.
     SCREEN-INPUT = 0.
     MODIFY SCREEN.
     ENDIF.
   ENDLOOP.