Creation of icon in alv toolbar

Hi All,
i need to create a icon in alv toolbar.
But i have not created any 'Z' program.
i have created one function module, through that function module i am displaying the ALV grid.
when i am copying the standard pf-status it is asking for program name. but i am using only the function module.
pls help me on this for creating the icon in alv toolbar.
thanks in advance.

Hello Aishvarya,
Perhaps the code below will help guide you along.
FUNCTION z_alv_screen .
*"*"Local Interface:
*" CHANGING
*"     REFERENCE(ITAB) TYPE ZSFLIGHT_TT
DATA: gr_table TYPE REF TO cl_salv_table.
* ALV
*... Create Instance
TRY.
      CALL METHOD cl_salv_table=>factory
        IMPORTING
          r_salv_table = gr_table
        CHANGING
          t_table      = itab[].
    CATCH cx_salv_msg.
ENDTRY.
gr_table->set_screen_status(
              pfstatus      = 'SALV_STANDARD'
              report        = 'SAPLZRAE'
              set_functions = gr_table->c_functions_all ).
*... Display Table
gr_table->display( ).
ENDFUNCTION.
Edited by: Rae Ellen Woytowiez on Mar 21, 2011 5:17 PM

Similar Messages

Menu Button in ALV toolbar (multiple choices for a button)

Hi abapers,
I would like to have a button with multiple choices in the toolbar;
at the moment I have created a menu button with just one function.
Here is my code:
CLASS lcl_event_receiver (Definition)
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
    METHODS:
    handle_toolbar
        FOR EVENT toolbar OF cl_gui_alv_grid
            IMPORTING e_object e_interactive.
ENDCLASS.                    "lcl_event_receiver DEFINITION
CLASS lcl_event_receiver (Implementation)
CLASS lcl_event_receiver IMPLEMENTATION.
METHOD handle_toolbar.
    DATA: ls_toolbar TYPE stb_button.
*Separator
    CLEAR ls_toolbar.
    MOVE 3 TO ls_toolbar-butn_type.
    APPEND ls_toolbar TO e_object->mt_toolbar.
*Button
    CLEAR ls_toolbar.
    MOVE 1 TO ls_toolbar-butn_type.
    MOVE 'EDIT' TO ls_toolbar-function.
    MOVE icon_change TO ls_toolbar-icon.
    MOVE ' Modifica'(l02) TO ls_toolbar-text.
    MOVE ' ' TO ls_toolbar-disabled.
    MOVE 'Modifica' TO ls_toolbar-quickinfo.
    APPEND ls_toolbar TO e_object->mt_toolbar.
ENDMETHOD.                    "handle_toolbar
ENDCLASS.                    "lcl_event_receiver IMPLEMENTATION

hi,
check this code and reward me if it helps you..
TYPE-POOLS : slis,icon.
*Structure declaration for tcodes
TYPES : BEGIN OF ty_table,
        tcode TYPE tcode,
        pgmna TYPE progname,
        END OF ty_table.
*Structure for tocde text
TYPES : BEGIN OF ty_itext,
        tcode TYPE tcode,
        ttext TYPE ttext_stct,
        sprsl TYPE sprsl,
        END OF ty_itext.
*Structure for output display
TYPES : BEGIN OF ty_output,
        tcode TYPE tcode,
        pgmna TYPE progname,
        ttext TYPE ttext_stct,
       END OF ty_output.
*internal table and work area declarations
DATA : it_table TYPE STANDARD TABLE OF ty_table INITIAL SIZE 0,
       it_output TYPE STANDARD TABLE OF ty_output INITIAL SIZE 0,
       it_ittext TYPE STANDARD TABLE OF ty_itext INITIAL SIZE 0,
       wa_table TYPE ty_table,
       wa_output TYPE ty_output,
       wa_ittext TYPE ty_itext.
*Class definition for ALV toolbar
CLASS:      lcl_alv_toolbar   DEFINITION DEFERRED.
*Declaration for toolbar buttons
DATA : ty_toolbar TYPE stb_button.
Data declarations for ALV
DATA: c_ccont TYPE REF TO cl_gui_custom_container,   "Custom container object
      c_alvgd         TYPE REF TO cl_gui_alv_grid,   "ALV grid object
      it_fcat            TYPE lvc_t_fcat,            "Field catalogue
      it_layout          TYPE lvc_s_layo,            "Layout
      c_alv_toolbar    TYPE REF TO lcl_alv_toolbar,           "Alv toolbar
      c_alv_toolbarmanager TYPE REF TO cl_alv_grid_toolbar_manager. "Toolbar manager
*Initialization event
INITIALIZATION.
*Start of selection event
START-OF-SELECTION.
*Subroutine to get values from tstc table
PERFORM fetch_data.
*subroutine for alv display
PERFORM alv_output.
      CLASS lcl_alv_toolbar DEFINITION
      ALV event handler
CLASS lcl_alv_toolbar DEFINITION.
PUBLIC SECTION.
*Constructor
    METHODS: constructor
               IMPORTING
                 io_alv_grid TYPE REF TO cl_gui_alv_grid,
*Event for toolbar
    on_toolbar
       FOR EVENT toolbar
       OF cl_gui_alv_grid
       IMPORTING
         e_object.
ENDCLASS.                    "lcl_alv_toolbar DEFINITION
      CLASS lcl_alv_toolbar IMPLEMENTATION
      ALV event handler
