Hi Expers,
I need to have a ALV with 2 buttons. I used se41 for adding the buttons and se51 for the screen. In my se51 my layout is just blank.
But the alv grid is not showing Its just a blank screen with 2 buttons.
MODULE LIST OUTPUT.
DATA: R_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
R_GRID TYPE REF TO CL_GUI_ALV_GRID.
DATA: gv_success_log TYPE c,
gv_error_log TYPE c.
TYPES: BEGIN OF typ_logs,
ZROW TYPE ZLOGS_UPLOAD_APPRAISAL-ZROW,
ZMESSAGE TYPE ZLOGS_UPLOAD_APPRAISAL-ZMESSAGE,
ZSTATUS TYPE ZLOGS_UPLOAD_APPRAISAL-ZSTATUS,
ZCHANGEDBY TYPE ZLOGS_UPLOAD_APPRAISAL-ZCHANGEDBY,
ZCHANGEDDATE TYPE ZLOGS_UPLOAD_APPRAISAL-ZCHANGEDDATE,
END OF typ_logs.
DATA: it_report_error_log TYPE TABLE OF typ_logs,
it_report_success_log TYPE TABLE OF typ_logs,
it_report_log TYPE TABLE OF typ_logs,
wa_report_log TYPE typ_logs.
wa_report_log-zrow = '134'.
wa_report_log-zmessage = 'asdasda'.
wa_report_log-zstatus = 'E'.
wa_report_log-zchangedby = 'ascalica'.
wa_report_log-zchangeddate = '01/01/2013'.
APPEND wa_report_log TO it_report_error_log.
CREATE OBJECT r_container
EXPORTING
container_name = 'CONTAINER'.
CREATE OBJECT r_grid
EXPORTING
i_parent = r_container.
IF gv_error_log = 'X'.
CALL METHOD r_grid->set_table_for_first_display
EXPORTING
i_structure_name = 'ZERRORLOGS'
* is_layout = is_layout
CHANGING
it_outtab = it_report_error_log.
ELSEIF gv_success_log = 'X'.
CALL METHOD r_grid->set_table_for_first_display
EXPORTING
i_structure_name = 'ZERRORLOGS'
* is_layout = is_layout
CHANGING
it_outtab = it_report_success_log.
ELSE.
CALL METHOD r_grid->set_table_for_first_display
EXPORTING
i_structure_name = 'ZERRORLOGS'
* is_layout = is_layout
CHANGING
it_outtab = it_report_log.
ENDIF.
ENDMODULE. " LIST OUTPUT
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'ZSTATUS'.
SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_0100 OUTPUT
MODULE USER_COMMAND_0100 INPUT.
CASE sy-ucomm.
WHEN 'BCK'.
LEAVE TO TRANSACTION 'ZTWEAKED_APPRAISAL'.
WHEN 'ERRORLOG'.
gv_error_log = 'X'.
CALL METHOD r_grid->free( ).
FREE r_grid.
CALL METHOD r_container->free( ).
FREE r_container.
CALL SCREEN 100.
WHEN 'SUCCESSLOG'.
gv_success_log = 'X'.
CALL METHOD r_grid->free( ).
FREE r_grid.
CALL METHOD r_container->free( ).
FREE r_container.
CALL SCREEN 100.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT