Clipper On Line • Ver Tópico - AcbrBoleto não gerando CNAB240

AcbrBoleto não gerando CNAB240

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Postar uma resposta
 

AcbrBoleto não gerando CNAB240

Mensagempor rossine » 03 Ago 2020 16:58

Boa Tarde,

Em meu AcbRLib.INI eu configuro para usar o CNAB240 do jeito que está indicando o manual:

[BoletoDiretorioConfig]
...
LayoutRemessa=1
...


Mas só gera o arquivo de remessa no padrão CNAB400.

Alguém saberia me dizer proque não está gerando o arquivo de remessa no padrão Correto ?

Obs: Estou gerando o arquivo de remessa para o Banco do Brasil.

Obrigado,
Rossine.

Harbour 3.4, MingW / Msvc, QT, Qt5xhb, GtQtc, DbfCdx, MySql/MariaDB.
rossine
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 313
Data de registro: 06 Ago 2007 09:57
Cidade/Estado: Divinópolis-MG
Curtiu: 1 vez
Mens.Curtidas: 21 vezes
Voltar ao topo

AcbrBoleto não gerando CNAB240

Mensagempor fladimir » 03 Ago 2020 21:43

Habilite o Log da Dll nível 4 e verifique qual a mensagem q retorna após a chamada do método da Dll relacionado a sua questão. Em caso de dúvida poste aki pra ver se conseguimos auxiliá-lo
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.

Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web

Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2435
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes
Voltar ao topo

AcbrBoleto não gerando CNAB240

Mensagempor rossine » 04 Ago 2020 10:25

Olá Faldimir,

Obrigado por responder :)

Como estou iniciando os testes com o AcbrBoleto, veja o teste que montei:

Function Main ()

   local oBoleto
   
   cls

   oBoleto := ACBrBoleto():New()

   //                         Sessão       Chave           Valor
   // Configurações de log da Lib

   oBoleto:ConfigGravarValor( "Principal", "TipoResposta", "0" )  // 0 = Formato INI (Padrão);
   oBoleto:ConfigGravarValor( "Principal", "CodificacaoResposta", "1" ) // 1 = ANSI;
   oBoleto:ConfigGravarValor( "Principal", "LogNivel", "4" ) // 4 = Paranoico
   oBoleto:ConfigGravarValor( "Principal", "LogPath", hb_dirBase() )

   oBoleto:ConfigGravarValor( "BoletoBancoConfig", "TipoCobranca", "1" )  // 1 - Banco do Brasil

   oBoleto:ConfigGravarValor( "BoletoDiretorioConfig", "LayoutRemessa", "1" ) // 0 - CNAB400 / 1 - CNAB240

   // Salvando configurações
   oBoleto:ConfigGravar( "c:\testes\acbrboleto\boleto.ini" )

   ? "ConfigLerValor", hb_valtoexp( oBoleto:ConfigLerValor( "BoletoDiretorioConfig", "LayoutRemessa" ) )

   ? "ConfigLer", hb_valtoexp( oBoleto:ConfigLer( "c:\testes\acbrboleto\boleto.ini" ) )

   ? "LimparLista()", hb_valtoexp( oBoleto:LimparLista() )
   ? ""
   ? "SelecionaBanco()", hb_valtoexp( oBoleto:SelecionaBanco( "001" ) )
   ? ""
   ? "SetDiretorioArquivo()", hb_valtoexp( oBoleto:SetDiretorioArquivo( "c:\testes\acbrboleto\pdf" ) )
   ? ""
   ? "ConfigurarDados()", hb_valtoexp( oBoleto:ConfigurarDados( "c:\testes\acbrboleto\cedente.ini") )
   ? ""
   ? "IncluirTitulos()", hb_valtoexp( oBoleto:IncluirTitulos( "c:\testes\acbrboleto\titulo.ini", "P" ) )
   ? ""
   ? "GerarRemessa()", hb_valtoexp( oBoleto:GerarRemessa( "c:\testes\acbrboleto\remessa", 1, "remessa_001.rem" ) )
   ? ""
   ? "TotalTitulosLista()", hb_valtoexp( oBoleto:TotalTitulosLista() )

