Hiding a particular row in ALV

Hi can anyone please tell me how to hide a particular row in ALV grid display depending upon certain value

Actually iam displaying values of an consignment idoc in the ALV grid but i don't want to display a particular segment of that idoc in ALV.Like i have an idoc with E1MBXYH segment and E1MBXYI segment sometimes this E1MBXYI segment will have ZSADATI segment.In this case i want to hide zsadati segment in ALV but
i need some values in ZSADATI segment so i just want to hide it.Can you please help me

Similar Messages

Deactivate the double click/ hot spot for a particular row in alv grid.

Hello,
   As per a certain condition how to deactivate the double click/ hot spot for a particular row in alv grid.
Regards,
Saroj

where u define layout there is a field hotspot.like
data: var.
if con is true
var = 'X'. (show hotspot)
else.
var = ' '. (deactive hotspot)
elseif ws_fieldcat-fieldname = 'DMBTR'
                AND ws_fieldcat-tabname = 'T_MTAB'.
      ws_fieldcat-do_sum = C_X.
      <b>ws_fieldcat-hotsopts = var.</b>
      MODIFY Wt_fieldcat FROM ws_fieldcat
              TRANSPORTING   DO_SUM.
It is helpful for u. if any problen send me ur coding i will change it.
Regards
Manish Kumar

How to delete a particular row in ALV table

Hi,
How to delete a particular row in ALV table based on some condition(by checking value for one of the columns in a row)
Thanks
Bala Duvvuri

Hello Bala,
Can you please be a bit more clear as to how you intend to delete the rows from your ALV? By the way deleting rows from an ALV is no different from deleting rows from a normal table. Suppose you have enabled selection property in ALV & then select multiple rows and click up on a button to delete the rows then below would be the coding: (Also keep in mind that you would have to maintain the Selection property of the context node that you are binding to your ALV to 0..n)
data : lr_table_settings TYPE REF TO if_salv_wd_table_settings,
             lr_config          TYPE REF TO cl_salv_wd_config_table.
lr_table_settings ?= lr_config.
** Setting the ALV selection to multiple selection with no lead selection
lr_table_settings->set_selection_mode( value = cl_wd_table=>e_selection_mode-multi_no_lead ).
Next delete the selected rows in the action triggered by the button:
METHOD onactiondelete_rows .
DATA: wd_node TYPE REF TO if_wd_context_node,
         lt_node1 TYPE ig_componentcontroller=>elements_node,
         wa_temp TYPE REF TO if_wd_context_element,
         lt_temp TYPE wdr_context_element_set,
         row_number TYPE i VALUE 0.
wd_node = wd_context->get_child_node( name = 'NODE' ).
CALL METHOD wd_node->get_selected_elements
    RECEIVING
      set = lt_temp.
LOOP AT lt_temp INTO wa_temp.
    wd_node->remove_element( EXPORTING element = wa_temp ).
ENDLOOP.
CALL METHOD wd_node->get_static_attributes_table
    EXPORTING
      from = 1
      to    = 2147483647
    IMPORTING
      table = lt_node1.
wd_node->bind_table( new_items = lt_node1 ).
ENDMETHOD.
If in case this isn't your requirement please do let me know so that I can try come up with another analysis.
Regards,
Uday

Changing font size(bold) or color of a particular row in ALV Grid Digplay

Hi Experts ,
I am having a requirment to highlight some particular rows in ALV Grid Display . To achieve this i need to change font size or make it bold or change color of that row .
Please give me some inputs .
Thanks in Advance.
Vijyeta

Hi
Coloring An Entire Row
Coloring a row is a bit (really a bit) more complicated. , you should add an additional field to your list data table. It should be of character type and length at least 4. This field will contain the color code for the row.
First you have to declaration of our list data table u201Cgt_listu201D.
DATA BEGIN OF gt_list OCCURS 0 .
INCLUDE STRUCTURE SFLIGHT .
DATA rowcolor(4) TYPE c .
DATA END OF gt_list .
Adding the field that will contain row color data
As you guess, you should fill the color code to this field. But how will ALV Grid know that you have loaded the color data for the row to this field. So, you make it know this by passing the name of the field containing color codes to the field u201CINFO_FNAMEu201D of the layout structure.
e.g.
ps_layout-info_fname = <field_name_containing_color_codes>. u201Ce.g. u2018ROWCOLORu2019
You can fill that field anytime during execution. But, of course, due to the flow logic of screens, it will be reflected to your list display as soon as an ALV refresh occurs.
Try this link also:
Possible functionalities in ALV
Regards
Neha

Grey out a particular row in ALV based on some condition.

Hi All,
How can we grey out the particular row in ALV based on some condition( I am using the function modules and not OOPS).
Regards
Ramesh.

Hello Ramesh
In this case you need to add a specific field to your structure:
TYPES: BEGIN OF ty_s_outtab.
INLCUDE TYPE <my table or structure>.
TYPES: CELLTAB TYPE lvc_t_styl. " name is arbitrary but this one is most frequently used
TYPES: END OF ty_s_outtab.
DATA: gt_outtab TYPE STANDARD TABLE OF ty_s_outtab
WITH DEFAULT KEY.
You can use the fieldcatalog to make an entire column non-editable (LVC_S_FCAT-EDIT = ' ' ).
However, in case of rows you need to inactivate all cells of this row. For sample coding please refer to thread:
How to conditionally set ALV field as hotspot
Regards
Uwe

