jcleoner

Xará Voce está enganado Não existe classe e nem include É uma ocx executada pelo sistema dessa forma Reportx := createobject("ReportMan.ReportManX") Reportx:Preview = .T. Reportx:ShowProgress = .F. Reportx:ShowPrintDialog = .F. Reportx:Title = "Apontamento de Produção / Pedidos" Reportx:Filename = "SVC371.REP" Reportx:SetParamValue("Coment",cComent) Reportx:SetParamValue("LOGO",G_LOGOREL) Close Databases Reportx:Execute()

Sim Meu sistema trabalha com o mysql. O detalhe é o seguinte: Os dados do relatório passo para um DBF temporário e o Report Manager pega esse DBF. É a forma mais fácil. Claro que o Report Manager acessa o MySql, só que as vezes é necessário se trabalhar os dados para se chegar a um relatório. Prefiro fazer todos esse trabalho no xHarbour, jogo o resultado nesse DBF e o Report usa ele emitindo o relatório. Fica muito fácil.

OK Já coloquei em dicas.

http://reportman.sourceforge.net/

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.

João & João Classe enviada

citação:No começo eu estava usando o emissor gratuito do sefaz nos clientes, criava arquivo TXT e o cliente importava so que ele vai ficando lento e os clientes começarão a reclamar da lentidão ai li sobre o AcbrNFeMonitor que é gratuito e não precisa ficar importando o txt tem até opção de pegar direto o txt de importação do sefaz sem precisar mecher nada que ele ja gera o xml valida assina transmite e imprime o DANFE, como tenho sistema em clipper fico show de bola. é uma ferramenta ótima. Robson id=quote>id=quote>Oi Robson Estou querendo testar o ACBR Voce teria algumas dicas e exemplos para que eu pudesse testar ?

João Qual o seu email que lhe passo a classe "TDSN"

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

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.

citação:Ola Jose Carlos, só uma duvida estes arquivos HRB não podem ser linkados com o arquivo de recurso RES, tipo um arquivo RES individual somente par aquele modulo... id=quote>id=quote>Se pudesse linkar com o arquivo de recurso RES, não sei se pode, perderia todo o sentido de um arquivo HRB. O grande mérito do HRB é que ele não faz parte do EXE, dessa forma não aumentando o EXE e poder ser substituído a qualquer momento independente de quantos usuários estejam usando o sistema, inclusive se o usuário estiver usando aquele HRB que seria substituído.

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

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

Engraçadinho hehehe Eu pago o provedor, ele não é meu, antes fosse hehe

Pode baixar no endereço abaixo. Lá voce acha o download e tambem manuais, dicas, etc. http://reportman.sourceforge.net/ Meu provedor está fora, assim que voltar, posto um exemplo para voce.

citação:Jcloner Ficaria muito melhor se ele usasse os recursos em DLL, pois é o que eu faço. Uso os .HRB combinados com a DLL com os recursos, o meu exe nunca muda, so acrescento o novo recurso na dll e monto o .hrb e mando para o cliente. FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE id=quote>id=quote>Foi o que eu disse. Já fiz vários testes com dll e quando o sistema está aberto o sistema operacional não permite a troca dessa dll, enquanto que o hrb pode ser trocado pois o exe carrega ele para a memória e desvincula o arquivo, enquanto a dll ele mantem o vinculo com o arquivo. Por esse motivo que trabalho com @ e não com recurso. Tenho vários usuários usando o sistema e não dá para tira-los do ar para trocar a dll.

Pessoal Não sei se vcs conhecem mas vou dar uma dica fácil de resolver esse problema. Usem o Report Manager. Um gerador de relatório super fácil de usar, gratuito e funciona bem com qualquer versão do xHarbour. Entre seus recursos tem: - Desenhar o relatório - Preview - Em portugues - Exportar para PDF, excell, bmp, metafile e texto - Enviar por email Já uso a muito tempo e nada a reclamar. Fica aí a dica. Editado por - jcleoner on 06/02/2011 10:07:56

Isso não funcionaria legal, pois a DLL funciona da mesma forma que o exe, se o sistema estiver rodando ele não permitirá a trocar pois o sistema operacional vai dizer que o arquivo está em uso. O que vc pretende só da para se fazer com HRB e posso lhe garantir que funciona muito bem. Só que o HRB para funcionar vc teria que adotar algumas regras de desenvolvimento de sistemas, a principal delas seria trabalhar com @ e não com recursos, não que não se possa usar recurso com HRB, pode, mas acontece que o recurso fica com o EXE, e se tiver que trocar o EXE, vai acontecer o mesmo problema que vc tentar trocar a DLL.

