Displaying icons on views

Hi,
Anyone know how to display icons on buttons and on labels such as the delete icon and save icons on screens in CRM 7.0.
Some documentation / link to read on would be appreciated.
Regards,
Sbu

I already used icons in a table column if this is from interest:
1. GET_method of the attribute:
IF lv_bool = 'X'.
    CALL METHOD cl_thtmlb_util=>get_icon_info
      EXPORTING
     iv_icon_type       = cl_thtmlb_util=>gc_icon_pdfshortcut
      IMPORTING
        ev_icon_filename   = lv_filename
    CALL METHOD cl_thtmlb_util=>get_icon_url
      EXPORTING
        iv_icon_name    = lv_filename
      RECEIVING
        ev_url          = value
ENDIF.
2. GET_P_method of the attribute:
WHEN if_bsp_wd_model_setter_getter=>fp_fieldtype.
        IF lv_bool = 'X'.
          rv_value = if_bsp_dlc_view_descriptor=>field_type_image.
        ENDIF.
      WHEN if_bsp_wd_model_setter_getter=>fp_onclick.
        rv_value = 'PDF'.
    ENDCASE.
Kind regards
Manfred

Similar Messages

  • How to display icon in view

    I've already seen some questions on this forum about displaying icons but in ALV Table.I have data in ALV display and user status as icon but when i select a row i need to display all row details in another view but for user status field its not showing in icon..coming in i/p field.So how to display this field as icon.I tried to change data element as icon...but its not working.
    Thanks
    Kiran

    Hi Kiran,
    Instead of I/P element use IMAGE ui element and check.
    Cheers,
    Kris.

  • Display a schematic view with icons (jpg, gif, etc).

    I'm trying to display a schematic view and use icons to represent the difference objects in this schematic view.
    For example: to show a 3 phones conference call. The description will be the phone number (or person's name) and the icon will be the person's face or company logo.
    I have tried to use JLabel, and JButton but then I have to use a Layout. Without a layout the are one-on-top of another.
    I tried to use setLocation and it doesn't look to have any effect on the location of JLabel or JButton.
    The following is my code:
    import java.awt.Container;
    import java.awt.Insets;
    import java.awt.Point;
    import java.awt.Dimension;
    import javax.swing.ImageIcon;
    import javax.swing.JButton;
    import javax.swing.JFrame;
    * ShowIcons.java is a 1.4 application that requires no other files.
    * @author Benny Regev
    * @version 1.0.00.0000
    public class ShowIcons {
        public static void addComponentsToPane(Container pane) {
            ImageIcon iconHE, iconCPE, iconNode, iconDemo;
            Point point1, point2, point3;
            pane.setLayout(null);
            iconHE = createImageIcon(NODE_HE_ICON);
            iconNode = createImageIcon(NODE_ICON);
            iconCPE = createImageIcon(NODE_CPE_ICON);
            iconDemo = createImageIcon(NODE_CPE_ICON);
            JButton b1 = new JButton(HE_TEXT, iconHE);
            JButton b2 = new JButton(NODE_TEXT, iconNode);
            JButton b3 = new JButton(CPE_TEXT, iconCPE);
            point1 = new Point(0, 500);
            point2 = new Point(500, 0);
            point3 = new Point(500, 500);
            b1.setLocation( point1 );
            b2.setLocation( point2 );
            b3.setLocation( point3 );
            pane.add(b3);
            pane.add(b2);
            pane.add(b1);
    //        pane.add(iconDemo);
            Insets insets = pane.getInsets();
            Dimension size = b1.getPreferredSize();
            b1.setBounds(25 + insets.left, 5 + insets.top,
                         size.width, size.height);
            size = b2.getPreferredSize();
            b2.setBounds(55 + insets.left, 40 + insets.top,
                         size.width, size.height);
            size = b3.getPreferredSize();
            b3.setBounds(150 + insets.left, 15 + insets.top,
                         size.width + 50, size.height + 20);
        /** Returns an ImageIcon, or null if the path was invalid. */
        protected static ImageIcon createImageIcon(String path) {
            java.net.URL imageURL = ShowIcons.class.getResource(path);
            if (imageURL == null) {
                System.err.println("Resource not found: "
                                   + path);
                return null;
            } else {
                return new ImageIcon(imageURL);
        }   //  End of Method protected static ImageIcon createImageIcon(String)
         * Create the GUI and show it.  For thread safety,
         * this method should be invoked from the
         * event-dispatching thread.
        private static void createAndShowGUI() {
            //Make sure we have nice window decorations.
            JFrame.setDefaultLookAndFeelDecorated(true);
            //Create and set up the window.
            JFrame frame = new JFrame("AbsoluteLayoutDemo");
            frame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
            //Set up the content pane.
            addComponentsToPane(frame.getContentPane());
            //Size and display the window.
            Insets insets = frame.getInsets();
            frame.setSize(300 + insets.left + insets.right,
                          125 + insets.top + insets.bottom);
            frame.setVisible(true);
        public static void main(String[] args) {
            //Schedule a job for the event-dispatching thread:
            //creating and showing this application's GUI.
            javax.swing.SwingUtilities.invokeLater(new Runnable() {
                public void run() {
                    createAndShowGUI();
        public static final String NODE_HE_ICON = "images/shop_icon_esd_110.gif";
        public static final String NODE_CPE_ICON = "images/Default_feature1.gif";
        public static final String NODE_ICON = "images/icondesktop.gif";
        public static final String HE_TEXT = "Headent";
        public static final String CPE_TEXT = "CPE";
        public static final String NODE_TEXT = "10.0.0.10";
    }Anyone has an idea??

    Hi,
    This might help
    http://www.techonthenet.com/oracle/errors/ora01446.php
    Regards,
    Jari

  • Displaying icons in tree view control

    Hi all
            i am trying to display  icons in my tree view control.I am using beow code but i am not getting the ouput.Please help me.
    Type-pools : fibs,stree , ICON.
    data : t_node type snodetext.
    data : node_tab like t_node occurs 0 with header line,
           it_icon_id type icon-id.
    clear : node_tab, node_tab[].
    select single id from icon into it_icon_id
           where name = 'ICON_CUSTOMER'.
    node_tab-type = 'T'.
    node_tab-name = 'Earth'.
    node_tab-tlevel = '01'.
    node_tab-nlength = '5'.
    node_tab-color = '4'.
    node_tab-text = 'Hello'.
    node_tab-tlength ='5'.
    node_tab-tcolor = 3.
    node_tab-NODEICON = it_icon_id.
    append node_tab.
    clear node_tab.
    node_tab-type = 'P'.
    node_tab-name = 'Europe'.
    node_tab-tlevel = '02'.
    node_tab-nlength = '6'.
    node_tab-color = '1'.
    node_tab-text = 'Hello'.
    node_tab-tlength ='5'.
    node_tab-tcolor = 4.
    node_tab-NODEICON = it_icon_id.
    append node_tab.
    clear node_tab.
    CALL FUNCTION 'RS_TREE_CONSTRUCT'
    EXPORTING
      INSERT_ID                = '000000'
      RELATIONSHIP             = ' '
      LOG                      =
      TABLES
        NODETAB                  = node_tab
    EXCEPTIONS
      TREE_FAILURE             = 1
      ID_NOT_FOUND             = 2
      WRONG_RELATIONSHIP       = 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.
      DATA: type_mapping TYPE stree_ctl_type_mapping_tab.
      DATA: wa_type TYPE stree_ctl_type_mapping.
      CLEAR: type_mapping[].
        wa_type-type = 'A'.
        wa_type-icon = '@A0@'.
        APPEND wa_type TO type_mapping.
    CALL FUNCTION 'RS_TREE_CONTROL_PREPARE'
    EXPORTING
        CONTROL_PATTERN             = 'PH'
        MULTIPLE_SELECTION          = 'X'
         TYPE_MAPPING                = type_mapping.
    CALL FUNCTION 'RS_TREE_LIST_DISPLAY'
    EXPORTING
    LAYOUT_MODE                     = ' '
      USE_CONTROL                     = STREE_USE_LIST.
    Thank you.
    Regards
    Giri.

    Here is another option using <ICON> include,
    *& Report  ZKB_TREE_EXAMPLE
    REPORT  zkb_tree_example.
    INCLUDE <icon>.
    TYPES: BEGIN OF t_sbook,
            customid TYPE sbook-customid,
            fldate TYPE sbook-fldate,
            bookid TYPE sbook-bookid,
          END OF t_sbook.
    DATA: i_sbook TYPE TABLE OF t_sbook,
          w_sbook TYPE t_sbook.
    SELECT-OPTIONS: s_custid FOR w_sbook-customid.
    DATA: o_custom_container  TYPE REF TO cl_gui_custom_container,
          o_tree              TYPE REF TO cl_gui_simple_tree.
    TYPES: t_node_table LIKE TABLE OF trstree.
    DATA: i_node TYPE t_node_table,
          w_node TYPE LINE OF t_node_table.
    START-OF-SELECTION.
      CALL SCREEN 9000.
    *&      Module  status_9000  OUTPUT
          text
    MODULE status_9000 OUTPUT.
      SET PF-STATUS '9000'.
    ENDMODULE.                 " status_9000  OUTPUT
    *&      Module  user_command_9000  INPUT
          text
    MODULE user_command_9000 INPUT.
      CASE sy-ucomm .
        WHEN 'BACK' OR 'EXIT'.
          SET SCREEN 0.
          LEAVE SCREEN.
      ENDCASE.
    ENDMODULE.                 " user_command_9000  INPUT
    *&      Module  init_9000  OUTPUT
          text
    MODULE init_9000 OUTPUT.
      DATA: lw_sbook TYPE t_sbook.
      SELECT customid fldate bookid FROM sbook
             INTO TABLE i_sbook WHERE customid IN s_custid.
      SORT i_sbook BY customid ASCENDING.
      CREATE OBJECT o_custom_container
           EXPORTING
                container_name              = 'TREE'
           EXCEPTIONS
                cntl_error                  = 1
                cntl_system_error           = 2
                create_error                = 3
                lifetime_error              = 4
                lifetime_dynpro_dynpro_link = 5.
      IF sy-subrc <> 0.
        MESSAGE 'Error Creating Container' TYPE 'E'.
      ENDIF.
      CREATE OBJECT o_tree
           EXPORTING
               parent                      = o_custom_container
               node_selection_mode         =
                                 cl_gui_simple_tree=>node_sel_mode_single
           EXCEPTIONS
               lifetime_error              = 1
               cntl_system_error           = 2
               create_error                = 3
               failed                      = 4
               illegal_node_selection_mode = 5.
      IF sy-subrc <> 0.
        MESSAGE 'Error Creating Tree' TYPE 'E'.
      ENDIF.
    Add ROOT Folder
      CLEAR w_node.
      w_node-node_key  = 'ROOT'.
      w_node-text      = 'Root'.
      w_node-isfolder  = 'X'.
      APPEND w_node TO i_node.
      CLEAR lw_sbook .
      LOOP AT  i_sbook INTO w_sbook.
        IF lw_sbook-customid NE w_sbook-customid.
          lw_sbook-customid = w_sbook-customid.
          CLEAR w_node.
          w_node-node_key  = w_sbook-customid.
          w_node-text      = w_sbook-customid.
          w_node-relatkey  = 'ROOT'.
          w_node-relatship = cl_gui_simple_tree=>relat_last_child.
          w_node-isfolder  = 'X'.
          APPEND w_node TO i_node.
        ENDIF.
        CLEAR w_node.
        w_node-node_key  = w_sbook-bookid.
        w_node-relatkey  = w_sbook-customid.
        w_node-relatship = cl_gui_simple_tree=>relat_last_child.
        w_node-text      = w_sbook-bookid.
    <b>    w_node-n_image = icon_customer.</b>
        APPEND w_node TO i_node.
      ENDLOOP.
      CALL METHOD o_tree->add_nodes
        EXPORTING
          table_structure_name           = 'TRSTREE'
          node_table                     = i_node
        EXCEPTIONS
          failed                         = 1
          error_in_node_table            = 2
          dp_error                       = 3
          table_structure_name_not_found = 4
          OTHERS                         = 5.
      IF sy-subrc <> 0.
        MESSAGE 'Error Adding Node to Tree' TYPE 'E'.
      ENDIF.
    Expand tree
      CALL METHOD o_tree->expand_root_nodes
        EXPORTING
          level_count    = 2
          expand_subtree = ' '
        EXCEPTIONS
          OTHERS         = 1.
      IF sy-subrc <> 0.
        MESSAGE 'Error Expanding Tree' TYPE 'E'.
      ENDIF.
    ENDMODULE.                 " init_9000  OUTPUT
    Regards
    Kathirvel

  • Icons no longer display in grid view in Yosemite

    Hello,
    All of a sudden, the icons in folders no longer display in Grid view, but only in the other kinds of view list etc.
    Please, I need your help since that is the preferred method I use to display my icons
    Here is a link to the screenshot of what I see for further reference:
    http://monosnap.com/image/jxliJJrL8dvX8cSsLFFlRm899BqYRN
    Any help would be more than appreciated! I am desperate!

    Right click the Application icon in the Dock.
    Select "Grid" or "Automatic" under "View content as" from the menu that pops up.

  • No page display icons/can't change page display

    Just installed Digital Editions on a MacBook Pro; there are no page display icons to change the view (to side-by-side pages, or one, etc) and the keyboard shortcuts don't work either.  Any thoughts?

    You are most likely viewing an ePub file.  The only controls are the font size controls, and the view will automatically move to a two page view when the combination of screen size/font size is enough to display the content in that view.  On my MacBook Pro this happens in a medium font view with the window maximized to full width.

  • Changing your display icons (gestures) on Palm Pre

    I heard that you can change the display icons (gestures) at the bottom of the screen if you want.  Anybody know how to do that?  I would like to replace my calendar icon with the messaging icon.  I heard a few times it's possible.  Thanks.!!
    Post relates to: Pre p100eww (Sprint)
    This question was solved.
    View Solution.

    Thanks for the solution.  Another question would be that when i was at the Sprint store, one of them stated that it's possible to delete pre-loaded apps???  (NFL, NASCAR) etc...  I figured you couldn't because it's part of the hardware but I figured I would ask.  Thanks..

  • How do I add the Displays icon to the Menu Bar?

    In prior OS on my iMac, I was able to add the Display icon to the Menu Bar, making it a quick fix to adjust the resolution.  That option no longer appears in the Display section of System Preferences.  I am using multiple displays.  Could that make any difference?  Any suggestions?

    http://displaymenu.milchimgemuesefach.de/about.html

  • MRP group field can not be displayed in MRP1 view

    Hi all
    MRP group field can not be displayed in MRP1 view
    please guide me
    thx

    Hi avinash
    consulte your MM guy material master screen group and selection is done by MM guys in general. There they can do setting for this.
    Also why you need MRP group. If it is maintained. It should be done properly otherwise it will create lot of problems.
    Regards
    J . Saravan

  • Does anyone know if it is possible to change the display in week view to show 24 hours per day for those of us that work irregular hours

    Does anyone know if it is possible to change the display in week view to show all 24 hours per day for those of us that work irregular hours.
    Also is it possible to have all of the 'all day' entries showing, not just 3.5 of them.
    The app Week Cal HD was the perfect calendar until Apple removed it so could they please offer the same facilities that it offered.

    Does anyone know if it is possible to change the display in week view to show all 24 hours per day for those of us that work irregular hours.
    Also is it possible to have all of the 'all day' entries showing, not just 3.5 of them.
    The app Week Cal HD was the perfect calendar until Apple removed it so could they please offer the same facilities that it offered.

  • How to display ICONS in normal report without using icons table

    Hi Friends,
    I have to display icons(traffic lights) in a normal report.
    Can we do that without using icons table?
    If yes, please let me know how?
    Thanks,

    Hi Pagidala,
    Go to txcode - ABAPDOCU and in that expand BC-ABAP Programming->ABAP User Dialog->Screens->complex screen elements->status icons on Screens.
    In this you can see sample code which may help you.
    Cheers!!

  • To display icon in ALV report

    How to display icon (like green or red circle similar to signal light) in ALV Report

    Hi,
    just create a separate col in alv and in the field catalog assign the property lights .
    and refer to the wiki link
    [http://wiki.sdn.sap.com/wiki/display/Snippets/ALVGriddisplaywithLights]
    Hope this resolves the issue !
    Best of Luck !!
    Regards,
    Ravi Aswani

  • I want to display icons in ALV

    Hi friends,
    I want to display icon indicators in ALV ???
    can anybody tell me ??/
    Thanks...

    Hi sturdy,
    this code will help u...copy paste and run...
    *& 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.
    *-- 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]

  • Can we display ICONS in ALV list?

    Hi,
       Is it possible to display icons (ICON_GREEN_LIGHT) in the ALV list using the function module REUSE_ALV_LIST_DISPLAY.
       Is there any possibility of displaying a list using object oriented ALV?
    Thanks and Regards,
    Lakshmi.

    Hi Lakshmi,
    Just check this once.
    REPORT  Zxxx  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,
           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  build_fieldcat
    *FORM BUILD_FIELDCAT .
    IT_FIELDCAT-COL_POS    = '1'.
    IT_FIELDCAT-FIELDNAME  = 'ICON'.
    IT_FIELDCAT-KEY        = 'X'.
    IT_FIELDCAT-OUTPUTLEN  = '10'.
    IT_FIELDCAT-SELTEXT_L  = 'LIGHT'.
    APPEND IT_FIELDCAT.
    CLEAR  IT_FIELDCAT.
    IT_FIELDCAT-COL_POS    = '2'.
    IT_FIELDCAT-FIELDNAME  = 'VBELN'.
    IT_FIELDCAT-KEY        = 'X'.
    IT_FIELDCAT-OUTPUTLEN  = '10'.
    IT_FIELDCAT-SELTEXT_L  = 'SALES DOC NUMBER'(009).
    APPEND IT_FIELDCAT.
    CLEAR  IT_FIELDCAT.
    IT_FIELDCAT-COL_POS    = '3'.
    IT_FIELDCAT-FIELDNAME  = 'AUDAT'.
    IT_FIELDCAT-KEY        = 'X'.
    IT_FIELDCAT-OUTPUTLEN  = '4'.
    IT_FIELDCAT-SELTEXT_L  = 'DOCUMENT DATE'(010).
    APPEND IT_FIELDCAT.
    CLEAR  IT_FIELDCAT.
    IT_FIELDCAT-COL_POS    = '4'.
    IT_FIELDCAT-FIELDNAME  = 'VBTYP'.
    IT_FIELDCAT-KEY        = 'X'.
    IT_FIELDCAT-OUTPUTLEN  = '4'.
    IT_FIELDCAT-SELTEXT_L  = 'CATEGORY'(011).
    APPEND IT_FIELDCAT.
    CLEAR  IT_FIELDCAT.
    IT_FIELDCAT-COL_POS    = '5'.
    IT_FIELDCAT-FIELDNAME  = 'AUART'.
    IT_FIELDCAT-OUTPUTLEN  = '4'.
    IT_FIELDCAT-SELTEXT_L  = 'DOCUMENT TYPE'(012).
    APPEND IT_FIELDCAT.
    CLEAR  IT_FIELDCAT.
    IT_FIELDCAT-COL_POS    = '6'.
    IT_FIELDCAT-FIELDNAME  = 'AUGRU'.
    IT_FIELDCAT-OUTPUTLEN  = '12'.
    IT_FIELDCAT-SELTEXT_L  = 'Order reason'(013).
    APPEND IT_FIELDCAT.
    CLEAR  IT_FIELDCAT.
    IT_FIELDCAT-COL_POS    = '7'.
    IT_FIELDCAT-FIELDNAME  = 'NETWR'.
    IT_FIELDCAT-OUTPUTLEN  = '12'.
    IT_FIELDCAT-SELTEXT_L  = 'NET VALUE'(014).
    APPEND IT_FIELDCAT.
    CLEAR  IT_FIELDCAT.
    IT_FIELDCAT-COL_POS    = '8'.
    IT_FIELDCAT-FIELDNAME  = 'WAERK'.
    IT_FIELDCAT-OUTPUTLEN  = '12'.
    IT_FIELDCAT-SELTEXT_L  = 'SD DOC CURR'(015).
    APPEND IT_FIELDCAT.
    CLEAR  IT_FIELDCAT.
    *ENDFORM.                    " build_fieldcat
    *&      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.
    *-- 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
    hope it helps u
    regards
    laxmi

  • Display icons in ALV LVC grid

    Hi experts,
    Iam trying to display icons in one of the columns in my ALV grid.
    I have created ITAB like this.
    type-pools : icon,slis.
    data: begin of gt_dtl occurs 0,
          range(4).
            include structure zbitrdtl.
    data: field_style type lvc_t_styl.
    data: end of gt_dtl.
    And iam trying to pass ICON like this.
      loop at gt_dtl.
        gt_dtl-range = icon_green_light.
        modify gt_dtl.
      endloop.
    And passing into fieldcat.
      ls_fcat-fieldname = 'Range'.
      ls_fcat-tabname   = 'GT_DTL'.
      ls_fcat-scrtext_l  = 'Range'.
      ls_fcat-outputlen = '10'.
      ls_fcat-col_pos   = 8.
      ls_fcat-icon      = 'X'.
      append ls_fcat to gt_fieldcat.
      clear ls_fcat.
      call function 'LVC_FIELDCATALOG_MERGE'
        exporting
          i_buffer_active        = 'X'
          i_structure_name       = 'ZBITRDTL'
          i_client_never_display = 'X'
          i_internal_tabname     = 'GT_DTL'
        changing
          ct_fieldcat            = gt_fieldcat
        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.
    <b>Iam able to see the ICON in the ITAB in debugging mode.</b>
    But iam not getting ICON in my output of ALV.
    where iam doing wrong?
    Rewared guaranteed,
    thanks
    kaki

    Hi...
    copy paste the following code. And check out hte variation.
    Hope this will be helpful
    Thank-You.
    vinsee
    REPORT  zrwty_wty_errors                        .
    TYPE
    TYPE-POOLS: slis, icon.
    Tables
    Tables : pnwtyh,
             balhdr.
    Data Decleration
    DATA: text(1000), lv_clmno(40).
    Internal table for messages ( Datewise )
    DATA: BEGIN OF it_balhdr OCCURS 0,
          lognumber TYPE balhdr-lognumber,
          log_handle TYPE  balhdr-log_handle,
          END OF it_balhdr.
    Internal table for PNWTYH
    DATA: BEGIN OF it_pnwtyh OCCURS 0,
          clmno TYPE pnwtyh-clmno,
          log_message TYPE pnwtyh-log_message,
          END OF it_pnwtyh.
    Internal table to fetch the actual text messages
    DATA: it_message LIKE balm OCCURS 0 WITH HEADER LINE.
    Internal Table to handle the ALV o/p
    DATA: BEGIN OF it_grid OCCURS 0,
          clmno TYPE pnwtyh-clmno,
          chgdat TYPE dats,
          icon TYPE icon-id," BALIMSGTY
          text(1000),
          END OF it_grid.
    Field Catelog and layout Decleration
    DATA: it_fieldcat  TYPE lvc_t_fcat,
          wa_fieldcat TYPE lvc_s_fcat OCCURS 0 WITH HEADER LINE,
          x_fieldcat TYPE lvc_s_fcat OCCURS 0 WITH HEADER LINE.
    DATA: x_layout TYPE lvc_s_layo.
    DATA: lv_repid LIKE sy-repid.
    have hotspot for a PO.
    DATA: s_fieldcat LIKE LINE OF it_fieldcat.
    s_fieldcat-hotspot = 'X'.
    SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.
    SELECT-OPTIONS:
      s_aldate FOR balhdr-aldate.
        SELECTION-SCREEN END OF BLOCK b1.
    SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.
    PARAMETERS : r1 RADIOBUTTON GROUP rg DEFAULT 'X'.
    PARAMETERS : r2 RADIOBUTTON GROUP rg .
      SELECTION-SCREEN END OF BLOCK b2.
      if s_aldate-high = '00000000'.
      s_aldate-high = s_aldate-low.
      endif.
    FM to fetcht he messg no. based on date
    CALL FUNCTION 'APPL_LOG_READ_DB'
    EXPORTING
       object                   = 'WTY'
       subobject                = 'CLAIMMSG'
        EXTERNAL_NUMBER          = ' '
       date_from                = s_aldate-low
       date_to                  = s_aldate-high
         TIME_FROM                = '000000'
         TIME_TO                  = '240000'
         log_class                = '1'
        PROGRAM_NAME             = '*'
        TRANSACTION_CODE         = '*'
        USER_ID                  = ' '
        MODE                     = '+'
        PUT_INTO_MEMORY          = ' '
      IMPORTING
        NUMBER_OF_LOGS           =
    TABLES
        HEADER_DATA              =
        HEADER_PARAMETERS        =
       messages                 = it_message
        MESSAGE_PARAMETERS       =
        CONTEXTS                 =
    data: zlines type i.
    describe table it_message lines zlines.
    if it_message[] is initial.
    message S398(00) with 'No data found.'.
    exit.
    endif.
    IF radio button ERROR only is selected, Delete others
    IF r2 = 'X'          .
      DELETE it_message WHERE msgty <> 'E'.
    ENDIF.
    fetch log_handle from BALHDR
    SELECT lognumber log_handle FROM balhdr INTO TABLE it_balhdr FOR ALL
    ENTRIES IN
    it_message WHERE lognumber = it_message-lognumber.
    Based on log _handle fetch claim no from PNWTYH
    SELECT DISTINCT clmno log_message FROM pnwtyh INTO TABLE it_pnwtyh FOR
    ALL ENTRIES IN it_balhdr WHERE log_message = it_balhdr-log_handle.
    LOOP AT it_message.
      READ TABLE it_balhdr WITH KEY lognumber = it_message-lognumber.
      IF sy-subrc = 0.
        READ TABLE it_pnwtyh WITH KEY log_message = it_balhdr-log_handle.
        IF sy-subrc = 0.
          lv_clmno = it_pnwtyh-clmno.
        ENDIF.
    FM to fetch the actual text message
        CALL FUNCTION 'FORMAT_MESSAGE'
          EXPORTING
            id        = it_message-msgid
            lang      = 'EN'
            no        = it_message-msgno
            v1        = it_message-msgv1
            v2        = it_message-msgv2
            v3        = it_message-msgv3
            v4        = it_message-msgv4
          IMPORTING
            msg       = text
          EXCEPTIONS
            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.
        it_grid-clmno = lv_clmno.
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
          EXPORTING
            input  = it_grid-clmno
          IMPORTING
            output = it_grid-clmno.
    Local Variable to handle Date Data
        DATA: l_tmstp(30) TYPE c,
        l_date TYPE sydatum.
        WRITE it_message-time_stmp TO l_tmstp LEFT-JUSTIFIED DECIMALS 0
        NO-GROUPING.
        l_date = l_tmstp(8).
        it_grid-chgdat = l_date.
        it_grid-text = text.
        IF  it_message-msgty = 'E'.
          it_grid-icon = '@0A@'.
        ELSEIF it_message-msgty <> 'E' AND it_message-msgty <> 'S'.
          it_grid-icon = '@09@'.
        ENDIF.
        APPEND it_grid.
        CLEAR it_grid.
        CLEAR: lv_clmno, it_message, text.
      ENDIF.
    ENDLOOP.
    PERFORM display_alv.
    *&      Form  display_alv
          text
    -->  p1        text
    <--  p2        text
    FORM display_alv .
      PERFORM build_field_catalog.
      PERFORM build_layout.
    Assign program name to variable
      lv_repid = sy-repid.
    Call the ALV Grid FM for Display
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
          EXPORTING
            i_callback_program       = lv_repid
            i_grid_title             = 'Wty Errors'
            is_layout_lvc            = x_layout
            it_fieldcat_lvc          = it_fieldcat
            I_CALLBACK_USER_COMMAND  = 'USER_COMMAND'
          TABLES
            t_outtab                 = it_grid[]
          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
    *&      Form  build_field_catalog
          text
    -->  p1        text
    <--  p2        text
    FORM build_field_catalog .
    CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
        EXPORTING
          i_structure_name       = 'ZWTY_ERR'
          i_bypassing_buffer     = 'X'
        CHANGING
          ct_fieldcat            = it_fieldcat[]
        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.
    wa_fieldcat-col_pos = 1.
    wa_fieldcat-fieldname = 'ICON'.
    wa_fieldcat-seltext_l = 'Mssg Type'.
      wa_fieldcat-seltext = 'Mssg Type'.
      wa_fieldcat-icon = 'X'.
      wa_fieldcat-SCRTEXT_L = 'Mssg Type'.
    wa_fieldcat-outputlen = 8.
    wa_fieldcat-tabname = 'IT_GRID'.
    APPEND wa_fieldcat TO it_fieldcat.
    MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext_l WHERE
    fieldname = 'ICON' .
    CLEAR wa_fieldcat.
      MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext icon
    SCRTEXT_L
    WHERE
      fieldname = 'ICON' .
      CLEAR wa_fieldcat.
    wa_fieldcat-col_pos = 2.
    wa_fieldcat-fieldname = 'CHGDAT'.
    wa_fieldcat-seltext_l = 'Chg Date'.
      wa_fieldcat-seltext = 'Chg Date'.
        wa_fieldcat-SCRTEXT_L = 'Chg Date'.
    wa_fieldcat-outputlen = 10.
    wa_fieldcat-tabname = 'IT_GRID'.
    APPEND wa_fieldcat TO it_fieldcat.
    CLEAR wa_fieldcat.
    MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext_l WHERE
    fieldname = 'CHGDAT' .
    CLEAR wa_fieldcat.
    MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext SCRTEXT_L
    WHERE
      fieldname = 'CHGDAT' .
      CLEAR wa_fieldcat.
    wa_fieldcat-col_pos = 4.
    wa_fieldcat-fieldname = 'TEXT'.
    wa_fieldcat-seltext_l = 'Message Text'.
      wa_fieldcat-seltext = 'Message Text'.
          wa_fieldcat-SCRTEXT_L = 'Chg Date'.
    wa_fieldcat-outputlen = 100.
    wa_fieldcat-tabname = 'IT_GRID'.
    APPEND wa_fieldcat TO it_fieldcat.
    CLEAR wa_fieldcat.
    *MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext_l WHERE
    fieldname = 'TEXT'.
    CLEAR wa_fieldcat.
    MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext SCRTEXT_L WHERE
      fieldname = 'TEXT'.
      CLEAR wa_fieldcat.
      MODIFY it_fieldcat FROM s_fieldcat TRANSPORTING hotspot
      WHERE fieldname = 'CLMNO'.
    ENDFORM.                    " build_field_catalog
    *&      Form  Build_layout
          text
    -->  p1        text
    <--  p2        text
    FORM build_layout .
      CLEAR x_layout.
    x_layout-colwidth_optimize = 'X'.
    x_layout-zebra = 'X'.
    ENDFORM.                    " Build_layout
    FORM display_detail *
    --> UCOMM *
    --> SELFIELD *
    FORM user_command USING ucomm LIKE sy-ucomm
    selfield TYPE slis_selfield.
      IF ucomm = '&IC1'.
        READ TABLE it_grid INDEX selfield-tabindex.
        IF sy-subrc EQ 0.
    CALL 'WTY' FOR SELECTED CLAIM
          CALL FUNCTION 'ZWTY_CLAIM_DISPLAY'
            EXPORTING
              i_clmno          = it_grid-clmno
              iv_from_doc      = 'J'
            EXCEPTIONS
              not_found        = 1
              authority_failed = 2
              no_claimtype     = 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.
        ENDIF.
      ENDIF.
    ENDFORM.                    "user_command

Maybe you are looking for

  • Can't get rid of a time event on iCal; it's there on everyday

    Made some schedules for the month but when I go to print, there's this "8:00PM" time on everyday. I don't know where that came from and I can't figure out how to eliminate it. It also shows up on a NEW calendar too! (It shows only when printing in al

  • Application crashes when I am simultaniously loading media file

    Hi, I am using JavaFx 2.2.3 if I am simultaniously loading media file to MediaPlayer again and again after a while it reflect un-supported media file error message and then a JVM show a fatal-error message box and then application crashes. I donot un

  • Purchase of the same app twice accidently?

    I had attempted to purchase myExplorer app from the utilities section of the Ovi store. After pressing the buy button and confirming it to be payed through my phone bill it states an error with the transaction had occured and ovi store had acted as i

  • Order combination in Outbound delivery

    Hi, I have a problem. We have a lot of Sales orders with different Sold-to-Parties but all have the same Ship-to-party so we want all the orders to be combined in to one delivery when creating the deliveries in VL10A. But that is not the case, I get

  • FAQ: How do I trim in the Timeline using keyboard shortcuts in Premiere Pro CS6 and CC?

    You can now trim with a lot more keyboard shortcuts in the Timeline in Premiere Pro CS6 and CC. See this article for details: Timeline trimming using keyboard shortcuts in Premiere Pro CS6.