[silviodp]

CONSULTA 1

SELECT Rubro.Nombre,Seccion.Nombre,Mueble.Descripcion,Mueble.Fechcomp,Mueble.Preccompra,Mueble.Fecbaja,Mueble.Precbaja,Mueble.Vresidual,Mueble.Amort_Acu,Mueble.añoresbutil,Mueble.Amortizacion
FROM Mueble INNER JOIN Rubro ON Mueble.Rubro=Rubro.CodRub
                        INNER JOIN Seccion ON Mueble.Seccion=Seccion.Codigo
WHERE %s=:Secelegida AND %s BETWEEN :Desde AND :Hasta
ORDER BY Rubro.Nombre;

CONSULTA 2

SELECT Rubro.Nombre,Seccion.Nombre,Mueble.Descripcion,Mueble.Fechcomp,Mueble.Preccompra,Mueble.Fecbaja,Mueble.Precbaja,Mueble.Vresidual,Mueble.Amort_Acu,Mueble.añoresbutil, Mueble.Amortizacion
FROM Mueble INNER JOIN Rubro ON Mueble.Rubro=Rubro.CodRub
                        INNER JOIN Seccion ON Mueble.Seccion=Seccion.Codigo
WHERE %s BETWEEN :Desde AND :Hasta
ORDER BY %s;

EJECUCION DE LA CONSULTA:

procedure TForm28.ListarClick(Sender: TObject);
Var
 fmSQL:String;
begin
 If Secelegida.Text<>'' Then
  begin
   ModeloDatos.Consulta1.Close;
   fmSQL:=Modelodatos.Consulta1.SQL.Text;
   Modelodatos.Consulta1.SQL.Text:=Format(fmSQL,['Seccion.Nombre','Fecbaja']);
   ModeloDatos.Consulta1.ParamByName('SECELEGIDA').AsString:=Secelegida.Text;
   ModeloDatos.Consulta1.ParamByName('DESDE').AsDate:=StrToDate(Desde.Text);
   ModeloDatos.Consulta1.ParamByName('HASTA').AsDate:=StrToDate(Hasta.Text);
   ModeloDatos.Consulta1.Open;
   Form27:=TForm27.Create(Self);
   Form27.QRLabel13.Caption:=Secelegida.Text;
   Form27.ListadoBienUso.Preview;
   Form28.Close;
  end
 Else
  begin
   ModeloDatos.Consulta2.Close;
   fmSQL:=Modelodatos.Consulta2.SQL.Text;
   Modelodatos.Consulta2.SQL.Text:=Format(fmSQL,['Fecbaja','Seccion.Nombre']);
   ModeloDatos.Consulta2.ParamByName('DESDE').AsDate:=StrToDate(Desde.Text);
   ModeloDatos.Consulta2.ParamByName('HASTA').AsDate:=StrToDate(Hasta.Text);
   ModeloDatos.Consulta2.Open;
   Form14:=TForm14.Create(Self);
   Form14.QRLabel13.Caption:='TODAS';
   Form14.ListadoBienUso.Preview;
   Form28.Close;
  end;

end;

Por que puede ser que esa consulta me arroge un reporte vacio es decir no lista lo que quiero, pero no me da error???
Estoy trabajando con Delphi 5, Paradox 7, con el BDE.
Gracias.

Silvio.-