Индикатор выполнения

Привожу пример кода который позволяет выводить индикатор выполнения задачи

  1.  
  2. go_progress TYPE REF TO CL_AKB_PROGRESS_INDICATOR.
  3.  
  4. co_max_times TYPE I VALUE 100000.
  5.  
  6. IF go_progress IS NOT BOUND.
  7. go_progress = CL_AKB_PROGRESS_INDICATOR=>get_instance( ).
  8.  
  9. WRITE 'TEST'.
  10.  
  11. DO co_max_times TIMES.
  12. go_progress->display(
  13. EXPORTING
  14. total = co_max_times
  15. processed = sy-INDEX
  16. MESSAGE = 'В процессе..' ).

Комментарии