Example of class-alv

Question

i'm looking for simple example of alv with class (this is OO)
and with events
thanks

Answer 1

Hi Guys -- all the replies and demos so far in this thread  point to the OLD ALV grid
Any examples on using the NEW ALV API (6.40 and above)
There's quite a lot of stuff under packet type SALV and some SALV_DEMO* programs but they seem far too complicated to understand easily.
I've got an ABAP here which basically shows the Grid but How do I add the standard function buttons etc on it. I'm tyring to avoid extra screens with PAI and PBO processing or SE41 define menu statuses etc..
<b>
Program  ZALV_TEST1.
include <color>.
include <icon>.
include <symbol>.
display stuff in alv grid easily using new simple alvgrid with new api's
no screen  / pbo /pai needs to be defined anymore for just simple display with no events etc.
No field catalog needed either
tables: eine,
        eina.
Data:
        gr_table TYPE REF TO cl_salv_table.
data : begin of s_einea,
              infnr  type eina-infnr,
              ekorg  type eine-ekorg,
              werks  type eine-werks,
              lifnr  type eina-lifnr,
              loekz  type eina-loekz,
              ebeln  type eine-ebeln,
              ebelp  type eine-ebelp,
              matnr  type eina-matnr,
              testfield(10) type c,     "Own fields just for test
              url(255) type c,
       end of s_einea.
  data   t_einea
        like table of s_einea.
data:   s_name  type tabname.
   s_name = 'S_EINEA'.
get data
want data from both eina and eine where BOTH delete flags (LOEKZ) are 'X'
using the same info rec as primary key for the join (1 EINA ===> several EINE)
   select ainfnr alifnr amatnr aloekz bekorg bwerks bebeln bebelp
      into corresponding fields of  table t_einea
      up to 50 rows
      from  ( eina   as a
        inner join eine as b on ainfnr eq binfnr
                         and  aloekz eq bloekz  )
                  where  a~loekz eq 'X'.
add user data (non ddic) into internal table
Just to test NON DDIC fields
Note No Field catalog needed.
loop at t_einea into s_einea.
      s_einea-testfield = 'UserData'.
      modify  t_einea from s_einea index sy-tabix.
      endloop.
Instead of if_salv_c_bool_sap=>false, you can pass the
value if_salv_c_bool_sap=>true to this method to
see your ALV as a list.
display data in Grid / List
  TRY.
      CALL METHOD cl_salv_table=>factory
        EXPORTING
          list_display   = if_salv_c_bool_sap=>false
        IMPORTING
          r_salv_table   = gr_table
        CHANGING
          t_table    = t_einea.
    CATCH cx_salv_msg.
  ENDTRY.
data: lr_functions type ref to cl_salv_functions_list.
constants: gc_true  type sap_bool value 'X',
           gc_false type sap_bool value space.
add for colour displays
   data: ls_color type lvc_s_colo.
   DATA : LV_SALV_COLUMNS_TABLE TYPE REF TO CL_SALV_COLUMNS_TABLE.
  data: lr_columns type ref to cl_salv_columns_table,
        lr_column  type ref to cl_salv_column_table.
LV_SALV_COLUMNS_TABLE = gr_table->get_columns( ).
lr_column ?= LV_SALV_COLUMNS_TABLE->get_column( 'TESTFIELD' ).
      ls_color-col = col_negative.
      ls_color-int = 0.
      ls_color-inv = 0.
      lr_column->set_color( ls_color ).
lr_column ?= LV_SALV_COLUMNS_TABLE->get_column( 'INFNR' ).
ls_color-col = col_negative.
      ls_color-int = 1.
      ls_color-inv = 1.
      lr_column->set_color( ls_color ).
lr_column ?= LV_SALV_COLUMNS_TABLE->get_column( 'TESTFIELD' ).
lr_column->set_short_text( 'Short' ).
lr_column->set_medium_text( 'Medium' ).
lr_column->set_long_text( 'This is a test' ).
this statement actually does the display.
  gr_table->display( ).</b>
Any help appreciated
Thanks