CLASS lcl_alv_toolbar IMPLEMENTATION.
METHOD constructor.
Create ALV toolbar manager instance
    CREATE OBJECT c_alv_toolbarmanager
      EXPORTING
        io_alv_grid      = io_alv_grid.
   ENDMETHOD.                    "constructor
METHOD on_toolbar.
Add customized toolbar buttons.
variable for Toolbar Button
      ty_toolbar-icon      = icon_generate.
    ty_toolbar-butn_type = 0.
    ty_toolbar-text = 'Button1'.
      APPEND ty_toolbar TO e_object->mt_toolbar.
      ty_toolbar-icon      = icon_voice_output.
    ty_toolbar-butn_type = 0.
    ty_toolbar-text = 'Button2'.
       APPEND ty_toolbar TO e_object->mt_toolbar.
     ty_toolbar-icon      = icon_phone.
    ty_toolbar-butn_type = 0.
    ty_toolbar-text = 'Button3'.
       APPEND ty_toolbar TO e_object->mt_toolbar.
     ty_toolbar-icon      = icon_mail.
    ty_toolbar-butn_type = 0.
    ty_toolbar-text = 'Button4'.
       APPEND ty_toolbar TO e_object->mt_toolbar.
   ty_toolbar-icon      = icon_voice_input.
    ty_toolbar-butn_type = 0.
    ty_toolbar-text = 'Button5'.
     APPEND ty_toolbar TO e_object->mt_toolbar.
Call reorganize method of toolbar manager to
display the toolbar
     CALL METHOD c_alv_toolbarmanager->reorganize
      EXPORTING
        io_alv_toolbar = e_object.
   ENDMETHOD.                    "on_toolbar
ENDCLASS.                    "lcl_alv_toolbar IMPLEMENTATION
*&      Form fetch_data
      text
--> p1        text
<-- p2        text
FORM fetch_data .
Select the tcodes upto 200 rows from TSTC
   SELECT   tcode
           pgmna
           FROM tstc
           INTO CORRESPONDING FIELDS OF TABLE it_table
           UP TO 200 ROWS
           WHERE dypno NE '0000'.
*Select the tcode textx
   IF it_table[] IS NOT INITIAL.
     SELECT ttext
           tcode
           sprsl
           FROM tstct
           INTO CORRESPONDING FIELDS OF TABLE it_ittext
           FOR ALL ENTRIES IN it_table
           WHERE tcode = it_table-tcode
           AND sprsl = 'E'.
   ENDIF.
Apppending the data to the internal table of ALV output
   LOOP AT it_table INTO wa_table.
    wa_output-tcode = wa_table-tcode.
    wa_output-pgmna = wa_table-pgmna.
   For texts
    READ TABLE it_ittext INTO wa_ittext WITH KEY tcode = wa_table-tcode.
    wa_output-ttext = wa_ittext-ttext.
     APPEND wa_output TO it_output.
    CLEAR wa_output.
   ENDLOOP.
   ENDFORM.                    " fetch_data
*&      Form alv_output
      text
--> p1        text
<-- p2        text
FORM alv_output .
*Calling the ALV
CALL SCREEN 0600.
ENDFORM.                    " alv_output
Calling the ALV screen with custom container
On this statement double click it takes you to the screen painter SE51.Enter the attributes
*Create a Custom container and name it CC_CONT and OK code as OK_CODE.
*Save check and Activate the screen painter.
Now a normal screen with number 600 is created which holds the ALV grid. PBO of the actual screen , Here we can give a title and *customized menus
*&      Module STATUS_0600 OUTPUT
      text
MODULE status_0600 OUTPUT.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_0600 OUTPUT
calling the PBO module ALV_GRID.
*&      Module ALV_GRID OUTPUT
      text
MODULE alv_grid OUTPUT.
*create object for custom container
CREATE OBJECT c_ccont
       EXPORTING
          container_name = 'CC_CONT'.
*create object of alv grid
CREATE OBJECT c_alvgd
      EXPORTING
          i_parent = c_ccont.
create ALV event handler
CREATE OBJECT c_alv_toolbar
    EXPORTING
      io_alv_grid = c_alvgd.
Register event handler
SET HANDLER c_alv_toolbar->on_toolbar FOR c_alvgd.
Fieldcatalogue for ALV
   PERFORM alv_build_fieldcat.
ALV attributes FOR LAYOUT
PERFORM alv_report_layout.
   CHECK NOT c_alvgd IS INITIAL.
Call ALV GRID
   CALL METHOD c_alvgd->set_table_for_first_display
    EXPORTING
      is_layout                     = it_layout
    CHANGING
      it_outtab                     = it_output
      it_fieldcatalog               = it_fcat
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      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.
ENDMODULE.                 " ALV_GRID OUTPUT
*&      Form alv_build_fieldcat
      text
     <--P_IT_FCAT text
FORM alv_build_fieldcat.
   DATA lv_fldcat TYPE lvc_s_fcat.
CLEAR lv_fldcat.
lv_fldcat-row_pos   = '1'.
lv_fldcat-col_pos   = '1'.
lv_fldcat-fieldname = 'TCODE'.
lv_fldcat-tabname   = 'IT_OUTPUT'.
lv_fldcat-outputlen = 8.
lv_fldcat-scrtext_m = 'TCODE'.
APPEND lv_fldcat TO it_fcat.
CLEAR lv_fldcat.
   lv_fldcat-row_pos   = '1'.
