barra de progreso

322 views
Skip to first unread message

alexander villalobos

unread,
Jul 24, 2014, 9:54:32 PM7/24/14
to publice...@googlegroups.com
buenas noches comunidad fox estoy tratando de crear una barra progreso eh estado usando el del 100% creado por el gran maestro luis maria guayan pero queiro adaptarlo con iteraciones que la barra me aumente
segun interaciones mande de mi select luego que aga el select, me abre mi reporte pero necesito adaptarlo cuando select tome 100  registro la barra tarde en cargar se ve el cambio de velocidad espero
puedan entender

Douglas Sánchez

unread,
Jul 24, 2014, 10:24:46 PM7/24/14
to publice...@googlegroups.com
Hola, veo que no explicas si trabajas con dbf,? pero tomando en cuenta que es si la respuesta, esto lo solucione en algun momento con una tabla indexada y en ves de hacer select sobre una tabla de miles de registro de un Sistema de Recaudación de Impuestos, hacia Do while enddo.

Ejemplo.
select tutabla indexada por codigo
seek wcod 
if found()
do while codigo = wcod and !eof()
scatter memvar
select  tablatemporal con la misma estructura
Append blank
gather memvar

select tutabla indexada
skip
enddo 
endif

El select es mas lento que el seek en una tabla de miles y miles de registro.

Saludes

Douglas



--
Ing. Douglas Sánchez Guillén
      Consultor Informatico
Claro: 505 88495476

alexander villalobos

unread,
Jul 24, 2014, 10:30:10 PM7/24/14
to publice...@googlegroups.com
buenas amigo si uso mi tabla en mysql y tengo cursor creado tengo estos codigo tengo un archivo prg es dond esta almacenado el codigo de mi barra progreso y en mi formulario ago el llamado al prg para que me aparesca mi barra progresa pero no tengo idea como adjuntar mi barra que avance segun las iteraciones si ago una consulta de rango de fecha me toma varios registro luego me los muestra en mi reporte para eso quiero usar mi barra progreso antes del proceso  este ejecutandose lleggue a 100% me salga el report saludos

Douglas Sánchez

unread,
Jul 24, 2014, 11:51:54 PM7/24/14
to publice...@googlegroups.com
Contestando a tu pregunta del correo esto seria como el ejemplo adjunto, si vas a generar el reporte a partir de cursores ya estando en vfp.

Pero si deseas generar la barra de progreso haciendo select atravez de sqlexec desde mysql eso ya es otra cosa, te puedes fijar en este ejemplo.


Saludes
Douglas


temp_rar

alexander villalobos

unread,
Jul 25, 2014, 12:54:25 AM7/25/14
to publice...@googlegroups.com

Amigo pero tengo duda si esa línea de código donde debo introducir en mi archivo prg o en el botón de formulario

Douglas Sánchez

unread,
Jul 25, 2014, 1:30:46 AM7/25/14
to publice...@googlegroups.com
Hola, lo puedes colocar en donde tu mejor prefieras, en el ejemplo esta claro, set procedure to progressbar.prg  additive,  lo que tiene progressbar.prg lo puede copiar en tu archivo de Procedimientos, y el codigo del ejemplo donde tu desee, en el boton llamas al prg o lo pones en el evento clic de ese boton.

Saludes

Douglas

alexander villalobos

unread,
Jul 25, 2014, 9:06:52 AM7/25/14
to publice...@googlegroups.com
buenas amigo estube probando y no entiendo esta linea de codigo supongo que mi archivo es mi temporar pero ese getrec que es y como pego mi progressbar.prg en codificar mi barra progreso
 lnResult = SQLExec(hConn, "select * from tu_gran_archivo","getrec")
  DOEVENTS
  *- La Barra de Progreso deberás codificarla
  =USED("getrec") AND MuestraProgressBar(CURSORGETPROP("RecordsFetched","getrec"), m.nTotalRecordsToFetch)
ENDD

Fernando D. Bozzo

unread,
Jul 25, 2014, 10:14:18 AM7/25/14
to publice...@googlegroups.com
Hola Alexander:

Tengo la sensación de que no querés hacer un programa, sino que te lo hagan, ya que muchas de las preguntas que hacés están documentadas en la ayuda de FoxPro.

En este caso, si marcás con Shift+Cursor la palabra SQLExec y apretás F1, te explica qué es cada parámetro, como cualquier otro lenguaje.


Saludos.

Mauricio Gonzalez

unread,
Jul 25, 2014, 11:35:43 AM7/25/14
to publice...@googlegroups.com
Que bien Fernando, por aca siempre aparecen personas asi, no les gusta leer la ayuda y siempre estan preguntando cosas redundantes, como por ejemplo donde pongo esto?, que significa este comando?, no me corre el prg que me enviaste, puedes explicarlo un poco mas o mejor enviame un prg de ejemplo.
Realmente, no son programadores ni quieren serlo, solo quieren salir de alguna tarea escolar y ademas haraganes.....

Fernando D. Bozzo

unread,
Jul 25, 2014, 1:59:09 PM7/25/14
to publice...@googlegroups.com
Exacto Mauricio! A mí también me molesta mucho eso, pero como siempre hay alguien que sigue contestando, entonces a veces simplemente dejo de hacerlo y listo, pero realmente hay actitudes muy molestas.

MALKASOFT ADPI: http://www.developervfp.blogspot.com/

unread,
Jul 25, 2014, 2:16:40 PM7/25/14
to publice...@googlegroups.com
Hola, lo que te esta indicando DSANCHEZ  usualmente funciona si es que tres registros de una consulta no compleja y ademas a ellos te va consumir mucho tiempo ya que
 estas ejecutando dos veces la misma consulta, yo al menos no he visto o no me convencieron usar la barra de progreso para hacer una consulta mediante SQLEXEC, 
te recomiendo que pongas un WAIT WINDOWS "Se esta procesando la información "  NOCLEAR
y al final de todo la linea de código pones WAIT CLEAR eso ayuda que el usuario sepa que ya todo acabo y solo esperar el reporte, pero así que se pueda usar el ejemplo
que te puso DSANCHEZ solo funciona con consultas sencillas o de una tabla. ahora como dicen los otros compañeros a echarle una revisada a la ayuda del zorro no se como haces tus consultas ya que no sabes como se usa  SQLEXEC.


Saludos; 


Ing. Russvell Jesus Soto Gamarra 
Framework Multi-conexion v6.0 trabaja cualquier base de datos
(SQLServer, MySQL, Firebird, MariaDB, PostgreSQL, Oracle y etc.) 

Milton Rubio

unread,
Jul 26, 2014, 10:50:46 AM7/26/14
to publice...@googlegroups.com
Alexander por favor me dicen que puedes darme una mano en el foro

Mira tengo un programa hecho en fox 2.6 y obvio no corre en windows 7 o server 2008 me puedes dar compilando para que lo pueda correr, te adjunto el zip en mi drox 
Reply all
Reply to author
Forward
0 new messages