Display icons in forms 9i

Icons are displayed properly on design layout of forms 9i.
But at runtime these icons are disappeared !! why?
Can you tell me how to display them at runtime?
Thanks in advance.

1. convert the icons to gif using appropriate software with 18 pixel width and 18 pixel height
2. open the dos command and enter to the directory where all gif icons exist.
3. at that directory type:
c:\oracle9i\forms\jdk\bin\jar -cfv myappicons.jar *.gif
this to put all gif into jar file called myappicons.
4.copy this myappicons.jar into the following folder: c:\oracle9i\forms90\java
5. open the registery.dat file located in forms90\java\oracle\forms\registery and add :
default.icons.iconpath=the directory where the gif icons exist
default.icons.iconextension=gif
6. open formsweb.cfg file located in forms90\server and replace the text: archive_jini=f90all_jini.jar with :
archive_jini=f90all_jini.jar,myappicons.jar
imagebase=codebase

Similar Messages

Displaying icons in forms 9i

I am new to forms 9i. I want to display icons in my menu toolbar.
Please send me the solution to display icons.
Thanks for ur help.

We tried to follow the instructions on the webicons.pdf file but we still can't see our icon in the forms builder or on our local machine webserver. We created a jar file but now we don't know how to reference the jpg in the properties of the button on our form. What we are trying to do is create a down arrow button to envoke a LOV. Is there an easier way?

Iconic buttons not display icons

Hello All,
i have problem with the iconic buttons not display icons in forms 10g
i have set button properties as
iconic=yes
icon filename=print
my path for icons and forms are
e:\backoffice
plz any solution
thx
najeeb ur rehman

Hi,
Read the doc at :
http://www.oracle.com/technology/ products/forms/pdf/webicons.pdf
It's very descriptive and It'll help you...
Regards ,
Simon

Icons not displaying in oracle forms.

Hi All,
I am trying to display icons on Oracle forms 10g.I just brought over these forms from another system and I am trying to display the icons like next record, clear form etc..
I have done the following steps so far. The icons are still not displaying. Appreciate any help.
Created a folder in D:\oracle\oracleas\forms\java called icons.
Copied all gif files and jpeg files into icons. Then created a jar file.
D:\oracle\oracleas\forms\java>jar -cvf my_icons.jar icons
It created the jar file in the same directory D:\oracle\oracleas\forms\java
Also changes were made to these files as shown below each file.
forms.conf
AliasMatch ^/forms/icons/(..*) "D:\oracle\oracleas\forms\java\icons/$1"
registry.dat
default.icons.iconpath=http://servername:7778/forms/java/
formweb.cfg
# Forms applet parameter
codebase=/forms/java
# Forms applet parameter
imageBase=codebase
# Forms applet archive setting for JInitiator
archive_jini=frmall_jinit.jar,frmmain.jar, frmjdapi.jar, my_icons.jar
# Forms applet archive setting for other clients (Sun Java Plugin, Appletviewer, etc)
archive=frmall.jar,frmmain.jar, frmjdapi.jar, my_icons.jar
Also added this line under orion-web-app in orion-web.xml file.
<virtual-directory virtual-path="/icons" real-path="D:\oracle\oracleas\forms\java\icons" />
Restarted the OC4J forms server after any change.

To test your configuration, you can try building an URL:
i.e.
http://localhost:8889/forms/frmservlet/icons/iconname.gif
Does it show the icon ?
If that does not work, I would try re-generating the my_icons.jar file, but instead of going directly to the forms/java/icons folder, copy the icons folder to the root directory i.e. c:\icons and execute the command to jar the icons folder, then redeploy the my_icons.jar file.
Then try again with the URL... if the URL does not work, you still have configuration issues.
PS: Don't forget to clear the cache in your browser so that the new .jar files is loaded?
Furthermore:
========
Remove the changes made to the forms.conf and orion-web.xml, they are only needed if the icons are
not stored in a .jar file.
forms.conf
AliasMatch ^/forms/icons/(..*) "D:\oracle\oracleas\forms\java\icons/$1"
orion-web.xml
<virtual-directory virtual-path="/icons" real-path="D:\oracle\oracleas\forms\java\icons" />
Edited by: Rodolfo Ferrari on Jun 17, 2009 6:14 PM
To double check your configuration, follow steps in metalink note 232413.1 - How to Deploy Iconic Images via a JAR File in Forms 9i/10g?.
Edited by: Rodolfo Ferrari on Jun 17, 2009 7:19 PM
Edited by: Rodolfo Ferrari on Jun 17, 2009 7:24 PM

How to set forms 11g buttons to display icons

Hi,
How to set forms 11g buttons to display icons.Actually i have tried so many links
http://blog.newtrics.com/?p=936
Re: Icon image not showing in forms 11g RELEASE 2
but i am not getting image on the Oracle Form.Bad Image is always showing.
I am trying from 1 week So plz help me Its very urgent .
Thanks
Anup
Edited by: 888679 on May 22, 2012 4:37 AM

am afraid u r configuring the wrong file path pls verify....
formsweb.cfg
path = c:\Oracle\Middleware\user_projects\domains\<my_domain>\config\fmwconfig\servers\WLS_FORMS\applications\formsapp_11.1.1\conf
registry entries as well
Hope this helps...
Regards,
Amatu Allah
Edited by: Amatu Allah on May 22, 2012 6:17 AM

How to display iconic images using forms 9i

Hi,
i had created a simple push button ,and made its properties iconic=yes and icon file name =c:\temp\save
i had copied the save.GIF file in the c:\temp path
also i had made necessary changes in the orion.web file
and registry.dat
actually i had the metalink document 203846.1 and followed all the step written in that doc.
but then also during run time i am not able to see the icons.
Can you give me a sample code having only one push button
and all the changes in different files to make the icons appear in web.
I had tried all the steps so pl give me the sample step by step code.
Thanks ,
Kumar Iyer

Hi Kumar,
I think if you follow the oracle note 203846.1 more or less it should be fine. I took a little exception on step 7 which requires modifying the registry.dat file.
I ignored the step 7, try this in forms builder for button property
1) icon filename=save
2) create jar file for icons under c:\temp directory, using the command
C:\Temp>jar -cvf icons.jar *.gif
please note that file save.GIF should be save.gif since java is case sensitive.
3) modify the following entries in file <9iDS_HOME>\forms90\server\formsweb.cfg
archive_jini=f90all_jinit.jar,/forms90/icons/icons.jar
imageBase=codebase
so this should help in your test form to display icon at runtime.
-Lokesh

Displaying Icons on Push Buttons in forms 10g

How can i Display Icons on Push Buttons in forms 10g ?

Set the property "Iconic" of the button to "Yes" and enterthe iconname in the Property "Icon Name" (without path and extension).
About how to make items accesible in forms, have a look at this http://download.oracle.com/docs/cd/B14099_19/web.1012/b14032/configure009.htm

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

Icons in Forms 9i

Can anybody tell me how to easy way to solve problem with icon in forms 9i. Please write me a way in step by step
Thanks

This is simple.
1. put your icons (.gif) in forms90\java folder
2. change the formsweb.cfg file
(it is imagebase=documentbase)
chnage that imagebase=codebase
3. create an iconic button. icon filename should be exact as the name of the icon. (case sensitive). (i.e. if the icon name is EXIT.gif, the icon file name also should be EXIT.gif)
You will see the icons at the runtime. Hope that helps. if it does not help, i can send you a form displaying icons and the corresponding formsweb.cfg file. Happy coding!!

Images are not displaying in the forms run time.

Hello All,
I am using forms 10.1.2.3.0 and database 11g in the windows XP platform.
I am not able to see the images in the buttons at the run time. I have done the following setup for the same but still I am not able to display images in the buttons. I have gone through all the previous threads for the same. Can any body suggest where I am doing the wrong?
1) Created one JAR file with the below command putting all the gif files in a folder (All the GIF files are in lower case). Kept this jar file in the forms/java folder. (When I am extracting the JAR file getting all the gif files and one more folder META-INF).
rem====
jar cvf icon.jar *.gif
rem=====
2) Modified the formsweb.cfg file as follows.
imageBase=codeBase
archive_jini=frmall_jinit.jar,icon.jar
3) In the buttons property Iconic = Yes and Iconicfile name = icon_print (gif file name).
4) Modified the Registry.dat file in the path "forms\java\oracle\forms\registry\Registry.dat" as follows.
default.icons.iconpath=forms/java
default.icons.iconextension=gif
Start the OC4J instance, and run the application, but still not able to see the images in the buttons. After I modified the regedit file I am able to see the images in the design time but not in the run time.
Any thing more needed to do the same. All the suggestions are welcome.
Thanks,
SUN
Edited by: User SUN@ on Nov 23, 2009 11:25 AM