How to EDIT a particular Row in ALV using normal function module Reuse_alv_grid_display

Hi experts..
i got one requirement like i need to edit some rows particularly in alv....
Edit in alv output....is it possible to get that .....using normal function module with out using oops concept...
could any one pls help me...

Hi Pendurti ,
If you want a particular field to be editable , simply define the fieldcatalog as
wa_fieldcatalog-edit          = 'X'.
wa_fieldcatalog-input         = 'X'.
for that field.
and
Now when you use FM ' Reuse alv grid display '
define USER_COMMAND
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = v_repid
      i_callback_pf_status_set = 'SET_PF_STATUS'
      i_callback_user_command = 'USER_COMMAND'
      it_fieldcat              = int_fieldcatalog
      is_layout                = wa_layout
    TABLES
      t_outtab                 = t_disp.
and now in form USER_COMMAND ; code as per following
FORM user_command USING r_ucomm LIKE sy-ucomm
                            rs_selfield TYPE slis_selfield.
     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.
endform.
Regards,
Yogendra Bhaskar

How to delete particular row in ALV list display

Hi All,
My requirement is :
I am displaying ouput using lav list dispplay befor the first colomn i am displaying check box. i defined my own pf status here . in pf status i have 3 buttons .
1 select all
2 deselect all
3 delete.
First two options are working fine when i click select all it is selecting all the rown in a program(selectiong all the check boxex) like working fine for deselecting all.
3 optioin Delete when i click delete option it has to delete partcular row in a list display and at the same time this entry should delete from the table. this is my requirement. for the third point(delete) option i dont have any logic. anybody can suggest me or send me the sameple code. i am sending my code below.if possible please modify the code and resend it to me.
type-pools : slis.
tables : zuser_secobjects.
data : t_header1 like zuser_secobjects.
data : begin of it_secobjects occurs 0.
        include structure t_header1.
*data : box,
       input(1) type c,
data :   checkbox type c,
        flag type c,
      end of it_secobjects.
data : wa_ita like line of it_secobjects.
*data : it_secobjects like zuser_secobjects occurs 0 with header line.
data : i_field type slis_t_fieldcat_alv with header line.
data : w_field like line of i_field.
data : i_sort type slis_t_sortinfo_alv.
data : w_sort like line of i_sort.
data : it_filt1 type slis_t_filter_alv with header line.
data:
i_tabname type tabname,
i_repid like sy-repid,
is_lout type slis_layout_alv.
data :   it_filt type slis_t_filter_alv   with header line,
         it_evts type slis_t_event        with header line.
DATA : is_vari type disvariant.
constants :   c_default_vari value 'X',
              c_save_vari    value 'U',
               c_checkfield type slis_fieldname     value 'ACTION',
               c_f2code     type sy-ucomm           value '&ETA'.
data : chk_box type slis_fieldname.
selection-screen: begin of block b1 with frame title text-t01.
parameters : p_appln type zuser_secobjects-appln.
parameters : p_user type usr02-bname, "zuser_secobjects-appln_user,
p_partnr type zuser_secobjects-appln_partner,
p_ptype type zuser_secobjects-partner_type default '02',
p_upostn type zuser_secobjects-user_position,
p_sdate like likp-erdat default sy-datum,
p_edate(10) default '12/31/9999',
p_revnum type zuser_secobjects-revnum,
p_cted type zuser_secobjects-created_by,
p_cdate type zuser_secobjects-creation_date,
p_ctime type zuser_secobjects-creation_time,
p_chnby type zuser_secobjects-changed_by,
p_cdate1 type zuser_secobjects-changed_date,
p_ctime1 type zuser_secobjects-changed_time.
selection-screen: end of block b1.
form user_command using p_ucomm like sy-ucomm
rs_selfield type slis_selfield.
*DATA :   it_filt type slis_t_filter_alv   with header line.
case p_ucomm.
    when 'SELECT_ALL'. " SELALL is the FCODE of ur push button
      loop at it_secobjects into wa_ita.
        wa_ita-checkbox = 'X'.
        modify it_secobjects from wa_ita.
      endloop.
rs_selfield-refresh = 'X'.   "<- ADD THIS
when 'DESLCT_ALL'.
    loop at it_secobjects into wa_ita.
        wa_ita-checkbox = ' '.
        modify it_secobjects from wa_ita.
      endloop.
rs_selfield-refresh = 'X'.   "<- ADD THIS
    is_lout-f2code               = c_f2code.
    is_lout-box_fieldname        = c_checkfield.
    is_lout-get_selinfos         = 'X'.
    is_lout-detail_popup         = 'X'.
    is_lout-detail_initial_lines = 'X'.
when 'HIDE_DEL'.
      rs_selfield-exit = 'X'.
      it_filt-fieldname = 'ACTION'.
      it_filt-tabname   = '1'.
      it_filt-valuf     = 'X'.
      it_filt-intlen    = '1'.
      it_filt-inttype   = 'C'.
      it_filt-datatype = 'CHAR'.
      it_filt-valuf_int = 'X'.
      it_filt-sign0     = 'E'.
      it_filt-optio     = 'EQ'.
      if it_filt[] is initial.
        append it_filt.
      else.
        modify it_filt index 1.
      endif.
     perform display using i_object.
