Pesquisar na Comunidade

Bom dia Pessoal. Passando para avisar que nossa solução está adequada para carteira 9 do sicoob. Lembrando que a montagem da linha digitável é DIFERENTE da carteira 1 que já está em produção. Em resumo a carteira é que define qual o calculo vai ser utilizado, então se utilizar a carteira 9, será aplicado conforme a tabela abaixo. Segue exemplo simplificado da nova montagem da linha digitável: (maiores detalhes, manual anexo abaixo da imagem) Para visualizar o manual completo, clique aqui.

Bom dia, gostaria de saber como faço para adicionar o número da Carteira na informação "Nosso número" dos boletos Cresol? Infelizmente não estou conseguindo achar essa informação. segue manuais em anexo... Especificacoes Tecnicas Boleto.pdf manual_cobrança_integrada_cooperado_240.pdf

Bom dia, estou a dias tentando homologar boleto para o banco Cresol, mas não consigo encontrar nenhuma informação de como faço para que o acbr inclua a informação do número da carteira no "Nosso número", conforme as imagens abaixo... Realmente é complicado achar qualquer informação...

Semana passada passamos por algo inusitado onde foi relatado na impressão de boletos, “Modalidade” diferentes entre eles que impactam na linha digitável e no código de barras. Então temos uma conta com a modalidade “101” por exemplo e outra na modalidade “102”. Sempre que vamos emitir boletos, seguimos os passos: Alimentar os dados do cedente e dados da conta modalidade exemplo 101 Apagamos a lista de boletos (ACBrBoleto.ListadeBoletos.Clear) Incluímos os títulos (ACBrBoleto.CriarTituloNaLista) um a um. Geramos os boletos/remessas/etc. Caso precise alterar dados do cedente ou bancários, repetir exatamente o mesmo procedimento Alimentar os dados do cedente e dados da conta outra conta ou modalidade exemplo 102 Apagamos a lista de boletos (ACBrBoleto.ListadeBoletos.Clear) Incluímos os títulos (ACBrBoleto.CriarTituloNaLista) um a um. Geramos os boletos/remessas/etc. Não podemos mudar dados do cedente ou conta (sem limpar a lista de boletos) e continuar incluindo títulos! Exemplo de uma forma Errada: Alimentar os dados do cedente e dados da conta ou modalidade exemplo 101 Incluímos mais títulos (ACBrBoleto.CriarTituloNaLista) um a um. Alterar os dados do cedente ou da conta (ou mudar modalidade 102, etc). (sem limpar a lista de boletos) Incluímos mais títulos (ACBrBoleto.CriarTituloNaLista) um a um. Imprimir todos boletos Observe que no exemplo acima foi alterado dados da conta/modalidade antes de imprimir a primeira remessa de boleto e limpar a lista de boletos. Isso é incorreto.

bom dia....preciso de um componente ou framewort p impressao de boletos santander e gerar em pdf tmbm....tem onde baixar do acbr ou de onde....alguém pode ajudar?

Bom dia Atualizei meu repositório e após tivemos erros de rejeição no registro de boletos do banco Santander - 400 posições - com o erro "006-CODIGO DA CARTEIRA INVALIDO". Na configuração do sistema, anteriormente passávamos o campo CARTEIRA como 5=RAPIDA COM REGISTRO. Notei que nessa última atualização o arquivo de remessa é gerado com 0 na posição 108 (anteriormente era 5). Fiz essa modificação no arquivo do Banco Santander afim de manter a mesma regra anterior, fazendo com que a configuração de carteira = 5 (como diz manual) seja gerada a remessa com o parâmetro 5. Por favor avaliem se essa melhoria é pertinente, no meu caso resolveu. P.S.: Eu poderia simplesmente alterar o parâmetro carteira de 5 pra 101, porém creio que o melhor modo seja representar as configurações como está no manual do banco. function TACBrBancoSantander.DefineCarteira(const ACBrTitulo: TACBrTitulo): String; begin with ACBrTitulo do begin Result := PadLeft(Carteira, 1, '0' ); if ((Carteira = '101') or (Carteira = '005')) then Result:= '5' else if ((Carteira = '201') or (Carteira = '006')) then Result:= '6' else if ((Carteira = '102') or (Carteira = '004')) then Result:= '4'; end; end; ACBrBancoSantander.pas

