topic Re: ALV Grid for User input in Application Development and Automation Discussions

ALV Grid for User input

Former Member — Wed, 21 Jun 2006 03:11:55 GMT

Hi there,

Can anyone tell me how to display a ALV grid that will allow the user to change the values in any cell? For example, lets say, we have a matrix of checkboxes, and the user should be able to check or uncheck in any of the cells.

Rgds,

Deb.

Re: ALV Grid for User input

Former Member — Wed, 21 Jun 2006 03:16:55 GMT

GOOD

BCALV_TEST_LIST_LAYOUT shows checkboxes on its output

display. The documentation of the various ALV function modules is also a

very good source of information

GO THROUGH THIS LINK

http://sap.ittoolbox.com/code/archives.asp?i=10&d=3619&a=s

http://www.the-blue-orb.com/link/sap-db2/disk3/doc/79/11269b0edf11d4b595006094192fe3/content.htm

THANKS

MRUTYUN

Re: ALV Grid for User input

Former Member — Wed, 21 Jun 2006 03:17:06 GMT

Hi,

In the field catalog of the ALV Grid, just set the EDIT field to X for which ever field to be editable.

WA_FIELDCAT-EDIT - 'X'.

Regards,

Ravi

Note : Please mark the helpful answers

Re: ALV Grid for User input

Former Member — Wed, 21 Jun 2006 03:20:27 GMT

Hi,

Write this code in the callback subroutine (eg: in USER_COMMAND subroutine),

Data ref1 type ref to cl_gui_alv_grid.

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

IMPORTING

E_GRID = ref1.

call method ref1->check_changed_data

Thanks,

Pramod

Re: ALV Grid for User input

venkat_o — Wed, 21 Jun 2006 03:22:58 GMT

Hi DebKumar Ghoshal,

1.

U have to define Checkbox field in the final table which u want to transfer through REUSE_ALV_GRID_DISPLAY.

2.

Set these fields while fieldcatalog building .

w_field-checkbox = 'X'.

w_field-input = 'X'.

3.

Have a look at this sample program.

This program shows Checkboxes and selecting those.Once u select and save .Automatically that value 'X is stored i the table .

&----

*& Report ZORAY1234 *

*& *

&----

REPORT zoray1234 .

TABLES :mard .

TYPE-POOLS :slis.

DATA: BEGIN OF i_mard OCCURS 0,

checkbox TYPE c ,

matnr TYPE mard-matnr,

werks TYPE mard-werks,

lgort TYPE mard-lgort,

labst TYPE mard-labst,

END OF i_mard.

DATA :i_field TYPE slis_t_fieldcat_alv,

w_field LIKE LINE OF i_field,

i_events TYPE slis_t_event,

w_events LIKE LINE OF i_events.

START-OF-SELECTION.

PERFORM get_data.

PERFORM build_field.

PERFORM build_events.

PERFORM display_data.

&----

*& Form get_data

&----

FORM get_data .

SELECT matnr werks lgort labst

FROM mard

INTO CORRESPONDING FIELDS OF TABLE i_mard

WHERE werks = 'NB4'.

ENDFORM. " get_data

&----

*& Form build_field

&----

FORM build_field .

CLEAR w_field.

CLEAR i_field.

w_field-fieldname = 'CHECKBOX'.

w_field-tabname = 'I_MARD'.

w_field-checkbox = 'X'.

w_field-input = 'X'.

w_field-seltext_m = 'Checkbox'.

APPEND w_field TO i_field.

CLEAR w_field.

w_field-fieldname = 'MATNR'.

w_field-tabname = 'I_MARD'.

w_field-seltext_m = 'Matnr'.

APPEND w_field TO i_field.

CLEAR w_field.

w_field-fieldname = 'WERKS'.

w_field-tabname = 'I_MARD'.

w_field-seltext_m = 'Werks'.

APPEND w_field TO i_field.

CLEAR w_field.

w_field-fieldname = 'LGORT'.

w_field-tabname = 'I_MARD'.

w_field-seltext_m = 'Lgort'.

APPEND w_field TO i_field.

CLEAR w_field.

w_field-fieldname = 'LABST'.

w_field-tabname = 'I_MARD'.

w_field-seltext_m = 'Labst'.

APPEND w_field TO i_field.

