<div dir="ltr"><div class="gmail_default" style="font-family:tahoma,sans-serif">Estimado Hector</div><div class="gmail_default" style="font-family:tahoma,sans-serif">Yo te sugeriría que en tu rutina de importación pongas</div><div class="gmail_default" style="font-family:tahoma,sans-serif">tabla.BeginUpdate;</div><div class="gmail_default" style="font-family:tahoma,sans-serif">{importacion de datos}</div><div class="gmail_default" style="font-family:tahoma,sans-serif">tabla.EndUpdate;</div><div class="gmail_default" style="font-family:tahoma,sans-serif"><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif">con eso logras que los cambios sucedan de forma "desconectada" de los controles visuales.</div><div class="gmail_default" style="font-family:tahoma,sans-serif"><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif">Como segunda alternativa, no te estará faltando un transaction.Commit al final? </div><div class="gmail_default" style="font-family:tahoma,sans-serif">Recuerda que SQLdb crea transacciones automáticas, las pidas o no. (eso Delphi no lo hacía así)</div><div class="gmail_default" style="font-family:tahoma,sans-serif"><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif"><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">2017-06-09 11:56 GMT-03:00 hfiandor via Lazarus-es <span dir="ltr"><<a href="mailto:lazarus-es@lists.lazarus-ide.org" target="_blank">lazarus-es@lists.lazarus-ide.org</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div lang="ES-MX" link="#0563C1" vlink="#954F72"><div class="m_-1352673720291221794WordSection1"><p class="MsoNormal"><span lang="ES">Estimados colegas:<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">Tengo una aplicación nueva, donde he puesto un PageControl con varios tabSheets. Cada tabsheet está asociado a una tabla distinta.<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">En cada uno de ellos he puesto un botón para "Importar".<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">El procedure correspondiente abre un fichero .csv donde hay información para cada campo de la tabla correspondiente.<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">Esta operación parece que la hace bien.<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">Tengo otro botón para "Ver informe", que hace un Reporte con los datos de la tabla.<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">Parece que lo hace bien.<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">Sin embargo:<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">En cada tabsheet tengo una barra de navegacion asociada a la tabla correspondiente.<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">Despues de Importar, y ver que la tabla tiene la información,<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">al moverme con Last de la barra de Navegacion, veo que no ha incluido en el Form lo que se Importó.<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">He dado mil vueltas y no lo logro.<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">Qué hice:<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">Abro un Mensaje de confirmación preguntando "Debe Salir para incorporar lo Importado. Desea ....", y al oprimir "Si"<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">se cierra el Form, va para la unit "Salir" (se cierra la aplicación) y el operario debe comenzar de nuevo,<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">y entonces aparece lo que se había Importado y todo correcto.<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES"><u></u> <u></u></span></p><p class="MsoNormal"><span lang="ES">Si alguien conoce una rutina mejor que esta, que funciona pero me parece un poco troglodita, le voy a agradecer que me enseñe.<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES"><u></u> <u></u></span></p><p class="MsoNormal"><span lang="ES">Saludos<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">Ing. Héctor F. Fiandor Rosario<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES"><u></u> <u></u></span></p></div></div><br>______________________________<wbr>_________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus-ide.org">Lazarus-es@lists.lazarus-ide.<wbr>org</a><br>
<a href="http://lists.lazarus-ide.org/listinfo/lazarus-es" rel="noreferrer" target="_blank">http://lists.lazarus-ide.org/<wbr>listinfo/lazarus-es</a><br>
<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><span style="font-size:small;font-family:tahoma,sans-serif"><div style="display:inline">​</div></span><font face="tahoma, sans-serif" style="font-size:small">Most good programmers do programming not because they expect to get paid or get adulation by the public, but because it is fun to program.<div style="display:inline">​ ​</div></font><i style="font-size:small;font-family:tahoma,sans-serif">Linus Torvalds</i><br></div></div>
</div>