Barra de progreso – SAPGUI_PROGRESS_INDICATOR

Caso: deseamos agregar una barra de progreso en nuestro proceso de actualización de datos en la barra inferior, del tipo:

Solución: Usando la función SAPGUI_PROGRESS_INDICATOR.

DATA: lw_data TYPE t_data,
gt_data TYPE TABLE of t_data,
lv_items TYPE i,
lv_porcentaje TYPE i,
lv_texto_progreso TYPE string.

LOOP AT gt_data INTO lw_data.

lv_porcentaje = ( sy-tabix * 100 ) / lv_items.
lv_texto_progreso = lv_porcentaje.
CONCATENATE lv_texto_progreso ‘% completado…’

INTO lv_texto_progreso.
CONDENSE lv_texto_progreso.

CALL FUNCTION ‘SAPGUI_PROGRESS_INDICATOR’
EXPORTING
percentage = lv_porcentaje
text = lv_texto_progreso.

<…proceso de actualización….>

ENDLOOP.