Vista previa al frente en fastReport

[jrestojeda]

Hola a todos,
Quería saber si existe una manera de que la vista previa de un reporte en fastReport se visualice al frente.
En ocasiones, queda la vista previa detrás de la aplicación y los usuarios no se dan cuenta.
Se puede hacer algo para forzar que se visualice al frente?
Desde ya muhas gracias.
Saludos,

[karinha]

Muestra como estás haciendo. Ponga el código para Reseñas.

Esto no debería suceder. La vista previa debería subir de forma normal. ¿Tiene un cuadro de diálogo antes de llamar a Vista previa? ¿Qué tal un MsgRun() antes?

Gracias.

Regards, saludos.

[jrestojeda]

Paso el ejemplo:

Code: Select all | Expand

   cFile   :=PathSist+"FASTREPO\CERTI_ZW.FR3"
   cTitulo :="Impresión de certificados"
   oFr     :=FrReportManager():New()
   oFr:LoadLangRes(PathSist+"Spanish.xml")
   oFr:SetTitle( cTitulo )
   oFr:SetIcon( "ADEXTRA" )
   
   oFr:SetUserDataSet( "aCertifica","OPE_NOMBRE;OPE_DOMICILIO;OPE_LOCALIDAD;OPE_RESPONSAB;OPE_DNIRESPON;CLI_CLIENTE;"+;
                                    "CLI_RAZON_SOC;CLI_CALLE;CLI_LOCALIDAD;CLI_TELEFONOS;RESIDUOS;TIPOY;TIPOH;TRATAMIENTO;"+;
                                    "RESIDUO_FIN;MANIFIESTO;KILOS;FECHA_TRA;REGISTRO;ESTADO_F;CERTIFICADO;DISPOSICION;FECHA_CERTI;"+;
                                    "COBRADOR;COD_PROF;CLIOPDS;REIMPRIME;OPE_CODIGO;NACION" ,;
                        {||np := 1}, ;               //--> bGoTop
                        {||np := np + 1}, ;          //--> bSkipPlus
                        {||np := np - 1}, ;          //--> bSkipMinus
                        {||np > Len(aCertifica)}, ;  //--> bCheckEOF
                        {|aField|nCol := IIF( aField == "OPE_NOMBRE"    , 1,;
                                         IIF( aField == "OPE_DOMICILIO" , 2,;
                                         IIF( aField == "OPE_LOCALIDAD" , 3,;
                                         IIF( aField == "OPE_RESPONSAB" , 4,;
                                         IIF( aField == "OPE_DNIRESPON" , 5,;
                                         IIF( aField == "CLI_CLIENTE"   , 6,;
                                         IIF( aField == "CLI_RAZON_SOC" , 7,;
                                         IIF( aField == "CLI_CALLE"     , 8,;
                                         IIF( aField == "CLI_LOCALIDAD" , 9,;
                                         IIF( aField == "CLI_TELEFONOS" ,10,;
                                         IIF( aField == "RESIDUOS"      ,11,;
                                         IIF( aField == "TIPOY"         ,12,;
                                         IIF( aField == "TIPOH"         ,13,;
                                         IIF( aField == "TRATAMIENTO"   ,14,;
                                         IIF( aField == "RESIDUO_FIN"   ,15,;
                                         IIF( aField == "MANIFIESTO"    ,16,;
                                         IIF( aField == "KILOS"         ,17,;
                                         IIF( aField == "FECHA_TRA"     ,18,;
                                         IIF( aField == "REGISTRO"      ,19,;
                                         IIF( aField == "ESTADO_F"      ,20,;
                                         IIF( aField == "CERTIFICADO"   ,21,;
                                         IIF( aField == "DISPOSICION"   ,22,;
                                         IIF( aField == "FECHA_CERTI"   ,23,;
                                         IIF( aField == "COBRADOR"      ,24,;
                                         IIF( aField == "COD_PROF"      ,25,;
                                         IIF( aField == "CLIOPDS"       ,26,;
                                         IIF( aField == "REIMPRIME"     ,27,;
                                         IIF( aField == "OPE_CODIGO"    ,28,;
                                         IIF( aField == "NACION"        ,29, ))))))))))))))))))))))))))))), aCertifica[np, nCol] } )

   oFr:LoadFromFile( cFile )

   cImagen:="1"

   cTitulo2:="CERTIFICADO DE TRATAMIENTO DE RESIDUOS"

   oFr:AddVariable("Mis variables","Titulo informe","'"+cTitulo +"'")
   oFr:AddVariable("Mis variables","cUser"         ,"'"+cUser   +"'")
   oFr:AddVariable("Mis variables","nUser"         ,"'"+nUser   +"'")
   oFr:AddVariable("Mis variables","cEmpresa"      ,"'"+cEmpresa+"'")
   oFr:AddVariable("Mis variables","cImagen"       ,"'"+cImagen +"'")
   oFr:AddVariable("Mis variables","Titulo2"       ,"'"+cTitulo2+"'")

   IF lDisenio
      oFr:DesignReport() 
   ELSE
      oFr:PreviewOptions:SetButtons( 1+4+8+16+32+64+128+1024+2048+4096 )
   ENDIF

   oFr:ShowReport()
   oFr:ClearDataSets()
   oFr:DestroyFR()
 

