<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">
<META NAME="GENERATOR" CONTENT="GtkHTML/3.24.1">
</HEAD>
<BODY>
Hola amigos, espero puedan ayudarme en este lio que aun no logro resolverlo con mi base de datos.<BR>
Tengo algunos registros que no puedo actualizar, al guardar el registro en la BD, no reporta error, aparentemente esta bien, visualizo todo, tambien los reportes que imprimo, pero al reingresar a la aplicacion obtengo los datos anteriores, es decir simplemente no guarda algunos registros.<BR>
Inicialmente estuve trabajando con sqlite, luego migre la data a postgresql, pero el resultado es el mismo. Antes anduvo todo bien, incluso el ingreso de datos los realize con la aplicacion.<BR>
No tengo idea de que pueda estar pasando, he trabajado con zeos 6.6.3, 6.6.5, 7.0, y lazarus 0.9.27 svn 20817, 0.9.27 svn 20665, , Ubuntu 8.10, pero el problema persiste. Hice lo propio en windows xp, y el resultado es el mismo.<BR>
<BR>
Aqui parte del codigo<BR>
<BR>
var nTotPtd:real;<BR>
begin <BR>
nTotPtd := 0.00; <BR>
fDB.tdPtd.first; <BR>
while not fDB.tdPtd.eof do begin <BR>
fDB.tdPtd.edit; <BR>
fDB.tdPtdxPreUni.asCurrency := redondear(Fdb.tDPtdxPreUniItm.AsCurrency,3); <BR>
fDB.tdPtdxImpItm.asCurrency := redondear(Fdb.tdPtdxPreUni.AsCurrency * Fdb.tdPtdxCanItm.AsCurrency,3);<BR>
nTotPtd := nTotPtd + fDB.tdPtdxImpItm.asCurrency; <BR>
try<BR>
fDB.tdPtd.post; <BR>
except <BR>
fDB.tdPtd.CancelUpdates; <BR>
end;<BR>
fDB.tdPtd.next; <BR>
end; <BR>
<BR>
fDB.qmPtd.Edit; <BR>
fDB.qmPtdxCtoDir.asCurrency := redondear(nTotPtd,3); <BR>
fDB.qmPtdxGtoGrl.asCurrency := redondear(nTotPtd*0.1,3); <BR>
fDB.qmPtdxCtoOpr.asCurrency := redondear(nTotPtd+fDB.qmPtdxGtoGrl.asCurrency,3); <BR>
fDB.qmPtdxBasImp.asCurrency := redondear(fDB.qmPtdxCtoOpr.asCurrency,2 ); <BR>
fDB.qmPtdxIGV.asCurrency := redondear(fDB.qmPtdxBasImp.asCurrency*0.19,2); <BR>
fDB.qmPtdxImpTot.asCurrency := redondear(fDB.qmPtdxBasImp.asCurrency + fDB.qmPtdxIGV.asCurrency,2); <BR>
try <BR>
fDB.qmPtd.post; <BR>
// ShowMessage('Guardado '); <BR>
except <BR>
fDB.qmptd.CancelUpdates; <BR>
ShowMessage('Error '); <BR>
end; <BR>
end; <BR>
<BR>
Les agradezco alguna luz a mi problema.<BR>
<BR>
Saludos<BR>
<BR>
<TABLE CELLSPACING="0" CELLPADDING="0" WIDTH="100%">
<TR>
<TD>
<PRE>
Yuri Pacoricona Palomino
Puno-Peru
</PRE>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>