Leve problema con parámetros.

[ecfisa]

Creo que descubrí donde está el problema:

Si hago:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  D: TDate;
begin
  D:= StrToDate('04/09/2011');
  with IBQuery1 do
  begin
    Close;
    Paramcheck:= True;
    SQL.Clear;
    SQL.Add('SELECT * FROM ALBARANES');
    SQL.Add('WHERE CODCLIENT = :CODCLI');
    SQL.Add('AND ACTIVO = :ACTIVO ');
    SQL.Add('AND FACTURAR = :FACTURA ');
    SQL.Add('AND FECHA <= :FECHA ');
    SQL.Add('ORDER BY FECHA');
    ParamByName('CODCLI').AsString:= '00004';
    ParamByName('ACTIVO').AsString:= 'S';
    ParamByName('FACTURA').AsString:= 'S';
    ParamByName('FECHA').AsString:= FormatDateTime('mm/dd/yy',D);
    Open;
  end;
end;

No muestra nada.

De este modo funciona bién:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  D: TDate;
begin
  D:= StrToDate('04/09/2011');
  with IBQuery1 do
  begin
    Close;
    Paramcheck:= True;
    SQL.Clear;
    SQL.Add('SELECT * FROM ALBARANES');
    SQL.Add('WHERE CODCLIENT = :CODCLI');
    SQL.Add('AND ACTIVO = :ACTIVO ');
    SQL.Add('AND FACTURAR = :FACTURA ');
    SQL.Add('AND FECHA <= :FECHA ');
    SQL.Add('ORDER BY FECHA');
    ParamByName('CODCLI').AsString:= '00004';
    ParamByName('ACTIVO').AsString:= 'S';
    ParamByName('FACTURA').AsString:= 'S';
    ParamByName('FECHA').AsString:= DateToStr(D);
    Open;
  end;
end;

Y es por que usando FormatDateTime('dd/mm/yy'..) , se envía: 04/09/11 y con DateToStr: 04/09/2011, es decir que tendría que ser: FormatDateTime('dd/mm/yyyy'...).

Saludos.

[marcoszorrilla]

Gracias a todos por las observaciones:

Caral:

Código Delphi [-]
DmFact.IBDtsAlbaran.SelectSQL.Add('And Fecha <='+QuotedStr(FormatDateTime('mm/dd/yyyy',DtpkHasta.Date)));

Sino utilizó QuotedStr, para envolver entre comillas la fecha me arroja un error de "Conversion String", este formato ya vengo utilizándolo hace tiempo con éxito.

ecfisa:

Utilizando:

Código Delphi [-]
DmFact.IBDtsAlbaran.ParamByName('f1').AsString:=DateToStr(DtPkHasta.Date);

Sigue sin devolverme nada, DtpkHasta es un DateTimePicker.

Con la expresión que comenta Caral es con la que me funciona.

Un Saludo.

