Gerando relatórios em planilhas do excel, calc...

Em muitos casos os usuários pedem pela geração de relatórios em planilhas.

No Protheus alguns relatórios padrões da Totvs já existe esta opção, porem como fazer isso em relatórios customizados.

Bom, em meus relatórios eu customizei totalmente a forma de impressão através da funçõe de criação de arquivo do advpl, a FCREATE.

Abaixo um exemplo, onde o relatório imprime todos os códigos e nomes dos bens da tabela ST9, isso para quem possui o modulo de manutenção de ativos. Este relatorio também gera um arquivo .csv que é salvo automaticamente no c: da maquina do usuario.

#INCLUDE "PROTHEUS.CH" #INCLUDE "TOPCONN.CH" #include "TOTVS.CH" /* +---------------------------------------------------------------------------+ | Programa : MNTR14 | Autor : Alex Schneider | Data : 26/04/13 | +---------------------------------------------------------------------------+ | Objetivo : Exemplificar a impressão de relatorios em arquivo (.csv, .txt.) +---------------------------------------------------------------------------+ | Descrição : Imprime todos os códigos e nomes dos bens em tela e em arquivo .csv +---------------------------------------------------------------------------+ | Autor | Data | Descrição da Alteração | +---------------------------------------------------------------------------+ | +---------------------------------------------------------------------------+ */ User Function NOMEDOFONTE() cPerg := Padr("NOMEDOFONTE",len(SX1->X1_GRUPO)," ") cDesc1 := "TITULO." cDesc2 := "DESCRIÇÃO DO RELATORIO " cDesc3 := "DESCRIÇÃO DO RELATORIO " cPict := "" tamanho := "G" nomeprog := "NOMEDOFONTE" // impressao no cabecalho aReturn := { "Zebrado", 1, "Administracao", 1, 2, 1, "", 1} titulo := "TITULO DO RELATORIO" nLin := 80 Cabec2 := "" Cabec1 := "" wnrel := "NOMEDOFONTE" //nome para impressao em disco cString := "ST9" nTipo := 15 // usado na função bNewPage m_pag := 01 // Inicio pagina cQuery := "" cPath := "" cMontaTxt := "" cQueryP := "" cOrdem := "" cPerg := "NOMEDOFONTE" // Neste relatorio serão impressos todos os bens, //por isso este pergunte é somente um exemplo ilustrativo, //ou seja, não esta sendo utilizado realmente ValidPerg() Pergunte(cPerg,.F.) wnrel := SetPrint(cString,NomeProg,cPerg,@titulo,cDesc1,cDesc2,cDesc3,.T.,,.T.,Tamanho,,.T.) If nLastKey == 27 Return Endif SetDefault(aReturn,cString) If nLastKey == 27 Return Endif //Inicializa os codigos de caracter da impressora nTipo := IIF(aReturn[4]==1,15,18) // RPTSTATUS monta janela com a regua de processamento. RptStatus({|| RunReport(Cabec1,Cabec2,Titulo,nLin) },Titulo) Return ////////////////////////////////////////////////////////////////////////// // RunReport: Monta o relatorio ////////////////////////////////////////////////////////////////////////// Static Function RunReport(Cabec1,Cabec2,Titulo,nLin,cPath) // Bloco de código executado para inserir nova página bNewPage := {|| Cabec(Titulo,Cabec1,Cabec2,NomeProg,Tamanho,nTipo), nLin:=9} //01234567890123456789012345678901234567890 //0 1 2 3 4 // 999999 xxxxxxxxxxxxxxxxxxxxxxxxxxxx Cabec1 := " Código bem Nome " cMontaTxt += "Código bem;Nome" + CRLF // Exemplo de query para consulta ao banco cQueryP := "SELECT T9_CODBEM,T9_NOME FROM "+RetSqlName("ST9")+" "+; "WHERE "+RetSqlName("ST9")+".D_E_L_E_T_ <> '*' " TCQUERY cQueryP NEW ALIAS "TRBCPK" // Salto de Página IIF(nLin > 70, EVAL(bNewPage),) nLin++ // Seleção da tabela temporaria criada pela consulta DbSelectArea("TRBCPK") DbGotop() While !Eof() // Salto de Página IIF(nLin > 70, EVAL(bNewPage),) // imprime na visualizaçao do relatorio @nlin, 001 PSAY TRBCPK->T9_CODBEM @nlin, 014 PSAY TRBCPK->T9_NOME nLin++ // soma mais uma linha // guarda informação em string para gravar o arquivo .csv cMontaTxt += TRBCPK->T9_CODBEM + ";" cMontaTxt += TRBCPK->T9_NOME + ";" cMontaTxt += CRLF // Salto de linha para .csv (excel) dbSkip() // próxima linha Enddo dbCloseArea("TRBCPK") // finaliza seleção da area // Chama a função que gera o arquivo csv com os dados. criaCSV() // Finaliza a execucao do relatorio... SET DEVICE TO SCREEN // Se impressao em disco, chama o gerenciador de impressao... If aReturn[5]==1 dbCommitAll() SET PRINTER TO OurSpool(wnrel) // gerenciador de impressão do Siga Endif //Descarrega spool de impressão. //Após os comandos de impressão as informações ficam armazenadas no //spool e são descarregadas em seus destinos através da função Ms_Flush() return //////////////////////////////////////////////////////////////////////// // Exportando dados para planilha //////////////////////////////////////////////////////////////////////// Static Function criaCSV() // Nome do arquivo criado, o nome é composto por uma descrição //a data e a hora da criação, para que não existam nomes iguais cNomeArq := "C:\Relatorio_"+SubStr(DtoS(date()),7,2)+"_"+SubStr(DtoS(date()),5,2)+"_"+SubStr(DtoS(date()),1,4)+"_"+Transform(Time(),"@E 99999999")+".csv" // criar arquivo texto vazio a partir do root path no servidor nHandle := FCREATE(cNomeArq) FWrite(nHandle,cMontaTxt) // encerra gravação no arquivo FClose(nHandle) MsgAlert("Relatorio salvo em: "+"C:\Relatorio_"+SubStr(DtoS(date()),7,2)+"_"+SubStr(DtoS(date()),5,2)+"_"+SubStr(DtoS(date ()),1,4)+"_"+Transform(Time(),"@E 99999999")+".csv") return /////////////////////////////////////////////////////////////////////// // ValidPerg: Parametros para geração do relatorio é apenas um exemplo ////////////////////////////////////////////////////////////////////// Static Function ValidPerg Local aHelp1 := {"Informe o bem a ser pesqusado "," "," "} PutSx1( cPerg, "01","De bem? ","","","mv_ch1" ,"C",6,0,0,"G","","ST9","","","mv_par01","","","","","","","","","","","","","","","","",aHelp1,aHelp1,aHelp1) PutSx1( cPerg, "02","Até bem? ","","","mv_ch1" ,"C",6,0,0,"G","","ST9","","","mv_par02","","","","","","","","","","","","","","","","",aHelp1,aHelp1,aHelp1) Return