ACBRBoleto com ACBRPLUS

[marcos.gurupi]

Caros, alguem usa essa solução do acbr. Estou tentando implementar e gostaria de uma ajuda. Fiz o arquivo ENT.TXT para enviar ao monitor, o monitor le o arq e responde OK, mas nada acontece. Segue anexo o arquivo ENT.TXT


Marcos Roberto

Código: Selecionar todos

BOLETO.IncluirTitulos("
[titulo01]
NumeroDocumento=001234.02.DUP
NossoNumero=3030
Carteira=CR
ValorDocumento=225
Vencimento=25/02/2016
ValorMoraJuroso=0,50
DataDocumento=28/02/2016
DataPDocumento=28/02/2016
DataMoraJuroso=25/02/2016 10:00:00:0
DataProtesto=25/02/2016
ValorMoraJuros=0,50
PercentualMulta=02,00
LocalPagamento=Pagável em qualquer agência até o vencimento
Especie=DM
EspecieMod=R$
Sacado.NomeSacado=BARBOSA E LOBO LTDA - ME
Sacado.CNPJCPF=09325120000133
Sacado.Pessoa=1
Sacado.Logradouro=09325120000133
Sacado.Numero=S/N
Sacado.Bairro=PQ RES. SOL NASCENTE
Sacado.Cidade=GURUPI
Sacado.UF=TO
Sacado.CEP=77425100
Instrucao1=Mensagem instrucao 1
Instrucao2=Mensagem instrucao 2
Aceite=1
Parcela=1
TotalParcela=1
SeuNumero=001234.02.DUP
TipoDiasProtesto=1
TipoImpressao=1)
,"P")

[fladimir]

Vc precisa antes do comando de incluir titulos ver algumas questões:

Saber se o CEDENTE.INI esta configurado se não estiver configure
Depois vc tem q mandar 1 comando para configurar os dados conforme o cedente.ini

eu aqui faço o seguinte mando um comando:

Código: Selecionar todos

Boleto.LimparLista

Depois carrego o INI

Código: Selecionar todos

Boleto.ConfigurarDados, cConteudoINI //"D:\Projetos\ACBR_Boleto\cedente.ini"

Depois crio 1 arquivo do título mandando imprimir

Código: Selecionar todos

Boleto.IncluirTitulos("D:\Projetos\ACBR_Boleto\boletosicredi.ini","I")  // observe o parametro I no final q joga pra impressora default.

[]´s

[marcos.gurupi]

Ok, seguindo os passos no final ele deve imprimir?

[paiva_dbdc]

sim.


vc tem opção de gerar o PDF e depois mandar ele abrir

ou já mandar imprimir e setar no acbrmonitor para ele imprimir em PDF

uso setar a impressão em PDF + fácil por usar em TS e o acbr pode ou NAO estar instalado no servidor.

uso o cobrebemx + muito complicado o suporte

o acbr boleto da de 10 em simplicidade de uso

PAiva

[GilmarDalantonia]

Boa Tarde... estou com esse mesmo problema... fiz uma função de teste, antes de cria-la definitivamente no sistema, mas ocorre o mesmo problema... da Ok em tudo mas nao imprime e nem gera pdf, estou usando clipper 5.3

vou enviar o conteudo da função... se alguem poder ajudar eu agradeço

