Hide the value of certain cells in ALV GRID

Hello Gurus,
i need to hide the value or show a icon instead ib certain cells in the ALV GRID for the users that don't have the corresponding rights. Can anyone help?
Regards,
Ioan Constantin.

Check this example, you'll need to adjust it to your authority object to run it.
TYPES: BEGIN OF t_alv,
         mandt TYPE s_mandt,
         carrid TYPE s_carr_id,
         connid TYPE s_conn_id,
         fldate TYPE s_date,
         price TYPE s_price,
         currency TYPE s_currcode,
         planetype TYPE s_planetye,
         seatsmax TYPE s_seatsmax,
         seatsocc TYPE s_seatsocc,
         paymentsum TYPE s_sum,
         seatsmax_b TYPE s_smax_b,
         seatsocc_b TYPE s_socc_b,
         seatsmax_f TYPE s_smax_f,
         seatsocc_f TYPE s_socc_f,
         planetype2 TYPE s_planetye,
       END OF t_alv.
DATA: go_alv     TYPE REF TO   cl_gui_alv_grid,
      gt_sflight TYPE TABLE OF sflight,
      gt_alv TYPE STANDARD TABLE OF t_alv,
      wa_fl TYPE sflight,
      wa_fl2 TYPE t_alv,
      gt_fieldcat TYPE lvc_t_fcat,
      wa_fcat TYPE lvc_s_fcat.
FIELD-SYMBOLS <gs_fcat> TYPE lvc_s_fcat.
SELECTION-SCREEN BEGIN OF SCREEN 1001.
SELECTION-SCREEN END   OF SCREEN 1001.
START-OF-SELECTION.
SELECT * FROM sflight INTO TABLE gt_sflight.
LOOP AT gt_sflight INTO wa_fl.
    wa_fl2 = wa_fl.
    IF sy-tabix <> 5.
      wa_fl2-planetype2 = wa_fl2-planetype.
    ENDIF.
    APPEND wa_fl2 TO gt_alv.
ENDLOOP.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
   EXPORTING
      i_structure_name             = 'SFLIGHT'
    CHANGING
      ct_fieldcat                  = gt_fieldcat.
LOOP AT gt_fieldcat ASSIGNING <gs_fcat>.
    wa_fcat = <gs_fcat>.
    IF wa_fcat-fieldname = 'PLANETYPE'.
      wa_fcat-fieldname = 'PLANETYPE2'.
      wa_fcat-col_pos = 7.
      AUTHORITY-CHECK OBJECT 'ZPERMISO16'
          ID 'ZPERMI' FIELD '01'.
      IF sy-subrc = 0.
        wa_fcat-tech = 'X'.
        wa_fcat-no_out = 'X'.
      ELSE.
        <gs_fcat>-tech = 'X'.
        <gs_fcat>-no_out = 'X'.
      ENDIF.
      APPEND wa_fcat TO gt_fieldcat.
    ENDIF.
ENDLOOP.
CREATE OBJECT go_alv
    EXPORTING
      i_parent = cl_gui_container=>screen0.
CALL METHOD go_alv->set_table_for_first_display
    CHANGING
      it_outtab                     = gt_alv
      it_fieldcatalog               = gt_fieldcat .
CALL SELECTION-SCREEN 1001.

Similar Messages

[WPF] Use IValueConverter but hide the value in cell

Hi,
I have a column with a range of age.
I'm using a Convert to set a background color to a single cell of my column 'age'...
I would color the cell but hide the numeric value.
I can set a custom background, but I can't hide the value.
How can I make this?
This is my code:
XAML:
<DataGridTextColumn Binding="{Binding Age}" Header="Age - Color Range" Width="200">

<DataGridTextColumn.ElementStyle>
<Style TargetType="{x:Type TextBlock}">
<Setter Property="Background" Value="{Binding Age, Converter={StaticResource ColorToCell}}"/>
</Style>
</DataGridTextColumn.ElementStyle>
</DataGridTextColumn>
C#
public class ColorToCell : IValueConverter
public object Convert(object value, Type targetType, object parameter, CultureInfo culture)
int tempValue = int.Parse(value.ToString());
string tempString = "Red";
if (tempValue >= 0 && tempValue <= 20)
tempString = "#FF0000";
if (tempValue > 20 && tempValue <= 40)
tempString = "#F09300";
if (tempValue > 40 && tempValue <= 60)
tempString = "#EDDF00";
if (tempValue > 60 && tempValue <= 80)
tempString = "#CC00FF55";
if (tempValue > 80 && tempValue <= 100)
tempString = "#85AB00";
SolidColorBrush brush = new SolidColorBrush();
BrushConverter conv = new BrushConverter();
brush = conv.ConvertFromString(tempString) as SolidColorBrush;
return brush;
public object ConvertBack(object value, Type targetType, object parameter, CultureInfo culture)
return DependencyProperty.UnsetValue;
Thanks.

