icon declaring

[Former Member]

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

[Former Member]

Hi Ravi,

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

<b>Sample Syntax</b>

WRITE: / ICON_RED_LIGHT AS ICON.

<b>Sample Code - Icon</b>

&----

---

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

<b>Reward Points if Useful</b>

Regards

Gokul