PERForm ALV_LIST_DISPLAY.
WHEN 'SHOW_DEL'.
      rs_selfield-exit = 'X'.
      free it_filt.
PERForm ALV_LIST_DISPLAY.
when 'SAVE1'.
       select * from zuser_secobjects where
                    appln = zuser_secobjects-appln
              and   appln_partner = zuser_secobjects-appln_partner
              and   partner_type = zuser_secobjects-partner_type
              and   start_date = zuser_secobjects-start_date
              and   end_date = zuser_secobjects-end_date.
      endselect.
      if sy-subrc eq 0.
        message e000(ZV) with 'Duplicate Entry'.
      endif.
endcase.
endform.
*&      Form delete
form delete.
data : begin of is_secobjects occurs 0.
          include structure zuser_secobjects.
data : checkbox type c.
data : end of is_secobjects.
is_secobjects-checkbox = 'X'.
modify is_secobjects
    from it_secobjects
    transporting checkbox
where checkbox = 'X'.
endform.
*&      Form get_data
form get_data.
select * from zuser_secobjects
into table it_secobjects.
endform.                    " get_data
*&      Form prepare_fieldcatalog
      text
--> p1        text
<-- p2        text
form prepare_fieldcatalog.
clear: w_field,i_field.
refresh:i_field.
i_field-key = 'X'.
i_field-col_pos = 1.
i_field-ddictxt = 'S'.
i_field-seltext_s = '@11@'.
i_field-checkbox = 'X'.
i_field-input = 'X'.
i_field-fieldname = 'HEADER'.
i_field-outputlen = 0.
append i_field.
clear i_field.
w_field-fieldname = 'APPLN'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-seltext_l = text-m01.
w_field-outputlen = '10'.
w_field-col_pos = 1.
append w_field to i_field.
clear w_field.
w_field-fieldname = 'APPLN_USER'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-just = 'C'.
w_field-seltext_l = text-m02.
w_field-outputlen = '7'.
w_field-col_pos = 2.
append w_field to i_field.
clear w_field.
endform.                    " prepare_fieldcatalog
*&      Form ALV_LIST_DISPLAY
      text
--> p1        text
<-- p2        text
form alv_list_display.
i_repid = sy-repid.
is_lout-box_fieldname = 'CHECKBOX'.
it_filt-fieldname = 'ACTION'.
call function 'REUSE_ALV_LIST_DISPLAY'
       exporting
            i_callback_program       = i_repid
            i_callback_pf_status_set = 'PF_STATUS_SET'
            i_callback_user_command = 'USER_COMMAND'
            is_layout                = is_lout
            it_fieldcat              = i_field[]
            it_filter                = it_filt[]
             it_events                = it_evts[]
            i_default                = c_default_vari
            i_save                   = c_save_vari
            is_variant               = is_vari
       tables
            t_outtab                 = it_secobjects.
endform.                    " ALV_LIST_DISPLAY
*&      Form display
      text
     -->P_I_OBJECT text
form display using    object.
case object.
ENDCASE.
endform.                    " display
thanks,
maheedhar.t

HI
In my program checkbox(before the record is displayed)
I used following lines to display checkbox .
i_field-key = 'X'.
i_field-col_pos = 1.
i_field-ddictxt = 'S'.
i_field-seltext_s = '@11@'.
i_field-checkbox = 'X'. <- Using this command i am getting checkbox
i_field-input = 'X'.
when i select this checkbox i press delete option then this entry will remove from internal table and refresh the screen and at the same time i will click on save button this ztable has to update according to that action.
this is my requirement.
thanks,
maheedhar.

How to set selected row in alv display?

Hi,
How do I select some particular row in alv - say at first display i want to highlight 4th row. How can i do that?
Thanks,
Sheel

try to use method set_selected_rows just after method for first display.

Hiding zero in ALV(Particular Row/Column alone)

I use ALV Grid for displaying the output in the tabular form. It has one key field and 4 numeric fields. Always it will have only 7 rows. Now I should not display 0 if the row 4 does not have any values(Since it is a numeric field, by default zero will come). Rest of the rows should contain zero value if there is no value.
If I should not display zero for all the rows, then I can simply pass no_zero = u2018Xu2019 in the field catalog. But this should happen only for the particular row (4th row alone). Please advise me.

Hi Selva,
I am posting a example code, in this some paticular cells of ALV Grid are in editable mode. just analyse this example this may help you..
FORM build_fieldcatalog.
wa_fieldcat-fieldname   = 'EBELN'.
wa_fieldcat-scrtext_m   = 'Purchase Order'.
wa_fieldcat-col_pos     = 0.
wa_fieldcat-outputlen   = 10.
wa_fieldcat-emphasize   = 'X'.
wa_fieldcat-key         = 'X'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname   = 'EBELP'.
wa_fieldcat-scrtext_m   = 'PO Item'.
wa_fieldcat-col_pos     = 1.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname   = 'MEINS'.
wa_fieldcat-scrtext_m   = 'Order Unit'.
wa_fieldcat-col_pos     = 6.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname   = 'NETPR'.
wa_fieldcat-scrtext_m   = 'Net Price'.
wa_fieldcat-edit        = 'X'. "sets whole column to be editable
wa_fieldcat-col_pos     = 7.
wa_fieldcat-outputlen   = 15.
wa_fieldcat-datatype     = 'CURR'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname   = 'PEINH'.
wa_fieldcat-scrtext_m   = 'Price Unit'.
wa_fieldcat-col_pos     = 8.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
ENDFORM.                    " BUILD_FIELDCATALOG
FORM build_layout.
* Set layout field for field attributes(i.e. input/output)
gd_layout-stylefname = 'FIELD_STYLE'.
gd_layout-zebra             = 'X'.
ENDFORM.                    " BUILD_LAYOUT
FORM display_alv_report.
gd_repid = sy-repid.
* call function 'REUSE_ALV_GRID_DISPLAY'
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
       EXPORTING
            i_callback_program      = gd_repid
            i_callback_user_command = USER_COMMAND
            is_layout_lvc               = gd_layout
            it_fieldcat_lvc             = it_fieldcat
            i_save                  = 'X'
       TABLES
            t_outtab                = it_ekko
       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_ALV_REPORT
