Edu Posted January 11, 2017 Report Share Posted January 11, 2017 Bom dia amigos! Estou com problemas num relatório usando fastreport. A impressão exibe normal mas ao sair da exibição o sistema para de funcionar. Alguém saberia me explicar o que estou errando ou teria algum exemplo? Obs.: Estou usando SqlRdd. Segue o código: FUNCTION Imprime_Caixa() local cQuery, cQuery2 cQuery := "Select * from tb_caixa" cQuery2:= "Select * from tb_empresa" USE (cQuery) ALIAS "CAIXA" SHARED NEW VIA "SQLRDD" USE (cQuery2) ALIAS "EMPRESA" SHARED NEW VIA "SQLRDD" oFrPrn:= frReportManager():New() oFrPrn:SetWorkArea("tb_empresa", Select("EMPRESA")) oFrPrn:SetWorkArea("tb_caixa", Select("CAIXA")) oFrPrn:LoadFromFile(".\caixa.fr3") * oFrPrn:DesignReport() // modo design oFrPrn:ShowReport() oFrPrn:ClearDataSets() oFrPrn:DestroyFR() CAIXA->(DBCLOSEAREA()) EMPRESA->(DBCLOSEAREA()) RETURN NIL ********************************* Quote Link to comment Share on other sites More sharing options...
Theotokos Posted January 11, 2017 Report Share Posted January 11, 2017 isso aconteceu comigo e resolvi chamando a rotina com MsgRun() MsgRun("Imprimindo Relatorio","Relatorio",{|| Imprime_Caixa() }) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 11, 2017 Report Share Posted January 11, 2017 // VAJA SE AJUDA: FUNCTION... oFrPrn := frReportManager():new() oFrPrn:SetIcon(2) //1 // Icone da janela do FRH oFrPrn:SetTitle( cTitulo + nNumeroCCe ) // Titulo 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 // inibe o botao de edicao do relatorio pelo usuario-seguranca. oFrPrn:PreviewOptions:SetAllowEdit( .F. ) oFrPrn:PreviewOptions:SetMaximized(.T.) oFrPrn:PreviewOptions:SetZoomMode(2) // 2 - 124% no visor. // Numero de copias 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() lSemPreviewCCe := .F. lChamaAdobe := .F. // Incluido em: 27/01/2014 Ver no Adobe Reader. RETURN NIL Quote Link to comment Share on other sites More sharing options...
Edu Posted January 12, 2017 Author Report Share Posted January 12, 2017 Bom dia! Consegui com a dica do Theotokos, apesar de não fazer muito sentido, mas... Obrigado a todos! Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.