<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=ISO-8859-1">
<META content="MSHTML 6.00.2900.5512" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY text=#000000 bgColor=#ffffcc>
<DIV><FONT face=Arial size=2>Si probe poner por todos lados y sin ningún
efecto.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Lo puse en las siguientes partes:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV><FONT face=Arial size=2>
<DIV><BR>procedure Tdm.p_rssc3();<BR>begin<BR> if trasc3.Active then
begin<BR> rssc3.IndexFieldNames:='';<BR>
trasc3.EndTransaction;<BR>
end;<BR> rssc3.IndexFieldNames:='';<BR> rssc3.Close;<BR>end;</DIV>
<DIV> </DIV>
<DIV>procedure Tdm.p_rssc3(sqlstr: string; blnread: boolean);<BR>begin<BR>
p_rssc3();<BR> rssc3.IndexFieldNames:='';<BR>
rssc3.Filter:='';<BR> rssc3.IndexFieldNames:='';<BR>
rssc3.SQL.Clear;<BR> rssc3.IndexFieldNames:='';<BR> rssc3.SQL.Text
:= sqlstr;<BR> rssc3.IndexFieldNames:='';<BR> rssc3.ReadOnly :=
blnread;<BR> rssc3.IndexFieldNames:='';<BR>
trasc3.StartTransaction;<BR> rssc3.IndexFieldNames:='';<BR>
rssc3.Open;<BR>end;</DIV>
<DIV> </DIV>
<DIV>Sin ningún resultado satisfactorio. Me sigue diciendo que no tiene
el campo "empor". Yo se que no está ya que está en la consulta anterior. No
en la que quiero realizar cuando me da
error.
</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>No puedo usar order by en la consulta porque es una
consulta calculada. Si miras bien en la consulta aparece "<FONT
face="Times New Roman" size=3>where (s.idsa is null)</FONT>"</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Donde "idsa" es la clave primaria de la tabla, por
tal motivo la consulta no devuelve ningún registro ya que posteriormente es que
se le agrega mediante la instrucción.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>dm.rssc3.Append;</FONT></DIV>
<DIV><FONT face=Arial size=2>...</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Como ves lo intentado de todas las formas. Por lo
que no se si será un problema del TSQLQuery.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Estoy Usando Firebird 2.5.2 Update 1 como base de
datos.</FONT></DIV>
<DIV>========<BR>| ISMAEL |<BR>========<BR>----- Original Message ----- </DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=german_morre@yahoo.com.ar
href="mailto:german_morre@yahoo.com.ar">German</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> Wednesday, September 04, 2013 3:47
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Lazarus-es] Error al
intentar abrir un TSQLQuery</DIV>
<DIV><BR></DIV>
<DIV class=moz-cite-prefix>Hola Ismael<BR><BR>Probaste de agregar
:<BR>rsc3.IndexFieldNames := ''; <BR>dentro de tu procedimiento procedure
Tdm.p_rssc3(sqlstr: string; blnread: boolean); ??<BR><BR>De cualquier
manera no te convendria usar "order by" en tu query?, es decir agregar al
final de tu cadena strsql:=strsql+ ' order by cuenta, sctaor, subcta, capor,
capitulo, scapor, subcap, eleor, elemento, empor, empresa';<BR>Luego si
necesitas otro orden podes modificar el query ya que de cualquier manera lo
cerras y volves a abrir.<BR><BR>saludos!<BR><BR>German<BR><BR>El 04/09/2013
04:35 p.m., Ismael L. Donis Garcia escribió:<BR><BR></DIV>
<BLOCKQUOTE cite=mid:F15181C7146A4E6E8BE5EBEBF2CF9B02@eicc.citricos.cu
type="cite">Cuando intento abrir un TSQLQuery que previamente lo había
abierto y después le había pasado como parámetro un grupo de índices cuando
lo intento abrir de nuevo con otro SQL me dice que un campo no existe. Yo se
que no existe porque no está en el SQL, estaba en el SQL con que lo había
abierto anteriormente, pero no con el que lo estoy intentando abrir de
nuevo. <BR><BR>Relizo lo siguiente: <BR><BR>strsql := 'select s.cuenta,
s.subcta, s.capitulo, s.subcap, s.elemento, s.empresa, s.debe, s.haber,
s.saldo, s.nat, s.descripcion, '; <BR>strsql := strsql + 's.nota, s.nota1,
s.nota2, s.nota3, s.sctaor, s.capor, s.scapor, s.eleor, s.empor from scsal s
where (s.idsa is null)'; <BR>dm.p_rssc3(strsql, false); <BR><BR>después le
paso un índice d ela siguiente forma:
<BR><BR>dm.rssc3.IndexFieldNames:='cuenta; sctaor; subcta; capor; capitulo;
scapor; subcap; eleor; elemento; empor; empresa'; <BR><BR>Y cuando lo
intento abrir de nuevo con: <BR><BR>strsql := 'select s.cuenta, s.subcta,
s.capitulo, s.subcap, s.elemento, s.empresa, s.saldo, s.descripcion, ';
<BR>strsql := strsql + 's.sctaor, s.capor, s.scapor, s.eleor from scsal s
where (s.idsa is null)'; <BR>dm.p_rssc3(strsql, false); <BR><BR>Me da error
en la línea: rssc3.Open; <BR>Me dice que falta el campo empor el cual use en
la cunsulta anterior, pero que por supuesto no está en esta. <BR><BR>El
procedimiento que llamo es: <BR><BR>procedure Tdm.p_rssc3(); <BR>begin
<BR> if trasc3.Active then trasc3.EndTransaction;
<BR> rssc3.Close; <BR>end; <BR><BR>procedure Tdm.p_rssc3(sqlstr:
string; blnread: boolean); <BR>begin <BR> p_rssc3();
<BR> rssc3.Filter:=''; <BR> rssc3.SQL.Clear;
<BR> rssc3.SQL.Text := sqlstr; <BR> rssc3.ReadOnly := blnread;
<BR> trasc3.StartTransaction; <BR> rssc3.Open; <BR>end;
<BR><BR><BR>Se que el error me lo está dando por usar:
<BR><BR>dm.rssc3.IndexFieldNames:=xxxx <BR><BR>Pero lo necesito usar.
<BR><BR>E intentado resetear dicha propiedad por todas las vías antes de
decir: rssc3.Open; pero no he encontrado la forma de como hacerlo sin que me
de error. <BR><BR>Toda ayuda será bien venida. <BR><BR>Saludos Cordiales
<BR>======== <BR>| ISMAEL | <BR>======== <BR>Only for the small landowners
and Cubans companies <BR>Website: <A class=moz-txt-link-abbreviated
href="http://www.sisconge.byethost15.com">www.sisconge.byethost15.com</A>
<BR>
<A class=moz-txt-link-abbreviated
href="http://www.sisconge.hol.es">www.sisconge.hol.es</A>
<BR><BR><BR>_______________________________________________ <BR>Lazarus-es
mailing list <BR><A class=moz-txt-link-abbreviated
href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</A>
<BR><A class=moz-txt-link-freetext
href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</A>
<BR><BR></BLOCKQUOTE><BR>
<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>