Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-02-2006
ZRR ZRR is offline
Miembro
 
Registrado: jun 2005
Posts: 39
Poder: 0
ZRR Va por buen camino
Question Imprimir y agrupar info desde arreglo con QuickReport

Que tal a todos buen dia.

Tengo un problema para agrupar información en un reporte con QuickReport tomando los datos desde 1 arreglo.
Tengo en quickReport un DetailBand (TQRBand) y dentro del DetailBand 4 TQRLabel. Imprime el contenido de mi arreglo, pero tengo problemas si intento imprimir totales por Cliente, no he podido agrupar para que cada que sea un cliente diferente, muestre la suma del importe para el cliente, imprima el encabezado de las columnas para el siguiente cliente y su total y asi sucesivamente.

Agregue un GroupHeader con los titulos de las columnas, un TQRSubDetail para los datos y un Group Footer con las TQRLabel para los totales, pero todo mi arreglo se imprime en el mismo grupo de datos y el total solo muestra el del ultimo cliente encontrado:

Código:
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
CurrentItem := 0; // Puntero del arreglo a imprimir
end;
...
//los datos estan en un arreglo:
procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
 //si hay mas datos, QuickReport imprimirá otra banda de detalle
 MoreData := CurrentItem < High(arr);
 
  //imprimir total del cliente
 if (cveClienteAux<>'') and (arr[CurrentItem,0]<>cveClienteAux) then
 begin
  QRLCveCliente.Caption:=cveClienteAux;
  QRLSumaImporte.Caption:=FloatToStr(sumaImporte);
   //******COMO INSERTAR UN NUEVO GRUPO DE DATOS AQUI?*****
  sumaImporte:=0;
 end;
 
 if MoreData then
 begin
  cveClienteAux:=arr[CurrentItem,0];
  QRLCliente.Caption:=arr[CurrentItem,0];
  QRLFecha.Caption:=arr[CurrentItem,1];
  QRLNumero.Caption:=arr[CurrentItem,2];
  QRLImporte.Caption:=arr[CurrentItem,3];
 end;
 Inc(CurrentItem);
end;
Como puedo hacer que para cada cliente diferente (el arreglo esta ordenado por cliente) se impriman los totales y se genere otro GroupHeader-TQRSubDetail-Group Footer?

Gracias por su ayuda
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
I/O ERROR 105 +imprimir desde delphi IVAND Impresión 5 02-10-2005 19:51:00
'peta' el spoolsv.exe al lanzar a imprimir quickReport manolop Impresión 11 16-06-2005 19:41:48
Imprimir un arreglo Luli Varios 2 15-05-2005 08:57:55
Novato en QuickReport tratando de imprimir RyAr Impresión 1 12-05-2004 21:04:05
Imprimir composite report desde preview personalizado SnaKe Impresión 5 11-05-2004 10:31:50


La franja horaria es GMT +2. Ahora son las 07:33:24.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi