Solved: Custom pushbutton in the ALV Grid Control

Former Member · ‎2008 Feb 11

Hi,

I have a requirement of adding a Custom pushbutton in the ALV Grid control along with the other ALV buttons. Plesae provide me with the coding...

Former Member · ‎2008 Feb 11

Harini,

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = ws_repid

i_callback_pf_status_set = 'GUI_STAT1'

i_callback_user_command = 'STAT'

is_layout = gs_layout

it_fieldcat = i_fieldcat[]

it_sort = wa_sort1

TABLES

t_outtab = i_zaw_pol_plan.

**--Setting Status of output screen

FORM gui_stat1 USING rt_extab TYPE slis_t_extab.

SET PF-STATUS 'STANDARD1' EXCLUDING rt_extab.

SET TITLEBAR text-005.

ENDFORM.

Here double click on "STANDARD1" there in Application toolbar you can add you own Buttons there.

Don't forget to reward if useful...

Former Member · ‎2008 Feb 11

Harini,

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = ws_repid

i_callback_pf_status_set = 'GUI_STAT1'

i_callback_user_command = 'STAT'

is_layout = gs_layout

it_fieldcat = i_fieldcat[]

it_sort = wa_sort1

TABLES

t_outtab = i_zaw_pol_plan.

**--Setting Status of output screen

FORM gui_stat1 USING rt_extab TYPE slis_t_extab.

SET PF-STATUS 'STANDARD1' EXCLUDING rt_extab.

SET TITLEBAR text-005.

ENDFORM.

Here double click on "STANDARD1" there in Application toolbar you can add you own Buttons there.

Don't forget to reward if useful...

Former Member · ‎2008 Feb 11

Hi,

Try this code,

Plzz reward points if it helps.

REPORT zcl_timesheet_approval MESSAGE-ID zcl_msg.

----

CLASS L_CL_EVENTS DEFINITION *

----

Class for inserting buttons on the toolbar *

----

CLASS l_cl_events DEFINITION.

PUBLIC SECTION.

METHODS:

toolbar FOR EVENT toolbar

OF cl_gui_alv_grid

IMPORTING e_object

e_interactive,

user_command FOR EVENT user_command

OF cl_gui_alv_grid

IMPORTING e_ucomm .

ENDCLASS. " L_CL_EVENTS DEFINITION

----

CLASS L_CL_EVENTS IMPLEMENTATION *

----

Implementation of class L_CL_EVENTS *

----

CLASS l_cl_events IMPLEMENTATION.

METHOD toolbar.

PERFORM event_toolbar USING e_object.

ENDMETHOD. " TOOLBAR

METHOD user_command.

PERFORM event_ucomm USING e_ucomm.

ENDMETHOD. " USER_COMMAND

ENDCLASS. " L_CL_EVENTS IMPLEMENTATION

CONSTANTS:

c_boolean_yes(1) TYPE c " Boolean - yes

VALUE 'X',

c_approve_status(1) TYPE c " Approval status

VALUE 'A',

c_rej_status(1) TYPE c " Rejected status

VALUE 'R',

c_save_status(1) TYPE c " Save status

VALUE 'S',

c_fcode_approve(7) TYPE c " Function code - APPROVE

VALUE 'APPROVE',

c_fcode_rej(6) TYPE c " Function code - REJECT

VALUE 'REJECT',

c_fcode_back(4) TYPE c " Function code - BACK

VALUE 'BACK',

c_fcode_onli(4) TYPE c " Function code - EXECUTE

VALUE 'ONLI',

c_fcode_exit(4) TYPE c " Function code - EXIT

VALUE 'EXIT',

c_fcode_cancel(6) TYPE c " Function code - CANCEL

VALUE 'CANCEL',

c_zero(1) TYPE c " Constant value 0

VALUE '0',

c_alv_scr(7) TYPE c " GUI status : ALV screen

VALUE 'ALV_SCR'.

For ALV ...........................................................

DATA:

To create instance for cl_gui_custom_container

g_grid TYPE REF TO cl_gui_custom_container,

To create instance for cl_gui_alv_grid

g_alv TYPE REF TO cl_gui_alv_grid,

To create instance for l_cl_events

g_events TYPE REF TO l_cl_events,

To assign name for custom container

g_container TYPE scrfname VALUE 'CONTAINER',

To assign layout

g_fcatlayo TYPE lvc_s_layo.

Selection screen elements............................................

SELECTION-SCREEN BEGIN OF BLOCK blck WITH FRAME TITLE text-000.

SELECT-OPTIONS:

s_group FOR zcl_groups-id " Group ID

NO INTERVALS,

s_prjid FOR zcl_projects-projectid, " Project ID

s_empid FOR zcl_emprecord-empid, " Employee ID

s_date FOR zcl_timesheet-workdate. " Date

SELECTION-SCREEN END OF BLOCK blck.

SELECTION-SCREEN BEGIN OF BLOCK blck1 WITH FRAME TITLE text-015.

PARAMETERS:

p_app RADIOBUTTON GROUP g1 USER-COMMAND app ,

" To approve timesheet

p_disp RADIOBUTTON GROUP g1, " To display timesheet

p_sdn RADIOBUTTON GROUP g1. " To display sdn status

SELECTION-SCREEN END OF BLOCK blck1.

