Icono en table control de una dynpro

[smartin]

Estoy moviendo un icono para mostrarlo en table-control de dynpro, cuando debuggeo veo el icono en el campo de la tabla interna asociada al table-control, pero la dynpro muestra '@0A\' y no el icono, presumo que es en la definicion de la dynpro donde tengo el problema, quien me puede dar una ayuda, gracias.

El campo en la dynpro lo tengo definido CHAR de 4

Este es el codigo

DATA: BEGIN OF ti_ventas OCCURS 0,
....
semaforo(40) TYPE c,
END OF ti_ventas.

Data : g_icono TYPE icons-text,
g_nameicono TYPE icon-name .


g_nameicono = 'ICON_RED_LIGHT'. "rojo

* buscar icono
CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = g_nameicono
* ** text = pa_icon_text
* ** info = pa_icon_quick_info
IMPORTING
result = g_icono
EXCEPTIONS
icon_not_found = 1
outputfield_too_short = 2
others = 3.


IF sy-subrc EQ 0.
ti_ventas-semaforo = g_icono. " aqui lo mueve
ENDIF.





Gracias
Smartin

[ibecerra]

hola te esta faltando un pequeño detalle , mira entra al dympro en table control seleciona el campo o columna dale doble click y dale check a a la opcion "con icono". y listo en esa columna te mostrara el icono q le estas pasando

[maopacheco]

Estoy moviendo un icono para mostrarlo en table-control de dynpro, cuando debuggeo veo el icono en el campo de la tabla interna asociada al table-control, pero la dynpro muestra '@0A\' y no el icono, presumo que es en la definicion de la dynpro donde tengo el problema, quien me puede dar una ayuda, gracias.

El campo en la dynpro lo tengo definido CHAR de 4

Este es el codigo

DATA: BEGIN OF ti_ventas OCCURS 0,
....
semaforo(40) TYPE c,
END OF ti_ventas.

Data : g_icono TYPE icons-text,
g_nameicono TYPE icon-name .


g_nameicono = 'ICON_RED_LIGHT'. "rojo

* buscar icono
CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = g_nameicono
* ** text = pa_icon_text
* ** info = pa_icon_quick_info
IMPORTING
result = g_icono
EXCEPTIONS
icon_not_found = 1
outputfield_too_short = 2
others = 3.


IF sy-subrc EQ 0.
ti_ventas-semaforo = g_icono. " aqui lo mueve
ENDIF.





Gracias
Smartin

Compa yo utilice su codigo, ademas de chequear el campo como icono le agregue esta linea al codigo !!!

IF sy-subrc EQ 0.
ti_ventas-semaforo = g_icono. " aqui lo mueve
--->APPEND ti_ventas .
ENDIF.

Y funciona bien,

[alpinik]

Ya se que suena marciano ... pero si no informas el parámetro info de la función, no se mostrará el icono.

Pon cualquier texto y solucionado:

CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = g_nameicono
* ** text = pa_icon_text
info = 'Algo'
IMPORTING
result = g_icono
EXCEPTIONS
icon_not_found = 1
outputfield_too_short = 2
others = 3.