//   ? "GerarPDF()", hb_valtoexp( oBoleto:GerarPDF() )
//   ? ""

   oBoleto := NIL
   
return NIL


...Gerando o LOG abaixo:

04/08/20 10:20:44:008 - TLibBoletoConfig.AplicarConfiguracoes - Feito
04/08/20 10:20:44:008 - Destravar
04/08/20 10:20:44:009 -    SetRetorno(0, )
04/08/20 10:20:44:009 - TLibBoletoConfig.PrecisaCriptografar(Principal,LogPath)
04/08/20 10:20:44:009 - TLibBoletoConfig.PrecisaCriptografar - Feito Result: False
04/08/20 10:20:44:010 - LIB_ConfigGravarValor(Principal, LogPath, C:\testes\acbrboleto\)
04/08/20 10:20:44:010 - TLibBoletoConfig.PrecisaCriptografar(Principal,LogPath)
04/08/20 10:20:44:010 - TLibBoletoConfig.PrecisaCriptografar - Feito Result: False
04/08/20 10:20:44:011 - TLibBoletoConfig.AjustarValor(tfGravar,Principal,LogPath,C:\testes\acbrboleto\)
04/08/20 10:20:44:012 - TLibBoletoConfig.AjustarValor - Feito
04/08/20 10:20:44:012 - TLibBoletoConfig.AplicarConfiguracoes: C:\testes\acbrboleto\ACBrLib.ini
04/08/20 10:20:44:012 - Travar
04/08/20 10:20:44:013 - TLibBoletoConfig.AplicarConfiguracoes - Feito
04/08/20 10:20:44:013 - Destravar
04/08/20 10:20:44:013 -    SetRetorno(0, )
04/08/20 10:20:44:014 - TLibBoletoConfig.PrecisaCriptografar(BoletoBancoConfig,TipoCobranca)
04/08/20 10:20:44:014 - TLibBoletoConfig.PrecisaCriptografar - Feito Result: False
04/08/20 10:20:44:014 - LIB_ConfigGravarValor(BoletoBancoConfig, TipoCobranca, 1)
04/08/20 10:20:44:015 - TLibBoletoConfig.PrecisaCriptografar(BoletoBancoConfig,TipoCobranca)
04/08/20 10:20:44:015 - TLibBoletoConfig.PrecisaCriptografar - Feito Result: False
04/08/20 10:20:44:016 - TLibBoletoConfig.AjustarValor(tfGravar,BoletoBancoConfig,TipoCobranca,1)
04/08/20 10:20:44:016 - TLibBoletoConfig.AjustarValor - Feito
04/08/20 10:20:44:016 - TLibBoletoConfig.AplicarConfiguracoes: C:\testes\acbrboleto\ACBrLib.ini
04/08/20 10:20:44:017 - Travar
04/08/20 10:20:44:017 - TLibBoletoConfig.AplicarConfiguracoes - Feito
04/08/20 10:20:44:017 - Destravar
04/08/20 10:20:44:018 -    SetRetorno(0, )
04/08/20 10:20:44:018 - TLibBoletoConfig.PrecisaCriptografar(BoletoDiretorioConfig,LayoutRemessa)
04/08/20 10:20:44:018 - TLibBoletoConfig.PrecisaCriptografar - Feito Result: False
04/08/20 10:20:44:019 - LIB_ConfigGravarValor(BoletoDiretorioConfig, LayoutRemessa, 1)
04/08/20 10:20:44:019 - TLibBoletoConfig.PrecisaCriptografar(BoletoDiretorioConfig,LayoutRemessa)
04/08/20 10:20:44:019 - TLibBoletoConfig.PrecisaCriptografar - Feito Result: False
04/08/20 10:20:44:020 - TLibBoletoConfig.AjustarValor(tfGravar,BoletoDiretorioConfig,LayoutRemessa,1)
04/08/20 10:20:44:020 - TLibBoletoConfig.AjustarValor - Feito
04/08/20 10:20:44:020 - TLibBoletoConfig.AplicarConfiguracoes: C:\testes\acbrboleto\ACBrLib.ini
04/08/20 10:20:44:021 - Travar
04/08/20 10:20:44:021 - TLibBoletoConfig.AplicarConfiguracoes - Feito
04/08/20 10:20:44:021 - Destravar
04/08/20 10:20:44:022 -    SetRetorno(0, )
04/08/20 10:20:44:022 - LIB_ConfigGravar(c:\testes\acbrboleto\boleto.ini)
04/08/20 10:20:44:022 - Travar
04/08/20 10:20:44:023 - TLibBoletoConfig.Gravar: c:\testes\acbrboleto\boleto.ini
04/08/20 10:20:44:027 - TLibBoletoConfig.Gravar - Feito
04/08/20 10:20:44:027 - Destravar
04/08/20 10:20:44:028 -    SetRetorno(0, )
04/08/20 10:20:44:028 - LIB_ConfigLerValor(BoletoDiretorioConfig, LayoutRemessa)
04/08/20 10:20:44:029 - TLibBoletoConfig.PrecisaCriptografar(BoletoDiretorioConfig,LayoutRemessa)
04/08/20 10:20:44:029 - TLibBoletoConfig.PrecisaCriptografar - Feito Result: False
04/08/20 10:20:44:029 - TLibBoletoConfig.AjustarValor(tfLer,BoletoDiretorioConfig,LayoutRemessa,1)
04/08/20 10:20:44:030 - TLibBoletoConfig.AjustarValor - Feito
04/08/20 10:20:44:030 - TLibBoletoConfig.PrecisaCriptografar(BoletoDiretorioConfig,LayoutRemessa)
04/08/20 10:20:44:030 - TLibBoletoConfig.PrecisaCriptografar - Feito Result: False
04/08/20 10:20:44:030 -    Valor:1, len:1
04/08/20 10:20:44:031 -    SetRetorno(0, 1)
04/08/20 10:20:44:032 - LIB_ConfigLer(c:\testes\acbrboleto\boleto.ini)
04/08/20 10:20:44:032 - Travar
04/08/20 10:20:44:032 - TLibBoletoConfig.Ler: c:\testes\acbrboleto\boleto.ini
04/08/20 10:20:44:034 - TLibBoletoConfig.AplicarConfiguracoes: c:\testes\acbrboleto\boleto.ini
04/08/20 10:20:44:034 - Travar
04/08/20 10:20:44:034 - TLibBoletoConfig.AplicarConfiguracoes - Feito
04/08/20 10:20:44:035 - Destravar
04/08/20 10:20:44:035 - TLibBoletoConfig.Ler - Feito
04/08/20 10:20:44:035 - Destravar
04/08/20 10:20:44:036 -    SetRetorno(0, )
04/08/20 10:20:44:037 - Boleto_LimparLista
04/08/20 10:20:44:037 - Travar
04/08/20 10:20:44:037 -    SetRetorno(0, )
04/08/20 10:20:44:038 - Destravar
04/08/20 10:20:44:038 - Boleto_SelecionaBanco
04/08/20 10:20:44:039 - Travar
04/08/20 10:20:44:039 -    SetRetorno(0, 001)
04/08/20 10:20:44:040 - Destravar
04/08/20 10:20:44:040 - Boleto_SetDiretorioArquivo( Diretorio: c:\testes\acbrboleto\pdf Arquivo:  )
04/08/20 10:20:44:040 - Travar
04/08/20 10:20:44:041 -    SetRetorno(0, c:\testes\acbrboleto\pdf\boleto.pdf)
04/08/20 10:20:44:041 - Destravar
04/08/20 10:20:44:042 - Boleto_ConfigurarDados(c:\testes\acbrboleto\cedente.ini )
04/08/20 10:20:44:042 - Travar
04/08/20 10:20:44:042 -    SetRetorno(0, OK)
04/08/20 10:20:44:043 - Destravar
04/08/20 10:20:44:044 - Boleto_IncluirTitulos(c:\testes\acbrboleto\titulo.ini )
04/08/20 10:20:44:044 - Travar
04/08/20 10:20:44:304 -    SetRetorno(0, OK)
04/08/20 10:20:44:304 - Destravar
04/08/20 10:20:44:306 - Boleto_GerarRemessa
04/08/20 10:20:44:306 - Travar
04/08/20 10:20:44:307 -    SetRetorno(0, )
04/08/20 10:20:44:308 - Destravar
04/08/20 10:20:44:308 - Boleto_TotalTitulosLista
04/08/20 10:20:44:309 - Travar
04/08/20 10:20:44:309 -    SetRetorno(0, 1)
04/08/20 10:20:44:309 - Destravar
04/08/20 10:20:44:310 - LIB_Finalizar
04/08/20 10:20:44:310 - Finalizar