If you want to hide the value in the cell you could just set the Visibility of the TextBlock to Collapsed based on some converter logic:
<DataGridTextColumn.ElementStyle>
<Style TargetType="{x:Type TextBlock}">
<Style.Triggers>
<DataTrigger Binding="{Binding Age, Converter={StaticResource ageConverter}}" Value="True">
<Setter Property="Visibility" Value="Collapsed"/>
</DataTrigger>
</Style.Triggers>
</Style>
</DataGridTextColumn.ElementStyle>
Return true from the Convert method of the ageConverter to hide the TextBlock. You can then set the background of the cell using a CellStyle:
<DataGridTextColumn.CellStyle>
<Style TargetType="DataGridCell">
<Setter Property="Background" Value="{Binding Age, Converter={StaticResource ColorToCell}}"/>
</Style>
</DataGridTextColumn.CellStyle>
The other option is to set the Foreground property of the TextBlock to the same colour as the Background:
<DataGridTextColumn.ElementStyle>
<Style TargetType="{x:Type TextBlock}">
<Setter Property="Background" Value="{Binding Age, Converter={StaticResource ColorToCell}}"/>
<Setter Property="Foreground" Value="{Binding Age, Converter={StaticResource ColorToCell}}"/>
</Style>
</DataGridTextColumn.ElementStyle>
Please remember to mark helpful post(s) as answer to close your threads.

Hide row values for certain column in GRR2

Hi Experts,
Looking for some help in report painter. I need to hide row values for certain columns in report painter. The requirement is I have 5 columns in the report, the 5 th column is the sum of col 1 to 4 and in my row i have a formula setup to sum of values for each column, what i would like to do is for column 1 thru 4 i didnt want to display the total values in row total but i wanted to dispaly value for column 5 in row total. I have been trying my best with putting formula, but couldnt succeed.
Could somebody let me know is there an way to get this addressed.
Thanks in advance
Best Regards,
gj

How was it achieved ? Did you use sections for the columns for which rows needed to be hidden?
I have a smiliar issue of hiding certain rows for few columns.

How to read the value of OLAPDataGrid cell/s from external object

Hi,
I have an OLAPDataGrid control in an Adobe flex application,
and I am using the cutom renderer to render the cells of the
OLAPDataGrid ,
any Idea how I can read the value of each cell at the
renderer , so I will be able to decide about the actions for each
cell at the renderer?

"j_shawqi" <[email protected]> wrote in
message
news:gkqgdl$539$[email protected]..
> Hi,
> I have an OLAPDataGrid control in an Adobe flex
application,
> and I am using the cutom renderer to render the cells of
the OLAPDataGrid
> ,
> any Idea how I can read the value of each cell at the
renderer , so I will
> be
> able to decide about the actions for each cell at the
renderer?
I'm thinking that you'll need to look at the listData
property. I'm not
sure what you get in an OLAP Grid that orients you to your
cell position,
but I'd set a break point in the listData override of your
renderer and see
what you actually have, or look at the docs for the data type
of the
listData object that the default renderer expects to get.
HTH;
Amy

Can conditional formatting refer to the value in another cell

Is there a way for conditional formatting refer to the value of another cell instead of entering the value in the conditional format box?

wwjd is right. no way of doing that.
WWJD, two wuestions:
1) do you have the new office 2008 for mac beta (is it out?), how close is it to the new features in Office 2007 for windows, if you do?
2) why do our pictures keep getting cut off after a day of posting. I posted a pic yesterday and its already not showing on the page the next day. Do they not load them after the question is marked as solved?
thanks,
Jason

Hide the value..

Hi,
How to hidden a value in standard report region record on page load?
for example below is my standard report region record.
A        B         C
1        2         3
4        5         6on page load i want to hide the value 1 and 2 from first record. i.e i want below output.
A        B         C
                   3
4        5         6i used apex item in select query(in region source) of report region(type:sql query)
i.e select apex_item.text(1,A,2),apex_item.text(2,B,2)....
How to achive this?

I would do it in the query, example:
Select Apex_Item.Text(p_idx,CASE WHEN your_logic THEN Your-Column-Value ELSE NULL END,rest of parameters), Next column,...
From...
Where...

Copying the value from a cell in the SQL results?

I run an sql query. The results are returned in a results window. I would like to copy the value from this cell
and paste it into an sql query. How can I do this? I can copy and paste a value from a cell in the view of the data in
a table, but not from the test results. How do I do this? Is there a setting I need to change?

I usually do this kind of operations and I've never had any issues, the procedure is as simple as CTRL-C in the results grid, with the required column/columns selected and CTRL-V in the worksheet or anywhere else.
If you still have issues please post your
- SQLDeveloper version
- Java Version
- OS
- Database Version
and if you can a small test case.

How hide the value in combobox

Hi all
I add the vales and discrption to comboBox ,but I need to hide the value
please help me

Unforunately I do not think this can be done.
You can set what the combobox will display after selecting from the drop down by setting oItem.DisplayDesc = true
But to hide the values in the actual drop down list is not possible as far as I know - using the SDK at least. I know some combos are displayed like that by SAP, but this is not exposed to the UI.
The only thing I can think of is a workaround:
1. Move the existing combo box (combo1) off the form - set it to left=10000 or something
2. Add a new combo box (combo2) where it was
3. Add valid values to the new combo box (combo2); use the descriptions from the original combo (combo1) and set the value to be a number
4. When someone selects a validvalue in the new combo (combo2), select the corresponding value in the original combo (combo1)
This way, your databinding is preserved & to the user it looks nice and tidy.
If you do not want to do something like this, I do not think you can do it.

How do I copy the value of a cell?