FORM data_retrieval.
SELECT ebeln ebelp statu aedat matnr menge meins netpr peinh
   UP TO 10 ROWS
    FROM ekpo
    INTO CORRESPONDING FIELDS OF TABLE it_ekko.
ENDFORM.                    " DATA_RETRIEVAL
form set_specific_field_attributes .
DATA ls_stylerow TYPE lvc_s_styl .
DATA lt_styletab TYPE lvc_t_styl .
" Populate style variable (FIELD_STYLE) with style properties
" The NETPR field/column has been set to editable in the fieldcatalog...
" The following code sets it to be disabled(display only) if 'NETPR'
" is gt than 10.
LOOP AT it_ekko INTO wa_ekko.
    IF wa_ekko-netpr GT 10.
      ls_stylerow-fieldname = 'NETPR' .
      ls_stylerow-style = cl_gui_alv_grid=>mc_style_disabled.
                                             "set field to disabled
      APPEND ls_stylerow TO wa_ekko-field_style.
      MODIFY it_ekko FROM wa_ekko.
    ENDIF.
ENDLOOP.
endform.                    " set_specific_field_attributes
FORM USER_COMMAND.
CASE SY-UCOMM.
   WHEN 'ENTER'.
   ENDCASE.
ENDFORM.
Regards,
Murthy

How to make a particular row and column field editable in ALV

Hi Experts,
I have a requirement to make a particular row and column field editable in ALV output. Like i need to make 2nd row - 4th column editable of ALV output.
Kindly help me out to solve this.
Any help would be appreciated.
Thanks,
Ashutosh

Hi Ashutosh,
please check below, explained by some experts.
In the below link editing two columns MOD_RANK and TECH_RANK.
These two columns will be in edit mode once after selecting the required record
Editing single cell in a row of ALV table
And also look for more info
http://scn.sap.com/thread/884976

Making a particular row input enabled in ALV grid

I am using set_table_for_first_display Method of class cl_gui_alv_grid in order to display the ALV table control.i want one whole column(flag) to be input enabled all the time.so i have defined in FCAT for that column EDIT as X.Now i have defined a custom toolbar button SAVE using handle_toolbar. My requirement is when the user inputs M in the flag column of a particular row and press SAVE button that row should be made input enabled. i have used method set_ready_for_input in the handle_user_command FOR go_grid, but it is not working.Please help.Thanks in advance.

done..

How can we make edit and non edit of rows on particular conditions in alv

hi experts,
i am very new to web dynpro for abap.i have one query regarding alv.
in one view i have alv table with two line items,and line each line item having foue editable fields and remaining are non editable.
now i am navigating to another view and make some action.here i have generated one value and updated this value to one field ofselected line items of alv table in the previous view.now i am coming back to previous view .now i want to display the row of alv table which contain value which is generated in second view as completely non editable and remaining rows are as it is .
hi guys please look into this and suggests me.

Hi babu,
You can do this in one view it self.
create a one attribute of type wdy_boolean.. in view context.
Bind these attribute to read only property of table.. and initially set the value to abap_true in wddoinit method.
Then create one button say "EDIT" in view and create action for edit button.. in that action set the above attribute value to
abap_false.
so now, initially table will be in display mode, when you click on edit mode...it will become editable mode...
Hope you got some idea.
Regards
Srinvias

How to Hide rows in ALV without affecting total sum at the end of table?

Hi,
I need some help in hiding particular rows in an ALV Grid without affecting the total sum at the end of the table. I am trying to hide the rows that have negative quantities, but I still need those values so that the user can still compute for the total sums. Can anyone help? Thanks.
Joseph

Hi,
Hopw this way you can hide the rows in the GRID.
DATA:
ld_column      TYPE lvc_fname,
ld_hide          TYPE abap_bool.
FIELD-SYMBOLS:
<ls_entry>     TYPE any,
<ld_fld>         TYPE any.
ld_column = 'COL_1'. " column which you want to suppress if everything is zero
ld_hide     = abap_true. " = 'X'; default hide column
LOOP at <gt_outtab> ASSIGNING <ls_entry>.
    ASSIGN COMPONENT (ld_column) OF STRUCTURE <ls_entry> TO <ld_fld>.
    IF ( <ld_fld>   > 0 ).
      ld_hide = abap_false. " display column because at least single value > 0
      EXIT. " leave LOOP
    ENDIF.
ENDLOOP.
READ TABLE gt_fcat INTO ls_fcat
                       WITH KEY fieldname = ld_column.
