Foros Club Delphi - Ver Mensaje Individual

judit25 · #1 01-06-2006

Buenos días!

Estoy utilizando el siguiente código para filtrar una tabla y mandar a imprimir ese registro

Código Delphi [-]procedure TFfacturacion.BBImprimirClick(Sender: TObject);
var
   nume : integer;
   tipo, anio, emp : string;
begin
   nume:=strtoint(dbenumero.Text);
   tipo := DBEdit1.Text;
   anio := dbeanio.Text;
   emp := dbedit2.Text;
   DM.TDocumento.Filtered:=true;
   DM.TDocumento.Filter :='Cod_Empresa= '+emp+ ' and Tipo_Doc= '+tipo+ ' and Anio= '+anio+' and Numero='+inttostr(nume);
   FRFacturacion.RFacturacion.Preview;
end;

Y cuando presiono el botón me sale el siguinete error:

Project LP.exe raised exception class EDatabaseError with message
'TDocumento: Field 'F' not found'.

'F' es el valor que tiene el dbedit1 en ese momento.

Solamente es el campo Tipo_Doc que me da el error, ya probe parte por parte el filtro y cuando añado ' and Tipo_Doc= '+tipo+ es que me marca el error.

Alguien podría ayudarme con esto?

Gracias anticipadas.

Saludos