Regarding icon

Former Member — Wed, 28 Feb 2007 04:48:16 GMT

Hi experts,

I have developed a report in which i have to display an icon, which appear has combination of 3 lights (Green, yellow and red). how to display that icon. please help me.

Thanjs in advance.

Re: Regarding icon

Former Member — Wed, 28 Feb 2007 04:53:18 GMT

Hi,

See the sample code for the Icons:

&----

*& Form select_icons

&----

select icons for display and move data to display table

----

type-pools: icon.

form select_icons.

data: w_disp_tab like zpickdisp,

w_disp_head like zpickhead,

w_color like zpickdisp-color,

ov_icon like zpickdisp-ov_icon,

gi_icon like zpickdisp-gi_icon,

to_icon like zpickdisp-to_icon,

lp_icon like zpickdisp-lp_icon,

pc_icon like zpickdisp-pc_icon,

lv_icon like zpickdisp-lv_icon,

vm_icon like zpickdisp-vm_icon,

em_icon like zpickdisp-em_icon,

t_ovst_tab like t_disp_tab with header line.

constants: c_col1(3) value 'C10',

c_col2(3) value 'C20'.

sort t_data_tab by lgtor vbeln.

w_color = c_col2.

loop at t_data_tab.

at new lgtor.

fill ALV header table

clear w_disp_head.

w_disp_head-lgtor = t_data_tab-lgtor.

append w_disp_head to t_disp_head.

endat.

goods issue status & overall amber/green only

case t_data_tab-wbstk.

when c_c.

move icon_green_light to gi_icon.

move icon_green_light to ov_icon.

when others.

move icon_red_light to gi_icon.

move icon_yellow_light to ov_icon.

endcase.

transfer order status

case t_data_tab-lvsta.

when c_a.

move icon_red_light to to_icon.

when c_b.

move icon_yellow_light to to_icon.

when c_c.

move icon_green_light to to_icon.

when space.

write N/A

to_icon = 'N/A'.

endcase.

loaded to pallet status

if not t_data_tab-zpallet_no is initial.

move icon_green_light to lp_icon.

else.

move icon_red_light to lp_icon.

endif.

pallet count status

if not t_data_tab-zcount_check is initial.

move icon_green_light to pc_icon.

else.

move icon_red_light to pc_icon.

endif.

loaded to van status

if not t_data_tab-zvan_no is initial.

move icon_green_light to lv_icon.

else.

move icon_red_light to lv_icon.

endif.

van manifest status

if not t_data_tab-zvan_print is initial.

move icon_green_light to vm_icon.

else.

move icon_red_light to vm_icon.

endif.

end of day manifest status

if not t_data_tab-zeod_print is initial.

move icon_green_light to em_icon.

else.

move icon_red_light to em_icon.

endif.

move working data table to display table

move-corresponding t_data_tab to w_disp_tab.

w_disp_tab-ov_icon = ov_icon.

w_disp_tab-gi_icon = gi_icon.

w_disp_tab-to_icon = to_icon.

w_disp_tab-lp_icon = lp_icon.

w_disp_tab-pc_icon = pc_icon.

w_disp_tab-lv_icon = lv_icon.

w_disp_tab-vm_icon = vm_icon.

w_disp_tab-em_icon = em_icon.

w_disp_tab-color = w_color.

fill N/A values for initial fields for display

if w_disp_tab-packvorschr is initial.

w_disp_tab-packvorschr = 'N/A'.

endif.

if w_disp_tab-exidv is initial.

w_disp_tab-exidv = 'N/A'.

endif.

if w_disp_tab-zpallet_no is initial.

write 'N/A' to w_disp_tab-zpallet_no.

endif.

if w_disp_tab-zvan_no is initial.

write 'N/A' to w_disp_tab-zvan_no.

endif.

display different color for new doc number

at end of vbeln.

if w_color = c_col1.

w_color = c_col2.

elseif w_color = c_col2.

w_color = c_col1.

endif.

endat.

append w_disp_tab to t_disp_tab.

clear w_disp_tab.

endloop.

we have all the icons in display but need to check the overall status
as this refers to the line items
green and amber statuses already set and use the same criteria as the
goods issue status unless detected as red here

data: ov_stat_red(1).

clear w_disp_tab.

sort t_disp_tab by vbeln.

loop at t_disp_tab into w_disp_tab.

at new vbeln.

check all line items for delivery

loop at t_data_tab where vbeln = w_disp_tab-vbeln.

if t_data_tab-lvsta = c_a.

set overall status to red

ov_stat_red = c_yes.

exit.

else.

leave green/amber status icon as previosly determined

endif.

endloop.

if ov_stat_red = c_yes.

set overall status to red for all items in that delivery

clear ov_stat_red.

move icon_red_light to w_disp_tab-ov_icon.

modify t_disp_tab from w_disp_tab transporting ov_icon

where vbeln = w_disp_tab-vbeln.

endif.

endat.

endloop.

endform. " select_icons

Regards,

Anji

Re: Regarding icon

Former Member — Wed, 28 Feb 2007 04:54:46 GMT

Abdul,

you have to declare the type-pools in ICON in your program.

You can output certain characters as icons using the addition ...AS ICON. You should only address these characters with their system-defined names.

u have to write it to the list using WRITE statement.

Synatax :

WRITE: / ICON_RED_LIGHT AS ICON.

similarly...

for Green light :

ICON_GREEN_LIGHT

for Yellow light :

ICON_YELLOW_LIGHT

Hope this clue may solve your problem.

Regards,

Sujatha.

Re: Regarding icon

Former Member — Wed, 28 Feb 2007 05:08:25 GMT

wht is <b>zpickdisp</b> in the code

Re: Regarding icon

Former Member — Wed, 28 Feb 2007 05:10:16 GMT

still need some reponses

Re: Regarding icon

Former Member — Wed, 28 Feb 2007 05:31:11 GMT

Hi,

Goto ICON type group in SE11 and copy the code for the icon and display the same in your output

ICON_4 ICON_GREEN_LIGHT '@08@'." Green light; positive

ICON_4 ICON_YELLOW_LIGHT '@09@'." Yellow light; neutral

ICON_4 ICON_RED_LIGHT '@0A@'." Red light; negative

regards

Shiva

Re: Regarding icon

Former Member — Wed, 28 Feb 2007 05:33:31 GMT

  CASE value.
    WHEN 1.
      icon_name = 'ICON_GREEN_LIGHT'.
      icon_text =  text-003.
    WHEN 2.
      icon_name = 'ICON_YELLOW_LIGHT'.
      icon_text =  text-002.
    WHEN 3.
      icon_name = 'ICON_RED_LIGHT'.
      icon_text =  text-001.
  ENDCASE.

Refer this program in SE38 , DEMO_DYNPRO_STATUS_ICONS

Reward if u find helpful.

Re: Regarding icon

Former Member — Thu, 01 Mar 2007 07:25:44 GMT

thanks

topic Re: Regarding icon in Application Development and Automation Discussions

Regarding icon

Re: Regarding icon

Re: Regarding icon

Re: Regarding icon

Re: Regarding icon

Re: Regarding icon

Re: Regarding icon

Re: Regarding icon