Este es un programa que despliega una barra de progreso, checalo tal vez lo
puedes adaptar a lo que necesitas
Saludos
Gerardo
El 16 de marzo de 2010 12:49, Carlos Pedrozo <[email protected]> escribió:
Alguien del foro ha desarrollado un programa donde se indica en la Pantalla la
cantidad de registro que se esta procesando?
Seria de gran ayuda para subsanar un problema.
Saludos y gracias de antemano.
Carlos Pedrozo
Hotmail: Trusted email with Microsoft’s powerful SPAM protection. Sign up now.
____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
_________________________________________________________________
Hotmail is redefining busy with tools for the New Busy. Get more from your
inbox.
http://www.windowslive.com/campaign/thenewbusy?ocid=PID27925::T:WLMTAGL:ON:WL:en-US:WM_HMP:032010_2 A*%%TS SD 20021205 101041 SANTILLANG REL-V5R1M0 5722-WDS
A******************************************************************
A* *
A* Display file id - PROGRESS BAR WINDOW
A* Display file name - PROGBFM
A* Date created - 05/12/02
A*
A******************************************************************
A*%%EC
A DSPSIZ(24 80 *DS3)
A ERRSFL
A R FMT01
A TEXT('A displayable progress bar')
A OVERLAY
A WINDOW(22 2 1 74 *NOMSGLIN)
A PRGBAR 74 O 1 1DSPATR(RI)
A COLOR(RED)
A R DUMMY
A TEXT('prevents previous screen from-
A being cleared')
A ASSUME
A 1 9' '
*====================================================================*
* Progress Bar *
*--------------------------------------------------------------------*
* *
*--------------------------------------------------------------------*
FProgbfm cf e WorkStn
*---------------------------------------------------------------------
D TimeStart S T
D TimeNow S T
D TimeHMS S T TimFmt(*HMS)
D TotalSecs S 9S 0
D TimeHMSa S 8
*
D CurrentRec S 7S 0
D TotalRecs S 7S 0
D PCT S 3S 0
*
* play stuff
C Eval TotalRecs = 2000
C Time TimeStart
C dow CurrentRec < TotalRecs
C Eval CurrentRec = CurrentRec + 1
* Set the xx% value
C EVAL pct = CurrentRec * 100 / TotalRecs
C EVAL PRGBAR = ' ' +
C %Triml(%EditC(CurrentRec:'3')) +
C ' records of '+
C %Triml(%EditC(TotalRecs:'3'))
C If Pct > 5
C Time TimeNow
* Time elapsed so far:?
C TimeNow SubDur TimeStart TotalSecs:*S
C Eval TotalSecs = TotalSecs/pct * (100 - pct)
C T'00.00.00' AddDur TotalSecs:*S TimeHMS
C MoveL TimeHMS Tmp20 20
C Move 'remaining ' Tmp20
C Move Tmp20 PrgBar
C End
* Set the RI placement
C* EVAL pct = (CurrentRec * %size(PRGBAR))/TotalRecs
C EVAL pct = (CurrentRec * 74)/TotalRecs
C If Pct > 0
C EVAL %subst(PRGBAR:pct:1) = x'21'
C Write FMT01
C End
C EndDo
C EVAL %subst(PRGBAR:74:1) = ' '
C Exfmt FMT01
C eval *inLR = *on
* ---------------------------------------------------------------------
____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