Pessoal, Estou implementando o boleto para o Banco do Nordeste. O Layout do boleto já foi aprovado e esta 100%. No entanto ao gerar a remessa o campo da carteira esta sendo informado errado na remessa. A Careira correta e informada no componente é a 5. Que no layout do boleto deve sair 41. Esta OK No entanto no arquivo de remessa esta gerando a carteira 4 = '21' e deve ser a 5 como esta sendo informado. Já coloquei a ACBrBoleto.Cedente.CaracTitulo = tcVinculada mas mesmo assim só sai carteira 4 no txt if ACBrBoleto.Cedente.CaracTitulo = tcSimples then begin if ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite then wCarteira:= '1' else wCarteira:= '4'; end else if ACBrBoleto.Cedente.CaracTitulo = tcVinculada then begin if ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite then wCarteira:= '2' else wCarteira:= '5'; end else WCarteira:= 'I';

Boa tarde, Estou configurando uma cobrança registrada caucionada para o Sicoob, porem após termos alimentado as propriedades necessárias estamos tendo o retorno de que a carteira não estava de acordo com o que deveria estar na linha digitavel, analisei o arquivo de remessa gerado e nas posições da carteira ela esta correta, contendo o numero 3. Tambem verifiquei o boleto, pois la tem o campo de carteira, porem no boleto a carteira também esta 3, então fui mais afundo do código e vi que a linha digitável é montada através do cód. de Barras do boleto, assim trazendo o numero "1" no lugar do numero "3" na posição que deve estar a carteira na linha digitável. Já tentei mudar algumas informações que são passadas para o componente mas não tive sucesso. Vou anexar uma remessa para vocês verem que esta com a carteira 3 e não 1 e também vou deixar a baixo a linha digitável incorreta que esta aparecendo. Linha digitável Boleto 1 incorreta : 75691.44418 03005.505007 00000.150011 7 68870000018000 Linha digitável Boleto 2 incorreta : 75691.44418 03005.505007 00000.220012 4 69180000018400 Fico no aguardo, Obrigado. att, Marcos Duca, Essystem. PJ756-0001.REM

Boa tarde, Estou configurando uma cobrança registrada para um cliente, porem após termos alimentado as propriedades necessárias do componente estamos tendo o retorno de que o convenio não estava de acordo com o que deveria estar, analisei o arquivo de remessa gerado e realmente quando o código aparecia no arquivo faltava 3 dígitos. Debuguei a aplicação e encontrei que a carteira (que compõe esse código que eles chamam de convenio) estava com problema, pois passo o código '17019' para o campo ACBrTitulo.Carteira e o componente assume como '17' apenas, pelo fato de ter uma propriedade que se chama TamanhoCarteiraque o sistema define como 2 e acaba fazendo com que o campo ACBrTitulo.Carteira assuma o valor com apenas 2 dígitos. Gostaria de saber como prosseguir com isso, pois preciso informar o código '17019' por completo para que o arquivo seja gerado corretamente. Estou colando abaixo o que o banco nos retornou: Efetuar os seguintes ajustes nos Arquivos Remessa: Arquivo "001-0018.REM": Header de Arquivo > Lote 0000 ---------------------------------------------------------------------------------------------------- Posições 033 a 052: Preencher com o código do convênio: '002660159001417019 ' ==================================================================================================== Header de Lote > Lote 0001 ---------------------------------------------------------------------------------------------------- Posições 034 a 053: Preencher com o código do convênio: '002660159001417019 ' Arquivo "001-0019.REM": Header de Arquivo > Lote 0000 ---------------------------------------------------------------------------------------------------- Posições 033 a 052: Preencher com o código do convênio: '002660159001417019 ' ==================================================================================================== Header de Lote > Lote 0001 ---------------------------------------------------------------------------------------------------- Posições 034 a 053: Preencher com o código do convênio: '002660159001417019 ' Arquivo "001-0019-1.REM": Header de Arquivo > Lote 0000 ---------------------------------------------------------------------------------------------------- Posições 033 a 052: Preencher com o código do convênio: '002660159001417019 ' ==================================================================================================== Header de Lote > Lote 0001 ---------------------------------------------------------------------------------------------------- Posições 034 a 053: Preencher com o código do convênio: '002660159001417019 ' Arquivo "001-0020.REM": Header de Arquivo > Lote 0000 ---------------------------------------------------------------------------------------------------- Posições 033 a 052: Preencher com o código do convênio: '002660159001417019 ' ==================================================================================================== Header de Lote > Lote 0001 ---------------------------------------------------------------------------------------------------- Posições 034 a 053: Preencher com o código do convênio: '002660159001417019 ' Arquivo "001-0021.REM": Header de Arquivo > Lote 0000 ---------------------------------------------------------------------------------------------------- Posições 033 a 052: Preencher com o código do convênio: '002660159001417019 ' ==================================================================================================== Header de Lote > Lote 0001 ---------------------------------------------------------------------------------------------------- Posições 034 a 053: Preencher com o código do convênio: '002660159001417019 ' Fico no aguardo, Obrigado. att, Marcos Duca, Essystem.

Olá, Estou enfrentando problemas para gerar boletos do Bando do Brasil, utilizando carteira 18 e convênio de 6 posições. À primeira vista, o NossoNumero está sendo gerado com 17 dígitos em vez de 11. NossoNumero (nº sequencial): 1 Convênio: 123456 NossoNumero completo esperado: '12345600001' (11 dígitos) NossoNumero completo obtido: '00000000000000001' (17 dígitos) Passos para reprodução do problema: 1. Criar um Titulo na lista (Titulo := ACBrBoleto.CriarTituloNaLista) 2. Popular os dados do boleto, sendo que Titulo.NossoNumero recebe o número sequencial (Titulo.NossoNumero := '1') Neste momento ocorre: a. Chamada à função SetNossoNumero() b. SetNossoNumero() chama CalcularTamMaximoNossoNumero('18', '1') c. CalcularTamMaximoNossoNumero('18', '1') resulta em 11 dígitos d. Então Titulo.NossoNumero (fNossoNumero) recebe '00000000001' 3. Exibir o boleto (ACBrBoleto.Imprimir) Neste momento ocorre: a. Chamada à função MontarCampoNossoNumero(Titulo) // Aqui Titulo.NossoNumero ainda é igual a '00000000001' b. MontarCampoNossoNumero(Titulo) chama FormataNossoNumero(Titulo) // Aqui Titulo.NossoNumero ainda é igual a '00000000001' c. FormataNossoNumero(Titulo) chama CalcularTamMaximoNossoNumero('18', '00000000001') d. CalcularTamMaximoNossoNumero('18', '00000000001') resulta em 17 dígitos, pois entra no primeiro if e. Então FormataNossoNumero(Titulo) resulta em '00000000000000001', com 17 dígitos f. A partir daí o nosso número passa a ter 17 dígitos.... Será que estou preenchendo de forma incorreta as propriedades ou preenchendo em uma ordem incorreta? Obrigado.

Boa tarde. Em relação ao campo Titulo.Carteira, quando há diversas opções para cada número (ex: 17, 17/4, 17/7, etc) devo alimentar o campo apenas com o 17 (no caso) ou com os outros caracteres também?