I'm trying to copy just the value of a cell that contains a formula. I only want to copy the cell that contains the answer and not the other cells that are contained in the formula. Any answers or suggestions would be gratefully appreciated.
Thanks
JQ

Hi jonquant,
Click on the cell that contains the answer.
Edit > Copy (command c)
Click on the cell where you want the value.
Edit > Paste Values.
That will paste the answer without the formulas.
Regards,
Ian

Setting the footer with the value of a cell - Excel 2010-2013

Hi,
is it possible to set the footer of a workbook with the value of a cell without using VBA code or macro?
Thanks

No; it is not possible to enter a formula that refers to cells in the header or footer. A VBA macro is the only way to set the header or footer to the value of a cell.
Regards, Hans Vogelaar (http://www.eileenslounge.com)

Display only cell in ALV Grid in OO

Hi Folks,
Hope someone can help me with this little issue. I have a series of columns in my ALV grid that are editable, but I need to a) make some of the cells on specific lines uneditable and b) display time based fields on this line as blank (presently they shoe 00:00:00).
For problem a) I have set the layout style frame as 'cellstyles'
    es_layout-stylefname = 'CELLSTYLES'.
I have also set the edit flag in the field catalog for the individual columns to 'X' eg
     WHEN 'CUSTTS_DATE_N'.
          ls_fieldcat-edit = 'X'.
And coded:
       gwa_stylerow-fieldname = 'CUSTTS_DATE_N'.
      gwa_stylerow-style = cl_gui_alv_grid=>mc_style_disabled.
      APPEND gwa_stylerow TO gt_stylerow.
      wa_delivery_list-cellstyle[] = gt_stylerow[].
      APPEND wa_delivery_list TO it_delivery_list.
Yet, the ALV cells are still being displayed as editable. Can't for the life of me figure out what's missing. The only other thought I had around this is that the wa_delivery_list-cellstyle table is being set in the data extraction code, before the ALV grid is built, and that the cell formats are being overwritten/on not being called by the field catalog entries. Any thoughts on how to make these fields/cells display only when the ALV is first displayed would be greatly appreciated.
As for option b) I'm clueless, as the cell style commands are not being picked up (see problem a.). Again any thoughts would be appreciated, and points will be rewarded for solutions/suggestions that lead to solutions.
Cheers,
Stephen Keam

Hello Stephen
I have created a simple report ZUS_SDN_ALV_EDITABLE_1B which shows how to use editability on cell level.
The crucial parts of the coding for your requirements are shown below, followed by the entire report.
READ TABLE gt_fcat INTO ls_fcat
       WITH KEY fieldname = 'UPTIM'.
IF ( syst-subrc = 0 ).
    DELETE gt_fcat INDEX syst-tabix.
    ls_fcat-no_zero = abap_true. " suppresses 00:00:00
    INSERT ls_fcat INTO gt_fcat INDEX 7.
ENDIF.
*&      Form SET_CELL_EDITABLE
*       text
* --> p1        text
* <-- p2        text
FORM set_cell_editable .
* define local data
DATA: ld_idx      TYPE i,
        ls_outtab   TYPE ty_s_outtab,
        ls_style    TYPE lvc_s_styl.
LOOP AT gt_outtab INTO ls_outtab.
    ld_idx = syst-tabix.
    REFRESH: ls_outtab-celltab.
    " NOTE: if you change the year of column ERDAT to 2008 then two columns will become non-editable
    IF ( ls_outtab-erdat+0(4) = '2008' ).
      CLEAR: ls_style.
      ls_style-fieldname = 'UPDAT'.
      ls_style-style     = cl_gui_alv_grid=>mc_style_disabled.
      INSERT ls_style INTO TABLE ls_outtab-celltab.
      CLEAR: ls_style.
      ls_style-fieldname = 'UPTIM'.
      ls_style-style     = cl_gui_alv_grid=>mc_style_disabled.
      INSERT ls_style INTO TABLE ls_outtab-celltab.
    ELSE.
    ENDIF.
    MODIFY gt_outtab FROM ls_outtab INDEX ld_idx
      TRANSPORTING celltab.
ENDLOOP.
ENDFORM.                    " SET_CELL_EDITABLE
*& Report ZUS_SDN_ALV_EDITABLE
*& Thread: Display only cell in ALV Grid in OO
*& <a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="765083"></a>
* Flow logic of screen '100' (no elements, ok-code => gd_okcode ):
**PROCESS BEFORE OUTPUT.
** MODULE STATUS_0100.
**PROCESS AFTER INPUT.
** MODULE USER_COMMAND_0100.
*& GUI-Status: ok-codes BACK, EXIT, CANC
REPORT zus_sdn_alv_editable_1b.
TYPE-POOLS: abap.
CONSTANTS:
gc_tabname       TYPE tabname VALUE 'KNB1'.
TYPES: BEGIN OF ty_s_outtab.
INCLUDE TYPE knb1 AS knb1.
TYPES: celltab    TYPE lvc_t_styl.
TYPES: END OF ty_s_outtab.
TYPES: ty_t_outtab    TYPE STANDARD TABLE OF ty_s_outtab
                      WITH DEFAULT KEY.
