jfaguiar

Valeu Kleyton. Inclui a lib abaixo na compilação. Seria essa mesma que você utiliza? Pois acho que o erro que ocorre na execução pode ser devido a versão dessa lib. Grato echo %hdir%\lib\Hbole.lib + >> b32.bc

Olá Pessoal. Erro compilação ref. dll resolvido. O problema agora é na execução. Ocorre o erro abaixo. Grato Galera! --------------------------- Harbour Exception --------------------------- Called from OLESETPROPERTY(0) Called from TOLEAUTO:SET(111) Called from TOLEAUTO:_ARQUIVOLICENCA(181) Called from EXEMPLOCBX(37) Called from MAIN(19)

Olá pessoal Tô tentando testar o boleto cobrebem com FWH 7.01 e dar o erro (Warning W0001 Ambiguous reference: 'DLLATUAL') nas seguintes linhas do código: dllatual:= loadlibrary("c:\cobrebemx\Cobrebemx.dll") SET RESOURCES TO dllatual NOTA: Inclui Hbole.lib Tô travado, se alguém puder dar uma forcinha. Segue abaixo o código. Grato ************************************************************* Programa: teste cobrebem ************************************************************#INCLUDE "FiveWin.ch" FUNCTION Main() LOCAL oMenu, oBar,oDlg SET DELE ON SET 3DLOOK ON SET DATE BRIT SET EPOCH TO 1980 // SET DEFAULT TO H:\SISCOM\ARQBHCDX SetHandleCount(35) ExemploCBX() Return nil ************************************************************STATIC FUNCTION ExemploCBX() LOCAL oCBX, oBoleto // Necessrio efetuar download da lib TOleAuto em // ftp://ftp.harbour-project.org/contrib/hbole.zip // // Exemplo dado pelo evandro@skillnet.com.br // dllatual:= loadlibrary("c:\cobrebemx\Cobrebemx.dll") SET RESOURCES TO dllatual // oCBX := TOleAuto():New("CobreBemX.ContaCorrente") // Monta arquivo de licena de teste para banco 001 // carteira 18 oCBX:ArquivoLicenca := "C:\CobreBemX\356-20.conf" // Monta dados da conta corrente oCBX:CodigoAgencia := "1234-5" oCBX:NumeroContaCorrente := "00000123-X" oCBX:CodigoCedente := "123456" oCBX:InicioNossoNumero := "00001" oCBX:FimNossoNumero := "99999" oCBX:ProximoNossoNumero := "00015" oCBX:PadroesBoleto:PadroesBoletoImpresso:ArquivoLogotipo := "c:\CobreBemX\Imagens\BannerCBX.gif" oCBX:PadroesBoleto:PadroesBoletoImpresso:CaminhoImagensCodigoBarras := "c:\CobreBemX\Imagens\" oBoleto := oCBX:DocumentosCobranca:Add() // Monta dados do sacado oBoleto:NomeSacado := "Gerenciamento Ambiental Tech-Lix Ltda" // Monta dados do documento de cobrana oBoleto:DataVencimento := "01/09/2007" oBoleto:NumeroDocumento := "12345" oBoleto:ValorDocumento := 123.45 oCBX:ImprimeBoletos() oCBX:End() RETURN( NIL )

