Error al filtrar una tabla
 

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. :confused:

Alguien podría ayudarme con esto?

Gracias anticipadas.

Saludos

Buenos Días!

Les informo que pude solucionar el problema de esta manera:

'and Tipo_Doc ='+QuotedStr(DBEdit1.Text)+

agregando QuotedStr

Saludos