É gerado o arquivo de remessa:

01REMESSA01COBRANCA       99999000999999123456SãO JOãO LTDA.                001BANCO DO BRASIL0408201572564                                                                                                                                                                                                                                                                                               000001
1020038145300010599999000999999123456000020                   1234560000090000   A   0170000000000000     2001000010    10091000000000100500010000 01N100810101100000000000550709100000000000050000000000035000000000005000100099999999999SACADO TESTE                            RUA JOSE RODRIGUES, 100, CASA           JARDIM MODER18277500TATUI          SPTESTE1                                  31 000002
5992101010000000000500                                                                                                                                                                                                                                                                                                                                                                                    000003
9                                                                                                                                                                                                                                                                                                                                                                                                         000004


Arquivo Cedente.ini
[Cedente]        

Nome=São João LTDA.

CNPJCPF= 99.999.999/9999-99

Logradouro=Rua Evaristo Mendes

Numero=200

Bairro=Centro

Cidade=Tatui

CEP=18.270-000

Complemento=Sala 10

UF=SP

RespEmis=0

TipoPessoa=1

CodigoCedente=123456

LayoutBol=3

CaracTitulo=0

TipoCarteira=0

TipoDocumento=0

Modalidade=17

CodTransmissao=10

Convenio=123456

[Conta]