Olá pessoal Tô tentando testar o boleto cobrebem com FWH 7.01 e dar o erro (Warning W0001 Ambiguous reference: 'DLLATUAL') nas seguintes linhas do código: dllatual:= loadlibrary("c:\cobrebemx\Cobrebemx.dll") SET RESOURCES TO dllatual NOTA: Inclui Hbole.lib Tô travado, se alguém puder dar uma forcinha. Segue abaixo o código. Grato ************************************************************* Programa: teste cobrebem ************************************************************#INCLUDE "FiveWin.ch" FUNCTION Main() LOCAL oMenu, oBar,oDlg SET DELE ON SET 3DLOOK ON SET DATE BRIT SET EPOCH TO 1980 // SET DEFAULT TO H:\SISCOM\ARQBHCDX SetHandleCount(35) ExemploCBX() Return nil ************************************************************STATIC FUNCTION ExemploCBX() LOCAL oCBX, oBoleto // Necessrio efetuar download da lib TOleAuto em // ftp://ftp.harbour-project.org/contrib/hbole.zip // // Exemplo dado pelo evandro@skillnet.com.br // dllatual:= loadlibrary("c:\cobrebemx\Cobrebemx.dll") SET RESOURCES TO dllatual // oCBX := TOleAuto():New("CobreBemX.ContaCorrente") // Monta arquivo de licena de teste para banco 001 // carteira 18 oCBX:ArquivoLicenca := "C:\CobreBemX\356-20.conf" // Monta dados da conta corrente oCBX:CodigoAgencia := "1234-5" oCBX:NumeroContaCorrente := "00000123-X" oCBX:CodigoCedente := "123456" oCBX:InicioNossoNumero := "00001" oCBX:FimNossoNumero := "99999" oCBX:ProximoNossoNumero := "00015" oCBX:PadroesBoleto:PadroesBoletoImpresso:ArquivoLogotipo := "c:\CobreBemX\Imagens\BannerCBX.gif" oCBX:PadroesBoleto:PadroesBoletoImpresso:CaminhoImagensCodigoBarras := "c:\CobreBemX\Imagens\" oBoleto := oCBX:DocumentosCobranca:Add() // Monta dados do sacado oBoleto:NomeSacado := "Gerenciamento Ambiental Tech-Lix Ltda" // Monta dados do documento de cobrana oBoleto:DataVencimento := "01/09/2007" oBoleto:NumeroDocumento := "12345" oBoleto:ValorDocumento := 123.45 oCBX:ImprimeBoletos() oCBX:End() RETURN( NIL )

Olá meus caros. Tentei baixar a lib TOleAuto para testar o Cobrebem mas não consegui. Alguém poderia me dar o link de onde posso baixar? Grato.

Olá meus caros. Tentei baixar a lib TOleAuto para testar o Cobrebem mas não consegui. Alguém poderia me dar o link de onde posso baixar? Grato.

Olá pessoal. Alguém tem o boleto do Banco Real, aquele com o codigo de barra em FiveWin? Pode ser um parecido qq coisa eu adapto. Tenho do Banco Real e do Safra mas em Clipper, inclusive se alguém precisar eu mando. Grato João F.Aguiar joao@siscom.pro.br

Olá pessoal. Alguém tem o boleto do Banco Real, aquele com o codigo de barra em FiveWin? Pode ser um parecido qq coisa eu adapto. Tenho do Banco Real e do Safra mas em Clipper, inclusive se alguém precisar eu mando. Grato João F.Aguiar joao@siscom.pro.br

Alguém sabe se é possivel visualizar o número da coluna em que estar o cursor no MED? Grato

Alguém sabe se é possivel visualizar o número da coluna em que estar o cursor no MED? Grato

Olá amigos. Não tô conseguindo imprimir em FWH 7.01 na HP COLOR LASER 2600 pela rede. No micro onde a impressora está conectada tudo bem é só pela rede. As primeiras linhas do erro são: ENDDOC(0) TPRINTER:END(0) PRINTEND(0) Se tiver uma solução... Muito Obrigado.

Olá amigos. Não tô conseguindo imprimir em FWH 7.01 na HP COLOR LASER 2600 pela rede. No micro onde a impressora está conectada tudo bem é só pela rede. As primeiras linhas do erro são: ENDDOC(0) TPRINTER:END(0) PRINTEND(0) Se tiver uma solução... Muito Obrigado.

Para João (Solution) Caro João eu trabalho com rc mesmo, da seguinte forma: Abro um arquivo dll pelo WS, Crio as tela necessárias Salvo o projeto e finalmente salvo como rc, o qual é incluso na compilação conforme segue: sgcw.rc %bcdir%\bin\brc32 -r sgcw Grato

Olá pessoal. Tô convertendo meu sistema Clipper 5.2E para FWH e cada vêz que converto um novo prg minha dll vai aumentando. Isso uma hora não vai me trazer problemas? Caso seja necessário criar mais dlls, por exemplo: para cadastros, vendas financeiro... como faço para adicioná´-las na compilação? Já caminhei bastante... sem a ajuda de Deus e de vcs não teria dado um passo ! Obrigado.

Olá pessoal. Tô convertendo meu sistema Clipper 5.2E para FWH e cada vêz que converto um novo prg minha dll vai aumentando. Isso uma hora não vai me trazer problemas? Caso seja necessário criar mais dlls, por exemplo: para cadastros, vendas financeiro... como faço para adicioná´-las na compilação? Já caminhei bastante... sem a ajuda de Deus e de vcs não teria dado um passo ! Obrigado.

