icon declaring

Former Member — Mon, 29 Oct 2007 07:39:07 GMT

hi ABAPers i want an plant icon on slection-option screen so for where i have to a coding for icon can u plz help me out .... this one and i want color not in background but i want in letter for this can u plz help me out ...

Thanks in Advance .

Ravi

Re: icon declaring

Former Member — Mon, 29 Oct 2007 08:43:25 GMT

Hi Ravi,

Declare the Type-Pools in ICON in your program. Then write the icon which you need.

Sample Syntax

WRITE: / ICON_RED_LIGHT AS ICON.

Sample Code - Icon

&----

*& 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

Reward Points if Useful

Regards

Gokul

topic Re: icon declaring in Application Development and Automation Discussions

icon declaring

Re: icon declaring