----

AT SELECTION-SCREEN EVENT *

----

AT SELECTION-SCREEN.

To perform user actions on the selection screen

PERFORM user_command.

----

MODULE STATUS_0100 OUTPUT *

----

This module will create the objects for the instance and display *
the records *

----

MODULE status_0100 OUTPUT.

SET PF-STATUS c_alv_scr.

PERFORM set_titlebar USING w_display.

If program executed in foreground.

IF sy-batch IS INITIAL.

If g_grid is empty.

IF g_grid IS INITIAL.

To create object for instance grid

CREATE OBJECT g_grid

EXPORTING

container_name = g_container.

To create object for object grid

CREATE OBJECT g_alv

EXPORTING

i_parent = g_grid.

ELSE.

IF W_SUBMIT EQ

CALL METHOD g_alv->refresh_table_display.

ENDIF. " IF G_GRID IS INITIAL

ENDIF. " IF SY-BATCH IS INITIAL

REFRESH t_fcat.

If w_display eq 'X' .

IF w_display EQ c_boolean_yes.

To display all records except saved data

PERFORM display_allrecords.

ENDIF. " IF W_FLAG EQ C_BOOLEAN_YES

IF w_submit EQ c_boolean_yes.

To display submitted records

PERFORM submitted_records.

ENDIF. " IF W_SUBMIT EQ C_BOOLEAN_YES

ENDMODULE. " STATUS_0100 OUTPUT

----

MODULE USER_COMMAND_0100 INPUT *

----

To perform user actions in the screen 100 *

----

MODULE user_command_0100 INPUT.

To update the data in the ALV grid

PERFORM check_changed_data.

w_okcode = ok_code.

CLEAR ok_code.

CASE w_okcode.

WHEN c_fcode_back.

LEAVE TO SCREEN 0.

WHEN c_fcode_exit OR c_fcode_cancel.

LEAVE PROGRAM.

ENDCASE. " CASE W_OKCODE

ENDMODULE. " USER_COMMAND_0100

----

FORM BUILD_FCAT *

----

To build the field catalog giving managers comment in editable mode *

----

-->PR_Tabname type lvc_tname *
-->PR_Fieldname type lvc_fname *
-->PR_Coltext type lvc_txtcol *
-->PR_Colpos type lvc_colpos *

----

FORM build_fcat USING pr_tabname TYPE lvc_tname

pr_fieldname TYPE lvc_fname

pr_coltext TYPE lvc_txtcol

pr_colpos TYPE lvc_colpos.

CLEAR fs_fcat.

fs_fcat-tabname = pr_tabname.

fs_fcat-fieldname = pr_fieldname.

fs_fcat-coltext = pr_coltext.

fs_fcat-col_pos = pr_colpos.

IF fs_fcat-fieldname EQ 'MNGCOMMENT'.

fs_fcat-edit = c_boolean_yes.

fs_fcat-lowercase = c_boolean_yes.

fs_fcat-dd_outlen = 60.

ELSE.

fs_fcat-edit = space.

ENDIF. " IF FS_FCAT-FIELDNAME...

APPEND fs_fcat TO t_fcat.

ENDFORM. " BUILD_FCAT

----

FORM ALV_DISPLAY *

----

To display data in ALV *

----

--> pr_table type standard table *
--> pr_fcat type lvc_t_fcat *

----

FORM alv_display USING pr_table TYPE STANDARD TABLE

pr_fcat TYPE lvc_t_fcat .

Local data declaration....

DATA: lt_exclude TYPE ui_functions.

To exclude buttons on the ALV grid

PERFORM exclude_tb_functions CHANGING lt_exclude.

To display ALV

CALL METHOD g_alv->set_table_for_first_display

EXPORTING

i_default = space

is_layout = g_fcatlayo

it_toolbar_excluding = lt_exclude

CHANGING

it_outtab = pr_table[]

it_fieldcatalog = pr_fcat[].

ENDFORM. " ALV_DISPLAY

----

FORM EVENT_TOOLBAR *

----

Setting toolbar in the alv grid *

----

-->E_OBJECT TYPE REF TO CL_ALV_EVENT_TOOLBAR_SET *

----

FORM event_toolbar USING e_object

TYPE REF TO cl_alv_event_toolbar_set.

Local declaration for the button.

DATA: ls_toolbar TYPE stb_button.

To add Approve button

ls_toolbar-function = c_fcode_approve.

ls_toolbar-butn_type = c_zero.

ls_toolbar-text = text-001.

APPEND ls_toolbar TO e_object->mt_toolbar.

To add Reject button

CLEAR ls_toolbar.

ls_toolbar-function = c_fcode_rej.

ls_toolbar-butn_type = c_zero.

ls_toolbar-text = text-013.

APPEND ls_toolbar TO e_object->mt_toolbar.

ENDFORM. " EVENT_TOOLBAR

----

FORM EXCLUDE_TB_FUNCTIONS *

----

To exclude buttons from ALV grid *

----

<--> PR_EXCLUDE TYPE UI_FUNCTIONS *

----

FORM exclude_tb_functions CHANGING pr_exclude TYPE ui_functions.

Local data declaration...

DATA ls_exclude TYPE ui_func.

To remove the buttons on the ALV grid.

ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row.