Hola a todos!, alguien sabe por que una llamada a OPEN de un tquery podria provocar que la aplicacion deje de responder? Especificamente en mi aplicacion debo imprimir un reporte de una u otra agencia, que se elije de entre una lista de agencias y tengo el siguiente codigo en mi aplicacion...
Código Delphi
[-]
Csql := dm.datos.quCompras.SQL.Text ;
if HabAge and not (cboAge.ItemIndex = 0) then
begin
dm.datos.agencia.Locate('Nombre',cboAge.Text,[]);
dm.datos.quCompras.SQL.Clear;
dm.datos.quCompras.SQL.Add('SELECT * FROM '+ QuotedStr('COMPRAS.DBF')+
' WHERE agencia = '+ QuotedStr(dm.datos.agenciaAGENCIA.AsString) +
' ORDER BY FECHA, NFACTURA');
end;
case grpReps.ItemIndex of
0 : begin
if not dm.datos.quCompras.Prepared then
dm.datos.quCompras.Prepare;
dm.datos.quCompras.Open;
Application.CreateForm(TfrmRepComA, frmRepComA);
frmRepComA.pAgencia := cboAge.Text ;
frmRepComA.rpCompra.Preview;
frmRepComA.Free;
.... etc
Se que la consulta que se arma esta bien, ya revise eso, pero lo raro que no siempre se cuelga la aplicacion, sino cuando la agencia seleccionada es la primera. Please denme pautas para ver donde revisar el error? sera de las tablas? por cierto manejo tablas DBF pero aparentemente todo esta bien ahi.