Jump to content
Fivewin Brasil

Problemas com CobrebemX Win 8 64 bits


AVInfo Sistemas

Recommended Posts

Boa tarde Pessoal.

 

Estou tentando rodar o exemplo do site da CobrebemX no windows 8 64 bits. Porém estou tendo o seguinte erro, quando vou executar o exemplo.

 

Error description: Error CobreBemX.ContaCorrente/3  DISP_E_MEMBERNOTFOUND: IMPRIMEBOLETOS

 

Me parece que a view da DLL de exibição do boleto é incompatível com a versões 64 bits do sistema operacional.

 

Mas pesquisando aqui no forum, vi q tem alguns q afirmam rodar a biblioteca sem problemas em windows 64 bits.

 

ENTÃO, POR FAVOR SE ALGUÉM COMO FAZER RODAR NO WINDOWS 8 64 BITS EU AGRADEÇO.

 

Agradeço desde já.

 

Segue o exemplo:

FUNCTION ExemploCBXBoleto()

LOCAL oCBX, oBoleto

// Necessário efetuar download da lib TOleAuto em http://www.cobrebem.com/downloads/cbx/hbole.zip

if !IsActiveX("CobreBemX.ContaCorrente")
MsgStop( "O ActiveX para gerar o BOLETO BANCÃRIO não está instalada"+CRLF+;
"Favor entrar em contacto com o Desenvolvedor do Sistema","Atenção")
RETURN
endif

oCBX := TOleAuto():New("CobreBemX.ContaCorrente")

// Monta arquivo de licença de teste para banco 001 carteira 18
oCBX:ArquivoLicenca := cFilePath(hb_argv( 0 ))+"CobreBemX\Licencas\001-18.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 := cFilePath(hb_argv( 0 ))+"CobreBemX\Imagens\341.jpg"
oCBX:PadroesBoleto:PadroesBoletoImpresso:CaminhoImagensCodigoBarras := cFilePath(hb_argv( 0 ))+"CobreBemX\Imagens\"

oBoleto := oCBX:DocumentosCobranca:Add()

// Monta dados do sacado
oBoleto:NomeSacado := "Fulano de Tal"

// Monta dados do documento de cobrança
oBoleto:DataVencimento := "01/10/2002"
oBoleto:NumeroDocumento := "12345"
oBoleto:ValorDocumento := 123.45
oBoleto:TipoDocumentoCobranca :="DM"

oCBX:ImprimeBoletos()

oCBX:End()

 

Link to comment
Share on other sites

Colega eu não uso com Windows 8 mas com Windows 7 64 bits e funciona, o que posso dizer é q qdo tive esse tipo de problema, o q eu fiz foi registrar novamente a Dll através do regsvr32 CobreBemX.dll e após aparecer o aviso q foi registrada com sucesso repeti os testes e funcionou.

 

Não sei se é o teu caso...

 

[]´s

Link to comment
Share on other sites

Colega eu não uso com Windows 8 mas com Windows 7 64 bits e funciona, o que posso dizer é q qdo tive esse tipo de problema, o q eu fiz foi registrar novamente a Dll através do regsvr32 CobreBemX.dll e após aparecer o aviso q foi registrada com sucesso repeti os testes e funcionou.

 

Não sei se é o teu caso...

 

[]´s

 

Então amigo, tentei fazer o q vc sugeriu mas sem sucesso. O erro persiste. 

 

Obrigado.

 

A propósito, a pergunta do amigo Daniel acima, uso o Windows 8 x64 PRO.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...