lv_fldcat-col_pos   = '2'.
lv_fldcat-fieldname = 'PGMNA'.
lv_fldcat-tabname   = 'IT_OUTPUT'.
lv_fldcat-outputlen = 15.
lv_fldcat-scrtext_m = 'PROGNAME'.
APPEND lv_fldcat TO it_fcat.
CLEAR lv_fldcat.
lv_fldcat-row_pos   = '1'.
lv_fldcat-col_pos   = '3'.
lv_fldcat-fieldname = 'TTEXT'.
lv_fldcat-tabname   = 'IT_OUTPUT'.
lv_fldcat-outputlen = 60.
lv_fldcat-scrtext_m = 'Description'.
APPEND lv_fldcat TO it_fcat.
CLEAR lv_fldcat.
ENDFORM.                    " alv_build_fieldcat
*&      Form alv_report_layout
      text
     <--P_IT_LAYOUT text
FORM alv_report_layout.
   it_layout-cwidth_opt = 'X'.
   it_layout-zebra = 'X'.
ENDFORM.                    " alv_report_layout
PAI module of the screen created. In case we use an interactive ALV or
*for additional functionalities we can create OK codes
*and based on the user command we can do the coding.
*&      Module USER_COMMAND_0600 INPUT
      text
MODULE user_command_0600 INPUT.
ENDMODULE.                 " USER_COMMAND_0600 INPUT
thanks,
gupta

How to hide 'layout button' on ALV toolbar

Hi,
I have an ALV and it has standard toolbar, now i want to hide 'Layout button' from the toolbar based on specific condition e.g when flag = 1.
How to do that.
Thanks,

If you are using the REUSE function, you can use the "EXCLUDING" parameter, and pass the FCODE for "Change Layout" to this table. This will remove the icon from the toolbar. Here is an example.
REPORT rich_0001 .
* Global ALV Data Declarations
TYPE-POOLS: slis.
* Internal Tables
DATA: BEGIN OF ialv OCCURS 0,
      test1(10) TYPE c,
      test2(10) TYPE c,
      END OF ialv.
DATA: xfc TYPE slis_fieldcat_alv.
DATA: ifc TYPE slis_t_fieldcat_alv.
DATA: iexcluding TYPE slis_t_extab.
DATA: xexcluding LIKE LINE OF iexcluding.
PARAMETERS: p_hide TYPE c DEFAULT 'X'.
START-OF-SELECTION.
REFRESH iexcluding.
* If the user wants to hide the change layout icon, then add to IEXCUDING
IF p_hide = 'X'.
    xexcluding-fcode = '&OL0'.
    APPEND xexcluding TO iexcluding.
ENDIF.
REFRESH ifc.
xfc-reptext_ddic = 'Test1'.
xfc-fieldname    = 'TEST1'.
xfc-outputlen    = '10'.
APPEND xfc TO ifc.
xfc-reptext_ddic = 'Test2'.
xfc-fieldname    = 'TEST2'.
xfc-outputlen    = '10'.
APPEND xfc TO ifc.
* Call ABAP List Viewer (ALV)
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      it_excluding = iexcluding
      it_fieldcat = ifc
    TABLES
      t_outtab     = ialv.
Regards,
Rich Heilman

Excel icon in alv ouput

Hi,
after executing alv report iam not getting the excel icon in the alv toolbar.
please guide me.and the spreadsheet icon is greyed out in the list->expo

HI prakash,
Is that the standard menu you are using or you have set your own pf-status?
In standard menu->list->export->local file->select spread sheet radiobutton.
This will download your data to excel sheet.
Cheers!!
VEnk@
Edited by: Venkat Reddy on Oct 31, 2008 10:25 AM

Checkbox problem in ALV toolbar

Hello all,
I hv added a checkbox in my alv toolbar using classes.
i.e. MOVE 'NO_DEFECTS' TO ls_toolbar-function.
      MOVE 'No Defects' TO ls_toolbar-quickinfo.
      MOVE 'No Defects' TO ls_toolbar-text.
      MOVE 5 TO ls_toolbar-butn_type.
      MOVE ' ' TO ls_toolbar-disabled.
      APPEND ls_toolbar TO e_object->mt_toolbar.
Alv is displaying in one subscreen.
My problem is my checkbox is displaying as a button instead of a check box and also i want to know how can i check whether my checkbox is active or not.
I want to disable some buttons in the alv toolbar based on this checkbox.
Thanks in advance.
regards,
Lokesh

Hi,
To disable the buttons in the toolbar, In the ALV events exclude the fcodes of the buttons you want to disable and pass it to the
to the program like the below statement
set pf-status 'STDPOPBX_FULLSCREEN' excluding lt_extab
                          of program 'SAPLKKBL'.
To use the check box pass the ls_toolbar-ICON as ICON_WD_CHECK_BOX.
Regards,
Kranthi

How to write ICONS in ALV TOP of Page

Hai experts,
How to ICON in ALV Top of PAGE
i want to wrire
ICON_LED_RED for cancellation Invioce
ICON_LED_GREEN for Invioce
but i pass this values to wa_header-info it comes @5C@ @5B@
thanks
sitaram

Hi...
   I think this code is help full for u....
