Re: ALV Grid

Former Member — Sun, 27 Jan 2008 16:06:44 GMT

Hi Syamala,

This is my example question i think it is helpful for you..

Try this code

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

Tables decalration..................................................

TABLES:

zcl_timesheet. " Employee master table

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'.

Type definition...................................................

----

Type definition of the structure to hold data from table *
zcl_timesheet. *

----

TYPES:

BEGIN OF type_s_time,

empid TYPE zcl_timesheet-empid,

" Employee ID

workdate TYPE zcl_timesheet-workdate,

" Date

groupid TYPE zcl_timesheet-groupid,

" Group ID

projectid TYPE zcl_timesheet-projectid,

" Project ID

projectname TYPE zcl_timesheet-projectname,

" Project name

objectid TYPE zcl_timesheet-objectid,

" Object ID

objectname TYPE zcl_timesheet-objectname,

" Object name

activityid TYPE zcl_timesheet-activityid,

" Activity ID

activityname TYPE zcl_timesheet-activityname,

" Activity name

timeworked TYPE zcl_timesheet-timeworked,

" Time spent on work

description TYPE zcl_timesheet-description,

" Description

taskstatus TYPE zcl_timesheet-taskstatus,

" Status of the proj

billstatus TYPE zcl_timesheet-billstatus,

" Billing status

appstatus TYPE zcl_timesheet-appstatus,

" Staus of the record

wstatus TYPE zcl_timesheet-wstatus,

" Working status

mngcomment TYPE zcl_timesheet-mngcomment,

" Managers comment

END OF type_s_time.

Field-string declarations...........................................

DATA:

Field-string to build fieldcat.

fs_fcat TYPE lvc_s_fcat,

Field-string for t_timesheet

fs_timesheet TYPE zcl_timesheet.

Working variables...................................................

DATA:

w_valid(1) TYPE c, " To get the flag from check_data

w_display(1) TYPE c, " Flag to display all records

ok_code TYPE syst-ucomm, " Function code on dialog screens

w_okcode TYPE syst-ucomm, " Temporary function code

w_first(1) TYPE c, " To place buttons for first time

w_submit(1) TYPE c, " Flag to display submitted records

w_empid TYPE zcl_emprecord-empid.

" Employee ID for GET parameter

Internal table declarations........................................

DATA:

Internal table to build fieldcat.

t_fcat TYPE lvc_t_fcat,

Internal table to display data.

t_time TYPE TABLE OF type_s_time,

Internal table to hold submitted data.

t_timesheet TYPE TABLE OF zcl_timesheet.

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_timesheet-groupid " Group ID

NO INTERVALS,

s_prjid FOR zcl_timesheet-projectid, " Project ID

s_empid FOR zcl_timesheet-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

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.

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 GET_DATA *

----

To get the submitted data from zcl_timesheet *

----

No parameters are passsed to this subroutine *

----

FORM get_data .

SELECT *

FROM zcl_timesheet

INTO TABLE t_timesheet

WHERE empid IN s_empid

AND workdate IN s_date

AND groupid IN s_group

AND projectid IN s_prjid

AND appstatus EQ c_boolean_yes.

IF sy-subrc NE 0.

MESSAGE e000 .

ELSE.

CALL SCREEN 100.

ENDIF. " IF SY-SUBRC NE 0

ENDFORM. " GET_DATA

----

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 BUILD_FCATD *

----

To build fieldcatalog in the display mode *

----

-->pr_Tabname type lvc_tname *
-->pr_Fieldname type lvc_fname *
-->pr_Coltext type lvc_txtcol *
-->pr_Colpos type lvc_colpos *

----

FORM build_fcatd 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.

fs_fcat-edit = space.

APPEND fs_fcat TO t_fcat.

ENDFORM. " BUILD_FCATD

----

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.