IF ( syst-subrc = 0 ).
    ls_fcat-no_out = ld_hide.
    MODIFY gt_fcat FROM ls_fcat INDEX syst-tabix.
ENDIF.
hop you will get the total with for those columns too.
Regards,
Madhavi

How to provide hyperlink for a particular field in ALV

Hi,
How to provide hyperlink for a particular field in alv report.
Regards,
Ramu.

Yes you can do that. using the fieldcatalog there is an option for that. give HOT_SPOT = 'X'. for the column you want.
wa_field-hotspot = 'X'.
REPORT ztest_alv.
TYPE-POOLS:slis.
DATA:it_fieldcat TYPE slis_t_fieldcat_alv,
     wa_field LIKE LINE OF it_fieldcat.
DATA: BEGIN OF it_likp OCCURS 0,
       vbeln TYPE likp-vbeln,
      END OF it_likp.
DATA: layout TYPE slis_layout_alv.
wa_field-fieldname = 'VBELN'.
wa_field-tabname = 'IT_LIKP'.
wa_field-hotspot = 'X'.
wa_field-outputlen = 10.
wa_field-no_zero = 'X'.
wa_field-seltext_l = 'Sales'.
APPEND wa_field TO it_fieldcat.
SELECT vbeln FROM likp
UP TO 10 ROWS
INTO TABLE it_likp.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
    i_callback_program      = sy-repid
    is_layout               = layout
    i_callback_user_command = 'USER_COMMAND'
    it_fieldcat             = it_fieldcat
TABLES
    t_outtab                = it_likp
EXCEPTIONS
    program_error           = 1.
*&      Form user_Command
*       text
*      -->UCOMM      text
*      -->SELFIELD   text
FORM user_command USING ucomm TYPE sy-ucomm
                    selfield TYPE slis_selfield.
CASE ucomm.
    WHEN '&IC1'.
      SET PARAMETER ID 'VL' FIELD selfield-value.
      CALL TRANSACTION 'VL02N' AND SKIP FIRST SCREEN.
ENDCASE.
ENDFORM.                    "user_Command

Color a row in ALV report

Hi Freinds,
I want to color a particular row based on the condition in ALV report can any one tell me how to do it.
Thanx and advance,
Line

Hi,
REPORT zrnp_alv_so MESSAGE-ID z7new .
TABLE DECLARATION
TABLES: vbak ,             "Sales Document: Header Data
        vbap ,             "Sales Document: Item Data
        makt ,             "Material Descriptions
        lips .             "SD document: Delivery: Item data
DECLARATION OF TYPE-POOL
*THIS TYPE-POOL CONTAINS THE EVENTS,
TYPE-POOLS : slis.
DECLARATION OF EVENTS
DATA: i_event TYPE slis_t_event.
DATA: t_event TYPE slis_alv_event.
DECLARATION OF LIST HEADER
DATA: i_listheader TYPE slis_t_listheader.
DECLARATION OF FIELD CATALOG FOR SCREEN 1
DATA: i_fldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.
DECLARATION OF FIELD CATALOG FOR SCREEN 2
DATA: i_fldcat2 TYPE slis_t_fieldcat_alv WITH HEADER LINE.
DECLARATION OF FIELD LAYOUT
DATA: i_layout TYPE slis_layout_alv.
SORTING OF OUTPUT
DATA: i_sort TYPE slis_t_sortinfo_alv.
*DATA DECLARATION
DATA: v_auart TYPE tvak-auart,
      v_vkorg TYPE tvko-vkorg,
      v_kunnr TYPE kna1-kunnr,
      v_matnr TYPE mara-matnr ,
      v_spart TYPE tvta-spart .
TYPES: BEGIN OF it_so ,
       vbeln TYPE vbeln_va ,          "SALES ORDER NO.
       auart TYPE auart ,             "SALES DOC. TYPE
       vkorg TYPE vkorg ,             "SALES ORG.
       spart TYPE spart ,             "DIVISION
       kunnr TYPE kunag ,             "SOLD TO PARTY
       posnr TYPE posnr_va ,          "SALES DOC. ITEM
       matnr TYPE matnr ,             "MATERIAL NO
       maktx TYPE maktx ,             "DESCRIPTION
       kwmeng TYPE kwmeng ,           "QUANTITY
       vrkme TYPE vrkme ,             "SALES UNIT
       line_color(4) TYPE c ,
       END OF it_so .
TYPES: BEGIN OF it_del ,
       vbeln TYPE vbeln_vl ,         "SALES ORDER NO.
       posnr TYPE posnr_vl ,         "SALES DOC. ITEM
       matnr TYPE matnr ,            "MATERIAL NO
       werks TYPE werks_d ,          "PLANT
       lgort TYPE lgort_d ,          "STORAGE LOCATION
       charg TYPE charg_d ,          "BATCH NO.
       lfimg TYPE lfimg ,            "ACTUAL DELIVERY QTY.
       vrkme TYPE vrkme ,            "SALES UNIT
       END OF it_del .
TYPES: BEGIN OF type_vbfa ,
      vbelv TYPE vbeln_von , "Preceding sales and distribution document
      posnv TYPE posnr_von , "Preceding item of an SD document
      vbeln TYPE vbeln_nach, "Subsequent sales and distribution document
      posnn TYPE posnr_nach, "Document category of subsequent document
      vbtyp_n TYPE vbtyp_n ,
      END OF type_vbfa .