*& Report ZFI_TEST *
REPORT ZFI_ICON_TEST MESSAGE-ID zz .
*& TABLES DECLARATION *
TABLES: vbak.
*& TYPE POOLS DECLARATION *
TYPE-POOLS: slis.
*& INTERNAL TABLE DECLARATION *
DATA: BEGIN OF itab OCCURS 0,
icon TYPE icon-id, "itab-icon = '@08@' -> Green ; '@09@' -> Yellow ; '@0A@' -> Red
vbeln LIKE vbak-vbeln,
audat LIKE vbak-audat,
vbtyp LIKE vbak-vbtyp,
auart LIKE vbak-auart,
augru LIKE vbak-augru,
netwr LIKE vbak-netwr,
waerk LIKE vbak-waerk,
END OF itab.
*INTERNAL TABLE FOR FIELD CATALOG
DATA: wa_fieldcat TYPE slis_fieldcat_alv,
it_fieldcat TYPE slis_t_fieldcat_alv.
IT_FIELDCAT TYPE STANDARD TABLE OF SLIS_FIELDCAT_ALV
WITH HEADER LINE,
*INTERNAL TABLE FOR EVENTS
DATA: it_event TYPE slis_t_event,
wa_event TYPE slis_alv_event,
*INTERNAL TABLE FOR SORTING
it_sort TYPE slis_t_sortinfo_alv,
wa_sort TYPE slis_sortinfo_alv,
*INTERNAL TABLE FOR LAYOUT
wa_layout TYPE slis_layout_alv.
*& VARIABLE DECLARATION *
DATA : v_repid TYPE sy-repid,
v_pagno(4) TYPE n,
v_date(8) TYPE c.
*& CONSTANTS *
CONSTANTS: c_x TYPE c VALUE 'X'.
*& SELECTION SCREEN *
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_vbeln FOR vbak-vbeln,
s_vbtyp FOR vbak-vbtyp DEFAULT 'C'.
SELECTION-SCREEN: END OF BLOCK b1.
SELECTION-SCREEN: BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECTION-SCREEN : BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(20) text-003.
PARAMETERS: p_list RADIOBUTTON GROUP rad1 DEFAULT 'X'.
SELECTION-SCREEN : END OF LINE.
SELECTION-SCREEN : BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(20) text-004.
PARAMETERS: p_grid RADIOBUTTON GROUP rad1.
SELECTION-SCREEN : END OF LINE.
SELECTION-SCREEN: END OF BLOCK b2.
AT SELECTION-SCREEN.
PERFORM validate_screen.
*& START OF SELECTION *
START-OF-SELECTION.
CLEAR: itab, itab[].
V_REPID = SY-REPID.
PERFORM get_data.
PERFORM display_data.
*& END OF SELECTION *
END-OF-SELECTION.
*--DO ALV Process
v_repid = sy-repid.
*--Sort the Output Fields
PERFORM sort_fields.
*--Build Field catalog for the Output fields
PERFORM BUILD_FIELDCAT.
*--Set the Layout for ALV
PERFORM set_layout.
*& Form GET_DATA
text
TO GET THE DATA FROM TABLES INTO ITAB
FORM get_data .
SELECT vbeln
audat
vbtyp
auart
augru
netwr
waerk
INTO CORRESPONDING FIELDS OF TABLE itab
FROM vbak
WHERE vbeln IN s_vbeln AND
audat > '04.04.2005'
AND netwr > 0.
LOOP AT itab.
IF itab-netwr < 10000.
itab-icon = '@08@'.
ELSEIF itab-netwr > 10000 AND itab-netwr < 100000.
itab-icon = '@09@'.
ELSEIF itab-netwr > 100000.
itab-icon = '@0A@'.
ENDIF.
MODIFY itab INDEX sy-tabix.
ENDLOOP.
ENDFORM. " GET_DATA
*& Form sort_fields
FORM sort_fields .
CLEAR wa_sort.
wa_sort-fieldname = 'VBTYP'.
wa_sort-spos = '1'.
wa_sort-up = 'X'.
APPEND wa_sort TO it_sort.
CLEAR wa_sort.
wa_sort-fieldname = 'NETWR'.
wa_sort-spos = '2'.
wa_sort-up = 'X'.
wa_sort-subtot = 'X'.
APPEND wa_sort TO it_sort.
ENDFORM. " sort_fields
*& Form set_layout
FORM set_layout .
IF p_list = c_x .
wa_layout-window_titlebar = 'LIST DISPLAY'(016).
wa_layout-zebra = 'X'.
                +
                +
ALV LIST DISPLAY
PERFORM list_display TABLES itab.
          o
                +
                + ALV GRID DISPLAY
ELSEIF p_grid = c_x.
wa_layout-window_titlebar = 'GRID DISPLAY'(017).
wa_layout-zebra = 'X'.
PERFORM grid_display TABLES itab.
ENDIF.
ENDFORM. " set_layout
*& Form list_display
FORM list_display TABLES p_itab .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = v_repid
is_layout = wa_layout
it_fieldcat = it_fieldcat[]
it_sort = it_sort[]
i_save = 'U'
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.
ENDFORM. " list_display
*& Form GRID_DISPLAY
FORM grid_display TABLES p_itab .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = v_repid
is_layout = wa_layout
it_fieldcat = it_fieldcat[]
it_sort = it_sort[]
it_events = it_event
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.
ENDFORM. " GRID_DISPLAY
*& Form VALIDATE_SCREEN
text
--> p1 text
<-- p2 text
FORM validate_screen .
DATA: lv_vbeln LIKE vbak-vbeln.
IF NOT s_vbeln IS INITIAL.
SELECT vbeln
INTO lv_vbeln
UP TO 1 ROWS
FROM vbak
WHERE vbeln IN s_vbeln.
ENDSELECT.
IF sy-subrc <> 0.
MESSAGE e000 WITH 'INVALID SALES DOC'.
ENDIF.
ENDIF.
ENDFORM. " VALIDATE_SCREEN
*& Form display_data
text
--> p1 text
<-- p2 text
FORM display_data .
DEFINE m_fieldcat.
add 1 to wa_fieldcat-col_pos.
wa_fieldcat-fieldname = &1.
wa_fieldcat-ref_tabname = 'VBAK'.
wa_fieldcat-do_sum = &2.
wa_fieldcat-cfieldname = &3.
append wa_fieldcat to it_fieldcat.
END-OF-DEFINITION.
DATA:
ls_fieldcat TYPE slis_fieldcat_alv,
lt_fieldcat TYPE slis_t_fieldcat_alv.
m_fieldcat 'ICON' '' ''.
m_fieldcat 'VBELN' '' ''.
m_fieldcat 'AUDAT' '' ''.
m_fieldcat 'VBTYP' '' ''.
m_fieldcat 'AUART' '' ''.
m_fieldcat 'AUGRU' '' ''.
m_fieldcat 'NETWR' 'C' 'WAERK'.
m_fieldcat 'WAERK' '' ''.
ENDFORM. " display_data[/code]
Regards,
Rahul
Edited by: Rahul Reddy on Apr 14, 2008 12:33 PM

