clear
? "Generando movimientos de facturas..."
sele 1
use facturas
do while .not. eof()
 cliente1=val(subs(campo,114,6))
 folio1=val(subs(campo,69,3)+subs(campo,73,3))
 importe1=val(subs(campo,99,3)+subs(campo,103,3)+subs(campo,107,6))
 repl folio with folio1
 repl importe with importe1
 skip
enddo
? "Creando indices de facturas..."
index on str(importe,12,2) to facimp
? "Buscando pagos por importes iguales..."
sele 2
use pagos
do while .not. eof()
 fechap=subs(campo,70,4)+"/"+subs(campo,67,2)+"/"+subs(campo,64,2)
 importe1=val(subs(campo,227,1)+subs(campo,229,3)+subs(campo,233,6))
 cliente1=val(subs(campo,132,3)+subs(campo,136,3))
 repl cliente with cliente1
 repl importe with importe1
 repl fecha with fechap
 sele 1
 seek str(importe1,12,2)
 if found()
  repl fechapago with fechap
 endif
 sele 2
 skip
enddo
use
sele 1
use
return