Cambiar valor en campo en multiples tablas de VFP
Publicado por Luis Garcia (1 intervención) el 14/02/2009 07:03:06
¡Hola que tal!
Requiero de su apoyo para realizar la siguiente operación en VFP, necesito cambiar el valor de un campo que se encuentra en diferentes tablas, este campo es parte de indices. Obviamente no se en que tablas se encuentra por lo que requiero primero identificar el campo en que tabla esta registrado para poder realizar dicho cambio.
Yo soy programador Progress, y para realizar esto de manera simple haría lo siguiente.
--- Buscar el campo en que tablas se encuentra ----
FOR EACH _Field WHERE _Field._Field-Name = "Economico" NO-LOCK:
FIND _Field WHERE RECID(_Field) = _Field._File-Recid NO-LOCK NO-ERROR.
RUN xprograma.p _File._File-Name Valor1 Valor2.
.
END.
--- siendo xprograma.p ---
FOR {1} WHERE {1}.Economico = {2} EXCLUSIVE-LOCK:
ASSIGN {1}.Economico = {3}.
END.
No se si tenga que crear una tabla con el nombre de todas las tablas para poder posteriormente abrir cada archivo DBF? ¿? ¿? ¿?
De antemano por su apoyo, gracias.
Requiero de su apoyo para realizar la siguiente operación en VFP, necesito cambiar el valor de un campo que se encuentra en diferentes tablas, este campo es parte de indices. Obviamente no se en que tablas se encuentra por lo que requiero primero identificar el campo en que tabla esta registrado para poder realizar dicho cambio.
Yo soy programador Progress, y para realizar esto de manera simple haría lo siguiente.
--- Buscar el campo en que tablas se encuentra ----
FOR EACH _Field WHERE _Field._Field-Name = "Economico" NO-LOCK:
FIND _Field WHERE RECID(_Field) = _Field._File-Recid NO-LOCK NO-ERROR.
RUN xprograma.p _File._File-Name Valor1 Valor2.
.
END.
--- siendo xprograma.p ---
FOR {1} WHERE {1}.Economico = {2} EXCLUSIVE-LOCK:
ASSIGN {1}.Economico = {3}.
END.
No se si tenga que crear una tabla con el nombre de todas las tablas para poder posteriormente abrir cada archivo DBF? ¿? ¿? ¿?
De antemano por su apoyo, gracias.
Valora esta pregunta
0