Pessoal, vou dar aqui as minhas idéias. 1) Concordo totalmente com a Ale (grande abraço) sobre as palestras. Só não fui na primeira, e ajudei na organização das 4 anteriores. Em BH foi excelente, mas mesmo antes de ir já não me interessei por algumas palestras. Já se falou demais em automação comercial (não é todo mundo que trabalha), conversão DBF/Mysql tambem (inclusive fiz uma palestra), então temos que repensar. 2) Concordo tambem que é muito util os bate-papos, as trocas de idéias, se aprende muito mais, não que as palestras não sejam importantes. 3) Acho que seria muito legal, se os amigos apresentassem um demos de seus sistemas, não com o objetivo de comercialização, mas sim de vermos comos os amigos andam trabalhando, montagem de telas, relatórios, dá para se fazer assim, etc, etc. Essa troca de idéia acho muito boa e as vezes uma pequena idéia, um visual, vale muito para aprendizado ou evolução de nossos sistemas. 4) Dois dias é bom, desde que não sejam só palestras, mas sim com bate-papo, trocas de idéias, senão fica cansativo. É isso, tendo mais idéias, vou colocando.

com esse exemplo o fast já cria automáticamente para voce o pdf e depois basta voce coloca-lo no email oFrPrn:SetProperty("PDFExport","ShowDialog",.F.) oFrPrn:SetProperty("PDFExport","Filename","c:\Sistemas\NFe\PDF\"+Alltrim(cChave)+".pdf") oFrPrn:DoExport("PDFExport")

Votação: ======== Interior de SP............... TOTAL: 11 VOTOS José Carlos (jcleoner) Herberson (Hergon) Luiz Servulo Vander Lúcio (vlnunes) Vailton Renato (Vailtom) Luis Fernando Jr. (Luisão) Leonardo Machado(Sygecom) Luiz Fernando(EMPRESOFT) Samir Abreu (SAMBOMB) Anderson (Anderson.OL) Carlos Decker (Decker) (dessa vez eu vou) SESC Belo Horizonte.......... TOTAL: 3 VOTOS Vitor (SBC-SP) Dr.Microso Aloizio Lima Outros....................... TOTAL: 0 VOTOS

Como disse o Evandro é só voce colocar "TEMPORARY" CREATE TEMPORARY TABLE `plano_contas` ( `CODIGO_REDUZIDO` int(6) NOT NULL auto_increment, `CODIGO_CONTA` char(20) NOT NULL, `NOME_CONTA` varchar(40) NOT NULL default '' COMMENT 'Nome da Conta', `TIPO_CONTA` char(1) NOT NULL default '' COMMENT 'debito/credito', `OBS_CONTA` varchar(200) default NULL, `SALDO_ANTERIOR` decimal(18,2) default '0.00', `VALOR_DEBITOS` decimal(18,2) default '0.00', `VALOR_CREDITO` decimal(18,2) default '0.00', `SALDO_ATUAL` decimal(18,2) default '0.00', PRIMARY KEY (`CODIGO_REDUZIDO`), UNIQUE KEY `CODIGO_PLANO` (`CODIGO_REDUZIDO`) ) ENGINE=InnoDB DEFAULT CHARSET=latin1; Para utiliza-la depois é como uma tabela qualquer Para exclui-la de um DROP TABLE plano_contas

Feliz Natal e um novo ano cheio de prosperidade, saúde e realizações. Como diz a canção "muito dinheiro no bolso, saúde pra dar e vender".

Adalberto Se voce usa DBF tudo bem, mas se usa ou pretende usar MySql ou qualquer outro banco de dados, evite pesquisa incremental pois fica muito lento. Não é recomendável. Tenho um amigo que fez em DBF e depois passou para mysql e ficou muito complicado para ele convencer o usuário que ia ser retirado do sistema a pesquisa. Se for ainda uma tabela bem pequena e com poucos registros, até que dá para passar. Editado por - jcleoner on 23/11/2010 13:54:47

Detalhe pessoal Eu tenho conferencia de data ao iniciar o sistema. Ocorre que o sistema ficou o dia inteiro rodando. Foi na data do windows e estou verificando se é a rotina do Gilmer que busca lá, ou a dll da FlexDocs. De qualque forma vou colocar tambem para checar antes da emissão da NFe.