calciojar, ¿De que modo más amable posible te podemos pedir que por favor expongas tu consulta SQL?

Te estamos diciendo de la mejor manera que tu problema viene de allí, y hasta es posible que más atrás... pero no podemos adivinar. Necesitamos más información de la que nos das. No estamos allí contigo como para saber que es lo que te falla.

Te lo pido, por favor... explicate mejor que deseas hacer, cual es tu consulta, y/o cualquier información relevante. ¿Que cambios haz hecho?

Saludos,

la consulta es:

Código Delphi [-]
 select
  factura.cod_factura
from
  factura
where
  factura.cod_factura like : PMBusFac
  order by factura.cod_factura

Solo tienes que unir los dos puntos ( : ) con el nombre del parámetro

Código SQL [-]
 select
  factura.cod_factura
from
  factura
where
  factura.cod_factura like :PMBusFac
  order by factura.cod_factura

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:

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.

Hola
Lo mas seguro es que me equivoco, pero me parece que el codigo lo estas escribiendo directamente en el form del Qreport, es asi?.
Saludos

MUCHACHOS GRACIAS A USTEDES YA ME FUNCIONO SOLO HACIA FALTA UNIR LOS :AL PARAMETRO COMO DECIA NUESTRO COMPAÑERO(A) D&W.

select
factura.cod_factura
from
factura
where
factura.cod_factura like :PMBusFac
order by factura.cod_factura

DE TODAS MANERAS ME GUSTA MUCHO QUE TODAS LAS PERSONAS ME AYUDARAN
LES AGRADESCO, PUESTO QUE ESTOY HACIENDO UNA APLICACION QUE TENGO
QUE ENTREGARLA A MEDIADOS DE MARZO. ESPERO QUE SI TENGO ALGUNA
DUDA MAS ME PUEDAN COLABORAR. GRACIASSSSS

HAAAA Y UNA PREGUNTA ME PODRIAN EXPLICAR EL CODIGO DEL FILTRO QUE ME DIERON???

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;

Hola calciojar
Por mera curiosidad, que porcentaje de tu proyecto llevas hecho :confused::rolleyes::eek:

Salud OS

PD. No escribas con mayúsculas, no se ve bien, ya leiste nuestra guía de estilo? :)

Hola, que pena lo de las mayusculas ya lo habia leido pero de verdad me olvide por completo.

en cuanto al porcentaje solo me falta hacer unas 10 consultas mas o menos y otra cosita sencilla creo que llevo un 90 a 95.

gracias por tu interes y que pena de nuevo por las mayusculas

Vaya, ya te queda algo así como un mes, ojala y te de tiempo de probar tu sistema antes de entregarlo, no estaría nada bien que fallara, digo, podría quedar en entredicho el Club :D:D:D

Salud OS

PD. Tomalo como un consejo de amigos.....

calciojar,
Espero que no me tomes el malo de la película pero espero que este hilo te haya demostrado que si uno quiere encontrar la solución debe mirar más adentro de lo que se imagina. Por lo que es fundamental que expongas, para la próxima, mejor tus casos, tus dudas y/o inconvenientes.

Ha requerido de la intervención de muchos para convencerte de que el error venía de más atrás.

Y disculpa que lo diga, pero tu comentario ha sonado un poco descortés. Si bien nos agradeciste, el cierre del telón te ha quedado corto... Recuerda que te podremos ser de ayuda siempre que tu pongas ganas, podemos ayudarte... si... no estamos obligados a ello pero haremos nuestro esfuerzo, pero eso no quiere decir que siempre estaremos para salvarte.

Me pareció correcto que Egostar te haya invitado a leer la guia de estilo.

Saludos,