10 respuestas en este tema

[Caral]

Hola
Estoy trabajando mucho......
                                     
Estoy tratando de hacer una consulta que me regrese la suma de los totales de las piezas que fabrico, pero esta consulta la ejecuto en un reporte.
La consulta funciona, pero no me da los datos parciales, solo los totales.
Esta es:

sql

SELECT DISTINCT OrdenProdItem.CodParte,
Articulos.Descripcion|| ' ' ||Categoria|| ' ' ||SubCategoria AS Descr, SerieMaterial.CodMaterial,
Materiales.Descripcion, Materiales.Unidad, SUM(SerieMaterial.Cantidad) AS Cantidad,
MAX(Materiales.Costo) AS Costo, MAX(SerieMaterial.CostoALaFecha) AS CostoALaFecha,
(SELECT COUNT(*) FROM OrdenProdItem)
FROM Articulos RIGHT JOIN (OrdenProdItem INNER JOIN (Materiales RIGHT JOIN SerieMaterial
ON Materiales.CodMaterial = SerieMaterial.CodMaterial) ON OrdenProdItem.NumSerie = SerieMaterial.NumSerie)
ON Articulos.CodParte = OrdenProdItem.CodParte
WHERE OrdenProdItem.FinProd >= :f1 AND OrdenProdItem.FinProd <= :f2 +1
GROUP BY OrdenProdItem.CodParte
Articulos.Descripcion|| &#39;&#39; &#39;&#39; ||Categoria|| &#39;&#39; &#39;&#39; ||SubCategoria, SerieMaterial.CodMaterial, 
Materiales.Descripcion, Materiales.Unidad

Si teneis alguna idea os lo agradezco.
A mi no se me enciende.....
Saludos

[Caral]

Hola
Ampliando esto:
Asi llamo al qreport, dividiendo la consulta, osea separando el where y el group by:

delphi

try
         QRProduccionTerminadasPiezas:=TQRProduccionTerminadasPiezas.Create(self);
         QRProduccionTerminadasPiezas.ADOQuery1.SQL.Add(' WHERE OrdenProdItem.FinProd >= :f1 AND OrdenProdItem.FinProd <= :f2 +1');
         QRProduccionTerminadasPiezas.ADOQuery1.SQL.Add(' GROUP BY OrdenProdItem.CodParte, '+
         ' Articulos.Descripcion|| '' '' ||Categoria|| '' '' ||SubCategoria, SerieMaterial.CodMaterial, '+
         ' Materiales.Descripcion, Materiales.Unidad ');
         QRProduccionTerminadasPiezas.ADOQuery1.Params[0].Value:= DateToStr(DTP1.Date);
         QRProduccionTerminadasPiezas.ADOQuery1.Params[1].Value:= DateToStr(DTP2.Date);
 
         QRProduccionTerminadasPiezas.ADOQuery1.Open;
         QRProduccionTerminadasPiezas.QRLblDesde.Caption := DateToStr(DTP1.Date);
         QRProduccionTerminadasPiezas.QRLblHasta.Caption := DateToStr(DTP2.Date);
         If RadioGroup1.ItemIndex = 0 then QRProduccionTerminadasPiezas.Print
         else QRProduccionTerminadasPiezas.Preview;
      finally
         QRProduccionTerminadasPiezas.Free;
      end; //t

Saludos

[egostar]

No entiendo amigo, puedes poner un ejemplo de como sale y como quieres que salga ?

Salud OS

[Caral]

Hola
Mira como va esto:
El reporte genera los datos de las piezas que he fabricado, lo que hace es sumar los datos de acuerdo al tipo de pieza mostrando los materiales y las cantidades de estos.
Este es el actual; genera la cantidad de piezas total, en este caso 22.


El asunto es que como es un reporte en el que suma las cantidades contrae todo.
Lo que busco es la suma parcial de las piezas por modelo.

Espero veas la diferencia.
Saludos

[Marc]

Hola.

Puedes poner una banda de agrupación, de forma que el sumatorio en el pie de agrupación solo te afectará al grupo correspondiente.

Así es como lo hacemos en Fast-Reports.

Saludos.

[eduarcol]

en QR es igual a como te lo comenta Marc, eso que quieres hacer es directamente con QR no con Firebird.

Deberias tener un

GROUPBAND
  DetailBAnd
FooterGroup
SummaryBand

en GroupBand: Las Cabeceras
en DetailBand: Los detalles del producto
en FooterGroup: Las expresiones(qrExpr) con los parciales(estas deben tener la propiedad ResetAfterPrint en true)
en SummeryBand: Las expresiones(qrExpr) con los totales.

[Caral]

Hola
Asi es como lo tengo pero no me salen los datos parciales.
Gracias amigos por vuestros consejos.
Saludos

[eduarcol]

y relacionastes el groupband con el footerband en su propiedad footer???

[Caral]

Hola
Si amigo, el reporte funciona, el problema es sacar ese dato parcial.
No camina.
Saludos

[egostar]

y cual es la funcion que estas usando en QReport para mostrar el valor que quieres y no lo hace ?

Salud OS

[Caral]

Hola
Hoy he terminado de resolver este problema, os cuento.
Queria que me salieran los datos parciales, pero, el problema era que dependia del dato que suministraba el query que esta en el reporte, osea, como sacar ese dato si cuando lo captura lo muestra inmediatamente?.
Bien, lo solucione, después de romperme la cabeza, usando el evento AfterScroll del query.
Ahi es donde hago el codigo (en un query independiente) para que me muestre el dato.
Osea, el reporte ahora tiene dos query y en el unit del reporte coloco el codigo que en realidad es sencillo.

delphi

procedure TQRProduccionTerminadasPiezas.ADOQuery1AfterScroll(
  DataSet: TDataSet);
begin
   AQTemp.Close;
   AQTemp.SQL.Text:= 'select count(*) from OrdenProdItem Where OrdenProdItem.CodParte = :cod'+
           ' and OrdenProdItem.FinProd >= :f1 AND OrdenProdItem.FinProd <= :f2 +1';
   AQTemp.Params[0].Value:= ADOQuery1CODPARTE.AsString;
   AQTemp.Open;
end;

El codigo de la pieza lo saca del adoquery1 y las fechas las saca del form que lo llama.

Bueno:
Caso resulto y lo doy por terminado, gracias a todos por vuestros consejos.
Saludos