Ver Mensaje Individual
  #12  
Antiguo 26-09-2011
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
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.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita