FoxPro/Visual FoxPro - ¡¡¡ AYUDAAAAA !!!! URGENTE!!!!!!!!!

Tengo 2 tablas, una es PROD y la otra es COMPRASL, las 2 tienen un campo que es cod_pro lo que tengo que hacer es lo siguiente.

EN la tabla PROD hay un campo precio ese mismo campo hay en la tabla COMPRASL, tengo que actualizar la campo precio de la tabla COMPRASL dependiendo lo que diga la tabla PROD,

ahora como hago para hacer eso

yo pienso que con un FOR o un bucle se puede hacer porque tiene que ir por cada registro de la tabla PROD y de la tabla COMPRASL y las 2 tienen como 800 registros.

Espero puedan ayudarme, ya llevo dias piendo ayuda y nadie lo hace o si lo hacen no es lo que busco.

De antemano muchas gracias.

ojo con un replace all no se puede porque me agarraria solamente el primer registro de la tabla PROD. o si alguien sabe como para que vaya por cada registro y vaya actualizando la tabla COMPRASL se lo agradeceria.

Puedes probar lo sgte:

sele 1
use PROD
go top
sele 2
use COMPRASL
sele 1
SCAN
wcod_pro=cod_pro
wprecio=precio
UPDATE COMPRASL SET precio=wprecio;
WHERE cod_pro=wcod_pro
ENDSCAN

Saludos desde Peru,
Cesar

lee sobre set relation to
pero para esto necesita indice en el campo k vas a relacionar

claro pero quiero que sea uno por uno por eso necesito un for o un scan...o como lo haria? simplemente relacionandolo y hacer un replace all?

gracias por su ayuda

De manera engorrosa, seria asi
USE prod IN 0
USE comprasl IN O
SELE prod && esta tabla se barrera totalmente
GO TOP
SCAN
SELE comprasl
GO TOP && esto por cada reg de prod debe buscar en todo comprasl
SCAN
IF prod.codigo = comprasl.codigo
REPLACE precio WITH prod.precio
ENDIF
ENDSCAN
ENDSCAN
*---*********************************
De manera mas rapida:
USE prod IN 0
USE comprasl IN O ORDER codigo && crear indice a comprasl
SELE prod
GO TOP
SCAN
SELE comprasl
IF SEEK(prod.codigo)
REPLACE precio WITH prod.precio
ENDIF
ENDSCAN

Novato,
Probaste el codigo que te respondii?. Fui el primero que respondi?
Pruebalo.

Saludos,
Cesar

si ya me salio, gracias.