Error en Aplicacion

[[Delphius]]

Empezado por enecumene

Haz esto:

SQL
Código SQL [-]select factura.cod_factura from factura



y pones esto en el procedure BuscFac:

Código Delphi [-]procedure TdmReportes.BusFac(Factura: String); var Filtro : String;
begin If (Factura.Text <> '') then begin qryFact.Filtered := False; Filtro := 'Factura Like ''%' +Factura.Text+ '%'' order by facturas ASC';
qryFact.Filter := Filtro;
qryFact.Filtered := True;
end else qryFact.Filtered := False;

end;


y prueba a ver:

ADVERTENCIA: tu código espere un string, pero en el cuerpo lo tratas como un TEDIT. Borra el .Text que está demás

Saludos,