Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
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 18-12-2017
BMo13 BMo13 is offline
Registrado
 
Registrado: Dec 2017
Posts: 2
Poder: 0
BMo13 Va por buen camino
Adjuntar archivo PDF a reporte generado en QuickReport

Hola a todos

Explico mi problema:

Estoy guardando cierta información en la base de datos y con eso genero un reporte. Hasta ahí todo bien. El problema es que necesito adjuntar dos archivos PDF a ese reporte generado. Esos archivos se encuentran en una carpeta a la que todo mundo tiene acceso.

Encontré que se pueden adjuntar varios reportes con CompositeReport pero sólo he encontrado ejemplos donde adjuntan varios QuickRep y lo que estoy buscando es adjuntar un QuickRep con dos archivos PDF.

Espero haberme explicado.

Estoy trabajando con Delphi 6 y con QuickReport 4.06

Gracias de antemano por la ayuda .
Responder Con Cita
  #2  
Antiguo 18-12-2017
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: Aug 2007
Ubicación: Barcelona, España
Posts: 1.512
Poder: 14
duilioisola Tiene un aura espectacularduilioisola Tiene un aura espectacular
¿A qué te refieres con "Adjuntar"?

Si es imprimir los PDF cuando se imprime el reporte, puedes imprimir el PDF mediante:
Código Delphi [-]
begin
  ...
  // Primero se imprime el reporta
  QuickRep.Print;

  // Ahora imprimo el primer PDF
  ArchivoPDF := '\\SerivodorDeArchivos\Carpeta\Archivo_1.PDF';
  ShellExecute(Application.Handle, 'print', PChar(ArchivoPDF), nil, nil, SW_SHOW);

  // Ahora el segundo
  ArchivoPDF := '\\SerivodorDeArchivos\Carpeta\Archivo_2.PDF';
  ShellExecute(Application.Handle, 'print', PChar(ArchivoPDF), nil, nil, SW_SHOW);
...
end;
Responder Con Cita
  #3  
Antiguo 18-12-2017
BMo13 BMo13 is offline
Registrado
 
Registrado: Dec 2017
Posts: 2
Poder: 0
BMo13 Va por buen camino
Hola

Al decir "Adjuntar" me refiero a que cuando genere el reporte mediante un botón (que eso ya lo puedo hacer), que se muestren en la misma ventana el reporte generado con quickreport y los dos archivos PDF.

No sé si me expliqué bien .

Gracias.

Edito:

Este es el código en el que me basé:
Código Delphi [-]
procedure MakeComp;
 begin
     comprep := TQRCompositeReport.Create( mainfrm);
     comprep.OnAddReports := mainfrm.CompRepAddReports;
     comprep.Preview;
     comprep.free;
 end;


 procedure Tmainfrm.SpeedButton1Click(Sender: TObject);
 begin
     MakeComp;
 end;


 procedure Tmainfrm.CompRepAddReports(Sender: TObject);
 begin
    comprep.Reports.Add( repfrm1.quickrep1 ); //Aqui pongo el reporte que ya puedo generar
    comprep.Reports.Add( repfrm2.quickrep1 ); //Aqui necesito poner el archivo PDF, pero al poner la ruta 
    // de la ubicación y  compilar me marca  " Incompatible types 'String' and 'Pointer' "
 end;

Última edición por ecfisa fecha: 18-12-2017 a las 18:56:56. Razón: Agregar etiquetas [delphi] [/delphi]
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
Cómo adjuntar archivo con el .Apk y recuperarlo jhonalone Desarrollo en Delphi para Android 3 25-11-2016 19:01:49
Descargar archivo generado en .xml desde web wiwaedu Conexión con bases de datos 0 03-05-2010 22:22:33
Especificar donde guardar archivo generado. Coco_jac PHP 1 25-08-2006 15:58:03
Adjuntar un archivo a una mail ichavero Internet 2 06-05-2005 20:48:10
Adjuntar archivo a e-mail Barriccel Internet 2 11-12-2003 09:27:47


La franja horaria es GMT +2. Ahora son las 17:10:59.


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