DATA: it_so1 TYPE STANDARD TABLE OF it_so ,
      it_del1 TYPE STANDARD TABLE OF it_del ,
      it_vbfa TYPE STANDARD TABLE OF type_vbfa,
      it_del_ful TYPE STANDARD TABLE OF it_del.
DATA: wa_so TYPE it_so ,
      wa_del TYPE it_del ,
      wa_vbfa TYPE type_vbfa,
      wa_it_del_ful TYPE it_del.
DATA: i_title_vbfa TYPE lvc_title VALUE 'SALES ORDER LIST DISPLAYED'.
DATA: i_title_vbpa TYPE lvc_title VALUE
'DELIVERY DETAILS DISPLAYED AGAINST GIVEN SALES ORDER'.
*SELECTION SCREEN                                                      *
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-004 .
SELECT-OPTIONS: s_vbeln FOR vbak-vbeln ,
                s_auart FOR v_auart ,
                s_vkorg FOR v_vkorg ,
                s_spart FOR v_spart ,
                s_kunnr FOR v_kunnr ,
                s_matnr FOR v_matnr .
SELECTION-SCREEN END OF BLOCK blk1 .
*AT SELECTION SCREEN                                                   *
AT SELECTION-SCREEN.
SELECT SINGLE vbeln
                 FROM vbak INTO vbak-vbeln
                 WHERE vbeln IN s_vbeln.
IF sy-subrc <> 0.
    MESSAGE e202.
ENDIF.
*START OF SELECTION                                                    *
START-OF-SELECTION .
PERFORM data_select.
PERFORM t_sort USING i_sort .
PERFORM event_cat USING i_event .
PERFORM fld_cat USING i_fldcat[] .
PERFORM t_layout USING i_layout .
PERFORM fld_cat2 USING i_fldcat2[] .
PERFORM call_alv.
DATA SELECT                                                          *
*&      Form DATA_SELECT
      text
--> p1        text
<-- p2        text
FORM data_select .
REFRESH: it_vbfa, it_so1, it_del_ful ,it_del1 .
BREAK-POINT.
SELECT
        a~vbeln
        a~auart
        a~vkorg
        a~spart
        a~kunnr
        b~posnr
        b~matnr
        c~maktx
        b~kwmeng
        b~vrkme
        INTO TABLE it_so1 FROM vbak AS a
              JOIN vbap AS b ON bvbeln = avbeln
              JOIN makt AS c ON cmatnr = bmatnr
              AND c~spras = sy-langu
              WHERE a~vbeln IN s_vbeln .
COLURING DISPLAY                                                     *
DATA: ld_color(1) TYPE c .
LOOP AT it_so1 INTO wa_so.
Populate color variable with colour properties
Char 1 = C (This is a color property)
Char 2 = 3 (Color codes: 1 - 7)
Char 3 = Intensified on/off ( 1 or 0 )
Char 4 = Inverse display on/off ( 1 or 0 )
          i.e. wa_ekko-line_color = 'C410'
    ld_color = ld_color + 1.
Only 7 colours so need to reset color value
    IF ld_color = 8.
      ld_color = 1.
    ENDIF.
    CONCATENATE 'C' ld_color '10' INTO wa_so-line_color.
wa_ekko-line_color = 'C410'.
    MODIFY it_so1 FROM wa_so.
ENDLOOP .
IF sy-subrc = 0.
    SELECT vbelv
           posnv
           vbeln
           posnn
           vbtyp_n
           INTO TABLE it_vbfa
           FROM vbfa
           FOR ALL ENTRIES IN it_so1
           WHERE vbelv = it_so1-vbeln
           AND   posnn = it_so1-posnr
           AND vbtyp_n ='J' .
    IF sy-subrc = 0.
      SELECT vbeln
             posnr
             matnr
             werks
             lgort
             charg
             lfimg
             vrkme
             FROM lips INTO TABLE it_del_ful
             FOR ALL ENTRIES IN it_vbfa
             WHERE vbeln = it_vbfa-vbeln
             AND   posnr = it_vbfa-posnn.
    ENDIF.
ENDIF.
ENDFORM.                    " DATA_SELECT
EVENT CATALOG ****************************************
*&      Form EVENT_CAT
      text
     -->P_I_EVENT text
FORM event_cat USING    p_i_event TYPE slis_t_event .
REFRESH p_i_event .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE           = 0
   IMPORTING
      et_events             = p_i_event
EXCEPTIONS
LIST_TYPE_WRONG       = 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.
READ TABLE p_i_event WITH KEY name = slis_ev_top_of_page INTO t_event.
IF sy-subrc = 0.
    MOVE 'TOP_OF_PAGE' TO t_event-form.
    MODIFY p_i_event FROM t_event INDEX sy-tabix TRANSPORTING form.
ENDIF.
CLEAR t_event .
ENDFORM.                    " EVENT_CAT
*********FORM FOR EVENT TOP_OF_PAGE*********************************
FORM top_of_page .
REFRESH i_listheader.
DATA: t_header TYPE slis_listheader.
DATA: v_text(50).
WRITE sy-datum TO v_text.
CLEAR t_header.
t_header-typ = 'S'.
t_header-key = 'Date'.
t_header-info = v_text.
APPEND t_header TO i_listheader.
CLEAR t_header.
CLEAR v_text.
WRITE: 'SALES ORDER REPORT ' TO v_text .
t_header-typ = 'S'.
t_header-key = 'TITLE'.
t_header-info = v_text.
APPEND t_header TO i_listheader.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = i_listheader.
     I_LOGO             = 'ALV_BACKGROUND'.
