Pesquisar na Comunidade

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

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.