Conteúdo

Reloginho do Ben 10


Relóginho do Ben10? Sério? Devo estar louco mesmo!!!

Bom, Ben, =/ nada mais é que a mensagem que aparece no rodapé ao processar algo.

Por ai você encontra essa função pra dar seu CTRL + C, mas aqui no SAPeiros ela vem na versão Ben10 (Monstro) =) kkkk

REPORT ZSAPeiros.

DATA:
  t_mara    TYPE TABLE OF mara,
  w_mara    TYPE          mara,
  v_msg     TYPE          char255,
  v_linhas  TYPE          p DECIMALS 2,
  v_linhasx TYPE          sy-tabix,
  v_percen  TYPE          char3,
  v_percenx TYPE          sy-tabix,
  v_lines   TYPE          sy-tabix.

PARAMETERS p_linhas TYPE sy-uline.
PARAMETERS p_percen TYPE sy-tabix.

SELECT * FROM mara INTO TABLE t_mara UP TO p_linhas ROWS.

DESCRIBE TABLE t_mara LINES v_lines.

v_percen  = p_percen.
v_percenx = v_percen.
v_linhas  = v_lines * ( v_percenx / 100 ).
v_linhasx = v_linhas.

LOOP AT t_mara INTO w_mara.

  IF sy-tabix GT v_linhas.
    v_linhas = v_linhas + v_linhasx.
    v_percen = v_percen + v_percenx.
  ENDIF.

  CONDENSE v_percen NO-GAPS.
  CLEAR v_msg.
  CONCATENATE 'Processamento em' v_percen '%' INTO v_msg SEPARATED BY space.

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      percentage = v_percen
      text       = v_msg.

  WRITE:/ w_mara-matnr,sy-tabix,v_percen.

ENDLOOP.