Pesquisar na Comunidade

Olá Boa noite. Estou utilizando o componente ACBR Boleto e estou tendo problemas com o arquivo de remessa para o banco itaú. O arquivo gera corretamente, mas ao tentar processar no site do banco exibe a seguinte mensagem: "Tamanho do Registro 1 inválido". Conferi o arquivo com o manual e a quantidade de caracteres está batendo com o manual. Alguém poderia me ajudar com este problema? Em anexo segue o arquivo que estou tentando enviar para o banco. Grato, 1100004.txt

Saudações. Pessoal eu instaleio ACBrBoleto com suporte para o gerador de relatórios Fortes Report mas, quando vou compilar o projeto, aparecia o Erro ACBrBoletoFCFR dizendo que não estava encontrando a unit TFrxClass. Instalei o Fast Report 4 mas, ao tentar compilar novamente, deu erro por diferença na versão do arquivo. Alguém pode me dizer qual versão instalar ou porque o erro aparece já que instarei suporte a impressão de relatórios do Fortes Report? Utilizo Delphi 7. Grato pela atenção de todos.

Alguém sabe se existe um Web Service do Bradesco, que tenha como exportar o arquivo de remessa de boletos, que o componente ACBr Boleto gera, em um formato REST por JSON ou XML para ser cadastrado automaticamente sem usar o Bradesco Net Empresa?

Bom dia eu gostaria saber como configura a impressão do componente para que impressão saia correto, a data e o numero de de cada parcela, na impressão, todos estão aparecendo com mesma data e mesma parcela e quando encerro o aplicação ocorre esta exceção . segue abaixo código que testando: i:=0; b:=0; u:=3; ACBrBoleto1.ListadeBoletos.Clear; Titulo:=ACBrBoleto1.CriarTituloNaLista; while Titulo.TotalParcelas <= u do begin b:=b+30; i:=i+1; ShowMessage(b.ToString); Titulo.TotalParcelas:=Titulo.TotalParcelas+i; Titulo.Sacado.NomeSacado:= 'Antônio da Silva'; tada:=date; Titulo.Parcela:=i; Titulo.Sacado.Logradouro:='r.pilar'; Titulo.Sacado.Numero:='615'; Titulo.NumeroDocumento:=PadRight(IntToStr(I),6,'0'); Titulo.Vencimento:=Date+b; ShowMessage(DateToStr( Titulo.Vencimento)); Titulo.DataDocumento:=Now; Titulo.ValorDocumento:=300.00; Titulo.LocalPagamento:='Pagar preferêncialmente nas agências do Bradesco'; Titulo.Aceite:=atSim; ACBrBoleto1.Cedente.TipoInscricao:=pFisica; ACBrBoleto1.Cedente.Nome:='MESSIAS FERNANDES'; ACBrBoleto1.Cedente.Agencia:='3839'; ACBrBoleto1.Cedente.AgenciaDigito:='4'; ACBrBoleto1.Cedente.CNPJCPF:= '648.155.110-20'; ACBrBoleto1.cedente.CodigoCedente:='1045285'; ACBrBoleto1.Cedente.Conta:='225544'; ACBrBoleto1.Cedente.ContaDigito:='2'; ACBrBoleto1.ListadeBoletos.Insert(i,Titulo); end; ACBrBoleto1.Imprimir; ACBrBoleto1.GerarPDF;

Bom dia, alguém já teve esse problema ao compilar a aplicação utilizando Delphi 7? Atualizei o acbr para á última revision disponível para tentar sanar a não conformidade mas sem sucesso. Para resolver, tive que comentar a linha LerIniArquivoOuString na classe ACBrBoleto.pas no método LerArqIni Pessoal, caso esteja correto a minha implementação, segue anexo o arquivo alterado. Fiz uma busca nos fontes para identificar a utilização e a forma correta do método. ACBrBoleto.pas

Ola, boa tarde, tudo bem. Estou dando uma olhada e conversando com amigos e comentei que quero incluir em um sistema meu desenvolvido em Delphi Berlin Update2, a geração de boleto com registro. Eles me falaram do ACBrBoleto, eu sempre pensei que ACBR era mais para nota fiscal eletrônica e agora vi que tem de tudo nisso aqui , parabéns. Minha pergunta seria em relação ao ACBRBoleto mesmo, no caso é possível gerar boleto com registro para por exemplo Banco do Brasil, ou Itau? Muito complicada a implementação? Lembro que a muito tempo atras instalei com o TORTOISE, e veio o componente de boleto, tinha ate um exemplo pronto e tal, mas com a questão de boleto sem registro não ter mais pensei que tinha sido cancelado o projeto. Eu instalado o componente, vi em outra postagem falando em LAZARUS, mas não funciona mais para Delphi, no meu caso o Berlin Update2 ou funciona normal? Pelo que vi, e andei pesquisando para usar o ACBRBoleto se tem um MONITOR que fica rodando e meu sistema usaria o componente para gerar um arquivo, não sei se XML, enfim, e o tal MONITOR pega e faz a remessa, seria isso? Tem algum custo/mensalidade para utilização do componente? Muito Obrigado. PS: depois que inclui esta postagem que vi que tinha no forum uma parte exclusiva do ACBRBoleto, tentei excluir ou mover esta mensagem mas não consegui. Desculpem