DATA:
gd_okcode        TYPE ui_func,
gd_repid         TYPE syst-repid,
gt_fcat          TYPE lvc_t_fcat,
gs_layout        TYPE lvc_s_layo,
gs_variant       TYPE disvariant,
go_docking       TYPE REF TO cl_gui_docking_container,
go_grid          TYPE REF TO cl_gui_alv_grid.
DATA:
gs_outtab        TYPE ty_s_outtab,
gt_outtab        TYPE ty_t_outtab,
gt_outtab_pbo    TYPE ty_t_outtab.
DATA:
gd_answer        TYPE c.
*       CLASS lcl_eventhandler DEFINITION
CLASS lcl_eventhandler DEFINITION.
PUBLIC SECTION.
    CLASS-METHODS:
      handle_data_changed
         FOR EVENT data_changed OF cl_gui_alv_grid
             IMPORTING er_data_changed.
ENDCLASS.                    "lcl_eventhandler DEFINITION
*       CLASS lcl_eventhandler IMPLEMENTATION
CLASS lcl_eventhandler IMPLEMENTATION.
METHOD handle_data_changed.
    " Just trigger PAI followed by PBO
    CALL METHOD cl_gui_cfw=>set_new_ok_code
      EXPORTING
        new_code = 'REFRESH'
*        IMPORTING
*          rc       =
ENDMETHOD.                    "handle_data_changed
ENDCLASS.                    "lcl_eventhandler IMPLEMENTATION
START-OF-SELECTION.
SELECT * FROM (gc_tabname) INTO CORRESPONDING FIELDS
                              OF TABLE gt_outtab UP TO 99 ROWS.
gt_outtab_pbo = gt_outtab. " set PBO data
PERFORM init_controls.
* ok-code field = GD_OKCODE
CALL SCREEN '0100'.
END-OF-SELECTION.
*&      Form INIT_CONTROLS
*       text
* --> p1        text
* <-- p2        text
FORM init_controls .
* Create docking container
CREATE OBJECT go_docking
    EXPORTING
      parent = cl_gui_container=>screen0
      ratio = 90
    EXCEPTIONS
      OTHERS = 6.
IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* Create ALV grid
CREATE OBJECT go_grid
    EXPORTING
      i_parent = go_docking
    EXCEPTIONS
      OTHERS   = 5.
IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
" NOTE: not required
* set handler:
*    lcl_eventhandler=>handle_data_changed for go_grid.
* Build fieldcatalog and set hotspot for field KUNNR
PERFORM build_fieldcatalog.
PERFORM set_layout_and_variant.
PERFORM set_cell_editable.
*§3.Optionally register ENTER to raise event DATA_CHANGED.
*   (Per default the user may check data by using the check icon).
CALL METHOD go_grid->register_edit_event
    EXPORTING
      i_event_id = cl_gui_alv_grid=>mc_evt_enter.
SET HANDLER: lcl_eventhandler=>handle_data_changed FOR go_grid.
* Display data
CALL METHOD go_grid->set_table_for_first_display
    EXPORTING
      is_layout       = gs_layout
      is_variant      = gs_variant
      i_save          = 'A'
    CHANGING
      it_outtab       = gt_outtab
      it_fieldcatalog = gt_fcat
    EXCEPTIONS
      OTHERS          = 4.
IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* NOTE:
* Documenation of I_SAVE ("An Easy Reference for ALV Grid Control")
*I_SAVE
*Determines the options available to the user for saving a layout:
*? 'X': global saving only
*? 'U': user-specific saving only
*? 'A': corresponds to 'X' and 'U'
*? SPACE: no saving
* Link the docking container to the target dynpro
gd_repid = syst-repid.
CALL METHOD go_docking->link
    EXPORTING
      repid                       = gd_repid
      dynnr                       = '0100'
*      CONTAINER                   =
    EXCEPTIONS
      OTHERS                      = 4.
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.                    " INIT_CONTROLS
*&      Module STATUS_0100 OUTPUT
*       text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'STATUS_0100'.
* SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
*       text
MODULE user_command_0100 INPUT.
" NOTE: retrieve changed data from frontend (grid control) into
"       the backend (itab in ABAP)
go_grid->check_changed_data( ).
CASE gd_okcode.
    WHEN 'BACK' OR
         'EXIT' OR
         'CANC'.
      SET SCREEN 0. LEAVE SCREEN.
    WHEN 'REFRESH'.
      PERFORM set_cell_editable.
      " NOTE: Refresh required
      CALL METHOD go_grid->refresh_table_display
*        EXPORTING
*          is_stable      =
*          i_soft_refresh =
*        EXCEPTIONS
*          finished       = 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.
    WHEN 'SAVE'.
      IF ( gt_outtab = gt_outtab_pbo ).
        MESSAGE 'No data changed' TYPE 'S'.
      ELSE.
        CLEAR: gd_answer.
        CALL FUNCTION 'POPUP_TO_CONFIRM'
          EXPORTING
*             TITLEBAR                    = ' '
*             DIAGNOSE_OBJECT             = ' '
            text_question               = 'Save data?'
*             TEXT_BUTTON_1               = 'Ja'(001)
*             ICON_BUTTON_1               = ' '
*             TEXT_BUTTON_2               = 'Nein'(002)
*             ICON_BUTTON_2               = ' '
*             DEFAULT_BUTTON              = '1'
*             DISPLAY_CANCEL_BUTTON       = 'X'
*             USERDEFINED_F1_HELP         = ' '
*             START_COLUMN                = 25
*             START_ROW                   = 6
*             POPUP_TYPE                  =
*             IV_QUICKINFO_BUTTON_1       = ' '
*             IV_QUICKINFO_BUTTON_2       = ' '
          IMPORTING
            answer                      = gd_answer
