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