<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=utf-8">
<META content="MSHTML 6.00.2900.5512" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Me podrías pasar un ejemplo simplificado al
pribado? Un pequeñito programa con una tabla que se te reprodusca el
problema.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Para poderte depurar el error.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Saludos Reiterados</FONT></DIV>
<DIV>========<BR>| ISMAEL |<BR>========<BR>Only for the small landowners and
Cubans companies<BR>Website: <A
href="http://www.sisconge.byethost15.com">www.sisconge.byethost15.com</A><BR>
<A href="http://www.sisconge.hol.es">www.sisconge.hol.es</A></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=fajprieto@gmail.com href="mailto:fajprieto@gmail.com">francisco
prieto</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A
title=lazarus-es@lists.lazarus.freepascal.org
href="mailto:lazarus-es@lists.lazarus.freepascal.org">Spanish version of
Lazarus List</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Friday, May 22, 2015 3:36 PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Lazarus-es] Error de
FlameRobin? o error de Lazarus?</DIV>
<DIV><BR></DIV>
<DIV dir=ltr>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>No, no anda....<BR><BR></DIV>Sigo con el mismo error...<BR><BR></DIV>La
rutina la puse así en el botón de borrado.<BR><BR>procedure
TfrmConfCom.btnBorrarClick(Sender: TObject);<BR>var<BR>
lcSql,lcError:string;<BR>
lnFilasAfec:integer;<BR>begin<BR> lcSql:='DELETE FROM
BALCONF'+<BR> ' WHERE
IDCONF='+IntToStr(lnIdAct);<BR> try<BR>
try<BR>
tAccionSql.StartTransaction;<BR>
qAccionSql.SQL.Text:=lcSql;<BR>
qAccionSql.ExecSQL;<BR>
lnFilasAfec:=qAccionSql.RowsAffected;<BR>
tAccionSql.Commit;<BR> except on e:exception
do<BR> begin<BR>
lnFilasAfec:=0;<BR>
lcError:=e.Message;<BR>
tAccionSql.Rollback;<BR> end;<BR>
end;<BR> finally<BR> tAccionSql.EndTransaction;<BR> end;
<BR><BR></DIV>1) Ejecuto el programa...<BR></DIV>2) Me posiciono en el
registro que quiero borrar.<BR></DIV>3) Presiono el botón de
borrar<BR></DIV>4) Entro a FlameRobin<BR></DIV>5) Ejecuto una consulta de la
tabla y aparecen todos los registros incluso el recién eliminado.<BR></DIV>6)
Cierro mi programa.<BR></DIV>7) Vuelvo a ejecutar la consulta de la tabla con
FlameRobin y ahora si el registro fue eliminado.<BR><BR></DIV>Pueden indicarme
donde esta el error.<BR><BR></DIV>Saludos y
Gracias,<BR><BR></DIV>Pancho<BR></DIV>Córdoba<BR></DIV>Argentina<BR>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV><BR></DIV></DIV></DIV></DIV></DIV></DIV></DIV></DIV></DIV></DIV><BR>
<DIV class=gmail_quote>El vie., 22 may. 2015 a las 9:28, Ismael L. Donis
Garcia (<<A
href="mailto:slibre@citricos.co.cu">slibre@citricos.co.cu</A>>)
escribió:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid"><U></U>
<DIV bgcolor="#ffffff" text="#000000">
<DIV><FONT face=Arial size=2>Eso mismo fue lo que le puse en el mensaje
anterior, aunque no se lo dije esplicitamente, se te fijas en su código el
no finaliza la transacción, y como yo le dije que lo hiciera si está la
finalización de la transacción además de ponerlo dentro de un try para
validar la opración lo cual a mi entender siempre se debe comprobar al
operar con datos, incluso yo devuelvo siempre variales donde controlo el
error y las filas afectadas por las operaciones de la siguiente forma: "un
pedazo del codigo que utilizo"</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2> try try<BR>
trausc.StartTransaction;<BR>
rsusc.ExecSQL;<BR> intfilas :=
rsusc.RowsAffected;<BR> trausc.Commit;</FONT></DIV></DIV>
<DIV bgcolor="#ffffff" text="#000000">
<DIV><FONT face=Arial size=2><BR> except on e:exception
do<BR></FONT></DIV></DIV>
<DIV bgcolor="#ffffff" text="#000000">
<DIV><FONT face=Arial size=2>
begin<BR> intfilas :=
0;<BR> strerror :=
e.Message;<BR>
trausc.Rollback;<BR> end;<BR> end;<BR>
finally<BR> trausc.EndTransaction;<BR>
end;<BR></FONT></DIV>
<DIV><FONT face=Arial size=2>Por lo que al final de la operación siempre
verifico el valor de la variable intfilas</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Tambien uso Firebird con los componentes
nativos de Lazarus y nunca he tenido problema alguno. Para mi tanto los
componentes nativos de Lazarus como Firebird son excelentes. Yo no veo
necesidad alguna de usar zeus con Firebird.</FONT></DIV></DIV>
<DIV bgcolor="#ffffff" text="#000000">
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Saludos Reiterados</FONT></DIV>
<DIV>========<BR>| ISMAEL |<BR>========<BR>Only for the small landowners and
Cubans companies<BR>Website: <A href="http://www.sisconge.byethost15.com"
target=_blank>www.sisconge.byethost15.com</A><BR>
<A href="http://www.sisconge.hol.es"
target=_blank>www.sisconge.hol.es</A></DIV></DIV>
<DIV bgcolor="#ffffff" text="#000000">
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV style="BACKGROUND: #e4e4e4; FONT: 10pt arial"><B>From:</B> <A
title=iv.mesa.prg@gmail.com href="mailto:iv.mesa.prg@gmail.com"
target=_blank>Iván Mesa</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A
title=lazarus-es@lists.lazarus.freepascal.org
href="mailto:lazarus-es@lists.lazarus.freepascal.org"
target=_blank>Spanish version of Lazarus List</A> </DIV></BLOCKQUOTE></DIV>
<DIV bgcolor="#ffffff" text="#000000">
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial"><B>Sent:</B> Thursday, May 21, 2015 5:16
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Lazarus-es] Error de
FlameRobin? o error de Lazarus?</DIV>
<DIV><BR></DIV></BLOCKQUOTE></DIV>
<DIV bgcolor="#ffffff" text="#000000">
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">Yo
normalmente trabajo con Zeos y con SP en firebird.<BR>El commit refresca
bien los datos en FlameRobin.<BR>Fíjate que no tengas abierta una
transacción en flame robin. Por ejemplo, si ejecutas una select en FR, se
abre una transacción, si no la cierras, y actualizas desde tu aplicación,
no verás los cambios en FR hasta que finalices la transacción abierta con
select.<BR>Al menos eso es lo que yo puedo apreciar.<BR>Suerte!!!<BR><BR>
<DIV>El 21/05/2015 a las 22:31, francisco prieto escribió:<BR></DIV>
<BLOCKQUOTE type="cite">
<DIV dir=ltr>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>Ismael lee el codigo por favor...<BR><BR></DIV>Mi codigo es
este.<BR><BR>lcSql:='Update Contador Set Ultimo=Ultimo+1 Where
NomClave=''BALCONF'' and
Clave=''IDCONF''';<BR>
tAccionSql.StartTransaction;<BR>
qAccionSql.SQL.Text:=lcSql;<BR>
qAccionSql.ExecSQL;<BR>
tAccionSql.Commit; <BR><BR></DIV>Lee La ultima linea... dice claramente
Commit...<BR><BR></DIV>Si la cambio por CommitRetain sigue dando el
mismo error... es decir hasta que no salgo de la aplicacion no se
actualiza en FlameRobin...<BR><BR></DIV>Debe haber otro
error.<BR><BR></DIV>Saludos,<BR><BR></DIV>Pancho<BR>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV><BR></DIV></DIV></DIV></DIV></DIV></DIV><BR>
<DIV class=gmail_quote>El jue., 21 may. 2015 a las 17:19, francisco
prieto (<<A href="mailto:fajprieto@gmail.com"
target=_blank>fajprieto@gmail.com</A>>) escribió:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">
<DIV dir=ltr>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>No se si leistes mis respuestas pero precisamente uso
transacciones y estas no se reflejan hasta no cerrar la
aplicacion.<BR><BR></DIV>Estoy viendo ahora el CommitRetain que
comenta Lewis, pero la info aclara que esto es para no tener que
volver a abrir una nueva transaccion, es decir se deberia usar esto
para decirle al motor hasta aca esta bien... aun la transaccion
sigue...<BR><BR></DIV>En fin voy a seguir investigando, vi que en
Delphi alguien posteo algo parecido...<BR><BR><A
href="http://delphiaccess.com/foros/index.php/topic/11485-finalizar-transacci%C3%B3n-delphi-firebird/"
target=_blank>http://delphiaccess.com/foros/index.php/topic/11485-finalizar-transacci%C3%B3n-delphi-firebird/</A><BR><BR></DIV>Lamentablemente
si bien le dijeron que pruebe algo no dice si se
soluciono...<BR><BR></DIV>Debe ser algo muy pavo, porque si uso el
firebird desde vfp este problema no existe... lo cual me indica que es
un problema de programacion en FreePascal...<BR><BR></DIV>Los mantengo
informados,<BR><BR></DIV>Saludos,<BR><BR></DIV>Pancho<BR></DIV><BR>
<DIV class=gmail_quote>El jue., 21 may. 2015 a las 16:57, Iván Mesa
(<<A href="mailto:iv.mesa.prg@gmail.com"
target=_blank>iv.mesa.prg@gmail.com</A>>) escribió:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">
<DIV bgcolor="#FFFFFF" text="#000000">Quizás sea porque no usas
transacciones.<BR>En flamerobin cuando ejecutas una actualización
terminas la transacción con un commit (f5)<BR>Haz lo mismo desde
lazarus o desde tus procedimientos almacenados.<BR>Saludos.</DIV>
<DIV bgcolor="#FFFFFF" text="#000000"><BR><BR><BR>
<DIV>El 21/05/2015 a las 21:03, francisco prieto
escribió:<BR></DIV></DIV>
<DIV bgcolor="#FFFFFF" text="#000000">
<BLOCKQUOTE type="cite">
<DIV dir=ltr>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>
<DIV>Grupo,<BR><BR></DIV>Estoy con un CRUD que me tiene
loco...<BR><BR></DIV>Realizo una modificacion en mis datos y hasta
que no cierro el exe o termino mi sesion de pruebas no se
actualiza en FlameRobin...<BR><BR></DIV>A alguien le
paso?<BR><BR></DIV>Como lo
solucionó?<BR><BR></DIV>Saludos,<BR><BR></DIV>Pancho<BR></DIV>Córdoba<BR></DIV>Argentina<BR></DIV><BR>
<FIELDSET></FIELDSET> <BR></BLOCKQUOTE></DIV>
<DIV bgcolor="#FFFFFF" text="#000000">
<BLOCKQUOTE type="cite"><PRE>_______________________________________________
Lazarus-es mailing list
<A href="mailto:Lazarus-es@lists.lazarus.freepascal.org" target=_blank>Lazarus-es@lists.lazarus.freepascal.org</A>
<A href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target=_blank>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</A>
</PRE></BLOCKQUOTE><BR></DIV>_______________________________________________<BR>Lazarus-es
mailing list<BR><A
href="mailto:Lazarus-es@lists.lazarus.freepascal.org"
target=_blank>Lazarus-es@lists.lazarus.freepascal.org</A><BR><A
href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es"
target=_blank>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</A><BR></BLOCKQUOTE></DIV></BLOCKQUOTE></DIV><BR>
<FIELDSET></FIELDSET> <BR><PRE>_______________________________________________
Lazarus-es mailing list
<A href="mailto:Lazarus-es@lists.lazarus.freepascal.org" target=_blank>Lazarus-es@lists.lazarus.freepascal.org</A>
<A href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target=_blank>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</A>
</PRE></BLOCKQUOTE><BR>
<P>
<HR>
<P></P>_______________________________________________<BR>Lazarus-es
mailing list<BR><A href="mailto:Lazarus-es@lists.lazarus.freepascal.org"
target=_blank>Lazarus-es@lists.lazarus.freepascal.org</A><BR><A
href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es"
target=_blank>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</A><BR>
<P></P></BLOCKQUOTE></DIV>_______________________________________________<BR>Lazarus-es
mailing list<BR><A href="mailto:Lazarus-es@lists.lazarus.freepascal.org"
target=_blank>Lazarus-es@lists.lazarus.freepascal.org</A><BR><A
href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es"
target=_blank>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</A><BR></BLOCKQUOTE></DIV>
<P>
<HR>
<P></P>_______________________________________________<BR>Lazarus-es mailing
list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE></BODY></HTML>