Reloj - Progress Bar
Implementar este fragmento de código para ajustar un progress bar a nuestro programa.
DESCRIBE TABLE it_bkpf lines wtotal.
ctotal1 = wtotal.
if sy-tfill > 0.
*&---------------------------------------------------------------------*
*& En esta parte empieza lo del Reloj *
*&---------------------------------------------------------------------*
porcentaje1 = ( sy-tabix * 100 ) / wtotal.
cindex1 = sy-tabix.
concatenate text-m01 cindex1 ' de ' ctotal1 into msg.
if sy-batch <> 'X'.
call function 'SAPGUI_PROGRESS_INDICATOR'
exporting
percentage = porcentaje1
text = msg.
endif.
**&--------------------------------------
endif.
DESCRIBE TABLE it_bkpf lines wtotal.
ctotal1 = wtotal.
if sy-tfill > 0.
*&---------------------------------------------------------------------*
*& En esta parte empieza lo del Reloj *
*&---------------------------------------------------------------------*
porcentaje1 = ( sy-tabix * 100 ) / wtotal.
cindex1 = sy-tabix.
concatenate text-m01 cindex1 ' de ' ctotal1 into msg.
if sy-batch <> 'X'.
call function 'SAPGUI_PROGRESS_INDICATOR'
exporting
percentage = porcentaje1
text = msg.
endif.
**&--------------------------------------
endif.
Comentarios