Pesquisar na Comunidade
Showing results for tags 'agencia'.
Encontrado 7 registros
-
Após um relato de um usuário referente a linha digitável e barras, realizemos uma alteração na função que monta o CampoLivreCodigoBarras; Atenção para o preenchimento, Agencia (4 digitos) Exemplo: Agencia=0001 DV Agencia = 0 Removido o Calculo do DV, deixado igual o Manual: Obrigado ao usuário@waldomiro que nos reportou e executou os testes em produção. Link para o manual: https://svn.code.sf.net/p/acbr/code/tools/Bancos/Recebimento/310-Vortx/Grafeno_Vórtx CNAB 400 - Remessa.docx.pdf Ajustado a impressão do código cedente no boleto.
-
Agencia - Banrisul - CNAB240 leitura de Retorno
um tópico no fórum postou lucas Abreu Santos ACBrBoleto
Bom dia pessoal, estava realizando uns testes com o Banrisul e me deparei com o seguinte situação na leitura do arquivo CNAB 240! A agencia no Header de Lote é lida do caractere 54 até o 58 contabilizando então 5 caracteres como esta no manual, mas o tamanho máximo definido nos fontes é 4, então se por exemplo a agência do cliente seja a "0210" ao ler o arquivo busca a informação "00210"! Então mesmo que eu tente colocar um zero a mais para não dar erro, na leitura do arquivo me retorna que a Agência está incorreta durante o processo de verificação, por causa do tamanho máximo definido! Para resolver provisoriamente eu alterei para buscar do caractere 55 até o 58, que daria 4 caracteres que é o tamanho máximo! Manual do Banco (Obs: nos fontes busca da mesma maneira estaria correto) Alteração provisória! Tamanho da Agência no Fonte! Desde já agradeço a atenção!
-
Bom dia @Juliana Tamizou! Conforme orientação no tópico antigo, sugestão para remover o dígito da agência do banco Santander da montagem do campo "Agência / Código Beneficiário". Sim, o arquivo anexado está atualizado. ACBrBancoSantander.pas
- 1 reply
-
- 1
-
-
- acbrboleto
- agencia
- (e 2 mais)
-
Limite de Dígitos - Caixa Econômica Federal
um tópico no fórum postou Marcos Leonardo Martins ACBrBoleto
Boa tarde, Hoje ao tentar ler um retorno da Caixa Federal, obtive o seguinte erro: Agencia\Conta do arquivo inválido Verifiquei o arquivo ACBrBancoCaixa.pas e pude ver que a variável rAgencia pega o número da agência do arquivo, com 5 dígitos. Porém, no ACBrBoleto.pas, o tamanho máximo de agência está limitado a 4. Isso ocasiona o erro, pois nessa caso, a agência é 04025 e o componente lê 4025. Tem como mudar ou é um bug mesmo ? Abaixo os códigos: constructor TACBrBancoClass.create(AOwner: TACBrBanco); begin inherited create; fpAOwner := AOwner; fpDigito := 0; fpNome := 'Não definido'; fpNumero := 0; fpTamanhoMaximoNossoNum := 10; fpTamanhoAgencia := 4; fpTamanhoConta := 10; fpCodigosMoraAceitos := '12'; fpCodigosGeracaoAceitos := '0123456789'; fpModulo := TACBrCalcDigito.Create; fpOrientacoesBanco := TStringList.Create; end; if (not LeCedenteRetorno) and ((rAgencia <> OnlyNumber(Cedente.Agencia)) or (rConta+rDigitoConta <> OnlyNumber(Cedente.CodigoCedente))) then raise Exception.Create(ACBrStr('Agencia\Conta do arquivo inválido')); -
Boa tarde. Ao fazer a impressão do boleto do Banrisul, notei um problema de duplicidade na Agência no campo Agência/Beneficiário. Analisando os códigos fontes percebi na função: function TACBrBanrisul.MontarCampoCodigoCedente(const ACBrTitulo: TACBrTitulo): string; begin Result := copy(ACBrTitulo.ACBrBoleto.Cedente.Agencia, 1, 4)+'-'+ ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+ copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,1,6) + '.' + copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,7,1) + '.' + copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,8,2); end; me retorna a concatenação da agência e o número da conta, até aqui tudo bem, mas no arquivo BoletoFatura.fr3 na procedure: procedure MDOnBeforePrint(Sender: TfrxComponent); begin if Trim(<Banco."DirLogo">) <> '' then begin Logo_1.Picture.LoadFromFile(<Banco."DirLogo"> + '\' + <Banco."Numero"> + '.bmp'); Logo_2.Picture.Assign(Logo_1.Picture); end; if <Banco."Numero"> = '104' then begin CedenteAgencia.Text := <Titulo."CodCedente">; CedenteAgencia2.Text := <Titulo."CodCedente">; end else begin CedenteAgencia.Text := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">; CedenteAgencia2.Text := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">; end; end; Temos a concatenação da agência e do cedente novamente, assim duplicando na hora da impressão.
-
Estou com problemas ao gerar arquivo de remessa para boleto do banco Itaú , verifiquei que as informações sobre a agencia estão sendo enviadas faltando 01 digito e que a informação sobre conta esta sendo enviado zerado. Aparentemente o PDF está sendo gerado corretamente. Os dados são: Agencia = 3068 DV=3 Conta = 12040 DV 5 Cód Cedente = 341 Alguém poderia me auxiliar o que pode estar ocorrendo o erro? Em anexo, o arquivo PDF e a remessa gerada. 001.rar
-
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.
