FoxPro/Visual FoxPro - se me borran los datos

tengo un programa de facturacion hecho en VF6 en cual entro a un formulario donde me aparece todas as facturas capturadas y al reimprir una (me ha pasado como 2 o 3 veces) me borra la base de datos de Calogo de clientes (catalogo.dbf), mas no se que este haciendo mal. si alguien me puede hechar la mano se lo agradeceria

el formulario lo tengo con los siguientes valores:

buffermode=2 (optimistic)

destroy:
selec facts
set filter to

load:
thisform.SetAll("Database",RutaBase,"CURSOR")
thisform.dataenvironment.opentables()
Selec Facts
set order to Factura
go bottom
thisform.refresh

y en data enviroment
Autoopentables=.f.

y un boton de reimpresion de datos con lo siguiente en el valid:

local ReimprimirFactura,NumeroClienteRe,TotalFacReim
ReimprimirFactura=thisform.grdfacts.column2.text1.value
NumeroClienteRe=Numero
TotalFacReim=Total
if estado="C"
=MessageBox("Factura # "+alltrim(str(ReimprimirFactura,8))+" imposible de reimprimir, factura cancelada, intente de nuevo",0+16,"E R R O R")
return " "
endif

********* Inicia Reimpresion.....
Selec catalogo
set order to Numero
seek NumeroClienteRe
if .not. found()
NoExiste=MessageBox("Este numero de cliente no existe, intente de nuevo...",16+0,"E r r o r")
return " "
Endif

mrfc=rfc
mcol=alltrim(direccion)+iif(colonia<>" "," ,"+alltrim(colonia),"")
mcod=alltrim(ciudad)+", "+alltrim(estado)+iif(cp<>" ","C.P. "+alltrim(cp),"")
Selec Facts

do let_fin with TotalFacReim && convierte numero a letra
elrepfac="facturac"
report form &elrepfac to printer prompt for factura=ReimprimirFactura
********* Termina Reimpresion .....

Pues no se ve que se te borreon por lo regular siempre cuando borras algo es con DELETE, o ZAP
y yo no veo nada de eso