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 !!!!