No funciona la consulta de la fecha

[Angel.Matilla]

No uso Deplhi, pero es muy similar a Builder. ¿Por qué no usas parámetros en el query? Creo que sería más fácil y no tendrías que hacer conversiones sobre la marcha. En Builder yo construiría así el query:

Código SQL [-]
Query1->Close();
Query1->SQL->Text = "SELECT admDocumentos.CIDDOCUMENTODE, admDocumentos.CSERIEDOCUMENTO, admDocumentos.CFOLIO, admDocumentos.CFECHA,";
Query1->SQL->Add("admDocumentos.CRAZONSOCIAL, admDocumentos.CFECHAVENCIMIENTO, admDocumentos.CIDMONEDA, admDocumentos.CCANCELADO, admDocumentos.CTOTAL,");
Query1->SQL->Add("admDocumentos.CPENDIENTE, admDocumentos.CIDCONCEPTODOCUMENTO, admDocumentos.CIDDOCUMENTOORIGEN, admDocumentos.CIDDOCUMENTO");
Query1->SQL->Add("FROM admDocumentos");
Query1->SQL->Add("WHERE admDocumentos.CIDCONCEPTODOCUMENTO = 21");
Query1->SQL->Add("AND CCANCELADO = 0");
Query1->SQL->Add("AND admDocumentos.CFECHAVENCIMIENTO < :Fecha");
Query1->SQL->Add("AND CPENDIENTE <> 0");
Query1->SQL->Add("AND admDocumentos.CIDMONEDA = 1");
Query1->ParamByName("Fecha")->AsDateTime = FechaIni;
Query1->Open();

Imagino que la forma de hacerlo en Delphi será similar.

[ecfisa]

Hola.

Como te indican usar parámetros, mas alla de la seguridad, simplifica la situación. Podrías hacerte una función que indique si deseas o no traer las factura vencidas, por ejemplo:

Código Delphi [-]
// Por defecto filtra la consulta por NO vencidas. "Vencidas" es False si se omite
procedure MakeQuery(Qy: TADOQuery; FechVenc: string; const Vencidas: Boolean = False);
begin
  Qy.Close;
  Qy.SQL.Clear;
  Qy.SQL.Add('SELECT ADM.CIDDOCUMENTODE, ADM.CSERIEDOCUMENTO,');
  Qy.SQL.Add('ADM.CFOLIO, ADM.CFECHA, ADM.CRAZONSOCIAL, ADM.CFECHAVENCIMIENTO,');
  Qy.SQL.Add('ADM.CIDMONEDA, ADM.CCANCELADO, ADM.CTOTAL, ADM.CPENDIENTE,');
  Qy.SQL.Add('ADM.CIDCONCEPTODOCUMENTO, ADM.CIDDOCUMENTOORIGEN, ADM.CIDDOCUMENTO');
  Qy.SQL.Add('FROM ADMDOCUMENTOS ADM');
  Qy.SQL.Add('WHERE (ADM.CIDCONCEPTODOCUMENTO = 21) AND (CCANCELADO = 0)');
  Qy.SQL.Add('AND (CPENDIENTE <> 0) AND (ADM.CIDMONEDA = 1)');
  if Vencidas then
    Qy.SQL.Add('AND (CFECHAVENCIMIENTO < :FVENC)')
  else
    Qy.SQL.Add('AND (CFECHAVENCIMIENTO >= :FVENC)');
  Qy.Parameters.ParamByName('FVENC').Value := FechVenc;
  Qy.Open;
end;

// Ejemplo del uso
procedure TForm1.Button1Click(Sender: TObject);
begin
  MakeQuery(ADOQuery1, DateToStr(DateTimePicker1.Date), CheckBox1.Checked);
end;

Aunque no especificaste que gestor de base de datos y componentes usas, fijándome en tus mensajes anteriores y ví que usaste ADO alguna vez.

Saludos