CLEAR w_field.

ENDFORM. " build_field

&----

*& Form display_data

&----

FORM display_data .

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '

i_callback_program = 'ZORAY1234'

i_callback_pf_status_set = 'SET_PF_STATUS'

i_callback_user_command = 'USER_COMMAND'
I_STRUCTURE_NAME =
IS_LAYOUT =

it_fieldcat = i_field

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =

it_events = i_events

IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = i_mard

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 set_pf_status

&----

FORM PF_STATUS_SET USING extab TYPE slis_t_extab.

SET PF-STATUS 'VENKAT' EXCLUDING extab.

ENDFORM. "set_pf_status

&----

*& Form user_command

&----

text

----

FORM user_command USING ucomm LIKE sy-ucomm

selfield TYPE slis_selfield .

CASE ucomm.

WHEN 'BUTTON' .

LOOP AT i_mard WHERE checkbox = 'X'.

WRITE 😕 i_mard-matnr,

i_mard-werks,

i_mard-lgort,

i_mard-labst.

ENDLOOP.

WHEN 'BUTTON1'.

LOOP AT i_mard WHERE checkbox = 'X'.

WRITE 😕 i_mard-matnr,

i_mard-werks,

i_mard-lgort,

i_mard-labst.

ENDLOOP.

ENDCASE.

ENDFORM. "user_command

&----

*& Form build_events

&----

FORM build_events .

CLEAR i_events.

w_events-form = 'PF_STATUS_SET'.

w_events-name = 'PF_STATUS_SET'.

APPEND w_events TO i_events.

CLEAR w_events.

w_events-form = 'USER_COMMAND'.

w_events-name = 'USER_COMMAND'.

APPEND w_events TO i_events.

CLEAR w_events.

ENDFORM. " build_events

I think that it helps u.

Thanks,

Venkat.O

Re: ALV Grid for User input

Former Member — Wed, 21 Jun 2006 04:42:07 GMT

Hi Deb,

Check the following code.


Report zooalv.
 
CLASS Lcl_application  DEFINITION DEFERRED.
 
data : g_alv   type ref to cl_gui_alv_grid,
       gref_container TYPE REF TO cl_gui_custom_container,
       gs_layout TYPE lvc_s_layo.
 
data :event_receiver TYPE REF TO lcl_application,
      gt_fieldcat type lvc_t_fcat,
      gs_fieldcat type lvc_s_fcat.
 
 
DATA:gt_outtab type table of <table>. " change the table name here
 
data : gs_outtab like line of gt_outtab.
 
call screen 100.
 
 
************************************************************************
CLASS lcl_application DEFINITION.
 
  PUBLIC SECTION.
 
    METHODS:
    handle_toolbar
        FOR EVENT toolbar OF cl_gui_alv_grid
            IMPORTING e_object e_interactive,
 
    handle_user_command
        FOR EVENT user_command OF cl_gui_alv_grid
            IMPORTING e_ucomm.
 
 
ENDCLASS.                              "lcl_application DEFINITION
 
 
CLASS lcl_application IMPLEMENTATION.
 
  METHOD handle_toolbar.
 
    DATA: ls_toolbar  TYPE stb_button.
 
* append a separator to normal toolbar
    CLEAR ls_toolbar.
    MOVE 3 TO ls_toolbar-butn_type.
    APPEND ls_toolbar TO e_object->mt_toolbar.
 
* append an icon to show booking table
    CLEAR ls_toolbar.
    MOVE 'ADD' TO ls_toolbar-function.
*   MOVE icon_insert_row TO ls_toolbar-icon.
    MOVE 'test add button'(111) TO ls_toolbar-quickinfo.
    MOVE  space TO ls_toolbar-text.
    MOVE ' ' TO ls_toolbar-disabled.
    APPEND ls_toolbar TO e_object->mt_toolbar.
 
  ENDMETHOD.
 
METHOD handle_user_command.
    DATA: lt_rows TYPE lvc_t_row.
    CASE e_ucomm.
      WHEN 'ADD'.
        clear gs_outtab.
        append  gs_outtab to gt_outtab.
 
            CALL METHOD g_alv->refresh_table_display
                    .
    ENDCASE.
 ENDMETHOD.                           "handle_user_command
endclass.
************************************************************************
 
 
 
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
 
  SET PF-STATUS 'STAT'.