Add on custom button to ALV toolbar in std tcode ME51N, ME52N and ME53N.

Hi All,
I have the requirement to add on the custom button to ALV toolbar in ITEM OVERVIEW for standard transaction ME51N, ME52N and ME53N. Does anyone know what enhancement point or user exit i should apply and how i can add on the custom button?
Thanks.

There are no user exits or badi's for COOIS. You may have to make copy of the PPIO_ENTRY to ZPPIO_ENTRY including all the varians without changing their names like copy SAP&COOIS to SAP&COOIS. Create a T-Code ZCOOIS and replace COOIS in variant SAP&COOIS to ZCOOIS not in the name of the variant but in the field "Check Authorization for".
The PF-Status is found in the include LCOISOUTPUTF16 which is located in the function group COISOUTPUT you may have to copy that too. Finally you need to copy SAPLCOISOUTPUT with its GUI status GENERAL and add your custom button there.

How to add Icons to ALV Reprt?

Hi,
I need to display icons (red, yellow) in my ALV Report in the first column in my report.
In my field catalog fieldcat-icon = 'X' has been taken into consideration, but still I am not able to see in my report. In the final internal table that is to display I created a field for this Icon type ICON_D. Is this the correct procedure to work with or else kindly let me know how to proceed?
Regards,
Raghu Ram.

This is the code that has been incorporated in order to display Icon in the ALV Report.
*                     TABLES Declarations                             *
Tables: PROJ,             " Project definition
        PRPS,             " WBS (Work Breakdown Structure) Element Master Data
        ICON.
*                     TYPE POOLS                                      *
TYPE-POOLS: SLIS,        " Globale Typen für generische Listbausteine
            ICON.
*                     ALV Data Declarations                           *
DATA:
GT_FIELDCAT       TYPE   SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
GT_REPID          TYPE   SY-REPID.
*                     Type Declarations                               *
TYPES:
* STRUCTURE OF TABLE PROJ
BEGIN OF TY_PROJ,
    PSPNR      TYPE PROJ-PSPNR,
    PSPID      TYPE PROJ-PSPID,
    POST1      TYPE PROJ-POST1,
    OBJNR      TYPE PROJ-OBJNR,
    VERNR      TYPE PROJ-VERNR,
    VERNA      TYPE PROJ-VERNA,
END OF TY_PROJ,
* STRUCTURE OF TABLE PRPS
BEGIN OF TY_PRPS,
    PSPNR      TYPE PRPS-PSPNR,
    POSID      TYPE PRPS-POSID,
    POST1      TYPE PRPS-POST1,
    OBJNR      TYPE PRPS-OBJNR,
    PSPHI      TYPE PRPS-PSPHI,
    VERNR      TYPE PRPS-VERNR,
END OF TY_PRPS,
BEGIN OF TY_FINAL,
    LIGHT       TYPE ICON_D,
    PSPNR       TYPE PROJ-PSPNR,
    PSPID       TYPE PROJ-PSPID,
    POST1       TYPE PROJ-POST1,
    OBJNR       TYPE PROJ-OBJNR,
    VERNR       TYPE PROJ-VERNR,
    VERNA       TYPE PROJ-VERNA,
    PSPNR_1     TYPE PRPS-PSPNR,
    POSID       TYPE PRPS-POSID,
    POST1_1     TYPE PRPS-POST1,
    OBJNR_1     TYPE PRPS-OBJNR,
    PSPHI       TYPE PRPS-PSPHI,
    VERNR_1     TYPE PRPS-VERNR,
END OF TY_FINAL.
*                     Internal Table Declarations                     *
DATA:
    IT_PROJ TYPE STANDARD TABLE OF TY_PROJ,
    IT_PRPS TYPE STANDARD TABLE OF TY_PRPS,
    IT_FINAL TYPE STANDARD TABLE OF TY_FINAL.
*                    Work Area Declarations                            *
DATA:
    WA_PROJ TYPE TY_PROJ,
    WA_PRPS TYPE TY_PRPS,
    WA_FINAL TYPE TY_FINAL.
*                          Selection Screen                           *
SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME.
SELECT-OPTIONS:   S_PSPNR FOR PROJ-PSPNR.
SELECTION-SCREEN END OF BLOCK BLK.
*                          Start Of Selection                         *
START-OF-SELECTION.
PERFORM DATA_RETREVIAL.
PERFORM BUILD_FIELDCAT.
PERFORM DISPLAY_ALV.
*                          Data Retrevial Logic                       *
*&      Form DATA_RETREVIAL
form DATA_RETREVIAL .
DATA: status_icon TYPE icons-text,
      icon_name(20) TYPE c,
      icon_text(10) TYPE c.
