Leve problema con parámetros.

[marcoszorrilla]

En el mismo programa me funciona:

Código Delphi [-]
procedure TfrMovBancos.FormActivate(Sender: TObject);
begin
  if DmConex.IBDtsUsuariosUsuario.Value = 'ADMINISTRADOR' then
  Navega.VisibleButtons:=[nbFirst, nbPrior, nbNext, nBlast, nbDelete, nbInsert];

  DmBanc.IBDtsBanc.Close;
  DmBanc.IBDtsBanc.SelectSql.Text:='';

  case estado of
  1:begin
  DmBanc.IBDtsBanc.SelectSQL.Text:='Select * From Banco';
  frMovBancos.Caption:='Consulta de Movimientos Bancarios - Todos';
    end;

  2:begin
  DmBanc.IBDtsBanc.SelectSQL.Text:='Select * From Banco Where Comentario is null';
  frMovBancos.Caption:='Consulta de Movimientos Bancarios - No punteados';
    end;

  3:begin
  DmBanc.IBDtsBanc.SelectSQL.Add('Select * From Banco ');
  DmBanc.IBDtsBanc.SelectSQL.Add('Where foperacion Between :Ini And :Fin');
  DmBanc.IBDtsBanc.ParamByName('Ini').AsDate:=dIni;
  DmBanc.IBDtsBanc.ParamByName('Fin').AsDate:=dFin;

    frMovBancos.Caption:='Consulta de Movimientos Bancarios - entre '+DateToStr(dIni)+' y '+DateToStr(dFin);
    end;

  4:begin
  DmBanc.IBDtsBanc.SelectSQL.Text:='Select * From Banco Where Concepto like ' +'''%'+cFiltro+'%''';
  frMovBancos.Caption:='Consulta de Movimientos Bancarios - por Concepto:'+cFiltro;
    end;

  5:begin
  DmBanc.IBDtsBanc.SelectSQL.Text:='Select * From Banco Where Comentario like ' +'''%'+cFiltro+'%''';
  frMovBancos.Caption:='Consulta de Movimientos Bancarios - por Comentario:'+cFiltro
    end;


  6:begin
  DmBanc.IBDtsBanc.SelectSQL.Add('Select * From Banco Where Cargos Between ' +IntToStr(CantIni)+' And '+ IntToStr(CantFin));
  DmBanc.IBDtsBanc.SelectSQL.Add(' Or Abonos Between ' +IntToStr(CantIni)+' And '+ IntToStr(CantFin));
  frMovBancos.Caption:='Consulta de Movimientos Bancarios (cargos o abonos) - Entre '+ IntToStr(CantIni)+' y '+ IntToStr(CantFin)+' €';
    end;
  end;
 
  DmBanc.IBDtsBanc.Open;
  DmBanc.IbDtsBanc.Last;
end;

Un Saludo.

[marcoszorrilla]

O esto:

Código Delphi [-]
 if lUnVendedor = True then
  IbDtsQrSuma.SelectSql.Add('And F.Vendedor = '+QuotedStr(DmCli.IbDtsVendCodigo.Value));

IbDtsQrSuma.SelectSql.Add('Group by C.Codigo,C.Buscar, F.Codclient');
IbDtsQrSuma.SelectSql.Add('Having Sum(Base) between :desde  And :Hasta');
IbDtsQrSuma.SelectSql.Add('Order by 3 Desc');
IbDtsQrSuma.ParamByName('desde').AsFloat:=StrToFloat(edDesde.Text);
IbDtsQrSuma.ParamByName('hasta').AsFloat:=StrToFloat(edhasta.Text);
IbDtsQrSuma.ParamByName('Ini').AsDate:= frDesdeHasta.dtpkfini.Date;
IbDtsQrSuma.ParamByName('Fin').AsDate:= frDesdeHasta.DtpkFFin.Date;
//ShowMessage(IbDtsQrSuma.SelectSql.Text);

IbDtsQrSuma.Open;
TFloatField(IbDtsQrSuma.Fields[2]).DisplayFormat:=',0.00';
TFloatField(IbDtsQrSuma.Fields[3]).DisplayFormat:=',0.00';
TFloatField(IbDtsQrSuma.Fields[4]).DisplayFormat:=',0.00';
lbAviso.Visible:=False;
pnDatos.Visible:=True;

DbgDesde.Columns[0].Width:=55;
DbgDesde.Columns[1].Width:=175;
DbgDesde.Columns[2].Width:=75;
DbgDesde.Columns[3].Width:=75;
DbgDesde.Columns[4].Width:=75;
DbgDesde.Columns[5].Width:=50;
IbDtsQrSuma.Last;

Un Saludo.