FoxPro/Visual FoxPro - Y Sigo con el problema...

Me sale un error : Error de Anidamiento

Ahi va el codigo en un boton:

OPEN DATABASE bd.dbc
SELECT 1
USE tableros_encab

SELECT 2
USE Espacios_tablero

SELECT 1
GO TOP

DO WHILE ! Eof()

LOCAL Var1, num
var1=tableros

num=1
IF num=1
SELECT Tableros, Aa, Ab, Ac FROM Espacios_Tableros WHERE UPPER(ALLTRIM(tableros))=UPPER(ALLTRIM(var1 )) INTO CURSOR my_cursor

SELECT 2
SUM Aa, Ab, Ac TO sum1, sum2, sum3 FOR ALLTRIM(Tableros)=ALLTRIM(my_cursor.tableros)
CLEAR

SELECT 1
LOCATE FOR UPPER(ALLTRIM(tableros))=UPPER(ALLTRIM(var1))
replace tot1 WITH sum1
replace tot2 WITH sum2
replace tot3 WITH sum3
****tu codigo
SKIP && pasa al siguiente registro
ENDDO

Gracias

donde cierras este ???????????

IF num=1

Si era eso...gracias...ya funciona bien; Aunque te he de decir que cuando ejecuto el prg con ese codigo el ratón empieza a parpadear como unos 5 segundos...

A qué se debe??

Gracias►

Si era eso...gracias...ya funciona bien; Aunque te he de decir que cuando ejecuto el prg con ese codigo el ratón empieza a parpadear como unos 5 segundos...

A qué se debe??

Gracias►

Estas trabajando con muchos datos?

En la primera tabla (encabezados) son como: 129

y en la Segunda Tabla (Detalles) son como: 5000

Porque??

El palpadeo puede venir por esa razon. El locate de por si es lento ya que no usa indices.

Entonces para cambiar el Locate por Seek...como seria??

Asi??:

SELECT tableros_encab
SET ORDER TO tableros
SEEK tableros=var1
replace tot1 WITH sum1
replace tot2 WITH sum2
replace tot3 WITH sum3

Porque me dice "No coinciden los tipos d eDatos"

Gracias

No.
Mejor pon este codigo de esta manera
*************Tu codigo **********
SELECT 1
LOCATE FOR UPPER(ALLTRIM(tableros))=UPPER(ALLTRIM(var1))
replace tot1 WITH sum1
replace tot2 WITH sum2
replace tot3 WITH sum3

**********Otra manera
replace tot1 WITH sum1, tot2 WITH sum2, tot3 WITH sum3 for UPPER(ALLTRIM(tableros))==UPPER(ALLTRIM(var1))

:-|

Ya quedó listo, gracias compañeros

ke bien ..

estas ejecutando el .PRG o estas poniendo el codigo en el evento click del boton ?

Lo del botón era por un último recurso, ya que ahí en el form existe el timer... pero con el do while solucione lo de pasa fila por fila en la tabla...el problema que tengo es un parpadeo de 5 segundos me imagino por las sumas, entonces Plinio me dijo que se debía por el "Locate"....

Tu qué me recomiendas??

Buen Dia►

puedes utilizar un SEEk y podria ser un poco mas rapido ....

ya probaste creando un procedimiento en la forma en lugar de mandar a llamar el PRG

El problema te lo esta dando el IF que no lo estas cerrando (no tiene ENDIF)