ICON_NAME = 'ICON_RED_LIGHT'.
ICON_TEXT = 'RED'.
CALL FUNCTION 'ICON_CREATE'
    EXPORTING
      name                        = ICON_NAME
     TEXT                         = ICON_TEXT
*     INFO                        = ' '
     ADD_STDINF                   = 'X'
   IMPORTING
     RESULT                       = STATUS_ICON
   EXCEPTIONS
     ICON_NOT_FOUND               = 1
     OUTPUTFIELD_TOO_SHORT        = 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.
SELECT PSPNR
         PSPID
         POST1
         OBJNR
         VERNR
         VERNA
         FROM PROJ
         INTO TABLE IT_PROJ
         WHERE PSPNR IN S_PSPNR.
    SELECT PSPNR
           POSID
           POST1
           OBJNR
           PSPHI
           VERNR
           FROM PRPS
           INTO TABLE IT_PRPS
           FOR ALL ENTRIES IN IT_PROJ
           WHERE PSPHI EQ IT_PROJ-PSPNR.
      LOOP AT IT_PROJ INTO WA_PROJ.
        LOOP AT IT_PRPS INTO WA_PRPS.
          WA_FINAL-PSPNR    = WA_PROJ-PSPNR.
          WA_FINAL-PSPID    = WA_PROJ-PSPID.
          WA_FINAL-POST1    = WA_PROJ-POST1.
          WA_FINAL-OBJNR    = WA_PROJ-OBJNR.
          WA_FINAL-VERNR    = WA_PROJ-VERNR.
          WA_FINAL-VERNA    = WA_PROJ-VERNA.
          WA_FINAL-PSPNR_1 = WA_PRPS-PSPNR.
          WA_FINAL-POSID    = WA_PRPS-POSID.
          WA_FINAL-POST1_1 = WA_PRPS-POST1.
          WA_FINAL-OBJNR_1 = WA_PRPS-OBJNR.
          WA_FINAL-PSPHI    = WA_PRPS-PSPHI.
          WA_FINAL-VERNR_1 = WA_PRPS-VERNR.
          WA_FINAL-light     = STATUS_ICON.
          APPEND WA_FINAL TO IT_FINAL.
         CLEAR: WA_FINAL.
        ENDLOOP.
      ENDLOOP.
endform.                    " DATA_RETREVIAL
*                          Field Catalog                              *
*&      Form BUILD_FIELDCAT
form BUILD_FIELDCAT .
* DATA: FIELDCAT    TYPE GT_FIELDCAT.
      GT_FIELDCAT-FIELDNAME = 'LIGHTS'.
      GT_FIELDCAT-SELTEXT_M = 'STAUTS'.
      GT_FIELDCAT-COL_POS   = 0.
      GT_FIELDCAT-ICON      = 'X'.
    APPEND GT_FIELDCAT TO GT_FIELDCAT.
    CLEAR GT_FIELDCAT.
      GT_FIELDCAT-FIELDNAME = 'PSPNR'.
      GT_FIELDCAT-SELTEXT_M = 'PROJECT DEFINITION(INTERNAL)'.
      GT_FIELDCAT-COL_POS   = 1.
      GT_FIELDCAT-OUTPUTLEN = 8.
    APPEND GT_FIELDCAT TO GT_FIELDCAT.
    CLEAR GT_FIELDCAT.
      GT_FIELDCAT-FIELDNAME = 'PSPID'.
      GT_FIELDCAT-SELTEXT_M = 'PROJECT DEFINITION'.
      GT_FIELDCAT-COL_POS   = 2.
      GT_FIELDCAT-OUTPUTLEN = 24.
    APPEND GT_FIELDCAT TO GT_FIELDCAT.
    CLEAR GT_FIELDCAT.
      GT_FIELDCAT-FIELDNAME = 'POST1'.
      GT_FIELDCAT-SELTEXT_M = 'PROJECT DESC'.
      GT_FIELDCAT-COL_POS   = 3.
      GT_FIELDCAT-OUTPUTLEN = 40.
    APPEND GT_FIELDCAT TO GT_FIELDCAT.
    CLEAR GT_FIELDCAT.
      GT_FIELDCAT-FIELDNAME = 'OBJNR'.
      GT_FIELDCAT-SELTEXT_M = 'Object number'.
      GT_FIELDCAT-COL_POS   = 4.
      GT_FIELDCAT-OUTPUTLEN = 22.
    APPEND GT_FIELDCAT TO GT_FIELDCAT.
    CLEAR GT_FIELDCAT.
      GT_FIELDCAT-FIELDNAME = 'VERNR'.
      GT_FIELDCAT-SELTEXT_M = 'Responsible Person'.
      GT_FIELDCAT-COL_POS   = 5.
      GT_FIELDCAT-OUTPUTLEN = 8.
    APPEND GT_FIELDCAT TO GT_FIELDCAT.
    CLEAR GT_FIELDCAT.
      GT_FIELDCAT-FIELDNAME = 'VERNA'.
      GT_FIELDCAT-SELTEXT_M = 'Responsible Person Desc'.
      GT_FIELDCAT-COL_POS   = 6.
      GT_FIELDCAT-OUTPUTLEN = 25.
    APPEND GT_FIELDCAT TO GT_FIELDCAT.
    CLEAR GT_FIELDCAT.
      GT_FIELDCAT-FIELDNAME = 'PSPNR_1'.
      GT_FIELDCAT-SELTEXT_M = 'WBS Element'.
      GT_FIELDCAT-COL_POS   = 7.
      GT_FIELDCAT-OUTPUTLEN = 8.
    APPEND GT_FIELDCAT TO GT_FIELDCAT.
    CLEAR GT_FIELDCAT.
      GT_FIELDCAT-FIELDNAME = 'POSID'.
      GT_FIELDCAT-SELTEXT_M = 'WBS Element'.
      GT_FIELDCAT-COL_POS   = 8.
      GT_FIELDCAT-OUTPUTLEN = 24.
    APPEND GT_FIELDCAT TO GT_FIELDCAT.
    CLEAR GT_FIELDCAT.
      GT_FIELDCAT-FIELDNAME = 'POST1_1'.
      GT_FIELDCAT-SELTEXT_M = 'WBS DESC'.
      GT_FIELDCAT-COL_POS   = 9.
      GT_FIELDCAT-OUTPUTLEN = 40.
    APPEND GT_FIELDCAT TO GT_FIELDCAT.
    CLEAR GT_FIELDCAT.
      GT_FIELDCAT-FIELDNAME = 'OBJNR_1'.
      GT_FIELDCAT-SELTEXT_M = 'Object number'.
      GT_FIELDCAT-COL_POS   = 10.
      GT_FIELDCAT-OUTPUTLEN = 22.
    APPEND GT_FIELDCAT TO GT_FIELDCAT.
    CLEAR GT_FIELDCAT.
      GT_FIELDCAT-FIELDNAME = 'PSPHI'.
      GT_FIELDCAT-SELTEXT_M = 'Currnet Projct'.
      GT_FIELDCAT-COL_POS   = 11.
      GT_FIELDCAT-OUTPUTLEN = 8.
    APPEND GT_FIELDCAT TO GT_FIELDCAT.
    CLEAR GT_FIELDCAT.
      GT_FIELDCAT-FIELDNAME = 'VERNR_1'.
      GT_FIELDCAT-SELTEXT_M = 'Responsible Person'.
      GT_FIELDCAT-COL_POS   = 12.
      GT_FIELDCAT-OUTPUTLEN = 8.
    APPEND GT_FIELDCAT TO GT_FIELDCAT.
    CLEAR GT_FIELDCAT.
