Ver Mensaje Individual
  #1  
Antiguo 09-05-2016
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Reputación: 19
Angel.Matilla Va por buen camino
Exportar a PDF con QR 3.6.2

Me vais a mandar a la porra como muy cerca. Ya no sé que pasa, pero cada paso adelante que doy el sistema me responde con dos para atrás. Tengo este código:
Código:
#include <qrpdffilt.hpp>
#include <QRExport.hpp>

bool ExportaListado(TQuickRep *Informe, AnsiString cInforme, bool Guardar)
{
     try
     {
          if (UpperCase(ExtractFileExt(cInforme)) == ".PDF")
          {
               TQRPDFDocumentFilter *filtro = new TQRPDFDocumentFilter(cInforme);
               filtro->AddFontMap("Arial:Helvetica");
               filtro->StartConcat();
               Informe->ExportToFilter(filtro);
               filtro->EndConcat();
               delete filtro;
          }
          else if (UpperCase(ExtractFileExt(cInforme)) == ".RTF")
          {
               TQRRTFExportFilter *filtro = new TQRRTFExportFilter(cInforme);
               Informe->ExportToFilter(filtro);
               delete filtro;
          }
          else if (UpperCase(ExtractFileExt(cInforme)) == ".TXT")
          {
               TQRAsciiExportFilter *filtro = new TQRAsciiExportFilter(cInforme);
               Informe->ExportToFilter(filtro);
               delete filtro;
          }
          else if (UpperCase(ExtractFileExt(cInforme)) == ".XLS")
          {
               TQRXLSFilter *filtro = new TQRXLSFilter(cInforme);
               Informe->ExportToFilter(filtro);
               delete filtro;
          }
     }
     catch(...)
     {
          DeleteFile(cInforme);
          Mensaje(1, "Ha tenido lugar un error en la exportación del listado.", "Continuar");
          return false;
     }
     return true;
}
Esta función la uso en varios sitios de lso informes de forma que no me hace falta definir la exportación en cada punto del proyecto; lo hago una vez y luego llamo a esta función. Llevo años usándolo sin ningún problema... ¡Hasta hoy! Ahora, de repente, al compilar el proyecto completo (Ctrl+F9 o Build Project - Alt P + B) me está dando errores en el módulo donde está declarada:
Cita:
Unresolved external 'Qrpdffilt::TQRPDFDocumentFilter::' referenced from C:\Proyecto\Funciones.obj
Curiosamente si compilo sólo (Alt+F9) el módulo en que se encuentra declarada la función ¡no me da ningún error!

¡¡¡SOCORRO!!!
Responder Con Cita