Saudações. Eu não sei bem onde informar, mas aqui em Rondônia, mais especificamente em Ji-Paraná, nós trabalhamos com a Carteira e a Variação da carteira "17-019", e eu não achei este tratamento específico para no ACBr. Eu optei então por informar no campo Carteira o valor '17-019' e pelo menos o boleto imprime normal com a numeração do código de barras funcionando para pagar, apesar de eu ver todo o tratamento para (Carteira = 18, ou 16, etc... que por sorte nós não entramos nesta condição mesmo e pegar sempre o else). O problema é que o código de barras propriamente dito não lê de jeito nenhum. Para resolver este problema, no procedimento onde monta o código de barras (procedure MontarCodigoBarras) na Unit ACBrBancoBrasil, eu fiz a seguinte alteração no trecho: de CodigoBarras := IntToStrZero(Banco.Numero, 3) + '9' + FatorVencimento + IntToStrZero(Round(ACBrTitulo.ValorDocumento * 100), 10) + IfThen((Length(AConvenio) = 7), '000000', '') + ANossoNumero + IfThen((Length(AConvenio) < 7), padR(OnlyNumber(Cedente.Agencia), 4, '0'), '') + IfThen((Length(AConvenio) < 7), IntToStrZero(StrToIntDef(OnlyNumber(Cedente.Conta),0),8), '') + ACBrTitulo.Carteira; para CodigoBarras := IntToStrZero(Banco.Numero, 3) + '9' + FatorVencimento + IntToStrZero(Round(ACBrTitulo.ValorDocumento * 100), 10) + IfThen((Length(AConvenio) = 7), '000000', '') + ANossoNumero + IfThen((Length(AConvenio) < 7), padR(OnlyNumber(Cedente.Agencia), 4, '0'), '') + IfThen((Length(AConvenio) < 7), IntToStrZero(StrToIntDef(OnlyNumber(Cedente.Conta),0),8), '') + Copy(ACBrTitulo.Carteira,1,2); ou seja, ao invés de colocar o campo ACBrTitulo.Carteira, eu usei somente os dois primeiros digitos. Assim funcionou, quem estiver com este mesmo problema está ai a solução. Estou informando aqui para ver se alguém faz a correção do componente para eu não me preocupar em ficar sempre alterando após cada atualização. Aguardo alguma resposta, Obrigado. Duílio Lobianco

Bom dia pessoal, estou começando a fazer boletos dos principais bancos para homologação. Observei que os Código Cedentes mudam de acordo com cada banco, cada banco trata de um jeito. Então eu gostaria de compartilhar com vocês esta parte do meu código para saber a opinião de vocês e como cada pessoa trata isso, pois no meu código abaixo eu acho que ainda não vai encaixar em todas as ocorrências que viram daqui pra frente. case ACBrBoleto.Banco.Numero of 1: begin (* Banco do Brasil *) ACBrBoleto.Cedente.CodigoCedente := FormatFloat('00000000000',StrToInt(ACBrBoleto.Cedente.Conta))+'-'+ACBrBoleto.Cedente.ContaDigito; ACBrBoleto.Cedente.Modalidade := qBanco.FieldByName('VARIACAO').Text; end; 33: begin (* Santander *) ACBrBoleto.Cedente.CodigoCedente := sContaComDigito; ACBrBoleto.Cedente.Modalidade := qBanco.FieldByName('CARTEIRA').Text; end; 104: begin (* Caixa Sicob *) ACBrBoleto.Cedente.CodigoCedente := ACBrBoleto.Cedente.Agencia+'870'+ACBrBoleto.Cedente.Convenio; end; 237: begin (* Bradesco *) ACBrBoleto.Cedente.CodigoCedente := FormatFloat('0000000',StrToInt(ACBrBoleto.Cedente.Conta))+'-'+ACBrBoleto.Cedente.ContaDigito; end; 341: begin (* Itau *) ACBrBoleto.Cedente.CodigoCedente := qBanco.FieldByName('CONTA').Text; end; end; (* Cedente.DigitoCodigoCedente := ''; *) No código acima não coloco nada no DigitoCodigoCedente e não sei pra que serve.