endform.                    " BUILD_FIELDCAT
*                          Display ALV Grid                           *
*&      Form DISPLAY_ALV
form DISPLAY_ALV .
GT_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
*     I_INTERFACE_CHECK                 = ' '
*     I_BYPASSING_BUFFER                = ' '
*     I_BUFFER_ACTIVE                   = ' '
     I_CALLBACK_PROGRAM                 = GT_REPID
*     I_CALLBACK_PF_STATUS_SET          = ' '
*     I_CALLBACK_USER_COMMAND           = ' '
*     I_CALLBACK_TOP_OF_PAGE            = ' '
*     I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*     I_CALLBACK_HTML_END_OF_LIST       = ' '
*     I_STRUCTURE_NAME                  =
*     I_BACKGROUND_ID                   = ' '
*     I_GRID_TITLE                      =
*     I_GRID_SETTINGS                   =
*     IS_LAYOUT                         =
     IT_FIELDCAT                        = GT_FIELDCAT[]
*     IT_EXCLUDING                      =
*     IT_SPECIAL_GROUPS                 =
*     IT_SORT                           =
*     IT_FILTER                         =
*     IS_SEL_HIDE                       =
*     I_DEFAULT                         = 'X'
*     I_SAVE                            = ' '
*     IS_VARIANT                        =
*     IT_EVENTS                         =
*     IT_EVENT_EXIT                     =
*     IS_PRINT                          =
*     IS_REPREP_ID                      =
*     I_SCREEN_START_COLUMN             = 0
*     I_SCREEN_START_LINE               = 0
*     I_SCREEN_END_COLUMN               = 0
*     I_SCREEN_END_LINE                 = 0
*     I_HTML_HEIGHT_TOP                 = 0
*     I_HTML_HEIGHT_END                 = 0
*     IT_ALV_GRAPHICS                   =
*     IT_HYPERLINK                      =
*     IT_ADD_FIELDCAT                   =
*     IT_EXCEPT_QINFO                   =
*     IR_SALV_FULLSCREEN_ADAPTER        =
*   IMPORTING
*     E_EXIT_CAUSED_BY_CALLER           =
*     ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = IT_FINAL
*   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

ALV Toolbar related Query

Hi,
When using FM 'REUSE_ALV_GRID_DISPLAY'
Exporting Parameters : I_CALLBACK_PF_STATUS_SET
in SET PF Status Creating additional Buttons.
In ALV Report output addition additional buttons are coming
but Standard ALV Toolbar are missing like Sort Assending ,Descending,Total,Subtotal,
Layouts.
Please give any Suggestions for Standard toolbar as well as additional buttons to display
by using FM 'REUSE_ALV_GRID_DISPLAY'.
Thanks,
Manish

Hi,
Check this subroutine in example program :
BCALV_TEST_FULLSCREEN_CALLS
form f01_event_pf_status_set using rt_extab type slis_t_extab.
set pf-status 'STANDARD_FULLSCREEN' excluding rt_extab.
endform. " f01_event_pf_status_set
regards,
Advait

How can i disable '+' icon in the toolbar

