Error en Aplicacion

[[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+ '%'' order by facturas ASC';
      qryFact.Filter := Filtro;
      qryFact.Filtered := True;
   end
   else qryFact.Filtered := False;

end;

y prueba a ver:

[[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,

[[enecumene]]

Empezado por Delphius

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

Saludos,

Vale es cierto Amigo Delphius, gracias por la advertencia.

Saludos.