Thanks to visit codestin.com
Credit goes to www.scribd.com

0% found this document useful (0 votes)
30 views2 pages

Form Tracking Report

Uploaded by

paaavan
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
0% found this document useful (0 votes)
30 views2 pages

Form Tracking Report

Uploaded by

paaavan
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 2

*&---------------------------------------------------------------------*

*& 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.

You might also like