Saludos,

[karinha]

Aqui funciona de 1000.

Mira se ayuda:

Code: Select all | Expand

FUNCTION JRESTO()

      IF tipoo= 2  // PARA VISUALIZAR O EDITOR DO FASTREPORT

         oFrPrn := frReportManager():new()

         oFrPrn:SetWorkArea( 'empresa' , select('EMPRESA') )

         oFrPrn:LoadFromFile( "C:\INST_NFE\CCE.FR3" ) // para leitura direta de arquivo FR3

         oFrPrn:DesignReport() // aqui para "desenhar" o relatorio

         oFrPrn:DestroyFR()

         RETURN NIL

      ENDIF

      // aqui Ojeda:

      MsgWait( "ARQUIVO *.PDF DA CC-e GERADO EM C:\NFEPDF", ;
               "AGUARDE UM MOMENTO POR FAVOR..           ", 2.5 )

      NOMEMP := CADCLIEN->FANTASIA

      oFrPrn := frReportManager():new()

      oFrPrn:SetIcon(1) //1                       // Icone da janela do FRH

      oFrPrn:SetWorkArea( 'empresa' , select('EMPRESA') )

      cRes := "CARTA_CCE"  // EM: NFE.RES COMO RCDATA

      oFrPrn:LoadFromResource( cRes )  // MUDEI EM: 31/10/2016 - Joao
 
      oFrPrn:PrepareReport()  // sem isso, nao gera o .PDF da CC-e

      oFrPrn:PreviewOptions:SetAllowEdit( .F. )

      oFrPrn:PreviewOptions:SetMaximized(.T.)

      oFrPrn:PreviewOptions:SetZoomMode(2)  // 2 - 124% no visor.

      oFrPrn:PrintOptions:SetCopies( nCopias )

      oFrPrn:SetProperty("PDFExport","FileName", CNOMEPDF ) // NOME DO .PDF

      oFrPrn:SetProperty( "PDFExport","ShowDialog", .F. )  // .T. pede confirmacao

      oFrPrn:SetProperty( "PDFExport", "Compressed", .T. )
      oFrPrn:SetProperty( "PDFExport", "EmbeddedFonts", .T. )
      oFrPrn:SetProperty( "PDFExport" ,"PrintOptimized",.T.)

      oFrPrn:SetProperty( "PDFExport", "Subject", "" )

      IF lChamaAdobe  // Chama o ADOBE Para Visualizacao junto com o Preview
         oFrPrn:SetProperty("PDFExport","OpenAfterExport",  .T. ) // Gera e mostra no ADOBE
      ELSE
         oFrPrn:SetProperty("PDFExport","OpenAfterExport",  .F. ) // Gera e Nao mostra ADOBE
      ENDIF

      oFrPrn:DoExport("PDFExport")

      IF lSemPreviewCCe // := .T. NAO QUERO PREVIEW - DIRETO NA IMPRESSORA.

         // Pede a Impressora para Esolher uma Virtual, pois nao gera o .PDF aqui
         oFrPrn:PrintOptions:SetShowDialog(.F.) // .f. Direto na impressora
         oFrPrn:Print( .T. )

      ELSE  // COM PREVIEW NO FASTREPORT

         oFrPrn:ShowReport(1)   // aqui para gerar o preview do relatorio

      ENDIF

      //-- Limpa os datasets
      oFrPrn:ClearDataSets()
      //-- Fecha/Limpa
      oFrPrn:Clear()
      oFrPrn:ClearReports() // - clear all reports except report with number 0.
      //-- Destroi
      oFrPrn:DestroyFR()

RETURN NIL
 

Regards, saludos.