ALV list

[Former Member]

Hi all,

My requirement is to display a alv list by oops ,

[Former Member]

Hi all,

My requirement is to display a alv list by oops ,

[Former Member]

Send me sample code

[rainer_hbenthal]

Use search function to search in blogs and the wiki and you will find some.

[rainer_hbenthal]

Nice to know.

[Former Member]

Hi,

report zooalv.
 
CLASS Lcl_application  DEFINITION DEFERRED.
 
data : g_alv   type ref to cl_gui_alv_grid,
       gref_docking_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>.
 
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'.
       gs_outtab-subproject = SPACE.
       gs_outtab-packid = space.
       gs_outtab-phase = space.
        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_docking_container
       exporting
         container_name = '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

Regards,

V.Balaji

Reward if Usefull...

[Former Member]

resolved