*           TABLES
*             PARAMETER                   =
          EXCEPTIONS
            text_not_found              = 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.
        IF ( gd_answer = '1' ). " yes
          MESSAGE 'Data successfully saved' TYPE 'S'.
          gt_outtab_pbo = gt_outtab. " update PBO data !!!
        ELSE.
          MESSAGE 'Action cancelled by user' TYPE 'S'.
        ENDIF.
      ENDIF.
    WHEN OTHERS.
ENDCASE.
CLEAR: gd_okcode.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
*&      Form BUILD_FIELDCATALOG
*       text
* --> p1        text
* <-- p2        text
FORM build_fieldcatalog .
* define local data
DATA:
    ls_fcat        TYPE lvc_s_fcat.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
*     I_BUFFER_ACTIVE              =
      i_structure_name             = gc_tabname
*     I_CLIENT_NEVER_DISPLAY       = 'X'
*     I_BYPASSING_BUFFER           =
*     I_INTERNAL_TABNAME           =
    CHANGING
      ct_fieldcat                  = gt_fcat
    EXCEPTIONS
      inconsistent_interface       = 1
      program_error                = 2
      OTHERS                       = 3.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ls_fcat-edit = abap_true.
MODIFY gt_fcat FROM ls_fcat
      TRANSPORTING edit
    WHERE ( key NE abap_true ).
READ TABLE gt_fcat INTO ls_fcat
       WITH KEY fieldname = 'UPTIM'.
IF ( syst-subrc = 0 ).
    DELETE gt_fcat INDEX syst-tabix.
    ls_fcat-no_zero = abap_true. " suppresses 00:00:00
    INSERT ls_fcat INTO gt_fcat INDEX 7.
ENDIF.
READ TABLE gt_fcat INTO ls_fcat
   WITH KEY fieldname = 'UPDAT'.
IF ( syst-subrc = 0 ).
    DELETE gt_fcat INDEX syst-tabix.
    INSERT ls_fcat INTO gt_fcat INDEX 7.
ENDIF.
LOOP AT gt_fcat INTO ls_fcat.
    ls_fcat-col_pos = syst-tabix.
    MODIFY gt_fcat FROM ls_fcat INDEX syst-tabix.
    IF ( syst-tabix > 10 ).
      DELETE gt_fcat INDEX syst-tabix.
    ENDIF.
ENDLOOP.
ENDFORM.                    " BUILD_FIELDCATALOG
*&      Form SET_LAYOUT_AND_VARIANT
*       text
* --> p1        text
* <-- p2        text
FORM set_layout_and_variant .
CLEAR: gs_layout,
         gs_variant.
gs_layout-cwidth_opt = abap_true.
gs_layout-zebra      = abap_true.
*§3.Provide the fieldname of the celltab field by using field
*   STYLEFNAME of the layout structure.
gs_layout-stylefname = 'CELLTAB'.
gs_variant-report = syst-repid.
gs_variant-handle = 'GRID'.
ENDFORM.                    " SET_LAYOUT_AND_VARIANT
*&      Form SET_CELL_EDITABLE
*       text
* --> p1        text
* <-- p2        text
FORM set_cell_editable .
* define local data
DATA: ld_idx      TYPE i,
        ls_outtab   TYPE ty_s_outtab,
        ls_style    TYPE lvc_s_styl.
LOOP AT gt_outtab INTO ls_outtab.
    ld_idx = syst-tabix.
    REFRESH: ls_outtab-celltab.
    IF ( ls_outtab-erdat+0(4) = '2008' ).
      CLEAR: ls_style.
      ls_style-fieldname = 'UPDAT'.
      ls_style-style     = cl_gui_alv_grid=>mc_style_disabled.
      INSERT ls_style INTO TABLE ls_outtab-celltab.
      CLEAR: ls_style.
      ls_style-fieldname = 'UPTIM'.
      ls_style-style     = cl_gui_alv_grid=>mc_style_disabled.
      INSERT ls_style INTO TABLE ls_outtab-celltab.
    ELSE.
    ENDIF.
    MODIFY gt_outtab FROM ls_outtab INDEX ld_idx
      TRANSPORTING celltab.
ENDLOOP.
ENDFORM.                    " SET_CELL_EDITABLE
Regards
Uwe

One editable cell in alv grid using function module

Hello all,
Any one have an idea how to make a single editable cell in alv grid using function module, i mean to say
with out using object oriented programming.
Regards,
Prakash

Hi,
Using ALV List display it is possible.
Try this.
TYPE-POOLS:SLIS.
DATA: X_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA: IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA:IT_EVENTS TYPE SLIS_T_EVENT.
data: begin of it_chg occurs 0,
      index type sy-tabix,
      end of it_chg.
DATA: X_EVENTS    TYPE SLIS_ALV_EVENT.
DATA: BEGIN OF ITAB OCCURS 0,
      NAME(10) TYPE C,
      ZTERM TYPE C,
      END OF ITAB.
