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

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 18-12-2017
BMo13 BMo13 is offline
Registrado
NULL
 
Registrado: dic 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: ago 2007
Ubicación: Barcelona, España
Posts: 1.732
Poder: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
¿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
NULL
 
Registrado: dic 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 19: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 20:01:49
Descargar archivo generado en .xml desde web wiwaedu Conexión con bases de datos 0 03-05-2010 23:22:33
Especificar donde guardar archivo generado. Coco_jac PHP 1 25-08-2006 16:58:03
Adjuntar un archivo a una mail ichavero Internet 2 06-05-2005 21:48:10
Adjuntar archivo a e-mail Barriccel Internet 2 11-12-2003 10:27:47


La franja horaria es GMT +2. Ahora son las 06:52:35.


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