jcleoner Posted February 7, 2011 Report Share Posted February 7, 2011 Veja exemplo de relatório com o Report Manager no endereço abaixo: http://www.vimatec.com.br/vimatec/grafico.pdf Para execução são esses os comandos: Select 0 Use C:\Temp\Relato.dbf Via "DBFNTX" aWork:= Alias() Do While (aWork)->(!Eof()) (aWork)->Descricao:= AnsiToOem((aWork)->Descricao) (aWork)->(DbSkip()) Enddo Use Reportx := createobject("ReportMan.ReportManX") Reportx:Preview = .T. Reportx:ShowProgress = .F. Reportx:ShowPrintDialog = .F. Reportx:Title = "Controle de Refugos" Reportx:Filename = "SVC370.REP" Reportx:SetParamValue("Coment",cComent) Reportx:SetParamValue("LOGO",G_LOGOREL) Close Databases Reportx:Execute() Editado por - jcleoner on 07/02/2011 16:04:46 Quote Link to comment Share on other sites More sharing options...
jcleoner Posted February 7, 2011 Author Report Share Posted February 7, 2011 Veja exemplo de relatório com o Report Manager no endereço abaixo: http://www.vimatec.com.br/vimatec/grafico.pdf Para execução são esses os comandos: Select 0 Use C:\Temp\Relato.dbf Via "DBFNTX" aWork:= Alias() Do While (aWork)->(!Eof()) (aWork)->Descricao:= AnsiToOem((aWork)->Descricao) (aWork)->(DbSkip()) Enddo Use Reportx := createobject("ReportMan.ReportManX") Reportx:Preview = .T. Reportx:ShowProgress = .F. Reportx:ShowPrintDialog = .F. Reportx:Title = "Controle de Refugos" Reportx:Filename = "SVC370.REP" Reportx:SetParamValue("Coment",cComent) Reportx:SetParamValue("LOGO",G_LOGOREL) Close Databases Reportx:Execute() Editado por - jcleoner on 07/02/2011 16:04:46 Quote Link to comment Share on other sites More sharing options...
joaosolution Posted February 8, 2011 Report Share Posted February 8, 2011 Jose Carlos Bom dia Uma duvidas sobre o Report Manager: - É necessário instalar na máquina do cliente Grato João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB Quote Link to comment Share on other sites More sharing options...
jcleoner Posted February 8, 2011 Author Report Share Posted February 8, 2011 Não é necessário. Deixo tudo na pasta do sistema. O que é necessário é registrar a ocx em cada máquina. Mas isso é tranquilo, meu sistema já verifica se a ocx está registrada, se não estiver ele registra. Quote Link to comment Share on other sites More sharing options...
elitenet Posted February 8, 2011 Report Share Posted February 8, 2011 JCleoner Muito interessante, gostei muito do relatorio, vou ver o que consigo montar no meu sistema. FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE Quote Link to comment Share on other sites More sharing options...
edutraini Posted February 9, 2011 Report Share Posted February 9, 2011 tenho que comprar ou é free FW24 + CLIP5_2 email :edutraini@uol.com.br Quote Link to comment Share on other sites More sharing options...
joaosolution Posted February 9, 2011 Report Share Posted February 9, 2011 Jose Carlos Já abusando se vc puder indicar quais os arquivos que ficam na pasta, e como vc registra a OCX pelo sistema eu agradeço. Att João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 9, 2011 Report Share Posted February 9, 2011 citação:Jose Carlos Já abusando se vc puder indicar quais os arquivos que ficam na pasta, e como vc registra a OCX pelo sistema eu agradeço. Att João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB id=quote>id=quote>É isso ai, eu também quero saber!! Agora!!!! João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
jcleoner Posted February 9, 2011 Author Report Share Posted February 9, 2011 Edutraini É free João Bosco Os arquivos são: reportman.ocx reportmanres.pt alem dos arquivos .rep que são os relatórios Para verificar se está registrada a ocx uso a função abaixo, onde checa se a ocx está registrada e cria a obdc dos arquivos DBF: Static Function Ver_Report #define HKEY_LOCAL_MACHINE 2147483650 // 0x80000002 LOCAL aWORK, oRelato, cComent:='',Reportx,cErro:=0 Local oDsn,nTypeDsn:= 0 // 0 = System DNS oReg := TReg32():New( HKEY_LOCAL_MACHINE, "SOFTWARE\Classes\Reportman.Reportmanx",@cErro ) IF cErro > 0 WaitRun("Registro.exe") // MsgStop("Reportman.ocx não registrada","Erro detectado") Else // MsgInfo("Reportman.ocx OK","Aviso") Endif cBanco = "Arquivos do dBASE" cCaminho = "C:\TEMP" cPasta = "C:\TEMP" cPorta = 0 oDsn := TDsn():New( cBanco ) IF oDsn:nStatus <> 0 // Erro, não encontrou oDsn:Create( cBanco, ; // Nome DSN "Banco do Sistema "+cBanco, ; // Descrição "Microsoft dBase Driver (*.dbf)", ; // Database cCaminho, ; // Servidor "", ; // Usuario nTypeDsn, ; // Tipo de DSN "C:\Windows\system32\odbcjt32.dll" ,; // Driver cPorta , ; cPasta) // Driver ENDIF Return Quote Link to comment Share on other sites More sharing options...
joaosolution Posted February 9, 2011 Report Share Posted February 9, 2011 Jose Carlos Obrigado pela ajuda! Ganharei muito tempo com todos estes recursos. Att João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB Quote Link to comment Share on other sites More sharing options...
joaosolution Posted February 9, 2011 Report Share Posted February 9, 2011 Srs. Tentei compilar o exemplo e ocorreu a seguinte mensagem! Unresolved External _HB_FUN_TDSN Alguém sabe qual lib devo setar? Att João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB Quote Link to comment Share on other sites More sharing options...
jcleoner Posted February 10, 2011 Author Report Share Posted February 10, 2011 João Qual o seu email que lhe passo a classe "TDSN" Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 10, 2011 Report Share Posted February 10, 2011 citação:João Qual o seu email que lhe passo a classe "TDSN" id=quote>id=quote>Zé, manda pra mim, eu também não tenho e quero iniciar os testes o mais rápido possivel. Obg. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
joaosolution Posted February 10, 2011 Report Share Posted February 10, 2011 Jose Carlos joao@solutionbh.com.br Grato João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB Quote Link to comment Share on other sites More sharing options...
jcleoner Posted February 10, 2011 Author Report Share Posted February 10, 2011 João & João Classe enviada Quote Link to comment Share on other sites More sharing options...
joaosolution Posted February 10, 2011 Report Share Posted February 10, 2011 Obrigado José Carlos Recebido! Att João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB Quote Link to comment Share on other sites More sharing options...
fluna Posted February 10, 2011 Report Share Posted February 10, 2011 joão, manda pra mim tambem por favor, tô testanto essa solução... fabioluna@ibest.com.br xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor Quote Link to comment Share on other sites More sharing options...
joaosolution Posted February 10, 2011 Report Share Posted February 10, 2011 Enviado! Att João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 10, 2011 Report Share Posted February 10, 2011 citação:João & João Classe enviada id=quote>id=quote>Meu muito obrigado aos dois!! Valew() Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
joaosolution Posted February 10, 2011 Report Share Posted February 10, 2011 Boas tardes Gostaria de aproveitar para agradecer ao José Carlos pelo apoio na utilização desta nova ferramenta. Sua ajuda foi impressindÃvel. Grato e à disposição João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB Quote Link to comment Share on other sites More sharing options...
jcleoner Posted February 10, 2011 Author Report Share Posted February 10, 2011 Estamos aà Qualquer dúvida é só perguntar. Quanto mais gente usando a ferramenta, melhor para todos. Ah, nosso amigo Valdir, já está usando ela a um bom tempo tambem. Quote Link to comment Share on other sites More sharing options...
CleitonSH Posted February 10, 2011 Report Share Posted February 10, 2011 Olá José Carlos, não poderia postar em DICAS? Assim eu vou adotá-la também, apesar de já utilizar a FastReport. Cleiton FWH906+xHarbour 1.2.1+WorkShop, FW20d+Clipper5.2+Clip53b Quote Link to comment Share on other sites More sharing options...
fluna Posted February 10, 2011 Report Share Posted February 10, 2011 valeu, obrigadaço. - Testes em ndamento... xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor Quote Link to comment Share on other sites More sharing options...
edutraini Posted February 11, 2011 Report Share Posted February 11, 2011 aonde baixa FW24 + CLIP5_2 email :edutraini@uol.com.br Quote Link to comment Share on other sites More sharing options...
jcleoner Posted February 11, 2011 Author Report Share Posted February 11, 2011 http://reportman.sourceforge.net/ 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.