PERFORM FILL_TABLE.
loop at itab where zterm = 'A'.
it_chg-index = sy-tabix + 3.
" addition 3 IS FOR FIELD LABELS
append it_chg.
clear it_chg.
endloop.
DATA:L_POS TYPE I VALUE 1.
CLEAR: L_POS.
L_POS = L_POS + 1.
**fieldcatalog
X_FIELDCAT-FIELDNAME = 'NAME'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS    = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-FIELDNAME = 'ZTERM'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS    = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
**events
REFRESH:IT_EVENTS.
CLEAR:X_EVENTS,IT_EVENTS.
X_EVENTS-NAME = SLIS_EV_END_OF_LIST.
X_EVENTS-FORM = 'MODIFY_LIST'.
APPEND X_EVENTS TO IT_EVENTS.
CLEAR X_EVENTS.
END-OF-SELECTION.
data lv_repid type sy-repid.
lv_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = lv_REPID
      IT_FIELDCAT        = IT_FIELDCAT
      IT_EVENTS          = IT_EVENTS
    TABLES
      T_OUTTAB           = ITAB
    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.
*&      Form FILL_TABLE
      text
FORM FILL_TABLE.
ITAB-NAME = 'AAA'.
ITAB-ZTERM = 'A'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'ABC'.
ITAB-ZTERM = 'B'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'TEST'.
ITAB-ZTERM = 'C'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'BBB'.
ITAB-ZTERM = 'D'.
APPEND ITAB.
clear itab.
ITAB-NAME = '123'.
ITAB-ZTERM = 'E'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'GEN'.
ITAB-ZTERM = 'A'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'ALV'.
ITAB-ZTERM = 'F'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'ALVTEST'.
ITAB-ZTERM = 'A'.
APPEND ITAB.
clear itab.
ENDFORM.                    "FILL_TABLE
*&      Form MODIFY_LIST
      text
FORM MODIFY_LIST.
data: l_lines type i.
describe table itab lines l_lines.
L_LINES = L_LINES + 3.
"because we have 3 lines extra occupied by lables.
"if we have header,i mean top of page add the no.of lines
"how many ever top of page have + 3 for labels.
DO L_LINES TIMES.
    read table it_chg with key INDEX = sy-index.
    if sy-subrc = 0.
**This code is for reading the out put line
**and modify accordinlg to our requiremnet.
**don't chnage this.
      READ LINE SY-INDEX INDEX SY-LSIND.
      IF SY-SUBRC = 0.
        MODIFY LINE SY-INDEX INDEX SY-LSIND
                   FIELD FORMAT ITAB-NAME INPUT.
      ENDIF.
    ENDIF.
ENDDO.
ENDFORM.                    "MODIFY_LIST

Possible to have vertical scroll bar for a cell in ALV Grid (using methods)

Hi All,
I have a field with length 100 characters on a ALV Grid (using methods)..User doesn't want to scroll all the 100 characters horizontally to see the whole text rather he wants to have a vertical scroll bar for the cell so that he can scroll vertically.
Is it possible to have split the cell text into lines and have a vertical scroll bar for a cell in ALV Grid?
Regards
Jaker.

Thanks for the suggestion Balu.I tried this , but while scrolling,headers also getting scrolled.
Becoz of this , if i scroll down to the last row,headers are getting hidden.
Headers should always be static.only the data should scroll.
Since h:datatable is being rendered as one table , i can div tag for this table alone.
If i have seperate datatable for headers alone i can do this .But i should not use two datatables.

Not able to download all the rows to excel sheet from alv grid display

Hi experts,
I am not able to download all the rows which are displayed in alv grid display for some material numbers.
for some materials i am able to download, i used two ways to download 1) from icon(local file) on grid 2) menu list->export.
i checked in debugging till selecting the spread sheet pop up window, i am able to see all the data in internal table.
Can you suggest me what will be the problem....
thanks in advance,

hi sandeep,
sorry for didnt specify clearly.
note: EX: "asaasdada in this sentence i said " this symbol is special character not the text.
building final internal table code
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
    EXPORTING
      capid                 = p_capid
      datuv                 = sy-datum
      ehndl                 = '1'
      mktls                 = 'X'
      mehrs                 = 'X'
      mmory                 = '1'
      mtnrv                 = p_matnr
      stlal                 = '1'
      stpst                 = 0
      svwvo                 = 'X'
      werks                 = p_werks
      vrsvo                 = 'X'
    TABLES
      stb                   = i_stb
    EXCEPTIONS
      alt_not_found         = 1
      call_invalid          = 2
      material_not_found    = 3
      missing_authorization = 4
      no_bom_found          = 5
      no_plant_data         = 6
      no_suitable_bom_found = 7
      conversion_error      = 8
      OTHERS                = 9.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
