porfavor ayuda para hacer una comparacion de dbf

babol9 escribió el 19/02/2012 23:06 :

¡ Hola !

necesito comparar dos dbf me explico tengo dos tablas dbf iguales solo que la
que tengo trae solo artículos eléctricos y la que el proveedor
me da para actualizar trae fontanería y electricidad.Son iguales ha
excepción que la mía 179000 registros proveedor 382000 registros
y en la mía los precios están des actualizados

que copare las dos dbf por proveedor y código dejando en la tabla dbf
del proveedor (articu.dbf) los artículos que coincidan en la base mia
(articulo.dbf) que seran los de electricidad.

Quisiera que de la tabla mía articulo.dbf se actualicen precios pero
solo de los artículos que tengo. Claro esta los precios los tiene que
coger de la dbf del proveedor articu.dbf

no se con que programa sera mas fácil de hacer aunque lo pido con foxpro
si es mas fácil con otro soy todo oídos.

gracias

ta´facil...
primero necesita el compilador de Fox, dBase, etc.
segundo, create un programa *.PRG

*/*-------------
* Inicio de programa
*--------------------------
Close data
Use TablaProveedor.dbf in select() Alias Proveedor
Use MiTabla.dbf in select() Order CodigoDeMaterial Alias MiTabla

select Proveedor
do while .not. eof()
Store 0.00 to VmPrecio
VmPrecio=Proveedor->Precio
VmCodigo=CodigoDeMaterial
Select MiTabla
seek VmCodigo
if .not. eof()
replace precio with VmPrecio
EndIF
select Proveedor
skip
EndDo
*---- tarannnnnnn, listo mi amigo.

puedes colocar mas monerias de hecho si creas una tabla de paso puedes gravar en esa tabla los materiales que te hacen falta.
*-*tambien en el IF intermedio puedes colocar uno anidado que te permita una comparacion de quien es mas alto y si es mas alto que lo guarde ó que lo deje con tu precio, ejemplo...

if .not. eof()
IF Proveedor->Precio > MiPrecio
replace precio with VmPrecio
ELSE
skip
Loop
ENDIF
EndIF

Oviamente MiPrecio tienes que atraparlo en el momento del seek.
espero te sirva
Viva México !!!!