‎2008 Aug 15 8:57 AM
HI,
do you have some samplecode for report with ALV Output ?
do you have some information hot wo use ALV ?
thx.
Gordon
‎2008 Aug 15 9:30 AM
Hi
You can referece the sample code.
TYPE-POOLS: slis.
TYPES:
BEGIN OF ty_test,
name TYPE syuname,
start_date TYPE sydate,
end_date TYPE sydate,
END OF ty_test.
TYPES:
ty_tb_test TYPE STANDARD TABLE OF ty_test.
DATA:
i_test TYPE ty_tb_test,
w_test TYPE ty_test,
i_fieldcat TYPE slis_t_fieldcat_alv,
w_fieldcat TYPE LINE OF slis_t_fieldcat_alv,
i_header TYPE slis_t_listheader,
w_header TYPE LINE OF slis_t_listheader.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: name TYPE syuname,
start TYPE sydate,
end TYPE sydate.
SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION.
PERFORM fill_data.
PERFORM field_define.
PERFORM display_alv.
FORM fill_data.
w_test-name = 'MBOORE'.
w_test-start_date = '20080701'.
w_test-end_date = '20080731'.
APPEND w_test to i_test.
CLEAR w_test.
w_test-name = 'JDUFFY'.
w_test-start_date = '20080715'.
w_test-end_date = '20080810'.
APPEND w_test to i_test.
CLEAR w_test.
w_test-name = 'JVNSOLD'.
w_test-start_date = '20080601'.
w_test-end_date = '20080720'.
APPEND w_test to i_test.
CLEAR w_test.
ENDFORM.
FORM field_define.
w_fieldcat-fieldname = 'NAME'.
w_fieldcat-seltext_l = 'name'.
APPEND w_fieldcat TO i_fieldcat.
CLEAR w_fieldcat.
w_fieldcat-fieldname = 'START_DATE'.
w_fieldcat-seltext_l = 'start_date'.
APPEND w_fieldcat TO i_fieldcat.
CLEAR w_fieldcat.
w_fieldcat-fieldname = 'END_DATE'.
w_fieldcat-seltext_l = 'end_date'.
APPEND w_fieldcat TO i_fieldcat.
CLEAR w_fieldcat.
ENDFORM.
FORM display_alv.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
i_callback_top_of_page = 'DISPLAY_HEADER'
IT_FIELDCAT = i_fieldcat
TABLES
t_outtab = i_test
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.
FORM display_header.
w_header-typ = 'H'.
w_header-info = 'This test case has been passed'.
APPEND w_header TO i_header.
CLEAR w_header.
w_header-typ = 'S'.
CONCATENATE 'Where User Name - ' name INTO w_header-info.
APPEND w_header TO i_header.
CLEAR w_header.
w_header-typ = 'S'.
CONCATENATE 'Start Date - ' start INTO w_header-info.
APPEND w_header TO i_header.
CLEAR w_header.
w_header-typ = 'S'.
CONCATENATE 'End Date - ' end INTO w_header-info.
APPEND w_header TO i_header.
CLEAR w_header.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = i_header
* I_LOGO =
* I_END_OF_LIST_GRID =
* I_ALV_FORM =
.
ENDFORM.
‎2008 Aug 15 9:18 AM
Hello Gordon
All you need to know about OO-based ALV (at least the basics) can be found in the excellent tutorial
[An Easy Reference For ALV Grid Control|https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/e8a1d690-0201-0010-b7ad-d9719a415907]
For simplified ALV reports you may search the SDN for my sample reports (all of which begin with ZUS_SDN_... ).
Regards
Uwe
‎2008 Aug 15 12:15 PM
Thank you for yourhelp.
Do you habe samplecode for ALVtree, too ?
I need an ALV splitting. left frame = tree, right frame = alvgrid.
‎2008 Aug 15 12:30 PM
using CL_GUI_LIST_TREE you can get that. check the demo program..
SAPTLIST_TREE_CONTROL_DEMO
‎2008 Aug 15 9:23 AM
‎2008 Aug 15 9:30 AM
Hi
You can referece the sample code.
TYPE-POOLS: slis.
TYPES:
BEGIN OF ty_test,
name TYPE syuname,
start_date TYPE sydate,
end_date TYPE sydate,
END OF ty_test.
TYPES:
ty_tb_test TYPE STANDARD TABLE OF ty_test.
DATA:
i_test TYPE ty_tb_test,
w_test TYPE ty_test,
i_fieldcat TYPE slis_t_fieldcat_alv,
w_fieldcat TYPE LINE OF slis_t_fieldcat_alv,
i_header TYPE slis_t_listheader,
w_header TYPE LINE OF slis_t_listheader.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: name TYPE syuname,
start TYPE sydate,
end TYPE sydate.
SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION.
PERFORM fill_data.
PERFORM field_define.
PERFORM display_alv.
FORM fill_data.
w_test-name = 'MBOORE'.
w_test-start_date = '20080701'.
w_test-end_date = '20080731'.
APPEND w_test to i_test.
CLEAR w_test.
w_test-name = 'JDUFFY'.
w_test-start_date = '20080715'.
w_test-end_date = '20080810'.
APPEND w_test to i_test.
CLEAR w_test.
w_test-name = 'JVNSOLD'.
w_test-start_date = '20080601'.
w_test-end_date = '20080720'.
APPEND w_test to i_test.
CLEAR w_test.
ENDFORM.
FORM field_define.
w_fieldcat-fieldname = 'NAME'.
w_fieldcat-seltext_l = 'name'.
APPEND w_fieldcat TO i_fieldcat.
CLEAR w_fieldcat.
w_fieldcat-fieldname = 'START_DATE'.
w_fieldcat-seltext_l = 'start_date'.
APPEND w_fieldcat TO i_fieldcat.
CLEAR w_fieldcat.
w_fieldcat-fieldname = 'END_DATE'.
w_fieldcat-seltext_l = 'end_date'.
APPEND w_fieldcat TO i_fieldcat.
CLEAR w_fieldcat.
ENDFORM.
FORM display_alv.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
i_callback_top_of_page = 'DISPLAY_HEADER'
IT_FIELDCAT = i_fieldcat
TABLES
t_outtab = i_test
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.
FORM display_header.
w_header-typ = 'H'.
w_header-info = 'This test case has been passed'.
APPEND w_header TO i_header.
CLEAR w_header.
w_header-typ = 'S'.
CONCATENATE 'Where User Name - ' name INTO w_header-info.
APPEND w_header TO i_header.
CLEAR w_header.
w_header-typ = 'S'.
CONCATENATE 'Start Date - ' start INTO w_header-info.
APPEND w_header TO i_header.
CLEAR w_header.
w_header-typ = 'S'.
CONCATENATE 'End Date - ' end INTO w_header-info.
APPEND w_header TO i_header.
CLEAR w_header.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = i_header
* I_LOGO =
* I_END_OF_LIST_GRID =
* I_ALV_FORM =
.
ENDFORM.