i_stb1[] = i_stb[].
IF NOT i_stb1[] IS INITIAL.
    SORT i_stb1 BY idnrk.
    DELETE ADJACENT DUPLICATES FROM i_stb1 COMPARING idnrk.
    SELECT bmatn ematn FROM ampl INTO TABLE i_ampl
      FOR ALL ENTRIES IN i_stb1
      WHERE bmatn = i_stb1-idnrk AND
            datuv LE sy-datum AND
            datub GE sy-datum.
    SELECT
    matnr
    bwkey
    verpr
    stprs
    bwprh
    FROM mbew
    INTO TABLE i_mbew
    FOR ALL ENTRIES IN i_stb1
    WHERE
        matnr EQ i_stb1-idnrk AND
        bwkey EQ i_stb1-werks.
    IF NOT i_stb1[] IS INITIAL.
      SELECT matnr werks beskz
             dzeit webaz plifz
             ekgrp
      INTO TABLE i_marc
      FROM marc
      FOR ALL ENTRIES IN i_stb1
      WHERE matnr = i_stb1-idnrk
      AND werks = i_stb1-werks.
      SORT i_marc BY matnr werks.
    ENDIF.
    CLEAR i_ekpo.
    CLEAR i_vend.
    IF NOT i_stb1[] IS INITIAL.
      SELECT ebeln ebelp matnr werks loekz aedat
             netpr peinh
      INTO TABLE i_ekpo
      FROM ekpo
            FOR ALL ENTRIES IN i_stb1
            WHERE matnr = i_stb1-idnrk
            AND werks = i_stb1-werks.
      SORT i_ekpo BY matnr ASCENDING
                     aedat DESCENDING
                     ebeln DESCENDING
                     ebelp DESCENDING.
      IF NOT i_ekpo IS INITIAL.
        SELECT k~ebeln k~lifnr l~name1
        INTO TABLE i_vend
        FROM ekko AS k INNER JOIN lfa1 AS l
        ON k~lifnr EQ l~lifnr
        FOR ALL ENTRIES IN i_ekpo
        WHERE ebeln = i_ekpo-ebeln.
        SORT i_vend BY ebeln.
      ENDIF.
    ENDIF.
ENDIF.
i_ampl1[] = i_ampl[].
IF NOT i_ampl1[] IS INITIAL.
    SORT i_ampl1 BY ematn.
    DELETE ADJACENT DUPLICATES FROM i_ampl1 COMPARING ematn.
    SELECT matnr mfrpn mfrnr FROM mara INTO TABLE i_mara
      FOR ALL ENTRIES IN i_ampl1
       WHERE matnr = i_ampl1-ematn.
ENDIF.
SORT i_ampl BY bmatn.
IF NOT i_stb[] IS INITIAL.
    SELECT stlty stlnr stlkn stpoz idnrk potx1 potx2
    INTO TABLE i_stpo
    FROM stpo
    FOR ALL ENTRIES IN i_stb
    WHERE stlty = i_stb-stlty
      AND stlnr = i_stb-stlnr
      AND stlkn = i_stb-stlkn
      AND stpoz = i_stb-stpoz
      AND idnrk = i_stb-idnrk.
    SORT i_stpo BY stlty stlnr stlkn stpoz idnrk.
ENDIF.
LOOP AT i_stb INTO wa_stb.
    READ TABLE i_marc INTO wa_marc
    WITH KEY     matnr = wa_stb-idnrk
                 werks = wa_stb-werks
                 BINARY SEARCH.
    IF sy-subrc = 0.
      wa_outtab-beskz = wa_marc-beskz.
      wa_outtab-dzeit = wa_marc-dzeit.
      wa_outtab-webaz = wa_marc-webaz.
      wa_outtab-plifz = wa_marc-plifz.
      wa_outtab-ekgrp = wa_marc-ekgrp.
    ENDIF.
    READ TABLE i_ekpo INTO wa_ekpo
        WITH KEY matnr = wa_stb-idnrk.
    IF sy-subrc = 0.
      wa_outtab-netpr = wa_ekpo-netpr.
      wa_outtab-peinh = wa_ekpo-peinh.
      READ TABLE i_vend INTO wa_vend
      WITH KEY ebeln = wa_ekpo-ebeln
               BINARY SEARCH.
      IF sy-subrc = 0.
        wa_outtab-lifnr = wa_vend-lifnr.
        wa_outtab-name_sup = wa_vend-name1.
      ENDIF.
    ENDIF.
    READ TABLE i_stpo INTO wa_stpo
    WITH KEY stlty = wa_stb-stlty
             stlnr = wa_stb-stlnr
             stlkn = wa_stb-stlkn
             stpoz = wa_stb-stpoz
             idnrk = wa_stb-idnrk
             BINARY SEARCH.
    IF sy-subrc = 0.
      wa_outtab-potx1 = wa_stpo-potx1.
      wa_outtab-potx2 = wa_stpo-potx2.
    ENDIF.
    READ TABLE i_mbew INTO wa_mbew
    WITH KEY
    matnr = wa_stb-idnrk
    bwkey = wa_stb-werks.
    IF sy-subrc IS INITIAL.
      MOVE:
      wa_mbew-verpr TO wa_outtab-verpr,
      wa_mbew-stprs TO wa_outtab-stprs,
      wa_mbew-bwprh TO wa_outtab-bwprh.
    ENDIF.
    wa_outtab-matnr = p_matnr.
    wa_outtab-posnr = wa_stb-posnr.
    wa_outtab-stufe = wa_stb-stufe.
    wa_outtab-idnrk = wa_stb-idnrk.
    wa_outtab-ojtxb = wa_stb-ojtxp.
    wa_outtab-menge = wa_stb-menge.
    wa_outtab-meins = wa_stb-meins.
    MOVE: wa_stb-zzitem_draw_no TO wa_outtab-zzitem_draw_no.
    IF wa_stb-upskz = 'X'.
      SELECT * FROM stpu INTO TABLE i_stpu
               WHERE stlty = wa_stb-stlty AND
                      stlnr = wa_stb-stlnr AND
                      stlkn = wa_stb-stlkn AND
                      stpoz = wa_stb-stpoz.
    ENDIF.
    LOOP AT i_stpu INTO wa_stpu.
      wa_outtab-upmng = wa_stpu-upmng.
      wa_outtab-ebort = wa_stpu-ebort.
      wa_outtab-uposz = wa_stpu-uposz.
      CONCATENATE v_ebort wa_stpu-ebort      INTO v_ebort
      SEPARATED BY space.
    ENDLOOP.
    MOVE strlen( v_ebort ) TO v_len.
    MOVE: 0 TO x,
      128 TO y.
    DATA : lt_tab TYPE TABLE OF swastrtab.
    DATA : ls_tab LIKE LINE OF lt_tab.
    DATA : lv_ebort TYPE string.
    CLEAR lv_ebort. CLEAR lt_tab.
    MOVE v_ebort TO lv_ebort.
    CALL FUNCTION 'SWA_STRING_SPLIT'
      EXPORTING
        input_string                 = lv_ebort
        max_component_length         = 128
      TABLES
        string_components            = lt_tab
      EXCEPTIONS
        max_component_length_invalid = 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.
    IF lt_tab[] IS NOT INITIAL.
      LOOP AT lt_tab INTO ls_tab.
        CLEAR lv_ebort.
        MOVE: ls_tab-str TO lv_ebort.
        CONDENSE lv_ebort.
        MOVE lv_ebort TO wa_outtab-ebort.
        APPEND wa_outtab TO i_outtab.
        CLEAR:
        wa_outtab-matnr,
        wa_outtab-posnr,
        wa_outtab-zzitem_draw_no,
        wa_outtab-ojtxb,
        wa_outtab-menge,
        wa_outtab-meins,
        wa_outtab-uposz,
        wa_outtab-upmng,
        wa_outtab-verpr,
        wa_outtab-stprs,
        wa_outtab-bwprh,
        wa_outtab-lifnr,
        wa_outtab-name_sup,
        wa_outtab-potx1,
        wa_outtab-potx2,
        wa_outtab-netpr,
        wa_outtab-peinh.