Bom dia Estou precisando do Boleto do Banco Credisan, na estrutura do ACBR Boleto, aguem já fez e quer vender, lembrando que seu eu tiver o código vou doar para o projeto ACBR. Entra em contato com [email protected]

Bom dia pessoa, venho aqui pedir uma ajuda pois não estou conseguindo resolver essa questão na geração do arquivo remessa do Banco do Brasil, acredito que tenha algo errado devido estar com 395 caracteres na segunda linha que o certo seria 400, acredito também que tenha relação com o CPF/CNPJ do cliente e as posições do restante dos dados, preciso de ajuda de como alterar essas informações caso tenha alguém que passou pelo mesmo problema. Desde já agradeço a resposta. 01REMESSA01COBRANCA 0895800058584X000000CCCC SISTEMAS 001BANCO DO BRASIL0304170000004 2973424 000001 702120457870001840895800058584X2973424208 297342400000000130000 0190000000 1701000498/6 20091700000000025990010000 01A03041700000000008000000000000000000000000000000000000000000000000100098323829382FAMI FAMILY DA SILVA, 212, LIMA 89700000CONCORDIA SC 000002 5992210917000000000300 000003 9 000004

Boa tarde a todos, Estou com um problema na geração da remessa de boletos para o banco, gera normalmente exceto quando tem caractere estranho no nome do cliente como imagem em anexo. Ao invés do nome do cliente ser GONÇALVES está gerando a remessa como GONALVES alguém teria alguma solução para isso? Desde já agraço a ajuda de todos.

Boa tarde!, não sei se tem algo que possam fazer mas toda vez que eu instalo o acbr boleto no windows 10 ele da erro e bagunca todo meu lazarus nao funciona nao reconhece todas a conexoes mysql e da varios erros como que posso fazer ? muito obrigado!

Olá! Nas últimas semanas tenho estudado Delphi e agora estou iniciando o estudo do ACBr e como primeiro objetivo quero aprender a gerar boleto, porém, não encontro nenhum exemplo da utilização dos componentes TACbrBoleto e TACBrBoletoFCFortes que apareceram na paleta de ferramentas após a instalação. Alguém, por favor, sabe de algum link/exemplo com uma simples utilização desses componentes?

Gostaria de saber da lista dos bancos e das carteiras disponiveis nas implementações do acbrboleto? Teria alguma lista disponível com as mesmas???

Estou tendo um problema na validação dos boletos reimpressos pelo meu sistema no que se refere ao código de barras. Na função MontarCodigoBarras da unit AcbrBancoCaixa o campo referente ao Identificador da Emissão do Boleto está fixo o valor '4', quando na verdade, segundo consta no layout, esse valor se refere à 2ª posição do Nosso Número. Abaixo o código atual: {Montando Campo Livre} CampoLivre := padR(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,6,'0') + CalcularDVCedente(ACBrTitulo) + Copy(ANossoNumero,3,3) + Copy(ANossoNumero,1,1) + Copy(ANossoNumero,6,3) + '4' + Copy(ANossoNumero,9,9); A seguir o código com a correção: {Montando Campo Livre} CampoLivre := padR(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,6,'0') + CalcularDVCedente(ACBrTitulo) + Copy(ANossoNumero,3,3) + Copy(ANossoNumero,1,1) + Copy(ANossoNumero,6,3) + Copy(ANossoNumero,2,1) + Copy(ANossoNumero,9,9); Com esta correção é possível reimprimir boletos gerados pelo banco, onde o valor da constante é 1. Estou enviando em anexo o layout que consta esta informação. Está na pag. 20, tópico 5.3 - Anexo III - Campo livre do código de Barras, Constante 2. ESP_COD_BARRAS_SIGCB_COBRANCA_CAIXA.pdf

