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

Continue

Configurando ambientes no Novo Developer Studio

Para começar precisamos saber onde salvar os fontes que serão utilizados, no meu caso criei uma pasta em um servidor e mapeei este servidor em minha maquina local.

Quando clicamos no ícone do Developer ele nos pede qual workspace desejamos utilizar, no meu caso selecionei o mapeamento deste servidor.

Em seguida o developer é aberto. Para configurar o ambiente de compilação existe um ícone na parte superior do developer, ao lado do atalho para debug.

Nele existe a pasta others que contém o acesso ao TOTVs Server, que é uma espécie de aba onde serão configurados os servidores, ou ambientes de compilação.

Clicando no atalho criado, abrirá a aba para configuração.

Depois abre uma tela de configuração do servidor de aplicação, onde preenchemos o nome do servidor o ip e a porta de conexão e em seguida clicamos em detectar/validar. Se tudo ocorrer corretamente vai aparecer a versão do Servidor, em seguida clique em finish.

Depois aparecerá o servidor configurado logo abaixo do diretório Servers na aba Servers Extensio. Clique com o botão direito em sima do servidor e depois em conectar

Informe o nome do ambiente usuario e senha para conectar.

Depois para conseguir compilar no ambiente desejado, clique na aba do canto esquerdo inferior. Lá estarão todos os ambientes configurados por você.

A partir do momento que você estiver com um dos ambientes selecionados, poderá compilar seus fontes nele.

Continue

Criando um navegador em advpl

Para aqueles que assim como eu precisam de acesso a algum aplicativo web dentro do protheus, aqui esta um exemplo de como desenvolver um navegador interno (pode ser aberto dentro do sistema protheus).

Ele utiliza os mesmos padrões de configuração do navegador padrão do usuário da maquina, além é claro das configurações impostas no código fonte.

Obs: Para funcionar, é preciso configurar o smartcliente.ini e colocar logo abaixo da marcação [config] a opção: BrowserEnabled=1

#include "protheus.ch"

User Function Navegador()

Private aPages := {} // array que guarda os endereços visitados

Private nPgVist := -1 // controle a posicao do array aPages

Private aSize := MsAdvSize() // pega o tamanho da tela

Private oDlg1, oTIBrw

Private cNavegado := Space(80) // usado no objeto get para guardar os endereços web

Private lcont := .T.

DEFINE MSDIALOG oDlg1 TITLE "Navegador" From aSize[7],0 to aSize[6],aSize[5] of oMainWnd PIXEL

cNavegado := "http://www.google.com" // pagina inicial

oNav:= TGet():New(10,10,{|u| if(PCount()>0,cNavegado:=u,cNavegado)}, oDlg1,340,5,,,,,,,,.T.,,,,,,,,,,)

@ 010, 350 Button oBtnIr PROMPT "Ir" Size 40,10 Action(Processa({||Navegar()},"Abrindo","Aguarde...")) Of oDlg1 Pixel

@ 010, 390 Button oBtnImp PROMPT "Imprimir" Size 40,10 Action oTIBrw:Print() Of oDlg1 Pixel

@ 010, 430 Button oBtnAnte PROMPT "Anterior" Size 40,10 Action (Retorna()) Of oDlg1 Pixel

@ 010, 470 Button oBtnDep PROMPT "Avançar" Size 40,10 Action(Avanca()) Of oDlg1 Pixel

@ 010, 510 Button oBtnSair PROMPT "Sair" Size 40,10 Action(Sair()) Of oDlg1 Pixel

oTIBrw:= TIBrowser():New( 025,010,aSize[5]-640, 270, "http://www.google.com", oDlg1 )

aaDD(aPages,"http://www.google.com")

oNav:bLostFocus := { || Valido()}

Activate MsDialog oDlg1 Centered

Return

Static Function Navegar()

Ir()

Return

Static Function Ir()

oTIBrw:Navigate(AllTrim(cNavegado),oDlg1)

aaDD(aPages,AllTrim(cNavegado))

nPgVist := Len(aPages)

Return

Static Function Avanca() // proxima proxima pagina que jah foi visitada

if(Len(aPages) > nPgVist .and. Len(aPages) > 1 )

nPgVist++

oTIBrw:Navigate(aPages[nPgVist],oDlg1)

cNavegado := aPages[nPgVist]

oNav:Refresh()

EndIf

Return

Static Function Retorna() // pagina anterior que foi visitada

if(nPgVist>1)

nPgVist--

oTIBrw:Navigate(aPages[nPgVist],oDlg1)

cNavegado := aPages[nPgVist]

oNav:Refresh()

EndIf

Return

Static Function Sair() // fecha a tela

oDlg1:End()

Return

Continue