REPORT yvpn.
DATA: l_cont TYPE i,
l_texto(80),
l_hora(8),
l_tiempo(8),
l_horaini LIKE sy-uzeit,
l_difhora LIKE sy-uzeit.
l_texto(80),
l_hora(8),
l_tiempo(8),
l_horaini LIKE sy-uzeit,
l_difhora LIKE sy-uzeit.
l_horaini = sy-uzeit.
DO.
l_difhora = sy-uzeit – l_horaini.
WRITE l_difhora TO l_tiempo.
WRITE sy-uzeit TO l_hora.
WRITE sy-index TO l_texto(5).
concatenate l_texto(5) ‘Hora:’ l_hora ‘Tiempo transcurrido’ l_tiempo
into l_texto separated by space.
CALL FUNCTION ‘SAPGUI_PROGRESS_INDICATOR’
EXPORTING
text = l_texto
EXCEPTIONS
OTHERS = 1.
WAIT UP TO 30 SECONDS.
COMMIT WORK AND WAIT.
ENDDO.
DO.
l_difhora = sy-uzeit – l_horaini.
WRITE l_difhora TO l_tiempo.
WRITE sy-uzeit TO l_hora.
WRITE sy-index TO l_texto(5).
concatenate l_texto(5) ‘Hora:’ l_hora ‘Tiempo transcurrido’ l_tiempo
into l_texto separated by space.
CALL FUNCTION ‘SAPGUI_PROGRESS_INDICATOR’
EXPORTING
text = l_texto
EXCEPTIONS
OTHERS = 1.
WAIT UP TO 30 SECONDS.
COMMIT WORK AND WAIT.
ENDDO.
Fuente:
Comentarios
Publicar un comentario