Olá estou configurando o acbr boleto para o banco bradesco com o fast report mas informo a titulo.carteira mas esse valor não esta sendo reconhecido, estou passando como string. Delphi xe7 alguém pode me ajudar? Segue o código: Titulo := ACBrBoleto1.CriarTituloNaLista; with Titulo do begin Vencimento := DsDados.DataSet.FieldByName('datavencimento').Value; DataDocumento := DsDados.DataSet.FieldByName('dataconta').Value; NumeroDocumento := DsDados.DataSet.FieldByName('idcr').Text; EspecieDoc := DsBoleto.DataSet.FieldByName('especiedoc').AsString; if DsBoleto.DataSet.FieldByName('aceite').AsString = 'SIM' then Aceite := atSim else Aceite := atNao; EspecieMod := 'R$'; EspecieDoc := DsBoleto.DataSet.FieldByName('especiedoc').AsString; DataProcessamento := Now; Parcela := DsDados.DataSet.FieldByName('parcela').value; TotalParcelas := DsDados.DataSet.FieldByName('totalparcelas').value; NossoNumero := DsDados.DataSet.FieldByName('nossonumero').Text; Carteira := DsBoleto.DataSet.FieldByName('carteira').Text; ShowMessage(Carteira); ValorDocumento := StrToCurr(DsDados.DataSet.FieldByName('valorconta').Text); ShowMessage(CurrToStr(ValorDocumento)); Sacado.NomeSacado := DsBoleto.DataSet.FieldByName('nomecompleto').AsString; Sacado.CNPJCPF := DsBoleto.DataSet.FieldByName('cpf').AsString; Sacado.Logradouro := DsBoleto.DataSet.FieldByName('endereco').AsString; Sacado.Numero := DsBoleto.DataSet.FieldByName('complemento').AsString; Sacado.Bairro := DsBoleto.DataSet.FieldByName('bairro').AsString; Sacado.Cidade := DsBoleto.DataSet.FieldByName('cidade').AsString; Sacado.UF := DsBoleto.DataSet.FieldByName('uf').AsString; Sacado.CEP := OnlyNumber(DsBoleto.DataSet.FieldByName('cep').AsString); ValorAbatimento := StrToCurrDef(DsDados.DataSet.FieldByName('valoracrecimo').text,0); LocalPagamento := 'Preferencialmente no Banco '+DsBoleto.DataSet.FieldByName('nomebanco').AsString;; ValorMoraJuros := StrToCurrDef(DsDados.DataSet.FieldByName('valorjuros').text,0); ValorDesconto := StrToCurrDef(DsDados.DataSet.FieldByName('valordesconto').Text,0); ValorAbatimento := 0; DataMoraJuros := StrToDateDef(DsDados.DataSet.FieldByName('datavencimento').Text, 0); DataDesconto := StrToDateDef(DsDados.DataSet.FieldByName('datavencimento').Text, 0); DataAbatimento := StrToDateDef(DsDados.DataSet.FieldByName('datavencimento').Text, 0); DataProtesto := StrToDateDef(DateToStr(DsDados.DataSet.FieldByName('datavencimento').Value+10), 0); PercentualMulta := StrToCurrDef(DsDados.DataSet.FieldByName('valormulta').Text,0); Mensagem.Text := 'Até o Vencimento Desconto '; OcorrenciaOriginal.Tipo := toRemessaBaixar; Instrucao1 := padL(trim('Menssagem 1'),2,'0'); Instrucao2 := padL(trim('Menssagem 2'),2,'0'); // ACBrBoleto1.AdicionarMensagensPadroes(Titulo,Mensagem); end;

Saudações a todos Assumi os fontes de um sistema e precisei atualizar o Acbr para imprimir as NFC-e. Depois de muita ajuda por parte de todos, incluindo os membros deste grupo, as NFC-e estão funcionando. No entanto, o acbr boleto ficou... bem, eu diria insano, mas não se adequa. 1) Por exemplo, ele não imprime mais boletos para o banco Bancoob, e sim, eu li o tópico associado a este grupo e fiz as alterações de acordo, conforme modelo abaixo. fprinci.ACBrBoleto1.Banco.Numero := strtoint(bc); //fprinci é o formulario principal, ou tela principal do sistema case strtoint(bc) of 1: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBancoDoBrasil; 237: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBradesco; 341: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobItau; 748: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobSicred; // incluido na atualizacao da nfce 756: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBancoob; 104: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobCaixaEconomica; 33, 53, 008: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobSantander; end; Fazendo dessa forma, ele indica que on banco 756 o numero máximo do "nosso número" deve ser 7 e não 13 como estava sendo feito. Estou errando algo ou é assim mesmo??? 2) em outro cliente, que usa o mesmo sistema(só que com o banco sicredi) ele funciona adequadamente. Só que o programador antigo alterou algo( e não, eu não sei onde ele fez ou por onde anda) só que na impressão do boleto, ele imprimia ao invés de recibo e fatura (com código de barra para pgto em banco) ele imprimia recibo, fatura, fatura (2x) na mesma folha. Como torno a implementar isso??? Espero ter sido claro ( embora os problemas sejam obscuros kakakakaka!!) No aguardo de qualquer ajuda, Antecipadamente agradeço, Claudiomir