Freetext with in Grid

Question

Hi,
I have requirement to display Text and Line item in a GRID (in popup window) ie
In the Screen
Free Text :xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
                xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
                xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
                xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Item No      Document Description    Quantity     Amount
10              xxxxxxxxxxxxxxxxxx    10              1000
20              xxxxxxxxxxxxxxxxxx     20              200
30              xxxxxxxxxxxxxxxxxx     30              400
I am looking for how we generate this using Object Oriented
Any example programs
I have a previous post related to this , still i could not able find a proper soluation
Freetext with in Grid
Thanks
aRs

Answer 1

Hi.  You can't do free text with in the grid itself, but you may be able to use a text editor container directly above the ALV grid.  Implement this program which I just developed, and run it.  See how the text is in a text editor control above the ALV.  Maybe you could use this.  I have implemented in a docking container, so that you have a working(cut/paste) solution.  You could easily modify to implement this in a dynpro container.
report zrich_0001 .
data: it001w type table of t001w with header line.
parameters: p_check type c.
start-of-selection.
at selection-screen output.
  data: itext type table of tline-tdline,
        xtext like line of itext.
  data: docking_left type ref to cl_gui_docking_container,
        alv_bottom    type ref to cl_gui_alv_grid,
        splitter type ref to cl_gui_splitter_container,
        dock_sub_cont1 type ref to cl_gui_container,
        dock_sub_cont2 type ref to cl_gui_container,
        text_editor_top     type ref to cl_gui_textedit,
        repid type syrepid.
  repid = sy-repid.
  select * into corresponding fields of table it001w
              from t001w.
  if docking_left is initial.
* Create the docking and splitter containers
    create object:
         docking_left
                exporting repid     = repid
                          dynnr     = sy-dynnr
                          side      = docking_left->dock_at_left
                          extension = 1000,
         splitter
                  exporting parent = docking_left
                            rows    = 2
                            columns = 1.
    call method:
                splitter->set_border
                  exporting border = space,
                splitter->get_container
                  exporting row            = 1
                            column         = 1
                            receiving container = dock_sub_cont1,
                splitter->set_row_height
                  exporting id             = 1
                            height         = '30',
                splitter->get_container
                  exporting row            = 2
                            column         = 1
                            receiving container = dock_sub_cont2.
    create object text_editor_top
                exporting
                     parent     = dock_sub_cont1.
    xtext = 'This is a test for aRs'.
    append xtext to itext.
    xtext = 'Good Luck!!'.
    append xtext to itext.
    call method text_editor_top->Set_text_as_r3table
        eXporting
              table              = itext
        exceptions
              others             = 1.
    create object alv_bottom
                  exporting i_parent = dock_sub_cont2.
    call method alv_bottom->set_table_for_first_display
       exporting
            i_structure_name       = 'T001W'
       changing
            it_outtab       = it001w[].
  endif.
Regards,
Rich HEilman