GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
WD - Como usar o Cobrebem no Windev (Boletos)
WD - Como usar o Cobrebem no Windev (Boletos)
Iniciado por BOLLER ADRIANO, ago., 10 2016 4:53 AM - 1 resposta
Conecte-se…
BOLLER ADRIANO
#1
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em agosto, 10 2016 - 4:53 AM
Prezados,
Como usar o Cobrebem no Windev sem problema, gerando boletos.
Abaixo o tutorial:
1: Registre a DLL no windows, eu coloco a dll cobrebemx dentro do instalador e instalo na para do exe e registro ela nessa pasta.
2: Registrada a DLL eu instancio ela dentro da inicialização da aplicação (observe que dentro da dll exsitem classes e vc deve instanciar a dll com a sua classe definida, no caso para ferar boleto precisa instanciar a ContaCorrente que é uma classe da dll, mas isso eu percebi que você já fez.
Cbx is object Automation "CobreBemX.ContaCorrente"
3: defino os parametros da dll como você fez.
Cbx>>arquivolicenca = Forma_pagamento.arquivo_config
Cbx>>codigoagencia = Forma_pagamento.agencia + "-" + Forma_pagamento.dvagencia
Cbx>>NumeroContaCorrente = Right("0000000" + Forma_pagamento.conta,
+ "-" + Forma_pagamento.dvconta
Cbx>>CodigoCedente = Forma_pagamento.convenio
Cbx>>InicioNossoNumero = "000000001"
Cbx>>FimNossoNumero = "9999999999"
Cbx>>ProximoNossoNumero = boletostmp.titulo - 1
Cbx>>DocumentosCobranca>>add
Cbx>>DocumentosCobranca[0]>>CNPJSacado = Cfrt.cnpj_cpf
Cbx>>DocumentosCobranca[0]>>EnderecoSacado = Cfrt.endereco + "," + Cfrt.numero
Cbx>>DocumentosCobranca[0]>>BairroSacado = Cfrt.bairro
.... e os outros dados que vc deve setar.....
4: eu imprimo o boleto pode dentro do windev, preferi criar o layout no windev e utilizo apenas os retornos da criação do boleto pelo corebemx
BAC_BAR_CODE1 = Cbx>>DocumentosCobranca[0]>>codigobarras //retorna o codigo de barras
nossonumerotmp = Cbx>>DocumentosCobranca[0]>>nossonumero //retorna nosso numero calculado
linhadigi = Cbx>>DocumentosCobranca[0]>>linhadigitavel
Com essas três informações eu monto o boleto, os outros dados como valor, vencimento, instruções e etc eu pego direto do banco de dados que ele gerou um título.
eu uso o cobrebemx com BB, caixa, bradesco, itau, hsb, sicob e sicredi
com esses eu ja testei e tudo certo
no caso do BB tem um parametro a mais que é o numero do convenio, não sei se você esta passando ele
Exemplo:
Cbx is object Automation "CobreBemX.ContaCorrente"
IF bancotmp = "001" THEN
Cbx>>arquivolicenca = Forma_pagamento.arquivo_config
Cbx>>codigoagencia = Forma_pagamento.agencia + "-" + Forma_pagamento.dvagencia
Cbx>>NumeroContaCorrente = Right("0000000" + Forma_pagamento.conta,
+ "-" + Forma_pagamento.dvconta
Cbx>>CodigoCedente = Forma_pagamento.convenio
Cbx>>InicioNossoNumero = "000000001"
Cbx>>FimNossoNumero = "9999999999"
Cbx>>ProximoNossoNumero = boletostmp.titulo - 1
END
Cbx>>DocumentosCobranca>>add
ai adiciono os dados do boleto.... sacado vencimento valor....
e para o código de barras
BAC_BAR_CODE1 = Cbx>>DocumentosCobranca[0]>>codigobarras
Com relação ao Sicredi, você notou que o Cobrebem imprime o "x" minúsculo no cabeçalho do boleto?
O Sicredi para homologar exige que o "x" seja maiúsculo. Tanto é que existe uma propriedade para esta finalidade.
A minha dúvida é como acessar esta propriedade através do Windev.
Recebi esta instrução do suporte do Cobrebem:
Boleto:Variant;
MDados:Variant;
Boleto := CobreBemX.DocumentosCobranca.Add;
MDados := Boleto.MeusDados.Add;
MDados.Nome := 'NumeroBancoXMaiusculo';
MDados.Valor := 'X';
Em Clarion fiz assim:
! Cria documento de cobrança
LOC:Boleto = LOC:Cbx{'DocumentosCobranca.Add'}
LOC:Cbx{Prop:AddRef} = LOC:Boleto
If (LOC:Banco = 748) Then
LOC:MDados = LOC:Cbx{LOC:Boleto & '.MeusDados.Add'}
LOC:Cbx{Loc:MDados &'.Nome'} = 'NumeroBancoXMaiusculo'
LOC:Cbx{Loc:MDados &'.Valor'} = 'X'
End
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Denunciar
1
0
ANGELOREIS
#2
Membro registado
44 mensagems
Popularité : +7 (7 votes)
Publicado em setembro, 21 2016 - 4:34 PM
Adriano!
Como você está utilizando o cobrebem recente em seu projetos?
Você teve algum problema em adquirir a licença ou até mesmo em receber suporte?
--
Analista de Sistemas Jr
Assessor de Comunicação
Fotografo nas horas Vagas
Pai da Alícia e Marido da Andréa <3
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto