Ver Mensaje Individual
  #1  
Antiguo 14-11-2006
Avatar de halcon_rojo
halcon_rojo halcon_rojo is offline
Miembro
 
Registrado: abr 2006
Posts: 14
Reputación: 0
halcon_rojo Va por buen camino
Unhappy Aplicacion se 'cuelga' al llamar a OPEN (tquery)

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 [-]
// Me guardo la consulta SQL del query...
 Csql := dm.datos.quCompras.SQL.Text ;

// Aqui armo una consulta segun el criterio que eligio el usuario
// desde un combo
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;  //if

   // Determino el tipo de reporte a imprimir, segun otro combo
   case grpReps.ItemIndex of
   0 : // imprimir compras
   begin
    if not dm.datos.quCompras.Prepared then
        dm.datos.quCompras.Prepare;
    // es en esta siguiente linea que la aplicacion deja de responder
    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.
Responder Con Cita