FoxPro/Visual FoxPro - se me borran los datos

   
Vista:

se me borran los datos

Publicado por eleazar (18 intervenciones) el 22/01/2008 20:16:17
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 .....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:se me borran los datos

Publicado por Saul  (676 intervenciones) el 22/01/2008 22:44:45
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar