Problemas con query y parametros

[ContraVeneno]

Enlaces el QuickReport al query que estas abriendo con la propiedad "Dataset" del quickreport.

Luego, enlazas cada uno de los QRDBText que tengas a su campo correspondiente, utilizando las propiedades "Dataset"y "DataField"

[Petolansa]

Sabes eso, lo tengo bien conectado, tanto los campos como con los dbtext y el dataset del qreport vinculado a al quety1.

Pero no logro que funcione. Seguro que no hago bien cuando lo muestro, aqui explico, el codigo que me corregiste, lo puse en la propiedad sql del query, de esta manera

Código SQL [-]
SELECT F.NumFactura, F.Fecha, F.Clicod, F.Efectivo, F.Ctacte, F.Tarjeta, F.Tipofac , F.Emplecod, F.SubTotal, F.Descuento, F.importetotal, 
C.Clinom, C.Clidom, C.Clicuit, C.Clitel,
FD.Codipro,  FD.Concepto, FD.Cantidad, FD.Precio
FROM Stock S
JOIN Facturadetalle FD ON S.Procod = FD.Codipro
JOIN Factura F ON (FD.Tipofac = F.Tipofac AND FD.Numfactura = F.Numfactura) 
JOIN Clientes C ON F.Clicod = C.Clicod
WHERE F.Numfactura= :Nrofact AND F.Tipofac= :TipoFact

Los parametros Nrofact y tipo fact los defini en la propiedad params del query.

Código Delphi [-]
  try
     qrfactura:=tqrfactura.Create(self);
        qrfactura.Query1.Open;
        qrfactura.preview;
    finally
        qrfactura.Free;
    end;

y Luego en el boton en el que posteo y actualizo el stock al final le ingrese el codigo de arriba.

Que me esta faltando, lo unico que veo son 3 campos currency, de descuento, total, y subtotal, con el text en 0,00.

Desde ya muchas gracias

[ContraVeneno]

qrfactura.Query1.Open;
Esa línea no se para que sirve,
el query1 no esta en el qrFactura, esa línea me tiene confundido.

Deberías de abrir primero el Query1 y despues hacer el preview, bueno, sí lo estas haciendo, pero el Query1 no es parte de qrFactura... solo que qrFactura sea el formulario....

no se

supongo que debería ser:

Código Delphi [-]
  try
     qrfactura:=tqrfactura.Create(self);
        Query1.Open;
        qrfactura.preview;
    finally
        qrfactura.Free;
    end;

[Petolansa]

Gracias por responder, el query1 lo tengo en el quick repor que se llama qrfactura.
Lo que me estaba fijando que en eso me falto asignarle el valor a los dos parametros,

ParamByName('NroFact').AsString := NumFac;
ParamByName('TipoFact').AsInteger := TipoFac;

Le agregue las dos lineas que me habias puesto antes, y aun asi n anda.

Sera porque el query1 lo tengo que poner en el formulario y no en un for con el reporte?

Numfac y tipo fac las tengo como variables globales que tienen guardada la ultima factura.

[ContraVeneno]

no pongas el query con el quickreport
ponlo en el formulario principal o puedes usar un módulo de datos

[Petolansa]

Buenas gente aca de nuevo, realmente no se que es lo que puede estar pasando, las sentencias sql estan bien y uso el siguiente codigo para asignarle valores a los parametros y no me da error, ni nada, asigne a todos los dbtext el query2 que es el que corresponde y al reporte le asigno el dataset que es el query2.
Que mas puede ser, porque lo unico que hace es mostrarme el form del reporte pero no aparece nada!

uso este codigo, realmente no le encuentro error, como me dijo contraveneno, y tampoco veo nada raro, cuando me fijo en las propiedades del query me aparecen lo dos parametros 0-nrofact y 1-tipofact

este es el codigo sql

Código SQL [-]
SELECT F.NumFactura, F.Fecha, F.Clicod, F.Efectivo, F.Ctacte, F.Tarjeta, F.Tipofac , F.Emplecod, F.SubTotal, F.Descuento, F.importetotal, 
C.Clinom, C.Clidom, C.Clicuit, C.Clitel,
FD.Codipro,  FD.Concepto, FD.Cantidad, FD.Precio
FROM Stock S
JOIN Facturadetalle FD ON S.Procod = FD.Codipro
JOIN Factura F ON (FD.Tipofac = F.Tipofac AND FD.Numfactura = F.Numfactura) 
JOIN Clientes C ON F.Clicod = C.Clicod
WHERE F.Numfactura= :Nrofact AND F.Tipofac= :TipoFact

este es el codigo para acceder al reporte

Código Delphi [-]
    
    try
    qrfactura:=tqrfactura.Create(self);
    Query2.Params.ParamByName('Nrofact').Value := numfa;
    Query2.Params.ParamByName('Tipofact').Value := tipofa;
    Query2.Open;
    qrfactura.preview;
    finally
    qrfactura.Free;
    end;

Lo que hice es convertir las variables numfa y tipofa y
mostrarlas en dos qrlabel para comprobar que si tiene los
valos que quiero
y si los tienen.

Que se puede estar escapando?

Gracias, disculpen la molestia.

[Petolansa]

Buenas gente, yo de nuevo, disculpen, se que me ayudaron bastante, pero estoy haciendo lo mismo una y otra vez y no logro que me muestre en un reporte los datos que le pido, nada da error, que me puede estar faltando, existe algo mas por hacer para hacer funcionar un reporte, es la primera vez que hago una factura, hasta ahora vine haciendo listados simples sin consultas.


Gracias y disculpen si actualizo el hilo...