[Lazarus-es] BD no guarda cambios

Yuri Pacoricona Palomino recursosgerenciales en infopuno.com
Dom Jul 19 14:43:19 CEST 2009


Hola amigos, espero puedan ayudarme en este lio que aun no logro
resolverlo con mi base de datos.
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.
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.
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.

Aqui parte del codigo

var nTotPtd:real;
begin                                                                                                      
    nTotPtd :=
0.00;                                                                                       

fDB.tdPtd.first;                                                                                       
    while not fDB.tdPtd.eof do
begin                                                                       

fDB.tdPtd.edit;                                                                                     
       fDB.tdPtdxPreUni.asCurrency :=
redondear(Fdb.tDPtdxPreUniItm.AsCurrency,3);                         
       fDB.tdPtdxImpItm.asCurrency :=
redondear(Fdb.tdPtdxPreUni.AsCurrency * Fdb.tdPtdxCanItm.AsCurrency,3);
       nTotPtd := nTotPtd +
fDB.tdPtdxImpItm.asCurrency;                                                   
       try

fDB.tdPtd.post;                                                                                     

except                                                                                                 

fDB.tdPtd.CancelUpdates;                                                                           
      end;

fDB.tdPtd.next;                                                                                     

end;                                                                                                   
  

fDB.qmPtd.Edit;                                                                                        
    fDB.qmPtdxCtoDir.asCurrency :=
redondear(nTotPtd,3);                                                   
    fDB.qmPtdxGtoGrl.asCurrency :=
redondear(nTotPtd*0.1,3);                                               
    fDB.qmPtdxCtoOpr.asCurrency := redondear(nTotPtd
+fDB.qmPtdxGtoGrl.asCurrency,3);                       
    fDB.qmPtdxBasImp.asCurrency :=
redondear(fDB.qmPtdxCtoOpr.asCurrency,2 );                              
    fDB.qmPtdxIGV.asCurrency    :=
redondear(fDB.qmPtdxBasImp.asCurrency*0.19,2);                          
    fDB.qmPtdxImpTot.asCurrency := redondear(fDB.qmPtdxBasImp.asCurrency
+ fDB.qmPtdxIGV.asCurrency,2);    

try                                                                                                    

fDB.qmPtd.post;                                                                                    
//        ShowMessage('Guardado
');                                                                        

except                                                                                                 

fDB.qmptd.CancelUpdates;                                                                           
        ShowMessage('Error
');                                                                  

end;                                                                                                   
end;                                                                                                       

Les agradezco alguna luz a mi problema.

Saludos

Yuri Pacoricona Palomino
Puno-Peru
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20090719/a0924149/attachment-0002.html>


More information about the Lazarus-es mailing list