<p>Tenes campos creados en el.objeto?<br>
</p>
<div class="gmail_quote">El 04/09/2013 17:33, "Ismael L. Donis Garcia" <<a href="mailto:ismael@citricos.co.cu">ismael@citricos.co.cu</a>> escribió:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<u></u>
<div text="#000000" bgcolor="#ffffcc">
<div><font face="Arial">Si probe poner por todos lados y sin ningún
efecto.</font></div>
<div><font face="Arial"></font> </div>
<div><font face="Arial">Lo puse en las siguientes partes:</font></div>
<div><font face="Arial"></font> </div><font face="Arial">
<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.
</div></font></div>
<div><font face="Arial"></font> </div>
<div><font face="Arial">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"></font> </div>
<div><font face="Arial">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"></font> </div>
<div><font face="Arial">dm.rssc3.Append;</font></div>
<div><font face="Arial">...</font></div>
<div><font face="Arial"></font> </div>
<div><font face="Arial">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"></font> </div>
<div><font face="Arial">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"><b>From:</b>
<a title="german_morre@yahoo.com.ar" href="mailto:german_morre@yahoo.com.ar" target="_blank">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" target="_blank">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>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 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 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>
<br><br><br>_______________________________________________ <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><br></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></blockquote>
<br>_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">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>
<br></blockquote></div>