Tuesday, October 24, 2006

Reloj de Progreso en ABAP


Si bien este es un código muy simple, mucha gente nunca lo ha utilizado. Supongamos que tienen un programa que ejecuta muchos procesos, y por ende...Es un poco lento.

Definitivamente, al cliente no le va a gustar esperar a que nuestro programa termine de hacer lo que necesita hacer...Por lo tanto, poner un reloj de progreso es una excelente manera de mostrar en que porcentaje de ejecución va nuestro programa.

Veamos el código...

REPORT Z_PROGRESS_CLOCK.

DATA: A LIKE SY-UCOMM.

DO 100 TIMES.
DO 300 TIMES.
GET TIME.
ENDDO.

A(3) = SY-INDEX.A+3 = '%'.

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
PERCENTAGE = SY-INDEX
TEXT = A.
ENDDO.

Saludos,

Blag.

No comments: