hi,
this is my alv portion. I couldnt able to give top of page.I to display top as SCRAP Test and budat from selection screen as from and to date.
**&----
**
**& Form display_data
**&----
**
text
**----
**
--> p1 text
<-- p2 text
**----
*
FORM DISPLAY_DATA.
S_LAYOUT-ZEBRA = 'X' .
S_LAYOUT-COLWIDTH_OPTIMIZE = 'X' .
PERFORM FIELD_CATALOG TABLES IT_FIELDCAT
USING:
'IT_FINAL' 'SNO' ' ' 'SNO' ' ' ' ',
'IT_FINAL5' 'LIFNR' ' ' 'VENDOR CODE' ' ' ' ',
'IT_FINAL5' 'NAME1' ' ' 'VENDOR DESCRIPTION' ' ' ' ',
'IT_FINAL5' 'OPEN' ' ' 'PREVIOUS STOCK' ' ' ' ',
'IT_FINAL5' 'WERKS' ' ' 'PLANT' 'X' ' ',
'IT_FINAL5' 'MATNR' ' ' 'MATERIAL NO' ' ' ' ',
'IT_FINAL5' 'MAKTX' ' ' 'MATERIAL DESCRIPTION' ' ' ' ',
'IT_FINAL5' 'MENGE2' ' ' 'NORMS' ' ' ' ',
'IT_FINAL5' 'QUAN' ' ' 'GRN QTY' ' ' ' ',
'IT_FINAL5' 'TRQ' ' ' 'TOTAL RECEIVABLE QTY' 'X' ' ',
'IT_FINAL5' 'IDNRK' ' ' 'RECEIVED MATERIAL' ' ' ' ',
'IT_FINAL5' 'MENGE_542' ' ' 'RECEIVED QUANTITY' 'X' ' ',
'IT_FINAL5' 'EXCESS' ' ' 'EXCESS/SHORTAGE' 'X' ' '.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = 'SY-CPROG'
I_GRID_TITLE =
I_GRID_SETTINGS =
I_CALLBACK_TOP_OF_PAGE = 'TOP'
IS_LAYOUT = S_LAYOUT
IT_FIELDCAT = IT_FIELDCAT[]
TABLES
T_OUTTAB = IT_FINAL5[]
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. "DISPLAY_DATA
----
FORM FIELD_CATALOG *
----
........ *
----
--> T_FIELD_CATALOG *
--> FP_TABNAME *
--> FP_FIELDNAME *
--> FP_KEY *
--> FP_TEXT *
----
FORM FIELD_CATALOG TABLES T_FIELD_CATALOG STRUCTURE IT_FIELDCAT
USING FP_TABNAME TYPE ANY
FP_FIELDNAME TYPE ANY
FP_KEY TYPE ANY
FP_TEXT TYPE ANY
FP_DO_SUM TYPE ANY
FP_EDIT TYPE ANY.
T_FIELD_CATALOG-TABNAME = FP_TABNAME.
T_FIELD_CATALOG-FIELDNAME = FP_FIELDNAME.
T_FIELD_CATALOG-KEY = FP_KEY.
T_FIELD_CATALOG-SELTEXT_L = FP_TEXT.
T_FIELD_CATALOG-DO_SUM = FP_DO_SUM .
T_FIELD_CATALOG-EDIT = FP_EDIT.
APPEND IT_FIELDCAT.
CLEAR IT_FIELDCAT.
ENDFORM. " display_data