|
Código fuente -
Includes
|
|
Miércoles, 27 de Abril de 2005 06:12 |
Include con contador de tiempo
************************************************************************
*
* INCLUDE ZICONTADOR
*
* DESCRIPCIÓN: Este include tiene variables y performs utiles para
* mostrar por pantalla un contador de tiempo durante la ejecución de
* los programas
*
* INSTRUCCIONES:
*---------------------------------------------------------------------*
* Form indicador_de_progreso
*
* Muestra el indicador de progreso del SAPGUI en el estado
* P_PERCENT (Porcentaje del proceso) y con el texto P_TEXTO que
* se elija.
*
* P. Ejemplo:
* PERFORM inidicador_de_progreso using 25
* 'Recogiendo Materiales, por favor espere...'.
*---------------------------------------------------------------------*
* Macro loop_at
*
* Macro para iniciar un loop a una tabla interna mostrando un
* indicador de progreso de modo automático.
*
* P. Ejemplo:
* LOOP_AT i_bkpf.
*---------------------------------------------------------------------*
* Macro endloop_at
*
* Macro para finalizar un loop a una tabla interna mostrando un
* indicador de progreso de modo automático.
*
* P. Ejemplo:
* ENDLOOP_AT 'Recuperando posiciones del documento'
* i_bkpf-belnr
* ', por favor espere...'
* '' ''.
*---------------------------------------------------------------------*
* MÓDULO AL QUE PERTENECE: BC
*
* AUTOR: Ignacio Arnaiz Piorno FECHA: 27-10-2004
* CONTACTA CONMIGO :
Esta dirección electrónica esta protegida contra spam bots. Necesita activar JavaScript para visualizarla
*
* ----------------------------------------------------------------------
* CONTROL DE MODIFICACIONES
* AUTOR EMPRESA FECHA MOTIVO
* .......... ....... DD/MM/AA ................................
* .......... ....... DD/MM/AA ................................
*-----------------------------------------------------------------------
************************************************************************
*INCLUDE ZICONTADOR.
************************************************************************
* INCLUDES
************************************************************************
************************************************************************
* Definición de tablas del sistema
************************************************************************
************************************************************************
* Definición de constantes
************************************************************************
************************************************************************
* Definición de variables
************************************************************************
DATA d_max TYPE i. " Nº Máximo de llamadas
DATA d_tabix LIKE sy-tabix. " Nº de llamada actual
DATA d_ant LIKE d_max " Porcentaje que se dibujó en la anterior
. " llamada
DATA d_texto_indicador(1000) TYPE c.
************************************************************************
* Definición de estructuras
************************************************************************
************************************************************************
* Definición de tablas internas
************************************************************************
************************************************************************
* Definición de parámetros
************************************************************************
************************************************************************
* Definición de rango de selección
************************************************************************
************************************************************************
* Definición de la pantalla de selección
************************************************************************
************************************************************************
* Definición de FIELD-SYMBOLS
************************************************************************
************************************************************************
* Definición de macros
************************************************************************
*-- Macro para iniciar un loop
*-- &1 - Nombre de la tabla interna
DEFINE loop_at.
perform indicador_de_progreso_max tables &1.
loop at &1.
if not sy-tabix is initial
and not sy-tabix = 1.
d_tabix = sy-tabix.
else.
d_tabix = sy-index.
endif.
END-OF-DEFINITION.
*-- Macro para finalizar un loop mostrando un indicador de progreso con
* un texto (pueden ser hasta 5 textos que se concatenaran).
*-- &1 - Texto 1 a mostrar
*-- &2 - Texto 2 a mostrar
*-- &3 - Texto 3 a mostrar
*-- &4 - Texto 4 a mostrar
*-- &5 - Texto 5 a mostrar
DEFINE endloop_at.
concatenate &1 &2 &3 &4 &5 into d_texto_indicador
separated by space.
perform indicador_de_progreso_de_loop
using d_texto_indicador.
endloop.
END-OF-DEFINITION.
************************************************************************
*
* LÓGICA DEL PROGRAMA
*
************************************************************************
************************************************************************
* Definición de inicializaciones
************************************************************************
*INITIALIZATION.
************************************************************************
* Proceso principal
************************************************************************
*START-OF-SELECTION.
************************************************************************
* Acciones de final de proceso
************************************************************************
*END-OF-SELECTION.
************************************************************************
* Definición de cabeceras de listado
************************************************************************
*TOP-OF-PAGE.
************************************************************************
* Definición de líneas de pie del listado
************************************************************************
*END-OF-PAGE.
************************************************************************
* Definición de acciones a tomar en caso de selección con doble click
************************************************************************
*AT LINE-SELECTION.
************************************************************************
* Definición y control de acciones a tomar según entrada del usuario
************************************************************************
*AT USER-COMMAND.
************************************************************************
* Definición y control de acciones a tomar según la tecla de función
************************************************************************
*AT PFM.
************************************************************************
* Definición de las validaciones a realizar de los parámetros de entrada
************************************************************************
*AT SELECTION-SCREEN.
************************************************************************
*
* FORMS ADICIONALES
*
************************************************************************
*&--------------------------------------------------------------------*
*& Form indicador_de_progreso
*&--------------------------------------------------------------------*
* Muestra el indicador de progreso del sapgui en el estado
* P_PERCENT (Porcentaje del proceso) y con el texto P_TEXTO que
* se elija.
*---------------------------------------------------------------------*
FORM indicador_de_progreso USING p_percent
p_texto.
IF sy-batch IS INITIAL.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = p_percent
text = p_texto.
ENDIF.
ENDFORM. " indicador_de_progreso
*&--------------------------------------------------------------------*
*& Form indicador_de_progreso_de_loop
*&--------------------------------------------------------------------*
* Muestra el porcentaje que ocurrencias de una tabla interna que
* ya se han procesado mediante un loop mostrando el texto P_TEXTO
* Este form se utilizará mediante la macro ENDLOOP_AT para mostrar
* un texto y el porcentaje de ocurrencias realizado al final de
* un loop.
*---------------------------------------------------------------------*
FORM indicador_de_progreso_de_loop USING p_texto.
DATA l_porcentaje TYPE i.
DATA l_resto LIKE l_porcentaje.
IF NOT d_max IS INITIAL.
IF d_tabix <> 1.
l_porcentaje = ( d_tabix * 100 ) / d_max.
ENDIF.
IF d_max < 1000.
l_resto = l_porcentaje MOD 10.
ENDIF.
IF l_resto IS INITIAL AND NOT l_porcentaje = d_ant.
PERFORM indicador_de_progreso USING l_porcentaje
p_texto.
d_ant = l_porcentaje.
ENDIF.
ENDIF.
ENDFORM. " indicador_de_progreso_de_loop
*&--------------------------------------------------------------------*
*& Form indicador_de_progreso_max
*&--------------------------------------------------------------------*
* Lee la cantidad de entradas de una tabla y recoge el tamaño
* máximo. Este perform se usa mediante la macro LOOP_AT para
* posteriormente calcular el porcentaje que ocurrencias de una
* tabla interna que ya se han procesado con un loop.
*---------------------------------------------------------------------*
* -->P_TABLE text
*---------------------------------------------------------------------*
FORM indicador_de_progreso_max TABLES p_table.
DESCRIBE TABLE p_table LINES d_max.
ENDFORM. " indicador_de_progreso_max
|
