Reloj de avance para tablas internas

Introducción

A veces es frustrante, tanto para el usuario como para nosotros mismos, no saber cuándo un programa acabará de ejecutarse. Para ello he creado una minilibrería con tres macros, muy sencilla de utilizar, que, convenientemente utilizada en cualquier LOOP, nos mostrará:

  1. lo que está haciendo (que se lo especificaremos nosotros como texto opcional)
  2. el porcentaje de avance de recorrido de la tabla
  3. el tiempo total estimado
  4. el tiempo faltante para acabar
  5. la hora de finalización
  6. línea actual y total de líneas de la tabla interna

Las macros

  • vc_clocktimer texto: Se sitúa dentro del LOOP que nos interesa especificándole un texto corto descriptivo. No hace falta nada más ya que el cálculo se hace a partir de la variable de sistema sy-tabix. Fuera de un LOOP no funcionará.
  • vc_clockreset tabla: se sitúa antes del LOOP para poner el contador de tiempo a cero y analizar la tabla interna en la que vamos a meter el reloj.

  • vc_seconds2hms: de uso interno, convierte segundos a formato HH:MM:SS indicando “+100h” en caso de que el tiempo resultante sea superior a 100 horas. También es utilizable de manera independiente

Observaciones

Al final del código de ejemplo que pongo más abajo, en negrita, se puede ver lo sencilla que es su inserción. El gráfico superior, que muestra el reloj en funcionamiento, corresponde a este mismo programa.

Es importante señalar que asume que la resolución temporal de la sentencia GET RUN TIME está afinada al microsegundo; la opción por defecto de los sistemas SAP. De otro modo dará resultados absurdos.

Más importante aún es avisar de que en conexiones lentas la actualización del reloj en el SAPgui puede afectar negativamente al rendimiento. En ese caso convendrá llamar a la macro vc_clocktimer sólo cada n pasos.

El código

REPORT  z_percentage_clock.
* _  __        _            _
*(_)/ /    ___| | ___   ___| | __
*  / /    / __| |/ _ \ / __| |/ /
* / /_   | (__| | (_) | (__|   <
*/_/(_)   \___|_|\___/ \___|_|\_\
* as seen in http://cranf.com
* ASCII art made using http://ascii.cranf.net
*
***********************************************************************
DATA vc_clocktlines TYPE i.
DATA vc_time0 TYPE f.
***********************************************************************
DEFINE vc_seconds2hms.
  perform vc_seconds2hms using &1 changing &2.
END-OF-DEFINITION.
*
FORM vc_seconds2hms USING pseconds CHANGING phms.
  DATA vc_segundos TYPE uzeit.
  DATA vc_segundosi TYPE i.
  vc_segundosi = pseconds.
  IF vc_segundosi < 360000.
    vc_segundos = vc_segundosi.
    WRITE vc_segundos TO phms.
  ELSE.
    phms = '+100h'.
  ENDIF.
ENDFORM.                    "vc_seconds2hms
***********************************************************************
DEFINE vc_clockreset.
  vc_clocktlines = 0.
  describe table &1 lines vc_clocktlines.
  get run time field vc_time0.
END-OF-DEFINITION.
***********************************************************************
DEFINE vc_clocktimer.
  perform vc_clocktimer using &1.
END-OF-DEFINITION.
*
FORM vc_clocktimer USING vc_ptexto.

  DATA vc_porcentaje TYPE i.
  DATA vc_porcentajet(4).
  DATA vc_pend TYPE f.
  DATA vc_tabixt(8).
  DATA vc_tfillt(8).
  DATA vc_linest(20).

  DATA vc_time TYPE f.
  DATA vc_timetotal TYPE f.
  DATA vc_timetotalt(8).
  DATA vc_timefalta TYPE f.
  DATA vc_timefaltat(8).
  DATA vc_timefin TYPE uzeit.
  DATA vc_timefint(8).
  DATA vc_mensaje(100).

  CHECK vc_clocktlines > 0.
  CHECK sy-tabix > 0.

  GET RUN TIME FIELD vc_time.

  vc_pend = ( vc_time - vc_time0 ) / sy-tabix .
  vc_timetotal = vc_pend * vc_clocktlines / 1000000.
  vc_timefalta = vc_pend * ( vc_clocktlines - sy-tabix ) / 1000000 + 1.
  vc_porcentaje = sy-tabix * 100 / vc_clocktlines.

  WRITE vc_porcentaje TO vc_porcentajet.
  CONCATENATE vc_porcentajet '%' INTO vc_porcentajet.
  CONDENSE vc_porcentajet NO-GAPS.
  WRITE sy-tabix TO vc_tabixt.
  WRITE vc_clocktlines TO vc_tfillt.
  CONCATENATE '[' vc_tabixt '/' vc_tfillt ']' INTO vc_linest.
  CONDENSE vc_linest NO-GAPS.
  vc_seconds2hms vc_timetotal vc_timetotalt.
  vc_seconds2hms vc_timefalta vc_timefaltat.
  vc_timefin = sy-uzeit + vc_timefalta.
  WRITE vc_timefin TO vc_timefint.

  CONCATENATE
    vc_ptexto
    vc_porcentajet
    'Total'
    vc_timetotalt
    'Resta'
    vc_timefaltat
    'Final'
    vc_timefint
    vc_linest
  INTO vc_mensaje SEPARATED BY space.
  CONDENSE vc_mensaje.

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
       EXPORTING
            percentage = vc_porcentaje
            text       = vc_mensaje.
ENDFORM.                    "vc_clocktimer
***********************************************************************

*       _                      _
*  ___ (_) ___ _ __ ___  _ __ | | ___
* / _ \| |/ _ \ '_ ` _ \| '_ \| |/ _ \
*|  __/| |  __/ | | | | | |_) | | (_) |
* \___|/ |\___|_| |_| |_| .__/|_|\___/
*    |__/               |_|
*______________________________________________________________________

DATA it_dd02l TYPE TABLE OF dd02l WITH HEADER LINE.

START-OF-SELECTION.

  SELECT *
  FROM dd02l
  INTO TABLE it_dd02l
  UP TO 10 ROWS.

* pone a cero el reloj
  vc_clockreset it_dd02l.

* recorremos la tabla
  LOOP AT it_dd02l.

*   dibuja el reloj con el texto elegido
    vc_clocktimer 'Proceso'.

*   retraso temporal de un segundo por ciclo
    CALL FUNCTION 'RZL_SLEEP'
         EXPORTING
              seconds        = 1
         EXCEPTIONS
              argument_error = 1
              OTHERS         = 2.
  ENDLOOP.
Publicado en: SAP Sin comentarios ▼

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos necesarios están marcados *

*

Puedes usar las siguientes etiquetas y atributos HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

[c] Alberto Viñuela Miranda / Cranfcom 2013-2014

Uso de cookies

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies, pinche el enlace para mayor información.