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