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()