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.