Clipper On Line • Ver Tópico - AcbrBoleto não gerando CNAB240
Mudar para estilo Clássico
Projeto Harbour - Compilador de código aberto compatível com o Clipper.
Postar uma resposta

AcbrBoleto não gerando CNAB240

03 Ago 2020 16:58

Boa Tarde,

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

Código:
[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,

AcbrBoleto não gerando CNAB240

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

AcbrBoleto não gerando CNAB240

04 Ago 2020 10:25

Olá Faldimir,

Obrigado por responder :)

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

Código:
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:

Código:
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:

Código:
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
Código:
[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
Código:
[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,

AcbrBoleto não gerando CNAB240

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.

AcbrBoleto não gerando CNAB240

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.

AcbrBoleto não gerando CNAB240

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,

AcbrBoleto não gerando CNAB240

04 Ago 2020 13:13

Tranquilo, eu concordo tb, 1 interfere no outro vou até sugerir pro pessoal lá mudar isso
Postar uma resposta