BOLETO.ConfigurarDados("[Cedente]
Nome=S?o Jo?o LTDA.
CNPJCPF= 08.066.416/0001-14
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
[Conta]
Conta=99999
DigitoConta=9
Agencia=9999
DigitoAgencia=9
[Banco]
Numero=237
CNAB=1
IndiceACBr=5
")
OK:
BOLETO.IncluirTitulos("[Titulo1]
NumeroDocumento=000010
NossoNumero=0000001
Carteira=20
ValorDocumento=100,50
Vencimento=10/09/2010
ValorMoraJuros=0,50
DataDocumento=10/08/2010
DataProcessamento=10/08/2010
DataAbatimento=05/09/2010
DataDesconto=07/09/2010
DataMoraJuros=12/09/2010
DataProtesto=10/10/2010
ValorAbatimento=5,00
ValorDesconto=0,50
ValorMoraJuros=0,55
ValorIOF=3,50
ValorOutrasDespesas=2,50
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
Mensagem=teste1|teste2
Instrucao1=10
Instrucao2=11
Aceite=1
OcorrenciaOriginal=0
Parcela=1
TotalParcelas=1
SeuNumero=000020
TipoDiasProtesto=1
TipoImpressao=1
","P")
OK:
BOLETO.Imprimir
OK:

[janio]

Tenho usado, e tem funcionado, a seguinte sequencia de comandos:

BOLETO.LimparLista
BOLETO.IncluirTitulos("[Titulo1]'...
BOLETO.GerarPDF

Daí ele cria um pdf (boleto.pdf) na pasta do plus com os boletos incluídos

Jânio

Código: Selecionar todos

BOLETO.LimparLista
OK: 
BOLETO.IncluirTitulos("[Titulo1]
NumeroDocumento=68-01
NossoNumero=5                   
Carteira=1
ValorDocumento=53,44
Sacado.NomeSacado=ROSELENE DA SILVA PEREIRA SOUSA
Sacado.CNPJCPF=851.142.353-20
Sacado.Logradouro=RUA 13 DE MAIO
Sacado.Numero=141
Sacado.Bairro=CENTRO
Sacado.Complemento=
Sacado.Cidade=UBAJARA
Sacado.UF=CE
Sacado.CEP=62350000
Mensagem=CONSIDERAR QUITADO SO APOS COMPENSACAO DO(S) CHEQU E PELO BANCO SACADO. COBRA MULTA DE 2% E PROTESTAR NO 2O. DIA UTIL
ValorMoraJuros=0,05
Vencimento=25/04/2017
")
OK: 
BOLETO.GerarPDF
OK: 

[dbdc5554]

eu uso assim

x_comando_1 = 'BOLETO.LimparLista'
x_comando_2 = 'BOLETO.ConfigurarDados("'+temai_29+':\acbrNfemonitor\cedente.ini")'
x_comando_3 = 'BOLETO.IncluirTitulos( "'+temai_29+':\acbrNfemonitor\titulos.ini")'
x_comando_4 = 'BOLETO.Imprimir'
x_comando_5 = 'BOLETO.GerarPDF'

acbr_comandar_nfe(x_comando_1)
acbr_comandar_nfe(x_comando_2)
acbr_comandar_nfe(x_comando_3)

acbr_comandar_nfe(x_comando_5)

acbr_comandar_nfe(x_comando_4)

[GilmarDalantonia]

Bom dia amigos... obrigado pela ajuda... corrigi conforme o exemplo de vcs e deu certo... obrigado mesmo

[dbdc5554]

como ficou o esquema de cobrança registrada ?

os boletos NÃO registrados vão ser recebidos em OUTROS bancos ate quando e ate que valor ?

parece que tem uma tabela de faixas de valores


auguem tem a tabela ?

obrigado

paiva

[rubens]

Paiva conforme a Febraban
https://portal.febraban.org.br/pagina/3 ... ma-boletos

Todos os boletos com valor:
Data de início de validação
Igual ou acima de R$ 50.000,00 - 10.07.2017
Igual ou acima de R$ 2.000,00 - 11.09.2017
Igual ou acima de R$ 500,00 - 09.10.2017
Igual ou acima de R$ 200,00 - 13.11.2017
Boletos de todos os valores - 11.12.2017

Rubens

[jelias]

Olá amigos,

Estou implantando o ACBrBoleto em meu sistema e estou com uma dúvida.

Devo montar um ENT.TXT para cada comando para o ACBR ou posso montar um único arquivo com vários comandos, exemplo:

Código: Selecionar todos

ENT.TXT
BOLETO.LimparLista
BOLETO.ConfigurarDados("c:\cedente.ini" )
BOLETO.IncluirTitulos("c:\titulos.ini","P")

Irei imprimir os boletos no mesmo instante da emissão da NF-e.

Outro exemplo, será gerar o arquivo de remessas no final do dia.

Código: Selecionar todos

ENT.TXT
BOLETO.LimparLista
BOLETO.ConfigurarDados("c:\cedente.ini" )
BOLETO.IncluirTitulos("c:\titulos.ini")
BOLETO.GerarRemessa("c:\remessa\",1,000001.rem )

Saudações,

Júlio.

[rubens]

Olá..

Alguem sabe dizer se para gerar vários titulos eu tenho que gerar um arquivo .ini com todos os títulos ou se tenho que usar o comando BOLETO.IncluirTitulos para cada titulo?

Aqui estou tentando usar o comando para cada titulo... Já tentei enviar tudo em comando só também... mas tb não gera..

Código: Selecionar todos

22/12/2019 18:39:40 - BOLETO.LimparLista()
22/12/2019 18:39:40 - OK: 
22/12/2019 18:39:40 - BOLETO.SetDiretorioArquivo("C:\DataNovo\Boleto\PDF\","0000128397.pdf")
22/12/2019 18:39:40 - ATENÇÃO: Chave RSA Privada NÃO pode ser lida no arquivo "swh.ini".

22/12/2019 18:39:40 - OK: C:\DataNovo\Boleto\PDF\0000128397.pdf
22/12/2019 18:39:40 - BOLETO.IncluirTitulos("[Titulo1]
NumeroDocumento=128397-1  
NossoNumero=23571
Carteira=9
ValorDocumento=174,34
Vencimento=06/11/2017
DataDocumento=07/10/2017
DataProcessamento=07/10/2017
EspecieDoc=DM
EspecieMod=R$
Sacado.NomeSacado=KAMILA G DE SOUZA                       
Sacado.CNPJCPF=   .   .   -  
Sacado.Logradouro=CDL                                               
Sacado.Numero=002  
Sacado.Bairro=UNIAO               
Sacado.Cidade=NOVA XAVANTINA      
Sacado.UF=MT
Sacado.CEP=78.690-000
Sacado.Email=                                                  
Mensagem=                                              
PercentualMulta=2,00
CodigodeMora=1
DataMoraJuros=07/11/2017
ValorMoraJuros=0,93
Aceite=1
Parcela=1
TotalParcelas=1"
)
22/12/2019 18:39:40 - ATENÇÃO: Chave RSA Privada NÃO pode ser lida no arquivo "swh.ini".

22/12/2019 18:39:40 - OK: 
22/12/2019 18:39:40 - BOLETO.IncluirTitulos("[Titulo2]
NumeroDocumento=2128397-1  
NossoNumero=23571
Carteira=9
ValorDocumento=174,34
Vencimento=06/11/2017
DataDocumento=07/10/2017
DataProcessamento=07/10/2017
EspecieDoc=DM
EspecieMod=R$
Sacado.NomeSacado=KAMILA G DE SOUZA                       
Sacado.CNPJCPF=   .   .   -  
Sacado.Logradouro=CDL                                               
Sacado.Numero=002  
Sacado.Bairro=UNIAO               
Sacado.Cidade=NOVA XAVANTINA      
Sacado.UF=MT
Sacado.CEP=78.690-000
Sacado.Email=                                                  
Mensagem=                                              
PercentualMulta=2,00
CodigodeMora=1
DataMoraJuros=07/11/2017
ValorMoraJuros=0,93
Aceite=1
Parcela=1
TotalParcelas=1"
)
22/12/2019 18:39:40 - ERRO: Erro ao ler arquivo de entrada ou parametro incorreto.
22/12/2019 18:39:40 - BOLETO.GerarPDF()
22/12/2019 18:39:40 - OK: 
22/12/2019 18:39:40 - BOLETO.GerarRemessa("C:\DataNovo\Boleto\Remessa\")
22/12/2019 18:39:40 - OK: 

Obrigado

[rubens]

Bom dia...

Resolvido..
é só gerar numeração sequencial dentro do mesmo comando incluirtitulos...

Rubens

[Linguagemclipper]

Alguém poderia anexar um PDF mostrando como fica esse boleto em PDF?
Eu tenho uma função que escreví no xHarbour que gera boletos também, mas ele não desenha o boleto, coloca a imagem de um boleto em branco e escreve por cima nos campos como se estivesse preenchendo um formulário e por fim imprime o código de barras no padrão Febraban. É o SIBRA.
Fiquei curioso como funciona isso aí.