*&---------------------------------------------------------------------*
*& Report ZFI_FORM_TRACKING
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZFI_FORM_TRACKING.
TABLES:J_1IFRDTSO.
DATA: IT_J_1IFRDTSO TYPE STANDARD TABLE OF J_1IFRDTSO,
WA_J_1IFRDTSO TYPE STANDARD TABLE OF J_1IFRDTSO.
DATA : ALV TYPE REF TO CL_SALV_TABLE, " Referrenc Variable for ALV
ALV_MSG TYPE REF TO CX_SALV_MSG. " Reference Variable for exceptio
n
DATA: ALV_FUNCT TYPE REF TO CL_SALV_FUNCTIONS. " Reference Variable for Me
nu options
DATA: ALV_COLUMNS TYPE REF TO CL_SALV_COLUMNS_TABLE. " Reference Variable
for Layout
SELECTION-SCREEN BEGIN OF BLOCK ABC WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : SO_SALES FOR J_1IFRDTSO-J_1IDOCNUM. "Sales Order
SELECT-OPTIONS : SO_CUST FOR J_1IFRDTSO-J_1ICUSMER. "Customer
SELECTION-SCREEN END OF BLOCK ABC.
SELECT * INTO TABLE IT_J_1IFRDTSO FROM J_1IFRDTSO WHERE J_1IDOCNUM IN SO_S
ALES AND J_1ICUSMER IN SO_CUST.
IF SY-SUBRC = 0.
TRY.
CALL METHOD CL_SALV_TABLE=>FACTORY " Giving
ALV back
* EXPORTING
* LIST_DISPLAY = IF_SALV_C_BOOL_SAP=>FALSE
* R_CONTAINER =
* CONTAINER_NAME =
IMPORTING
R_SALV_TABLE = ALV
CHANGING
T_TABLE = IT_J_1IFRDTSO
.
CATCH CX_SALV_MSG .
ENDTRY.
ALV_FUNCT = ALV->GET_FUNCTIONS( ).
ALV_FUNCT->SET_ALL( ABAP_TRUE ). " Giving Me
nu OPtions
ALV_COLUMNS = ALV->GET_COLUMNS( ).
ALV_COLUMNS->SET_OPTIMIZE( 'X' ). " Giving La
yout Options
CALL METHOD ALV->DISPLAY.
ELSE.
MESSAGE 'No record found' TYPE 'I'.
ENDIF.