Conta=99999

DigitoConta=9

Agencia=9999

DigitoAgencia=9

DigitoVerificadorAgenciaConta=

[Banco]

Numero=001

CNAB=1

IndiceACBr=1

NumeroCorrespondente=0

VersaoArquivo=0

VersaoLote=0


Arquivo Titulo.ini
[Titulo1]

NumeroDocumento=000010

NossoNumero=0000001

Carteira=20

ValorDocumento=100,50

Vencimento=10/09/2010

DataDocumento=10/08/2010

DataProcessamento=10/08/2010

DataAbatimento=05/09/2010

DataDesconto=07/09/2010

DataMoraJuros=12/09/2010

DiasDeProtesto=0

DiasDeNegativacao=0

DataProtesto=10/10/2010

DataNegativacao=10/10/2010

DataMulta=10/10/2010

DataBaixa=10/10/2010

ValorAbatimento=5,00

ValorDesconto=0,50

ValorMoraJuros=0,55

ValorIOF=3,50

ValorOutrasDespesas=2,50

MultaValorFixo=0

PercentualMulta=05,00

LocalPagamento=Pagável em qualquer agência bancária mesmo após o vencimento

Especie=DM

EspecieMod=R$

Sacado.NomeSacado=Sacado Teste

Sacado.CNPJCPF=999.999.999.99

Sacado.Pessoa=0

Sacado.Logradouro=Rua Jose Rodrigues

Sacado.Numero=100

Sacado.Bairro=Jardim Moderno

Sacado.Complemento=Casa

Sacado.Cidade=Tatui

Sacado.UF=SP

Sacado.CEP=18277.500

Sacado.Email=teste@email.com

Sacado.SacadoAvalista.NomeAvalista=Nome do Avalista

Sacado.SacadoAvalista.CNPJCPF=9999999999    

Sacado.SacadoAvalista.Logradouro=Rua das Flores  

Sacado.SacadoAvalista.Numero=99      

Sacado.SacadoAvalista.Complemento=Casa

Sacado.SacadoAvalista.Bairro=Centro      

Sacado.SacadoAvalista.Cidade=Tatui      

Sacado.SacadoAvalista.UF=SP          

Sacado.SacadoAvalista.CEP=9999999        

Sacado.SacadoAvalista.Email=teste@email.com    