*        wa_outtab-idnrk.
      ENDLOOP.
    ELSE.
      APPEND wa_outtab TO i_outtab.
    ENDIF.
    CLEAR v_ebort.
    CLEAR: wa_stpu.
    REFRESH: i_stpu.
    LOOP AT i_ampl INTO wa_ampl WHERE bmatn = wa_stb-idnrk.
    READ TABLE i_mara INTO wa_mara WITH TABLE KEY matnr = wa_ampl-ematn.
      IF sy-subrc = 0.
        LOOP AT i_outtab INTO wa_outtab
        WHERE
        idnrk = wa_stb-idnrk AND
        flag NE 'X'.
          wa_outtab-mfrpn = wa_mara-mfrpn.
          wa_outtab-mfrnr = wa_mara-mfrnr.
          SELECT SINGLE name1 FROM lfa1 INTO wa_outtab-name1 WHERE lifnr = wa_mara-mfrnr.
          MOVE 'X' TO wa_outtab-flag.
          MODIFY i_outtab FROM wa_outtab
          TRANSPORTING mfrpn mfrnr name1 flag.
          EXIT.
        ENDLOOP.
        IF sy-subrc <> 0.
          CLEAR:
          wa_outtab-matnr,
          wa_outtab-posnr,
          wa_outtab-zzitem_draw_no,
          wa_outtab-ojtxb,
          wa_outtab-ebort,
*          wa_outtab-idnrk,
          wa_outtab-menge,
          wa_outtab-meins,
          wa_outtab-uposz,
          wa_outtab-upmng,
          wa_outtab-verpr,
          wa_outtab-stprs,
          wa_outtab-bwprh,
          wa_outtab-lifnr,
          wa_outtab-name_sup,
          wa_outtab-potx1,
          wa_outtab-potx2,
          wa_outtab-netpr,
          wa_outtab-peinh.
          wa_outtab-mfrpn = wa_mara-mfrpn.
          wa_outtab-mfrnr = wa_mara-mfrnr.
          SELECT SINGLE name1 FROM lfa1 INTO wa_outtab-name1 WHERE lifnr = wa_mara-mfrnr.
          APPEND wa_outtab TO i_outtab.
        ENDIF.
      ENDIF.
      REFRESH i_stpu.
      CLEAR i_stpu.
    ENDLOOP.    CLEAR: wa_matnr1, wa_mfrnr, wa_outtab.
ENDLOOP.
Edited by: srinivasareddy j on Mar 9, 2011 7:16 AM
Edited by: srinivasareddy j on Mar 9, 2011 7:20 AM

HOW CAN I HAVE THE NUMBER OF SELECTED ROWS IN ALV GRID?

HI.
HOW CAN I HAVE THE NUMBER OF SELECTED ROWS IN ALV GRID????
GABRY =)

You need to use
data : grid1 type ref to cl_gui_alv_grid.
call method grid1->get_selected_rows
importing
et_index_rows = i_sel_alvrows[].
a®

Hide the value of certain cells in ALV GRID

Similar Messages

Maybe you are looking for