Pesquisar na Comunidade

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

Boa Tarde Pessoal, Estou gerando remessa Cnab240 para a CEF 104, na Carteira 14. No registro "P" posições de 42 a 43 segundo o layout da caixa é Modalidade da Carteira 41,42 9(002) Não importa a carteira que eu use esta indo sempre "24". Mesmo mandando o Modalidade = carteira; Estou usando o ACBrmonitorPlus-0.9.0a e o ACBrMonitorPLUS-1.0.0.10-20161121 Estou fazendo algo de errado? Ou preciso mandar mais algum parâmetro? Um Abraço a todos Vanderlei

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.

Bom dia. Estou tendo alguns problemas com a homologação dos boletos com o Santander. Eles estão reclamando de algumas coisas no leiaute dos boletos, e principalmente do código de barras. Fiz algumas alterações paliativas para resolver meu problema, mas segue o que me foi dito, para que se possível seja implementado no componente. Dados Componente Tipo Cobrança : Santander Código do Cedente : 5636213 Código da Carteira : 102 Espécie : DS Estou utilizando Leiaute Padrão com o QuickReport, pois o carnê eles pediram muitas alterações. 1) Foi pedido que no campo Espécie conste a palavra REAL e não R$, como não há configuração alterei direto no código fonte. Vide "anexo1.png" 2) Foi pedido que o campo "uso do banco" fosse removido. Vide "anexo1.png" 3) Que no campo carteira constasse além do código a descrição da carteira (e poderia se utilizar o espaço do "uso do banco"). Vide "anexo1.png" 4) Foi pedido que utilize-se o novo logo (em anexo, para possível atualização no repositório) 5) Quanto ao código de barras me foi informado que o mesmo não está apresentando o código da carteira Vide "NN 543217.txt" Ex.: Representação numérica do código de barras Enviado - 03391567100000002229130037100000005432170000 Esperado - 03399567100000002229563621300000005432170102 Em anexo : - boleto com as barras inválidas segundo o banco; - boleto com as barras válidas segundo o banco; - Log de analise do boleto invalido; - Imagem do leiaute que alterei para a homologação - Alteração feitas diretamente no "ACBrBoletoFCQuickFr.pas" - Também alterei o "ACBrBancoSantander.pas", estou enviando para comparação se preciso. boleto com barras invalido.pdf boleto com barras valido.pdf NN 543217.txt fontes.zip 033.bmp boleto com barras invalido.pdf boleto com barras valido.pdf NN 543217.txt fontes.zip 033.bmp