Hi,
I have one requirement i.e i want to disable '+' button[File-->New] in the toolbar.This button creates a record when i click on this.
My block(Updatable block) should allows updations and insertions so i can't make insert_allowed and update_allowed property to "NO".I tried with
APP_SPECIAL2.ENABLE('FILE.NEW',PROPERTY_OFF); but the + icon is still enabled when i write above code.
How can i disable '+' icon in the toolbar
Thanks in advance,

This is eBusiness-related, maybe ask your question in the EBusiness-forum, maybe here OA Framework

Is there a way to have the 'new tab' icon on the toolbar AND have the "new tab" button at the right end of my tabs, as before? It seems to be either/or.

Under the previous version of Firefox I had the "new tab" option in both locations. When I upgraded, the one at the end of the tab line had disappeared. I used the suggestion from the forum to reset to default and it did reappear, but the icon in the toolbar had disappeared. Since there is no + in the customization window I cannot place a new one, and if I drag and drop from the tab bar it moves to the toolbar, but will not duplicate itself. I use either of these interchangeably, and having only one or the other is a real annoyance, and does slow me down when doing multiple searches or otherwise utilizing multiple tabs.

Hi, I have a similar problem with 12.0 of Firefox. The 'Add New Tab' tab has moved from the righthand end of open tabs to the left hand end.
If I right click on an empty tab area and select customize the "Add New Tab' tab disappears and an Add New Tab icon appears at the right hand end. I can drag and drop this icon into the Customize Toolbar window.
However if I drag it from the window back to the Tab toolbar area on the right. It initially appears on the right. Then clicking 'Done' on the Customize Toolbar window converts the icon to a tab but places it back at the left hand end of the tabs.
I'm sure this didn't happen before - so it's a possibility I have messed something up but I can't seem to correct it?

How do I put a "close file" icon in the toolbar? I've searched for an hour to find the answer with no luck?

How do I put a "close file" icon in the toolbar? There's an "open file" icon by default, but I cannot -- in spite of searching for an hour--find a way to put a "close file" icon in there?

Toolbar where? What program? What system?
Mylenium

How do I remove "All My Files" icons from the toolbar?

Good Afternoon:
I have A shiny new 15" MBPro that came preinstalled with Lion that I have updated to 10.7.1.
If I open a finder window, there are two "All My Files" icons on either side of the toolbar. I asked a Genius about it and they said they had never seen that. I can remove "All My Files" from the list of Favorites on the left easily enough. I can open up the window to customize the ToolBar, but in that window there are no "All My Files" icons available to add or delete.
How do I remove the "All My Files" icons from the toolbar?
Any advice would be appreciated. Thanks.
Below is a screenshot of the problem.

Sort of surprised they didn't know. I'm lost as to why that even appeared on your computer unless you had put them there yourself which, clearly, you didn't if it was brand new out of the box.
Glad it's sorted out.

Add a button choice on alv toolbar in wd4a

Hy everyone i've to add a button choice on alv toolbar. I create a node 'MY_TOOLBAR_FUNCTIONS' where add node and attributes to bind in external mapping in function_elements of alv interface controller.For button_choice I made a node 'CHOICE' and attribute 'WA_VALUE' type string. But the application dumps when create object lr_choice ; the error is WebDynpro Exception: IDs Can Only Contain Characters of Syntactical Character Set .
May you help me? Thanks in advance.
data: ls_choice TYPE ig_componentcontroller=>element_choice,
          nd_choice TYPE REF TO if_wd_context_node,
nd_choice = nd_my_functions->get_child_node( name = wd_this->wdctx_choice ).
el_choice = nd_choice->get_element( ).
ls_choice-wa_value = '01'.
APPEND ls_choice TO lt_choice.
nd_choice->bind_table( lt_choice ).
DATA:lr_button_choice TYPE REF TO cl_salv_wd_fe_button_choice.
DATA:lr_choice TYPE REF TO cl_salv_wd_menu_action_item.
lr_function = l_value->if_salv_wd_function_settings~create_function_right( id = 'MYBUTTONCHOICE' ).
CREATE OBJECT lr_button_choice.
          EXPORTING
            sel_action_item_elementname = 'CHOICE.WA_VALUE'.
lr_button_choice->set_text( value = 'Filter' ).
lr_button_choice->set_tooltip( value = 'Filter').
lr_button_choice->set_sel_action_itm_elementname( 'CHOICE.WA_VALUE' ).
CREATE OBJECT lr_choice
    EXPORTING
      id = ls_CHOICE-WA_VALUE.
lr_choice->set_text( 'Esito Positivo' ).
lr_choice->set_image_source( value = 'ICON_GREEN_LIGHT').
lr_button_choice->add_choice( lr_choice ).
lr_function->set_editor( lr_button_choice ).

in   CREATE OBJECT lr_choice the object id have to refer to name of node.
CREATE OBJECT lr_choice
     EXPORTING
       id = 'CHOICE'.

An Icon on the toolbar no longer works in Firefox 4

I make extensive use of emailing a purchase order on an inventory program running on Firefox.
Prior to my Firefox 4 upgrade an icon on thr toolbar allowed me to create an email in Outlook and attach a copy of the order to that email.
That icon appears to work, it asks if I want to send a copy or a link.
After accepting the request to send a copy there is no further action other than a momentary change of my cursor to an hourglass and then back to the arrow.
Help please.

Do the related browser.gesture.pinch prefs still have a value?
See http://kb.mozillazine.org/about%3Aconfig

Creation of icon in alv toolbar

Similar Messages

Maybe you are looking for