Create a virtual directory icons in your /forms/server/forms.conf file
In the registry.dat file change
change
default.icons.iconpath=http://yourmachine:port/forms/icons/
Re: icons not displaying in oracle forms.
Re: Icon deploy issue in 10g forms
Re: cannot show icon images
Re: Step by step creation of iconic buttons

Displaying Icons in 10g runtime (On Linux RHEL 5)

Hi, I've read several threads on here about displaying Icons in 10g runtime.
Currently, I am able to get the Icons to work on my localhost Windows machine and the icons display fine.
However, my icons are not displaying when I copy them over to the Linux machine. My forms compile correctly. I've made sure they were case-sensitive.
I modified the Registry.dat file to point to the path where I so tried the icons (in my case, /home/OraHome_1/yb/ico, where I've put all my icons in a file called icons.jar).
I also modified the default.env file to point the CLASSPATH to this directory as well.
Am I missing something on Linux, because this works on Windows.
Thanks,
Chris

I do not remember making changes to the CLASSPATH, either way it would be good that you double check your steps against the metalink note 232413.1 - How to Deploy Iconic Images via a JAR File in Forms 9i/10g.
As a reference, you can also take a look at this thread icons not displaying in oracle forms.

Displaying icons in JMenuBar

Is it possible to display icons instead of text in the JMenuBar? I know you can make menu items with icons/text, but the menu itself I'd like to use an icon.
The only possible workaround I can think of is to use a toolbar (with icon buttons) and attach action events to load a JPopupMenu... however, I have to add code to figure out the dynamic positioning and to hide/show the menus appropriately.
Is there a simplier way?

I do not remember making changes to the CLASSPATH, either way it would be good that you double check your steps against the metalink note 232413.1 - How to Deploy Iconic Images via a JAR File in Forms 9i/10g.
As a reference, you can also take a look at this thread icons not displaying in oracle forms.

Displaying Icons on buttons --Urgent Help Please

Hi All,
I have been trying to display icons on push buttons. This is what I did after reading the white papers. Still it does not work. Please help.
1. Created a folder on my Oracle home called images
2. From Ms Dos ran d:\OracleHome\jdk\bin\jar.exe -cvf d:\OracleHome\forms90\java\images.jar *.gif
3. Changed the formsweb.cfg
imageBase=codeBase
archive_jini=f90all_jinit.jar,images.jar
( here I even tried Flip flopping the two values. The Jinitior part wored but the image still does not show.)
4. Saved the file , started the listner and ran the test form.
5. Named the Icon file name to Aflist (no extensions)
DOES NOT WORK.
Pleaseeeeeeeeeeeeeeee Help.
Many thanks in Advance.

Frank,
Thanks for the reply.
I have opened the .jar file and saw that it is having the full path. myImages.jar is created in oracle_home/forms90/java directory. No luck.
Now, I have some question about formswerb.cfg file, I do not see any section pertaining to the form that I developed and deployed. How is this config file referenced when my FORM is running on the browser?
# 1) Runform arguments:
#form=test.fmx
form=EMP1.fmx
userid=I changed the form to EMP1.fmx, but even with test.fmx file in place, my EMP1.fmx runs just fine. I am baffled with the arrangement here.
Can you explain or direct to some documentation, where I can find precise information about what the following files do, from a developer stand point, what changes do I need to make in these files before deploying the forms on the browser.
forms90.conf
formsweb.cfg
forms90.propertiesI will be very much thankful for the information.
Thx,
Sri

Display icons in forms 9i

Similar Messages

Maybe you are looking for