Sacado.SacadoAvalista.Fone=(99)999999999      

Sacado.SacadoAvalista.InscricaoNr=9999999

Mensagem=teste1|teste2

Detalhamento=Dados Fatura 1|Dados Fatura 2|Dados Fatura 3

Competencia=

ArquivoLogoEmp=

Verso=False

Instrucao1=10

Instrucao2=11

Aceite=1

OcorrenciaOriginal.TipoOcorrencia=0

Parcela=1

TotalParcelas=1

SeuNumero=000020

TipoDiasProtesto=1

TipoDiasNegativacao=0

TipoImpressao=1

CodigoMora=1

TipoDesconto=0

TipoDesconto2=0

CarteiraEnvio=0

[NFe1]            ;;Esta seção é utilizada apenas para o banco Pine

NumNFe=

ValorNFe=

EmissaoNFe=

ChaveNFe=


Obrigado,
Rossine.

Harbour 3.4, MingW / Msvc, QT, Qt5xhb, GtQtc, DbfCdx, MySql/MariaDB.
rossine
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 313
Data de registro: 06 Ago 2007 09:57
Cidade/Estado: Divinópolis-MG
Curtiu: 1 vez
Mens.Curtidas: 21 vezes
Voltar ao topo

AcbrBoleto não gerando CNAB240

Mensagempor Itamar M. Lins Jr. » 04 Ago 2020 10:34

Ola!
Se não me falha a vista e memória, tem atualizações nesta parte no SVN.
Porquê passa rápido as letrinhas... subindo do SVN quando atualiza.

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6950
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 312 vezes
Mens.Curtidas: 506 vezes
Voltar ao topo

AcbrBoleto não gerando CNAB240

Mensagempor fladimir » 04 Ago 2020 11:35

Seu arquivo CEDENTE.INI esta errado. Abaixo explico.

Como vc quer gerar CNAB240 vamos avaliar o ACBrLib.INI e o Cedente.INI

observe o seguinte,

no ACBrLib.INI vc colocou q o LayoutRemessa = 1 // Ok aki tudo certo pq 0 - CNAB400 1 - CNAB240

Agora olhe seu CEDENTE.INI na TAG [Banco]
vc definiu q CNAB=1 // Aki acredito q seja o problema pq conforme Manual

Os valores válidos para o campo CNAB (240 e 400) são:
0 - CNAB240
1 - CNAB400

Ou seja, vc no ACBrLib passou q quer CNAB 240 ( LayoutRemessa = 1) e no Cedente passou o campo CNAB=1 q é equivalente a gerar o CNAB 400

Acredito q seja isto, faça a alteração e veja se resolve.
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.

Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web

Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2435
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes
Voltar ao topo

AcbrBoleto não gerando CNAB240

Mensagempor rossine » 04 Ago 2020 12:03

Olá Fladimir,

Era isto mesmo :)

Foi falta de atenção minha não ter observado isto mas acho que deveriam ter padrozinado isto porque em um arquivo se define "=0" e no outro "=1", mas tudo bem (hehe)

Muito obrigado pela ajuda,
Rossine.

Harbour 3.4, MingW / Msvc, QT, Qt5xhb, GtQtc, DbfCdx, MySql/MariaDB.
rossine
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 313
Data de registro: 06 Ago 2007 09:57
Cidade/Estado: Divinópolis-MG
Curtiu: 1 vez
Mens.Curtidas: 21 vezes
Voltar ao topo

AcbrBoleto não gerando CNAB240

Mensagempor fladimir » 04 Ago 2020 13:13

Tranquilo, eu concordo tb, 1 interfere no outro vou até sugerir pro pessoal lá mudar isso
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.

Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web

Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2435
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes
Voltar ao topo
Postar uma resposta


Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes

Mudar para estilo Celular

Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Traduzido por phpBB Brasil
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro
Conversão Sistema Clipper para Harbour - Você tem um programa desenvolvido em Clipper e quer atualizar ele para executar em versões mais recentes do Windows (7, 8, 10, etc)? Então o melhor caminho é converter seu programa Clipper para Harbour. Clique aqui para mais detalhes.