I_END_OF_LIST_GRID       =
ENDFORM.                    "TOP_OF_PAGE
FIRST ALV GRID DISPLAY ***************************************
*&      Form CALL_ALV
      text
--> p1        text
<-- p2        text
FORM call_alv .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     i_callback_program                = sy-repid
   I_CALLBACK_PF_STATUS_SET          = 'SET_PF_STATUS'
     i_callback_user_command           = 'USER_COMMAND1'
     i_callback_top_of_page            = 'TOP_OF_PAGE'
     I_BACKGROUND_ID                   = 'ALV_BACKGROUND'
     i_grid_title                      = i_title_vbfa
     is_layout                         = i_layout
     it_fieldcat                       = i_fldcat[]
     it_sort                           = i_sort
     it_events                         = i_event
    TABLES
     t_outtab                          = it_so1
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.                    " CALL_ALV
FIRST FIELDCATALOG *************************************
*&      Form FLD_CAT
      text
     -->P_I_FLDCAT[] text
FORM fld_cat USING    p_i_fldcat TYPE slis_t_fieldcat_alv.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'VBELN'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'."TABLE NAME
i_fldcat-seltext_m   = 'SALES ORDER NO.'.
i_fldcat-col_pos     = 1.        " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'AUART'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'."TABLE NAME
i_fldcat-seltext_m   = 'SALES DOC. TYPE'.
i_fldcat-col_pos     = 2.        " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 15.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'VKORG'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'.
i_fldcat-seltext_m   = 'SALES ORG.'.
i_fldcat-col_pos     = 3.        " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 12.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'SPART'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'.
i_fldcat-seltext_m   = 'DIVISION'.
i_fldcat-col_pos     = 4.        " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 10.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'KUNNR'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'.
i_fldcat-seltext_m   = 'SOLD TO PARTY'.
i_fldcat-col_pos     = 5.        " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 15.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'POSNR'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'.
i_fldcat-seltext_m   = 'SALES DOC. ITEM'.
i_fldcat-col_pos     = 6.        " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 17.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'MATNR'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'.
i_fldcat-seltext_m   = 'MATERIAL NO.'.
i_fldcat-col_pos     = 7.        " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'MAKTX'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'.
i_fldcat-seltext_m   = 'DESCRIPTION'.
i_fldcat-col_pos     = 8.        " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'KWMENG'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'.
i_fldcat-seltext_m   = 'QUANTITY'.
i_fldcat-col_pos     = 9.        " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 15.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-do_sum    = 'X'.        " For doing "SUM"
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'VRKME'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'.
i_fldcat-seltext_m   = 'SALES UNIT'.
i_fldcat-col_pos     = 10.       " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 10.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
ENDFORM.                    " FLD_CAT
ALV SORTING ***************************************
*&      Form SORT
      text
     -->P_I_SORT text
FORM t_sort USING    p_i_sort TYPE slis_t_sortinfo_alv .
DATA: i_sort TYPE slis_sortinfo_alv .
REFRESH p_i_sort .
CLEAR i_sort.
i_sort-spos = 1.
i_sort-tabname = 'IT_SO1'.
i_sort-fieldname = 'VBELN'.
i_sort-up = 'X'.
i_sort-subtot = 'X'.
i_sort-group = '*'.
APPEND i_sort TO p_i_sort.
ENDFORM.                    " SORT
*FORM SET_PF_STATUS USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'ZSTANDARD'.
*ENDFORM. "Set_pf_status
**********FORM FOR EVENT USER_COMMAND1*******************************
FORM user_command1 USING r_ucomm LIKE sy-ucomm
                         rs_selfield TYPE slis_selfield.
*CASE R_UCOMM .
   WHEN '&IC1' .
   IF rs_selfield-FIELDNAME = 'VBELN' .
   ENDIF .
WHEN OTHERS .
ENDCASE .
CLEAR wa_so.
REFRESH: it_del1 .
IF r_ucomm = '&IC1' AND rs_selfield-fieldname = 'VBELN' AND
rs_selfield-value IS NOT INITIAL.
    READ TABLE it_so1 INTO wa_so INDEX rs_selfield-tabindex.
    IF sy-subrc = 0.
      LOOP AT it_vbfa INTO wa_vbfa WHERE vbelv = wa_so-vbeln
                                   AND   posnv = wa_so-posnr.
        READ TABLE it_del_ful INTO wa_it_del_ful
             WITH KEY vbeln = wa_vbfa-vbelv
                      posnr = wa_vbfa-posnn.
        IF sy-subrc = 0.
          CLEAR wa_del.
          MOVE wa_it_del_ful TO wa_del.
          APPEND wa_del TO it_del1.
        ENDIF.
      ENDLOOP.
    ENDIF.
ENDIF.
SECOND ALV GRID DISPLAY ***********************************
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
    i_callback_program                = sy-repid
I_CALLBACK_PF_STATUS_SET          = 'SET_PF_STATUS'
    i_callback_user_command           = 'USER_COMMAND2'
    i_callback_top_of_page            = 'TOP_OF_PAGE'
    I_BACKGROUND_ID                   = 'ALV_BACKGROUND'
     i_grid_title                      = i_title_vbpa
    it_fieldcat                       = i_fldcat2[]
    it_sort                           = i_sort
    TABLES
    t_outtab                          = it_del_ful
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 .                    "USER_COMMAND1
FORM FOR EVENT USER_COMMAND 2 ******************************
FORM user_command2 USING r_ucomm LIKE sy-ucomm
                         rs_selfield TYPE slis_selfield.
CLEAR wa_so.
REFRESH: it_del1 .
IF r_ucomm = '&IC1' AND rs_selfield-fieldname = 'VBELN' AND
rs_selfield-value IS NOT INITIAL.
    READ TABLE it_so1 INTO wa_so INDEX rs_selfield-tabindex.
   IF SY-SUBRC = 0.
      LOOP AT it_vbfa INTO wa_vbfa WHERE vbelv = WA_SO-vbeln
                                   AND   posnv = WA_SO-posnr.
    READ TABLE it_del_ful INTO wa_it_del_ful
         WITH KEY vbeln = rs_selfield-value
                  posnr = wa_vbfa-posnn.
    IF rs_selfield-fieldname = 'VBELN'.
      SET PARAMETER ID 'VL' FIELD wa_vbfa-vbeln .
      CALL TRANSACTION 'VL03' AND SKIP FIRST SCREEN.
    ENDIF .
      ENDLOOP.
   ENDIF.
ENDIF.
ENDFORM .                    "USER_COMMAND2
SECOND FIELDCATALOG ******************************************
*&      Form FLD_CAT2
      text
     -->P_I_FLDCAT2[] text
FORM fld_cat2 USING    p_i_fldcat2 TYPE slis_t_fieldcat_alv .
CLEAR i_fldcat2.
i_fldcat2-fieldname   = 'VBELN'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat2-tabname     = 'IT_DEL_FUL'."TABLE NAME
i_fldcat2-seltext_m   = 'DELIVERY NO.'.
i_fldcat2-col_pos     = 1.        " POSITION OF THE COLUMN.
i_fldcat2-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat2-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat2-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat2-hotspot     = 'X'.
i_fldcat2-just(1)     = 'C'.
APPEND i_fldcat2.
CLEAR i_fldcat2.
i_fldcat2-fieldname   = 'POSNR'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat2-seltext_m   = 'DELIVERY ITEM'.
i_fldcat2-col_pos     = 2.        " POSITION OF THE COLUMN.
i_fldcat2-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat2-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat2-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat2-just(1)     = 'C'.
APPEND i_fldcat2.
CLEAR i_fldcat2.
i_fldcat2-fieldname   = 'MATNR'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat2-seltext_m   = 'MATERIAL NO.'.
i_fldcat2-col_pos     = 3.        " POSITION OF THE COLUMN.
i_fldcat2-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat2-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat2-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat2-just(1)     = 'C'.
APPEND i_fldcat2.
CLEAR i_fldcat2.
i_fldcat2-fieldname   = 'WERKS'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat2-seltext_m   = 'PLANT.'.
i_fldcat2-col_pos     = 4.        " POSITION OF THE COLUMN.
i_fldcat2-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat2-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat2-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat2-just(1)     = 'C'.
APPEND i_fldcat2.
CLEAR i_fldcat2.
i_fldcat2-fieldname   = 'LGORT'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat2-seltext_m   = 'ST. LOCATION'.
i_fldcat2-col_pos     = 5.        " POSITION OF THE COLUMN.
i_fldcat2-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat2-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat2-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat2-just(1)     = 'C'.
APPEND i_fldcat2.
CLEAR i_fldcat2.
i_fldcat2-fieldname   = 'CHARG'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat2-seltext_m   = 'BATCH NO.'.
i_fldcat2-col_pos     = 6.        " POSITION OF THE COLUMN.
i_fldcat2-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat2-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat2-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat2-just(1)     = 'C'.
APPEND i_fldcat2.
CLEAR i_fldcat2.
i_fldcat2-fieldname   = 'LFIMG'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat2-seltext_m   = 'ACT. DEL. QTY.'.
i_fldcat2-col_pos     = 7.        " POSITION OF THE COLUMN.
i_fldcat2-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat2-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat2-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat2-just(1)     = 'C'.
APPEND i_fldcat2.
CLEAR i_fldcat2.
i_fldcat2-fieldname   = 'VRKME'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat2-seltext_m   = 'SALES UNIT.'.
i_fldcat2-col_pos     = 8.        " POSITION OF THE COLUMN.
i_fldcat2-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat2-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat2-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat2-just(1)     = 'C'.
APPEND i_fldcat2.
ENDFORM.                                                    " FLD_CAT2
ALV LAYOUT *******************************************
*&      Form LAYOUT
      text
     -->P_I_LAYOUT text
FORM t_layout USING    p_i_layout TYPE slis_layout_alv .
p_i_layout-zebra = 'X'.
p_i_layout-totals_text = 'GRAND TOTAL ='.
p_i_layout-CONFIRMATION_PROMPT = 'X'.
p_i_layout-DEF_STATUS = ' '.
p_i_layout-info_fieldname = 'LINE_COLOR'.
ENDFORM.                    " LAYOUT
Note: Reward points if helpful.

Hiding a particular row in ALV

Similar Messages

Maybe you are looking for