Semaforo en dynpro

[Jorge L T]

utiliza esta forma:

Data : begin of itab_para_Table_Control occurs 0,
...
icono(40) type C,
...
end of itab_para_Table_Control.
...

Data : g_estado(02) type c,
g_Icono type icons-text,
g_NameIcono type icon-name .


.....

perform AsignarIcono using g_estado
changing g_icono.
if sy-subrc eq 0.
itab_para_Table_Control-icono = g_icono.
endif.
.....


FORM AsignarIcono using p_estado
changing p_icono.

case p_estado(2).
when 'Ok'.
p_nameicono = 'ICON_CHECKED'.
when '* '.
p_nameicono = 'ICON_INCOMPLETE'.
endcase.

call function 'ICON_CREATE'
exporting
name = g_nameicono
*** text = pa_icon_text
*** info = pa_icon_quick_info
importing
result = p_icono
exceptions
icon_not_found = 1
outputfield_too_short = 2
others = 3.


ENDFORM. " AsignarIcono


Saludos
J

[smartin]

Muchas gracias RBE y Jorge L T.

Probare con lo que me indican

gracias