Actualizacion

Post Reply
colthop
Posts: 505
Joined: Sat Apr 22, 2006 9:09 am
Location: Madrid - España

Actualizacion

Post by colthop »

Hola amigos:
Tengo un problema en mi aplicacion y es el siguiente:
Tengo una ventana con muchos datos, es la pantalla de un diario de contabilidad y escribe veintidos lineas con ocho datos por linea, todo funciona bien si le da tiempo a realizar las operaciones, pero si por ejemplo estamos en la última linea y pulsamos abajo nos presenta la siguiente moviendo todas hacia arriba. Pero si pulsamos muchas veces y de seguido, al programa no le da tiempo a procesar todo el codigo y se descuadra. Podriais decirme como puedo hacer para que el programa espere hasta que se realicen todas las operaciones. todos los datos son says y hay uno que es un GET y este es el que se descuadra poniendo el dato de otra línea.

Gracias
Carlos
User avatar
Lautaro
Posts: 322
Joined: Fri Oct 07, 2005 2:44 pm
Location: Osorno, Chile
Contact:

Post by Lautaro »

Hola,

Como sugerencia puedes declarar en la rutina que no alcanza a terminar una variable que sera verdadera si estas haciendo un proceso y falsa al terminar , algo asi , ( es solo un ejemplo, no se como esta tu codigo )


rutina1()

...
....
local ltrabajando := .f.

.....
rutinalenta(@ltrabajando)
do while ltrabajando
// Depende de lo largo que sea el codigo
////sysrefresh()
///////////////////////
enddo

return

procedure rutinalenta(ltrabajando)

ltrabajando:=.t.
sysrefresh()
acciones
....
.....
.....
ltrabajando:=.f.
sysrefresh()
return


atte,
lautaro
User avatar
QAZWSX2K
Posts: 359
Joined: Tue Oct 25, 2005 7:06 pm
Location: Bogota - Caracas

Post by QAZWSX2K »

porque no pones un timer en el botos para que lo deshabilite por unos segundos si le acaban de dar
manuramos
Posts: 219
Joined: Mon Dec 26, 2005 7:25 pm
Location: Jerez de la Frontera (Spain)

Post by manuramos »

Prueba con BEGIN SEQUENCE.
Cuando pulses una tecla que haga un BREAK para que no se complete la funcion y empiece de nuevo a cada pulsacion.
Nos Gusta Programar
Post Reply