Programo um pouco em ADVPL mas gostaria de acessar a base de dados DB2/TOPCONNEC Microsiga com FWH. Quais as feramentas necessárias? Toda a ajuda será bem vinda! Grato

Programo um pouco em ADVPL mas gostaria de acessar a base de dados DB2/TOPCONNEC Microsiga com FWH. Quais as feramentas necessárias? Toda a ajuda será bem vinda! Grato

Já converti meus relatorios clipper para FWH usando oPrn:ChaSay() sem nenhum problema. Porém relatórios como pedido de vendas/compras requer uma apresentação melhor. Alguém poderia dar uma exemplo de como utilizar melhor os tipos e tamanhos de fontes para essa finalidade. Desde já agradeço.

Já converti meus relatorios clipper para FWH usando oPrn:ChaSay() sem nenhum problema. Porém relatórios como pedido de vendas/compras requer uma apresentação melhor. Alguém poderia dar uma exemplo de como utilizar melhor os tipos e tamanhos de fontes para essa finalidade. Desde já agradeço.

Fiz esta funçãozinha. Resolve. Porém o objeto oPrn deverá ser PRIVATE e não LOCAL. Substitua oPrn:CharSay(01,40,TRANS(VVALOR,"@E 99,999,999.99") ) por AlinRight(01,40,TRANS(VVALOR,"@E 99,999,999.99") ) ************************************************************ FUNCTION AlinRight(pPROW,nCOL,cVALOR) // 99,999,999.99 118 + 13 = 131 // 131 - 1 = 130 nCOL += LEN(cVALOR) - 1 FOR nPOS = LEN(cVALOR) TO 1 STEP -1 oPrn:CharSay(pPROW,nCOL,SUBSTR(cVALOR,nPOS,1) ) -- nCOL NEXT RETURN Nil ************************************************************ Editado por - jfaguiar on 21/07/2007 18:09:16

Obrigado galera. OemToAnsi() resolveu

Olá pessoal. Essa é braba! Estou com sistema misto Clipper/FWH e as senhas dos usuários foram encriptadas através de uma rotina do sistema em clipper e quando tento abrir o programa através do sistema FWH não consigo desencriptar as senhas, pois os caracteres das mesmas aparecem diferentes. Exemplo: onde a senha encriptada era ÔÉÇZ aparece outros caracteres totalmente diferentes. Gostaria de saber como configurar a página de caractere. Desde já agradeço aos gurus do FW poderem me ajudar.

Olá pessoal. Essa é braba! Estou com sistema misto Clipper/FWH e as senhas dos usuários foram encriptadas através de uma rotina do sistema em clipper e quando tento abrir o programa através do sistema FWH não consigo desencriptar as senhas, pois os caracteres das mesmas aparecem diferentes. Exemplo: onde a senha encriptada era ÔÉÇZ aparece outros caracteres totalmente diferentes. Gostaria de saber como configurar a página de caractere. Desde já agradeço aos gurus do FW poderem me ajudar.

Alguém já ouviu falar nisso? Sou programador clipper e estou migrando minhas aplicações para o glorioso Harbour 7.01 e para agilizar minhas conversões, estou desenvolvendo um conversor em clipper que tá quase pronto e já converte mais de 90% do código de relatório clipper para harbour, ou seja, trata cada linha do código alterado de: @PROW()... para oPrn:CharSay... com parêntese no final da linha, trans() e tudo mais, Print EndPrint, Adicionando Page Endpage. Limtador do tamanho da página,etc,etc. Tudo automático, é só informar o nome do prg a converter e ele manda brasa. Logo que tiver pronto irei disponibilizar para a galera. Harbraços João Freire de Aguiar joao@siscom.pro.br

Alguém já ouviu falar nisso? Sou programador clipper e estou migrando minhas aplicações para o glorioso Harbour 7.01 e para agilizar minhas conversões, estou desenvolvendo um conversor em clipper que tá quase pronto e já converte mais de 90% do código de relatório clipper para harbour, ou seja, trata cada linha do código alterado de: @PROW()... para oPrn:CharSay... com parêntese no final da linha, trans() e tudo mais, Print EndPrint, Adicionando Page Endpage. Limtador do tamanho da página,etc,etc. Tudo automático, é só informar o nome do prg a converter e ele manda brasa. Logo que tiver pronto irei disponibilizar para a galera. Harbraços João Freire de Aguiar joao@siscom.pro.br