[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.

[ecfisa]

Empezado por marcoszorrilla

ecfisa:

Utilizando:

Código Delphi [-]
DmFact.IBDtsAlbaran.ParamByName('f1').AsString:=DateToStr(DtPkHasta.Date);

Sigue sin devolverme nada, DtpkHasta es un DateTimePicker.

Hola Marcos.

No sabía que era un DateTimePicker, ¿ Pero entonces no te convendría asignar directamente el valor como TDate ?

Con los datos que use en la prueba (mensaje #3), este código me funciona bién:

Código Delphi [-]
procedure TForm1.dpkHastaChange(Sender: TObject);
begin
  with IBQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM ALBARANES');
    SQL.Add('WHERE CODCLIENT = :CODCLI');
    SQL.Add('AND ACTIVO = :ACTIVO ');
    SQL.Add('AND FACTURAR = :FACTURA ');
    SQL.Add('AND FECHA <= :FECHA ');
    SQL.Add('ORDER BY FECHA');
   // uso la fecha para armar el código ya que en los datos, coinciden el número de día con código de cliente
    ParamByName('CODCLI').AsString:= '000'+Copy(DateToStr(dpkHasta.Date),1,2);
    ParamByName('ACTIVO').AsString:= 'S';  // en la tabla todos tienen valor 'S'
    ParamByName('FACTURA').AsString:= 'S';// en la tabla todos tienen valor 'S'
    ParamByName('FECHA').AsDate:= dpkHasta.Date;
    Open;
  end;
end;

Saludos.

[marcoszorrilla]

Eso es lo que he hecho inicialmente y no me funciona de forma inexplicable, porque como ves en otras partes de la misma aplicación si lo hace, pero recuerdo que en algún sitio más he tenido que recurrir ala misma solución que en este caso.

A ver si logro establecer que circunstancias concurren cuando no me funcionan los parámetros, curiosamente ocurre con fechas.


Si observas mi primer mensaje tengo comentado ese formato porque no me funciona.

Código Delphi [-]
//DmFact.IBDtsAlbaran.SelectSQL.Add(' And Fecha <= :f1'); 
//DmFact.IBDtsAlbaran.ParamByName('f1').AsDate:=DtpkHasta.Date;

Un Saludo.

[[Caral]]

Hola
Para mi sigue siendo extraño el uso de QuotedStr, sobre todo con la fecha y mas si es obtenida de un datetimepicker.
Yo hago esto y funciona perfectamente:

Código Delphi [-]
ADOQuery1.SQL.Add(' AND Fecha >= :f1 AND Fecha <= :f2');
ADOQuery1.SQL.Add(' ORDER BY Fecha, Factura.CodFactura;');
ADOQuery1.Params[0].Value:= DateToStr(DTP1.Date);
ADOQuery1.Params[1].Value:= DateToStr(DTP2.Date);
ADOQuery1.Open;

OJO, no os confundáis, no son componentes ADO, son IBX.
Simplemente se llaman asi por motivos de vagancia.
Saludos

[[Delphius]]

Hola Marcos,
Creo tal vez que parte del problema se deba a que en tu primer código expuesto mientras estás armando la consulta, justamente quieres pasar el dato al parámetro (el :f1) y luego continuar armando la consulta.

Es deseable primeramente armar la consulta, entera, y luego si proceder con el paso de datos a los parámetros. Por seguridad.

Por otro lado, creo que la posible discrepancia entre el .AsDate y el uso de FormatDateTime para armar la consulta también es motivo de problemas. ¿Te aseguraste de revisar la configuración regional para que dé el formato adecuado?

Se supone, en teoría, que la implementación del AsDate es la más segura ya que éste toma la responsabilidad de darle el formato adecuado y que corresponde al formato nativo que utiliza el motor.

Haz una prueba, muestra el contenido de un .AsDate y compáralo con un FormatDateTime para ver si hay alguna diferencia.

Saludos,

[marcoszorrilla]

Delphius tu observación fue la correcta, colocando la entrada de los parámetros al final ha funcionado.

Código Delphi [-]
procedure TfrFactMes.SpeedButton2Click(Sender: TObject);
begin
DmFact.IBDtsAlbaran.Close;
DmFact.IBDtsAlbaran.ParamCheck := True;
DmFact.IBDtsAlbaran.SelectSQL.Clear;
DmFact.IBDtsAlbaran.SelectSQL.Add('Select * From Albaranes');
DmFact.IBDtsAlbaran.SelectSQL.Add('Where CodClient = :C1');
DmFact.IBDtsAlbaran.SelectSQL.Add(' And Fecha <= :F1');
DmFact.IBDtsAlbaran.SelectSQL.Add('And Activo =''S''');
DmFact.IBDtsAlbaran.SelectSQL.Add('And Facturar =''S''');
DmFact.IBDtsAlbaran.SelectSQL.Add('Order by Fecha');
DmFact.IBDtsAlbaran.ParamByName('C1').AsString:=DmFact.IBDtsCliCODIGO.Value;
DmFact.IBDtsAlbaran.ParamByName('F1').AsDate:=DtpkHasta.Date;
DmFact.IBDtsAlbaran.Open;
end;

Un Saludo.