*  SET TITLEBAR 'xxx'.
  create object gref_container
       exporting
         container_name = 'CCAREA_ALV'. " create screen with control area CCAREA_ALV
 
  create object g_alv
     exporting i_parent = GREF_DOCKING_CONTAINER.
 
  select * from <table> into table GT_OUTTAB.
 
  gs_fieldcat-fieldname = 'F1'.
  gs_fieldcat-ref_table = 'table'.
  gs_fieldcat-edit       = 'X'.
  gs_fieldcat-key = 'X'.
  append gs_fieldcat to gt_fieldcat.
 
  gs_fieldcat-fieldname = 'f2'.
  gs_fieldcat-ref_table = 'table'.
  gs_fieldcat-edit       = 'X'.
  gs_fieldcat-key = 'X'.
  append gs_fieldcat to gt_fieldcat.
 
  gs_fieldcat-fieldname = 'F3'.
  gs_fieldcat-ref_table = 'table'.
  gs_fieldcat-edit       = 'X'.
  gs_fieldcat-key = 'X'.
  append gs_fieldcat to gt_fieldcat.
 
  gs_layout-grid_title = 'TEST'.
 
 call method g_ALV->set_table_for_first_display
        exporting
         is_layout  = gs_layout
        changing 
         it_fieldcatalog = gt_fieldcat
*        it_sort = gt_sort
         it_outtab        = gt_outtab[].
 
*** addition button on alv
    CREATE OBJECT event_receiver.
    SET HANDLER event_receiver->handle_user_command FOR g_alv.
    SET HANDLER event_receiver->handle_toolbar FOR g_alv.
 
call method g_alv->register_edit_event exporting
   i_event_id = cl_gui_alv_grid=>mc_evt_modified.
 
*  Call method 'set_toolbar_interactive' to raise event TOOLBAR.
    CALL METHOD g_alv->set_toolbar_interactive.
 
ENDMODULE.                 " STATUS_0100  OUTPUT

I hope it will help you.

Regards,

Kinshuk

Re: ALV Grid for User input

hymavathi_oruganti — Wed, 21 Jun 2006 05:05:35 GMT

steps:

1. define method data_changed

2. implement method data_changed, write a perform /directly write logic.

3.define set handlers for data_changed in pbo and also register.

4. write the form of step 2 if perform is there.

----

CLASS LCL_EVENT_RECEIVER DEFINITION

----

CLASS LCL_EVENT_RECEIVER DEFINITION.

PUBLIC SECTION.

METHODS HANDLE_DATA_CHANGED

FOR EVENT DATA_CHANGED OF CL_GUI_ALV_GRID

IMPORTING ER_DATA_CHANGED E_ONF4 E_UCOMM.

********************************************************

----

CLASS LCL_EVENT_RECEIVER IMPLEMENTATION

----

CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.

METHOD HANDLE_DATA_CHANGED.

PERFORM DATA_CHANGED USING ER_DATA_CHANGED E_UCOMM.

ENDMETHOD . "handle_data_changed

*************************************************

SET HANDLER EVENT_RECEIVER->HANDLE_DATA_CHANGED FOR GO_GRID.

CALL METHOD GO_GRID->REGISTER_EDIT_EVENT

EXPORTING

I_EVENT_ID = cl_gui_alv_grid=>mc_evt_modified.

CALL METHOD GO_GRID->REGISTER_EDIT_EVENT

EXPORTING

I_EVENT_ID = cl_gui_alv_grid=>mc_evt_enter.

***********************************************************

FORM DATA_CHANGED USING P_ER_DATA_CHANGED TYPE REF TO

CL_ALV_CHANGED_DATA_PROTOCOL E_UCOMM TYPE SY-UCOMM.

DATA: L_VALUE TYPE LVC_VALUE,

ls_mod_cell type lvc_s_modi.

LOOP AT P_ER_DATA_CHANGED->MT_MOD_CELLS INTO LS_MOD_CELL.

CALL METHOD P_ER_DATA_CHANGED->GET_CELL_VALUE

EXPORTING

I_ROW_ID = LS_MOD_CELL-row_id

I_FIELDNAME = LS_MOD_CELL-fieldname

IMPORTING

E_VALUE = L_VALUE.

endform.