Banco Safra Erro no CNAB 400

[Cleomar Pacheco]

a Conta do banco Safra é 9 digitos e sem o ContaDigito,

para corrigir e passar a homologação, fiz conforme abaixo (em azul).

procedure TACBrBancoSafra.GerarRegistroHeader400(NumeroRemessa: integer;
  ARemessa: TStringList);
var wLinha: String;
  aAgencia,
  aConta: String;
begin
  aTotal := 0;
  aCount := 0;
  aAgencia := PadLeft(RightStr( ACBrBanco.ACBrBoleto.Cedente.Agencia, 5), 5, '0');

  //Alterado  banco Safra não tem digito e o tamanho da conta é 9 digitos
  //aConta := PadLeft(ACBrBanco.ACBrBoleto.Cedente.Conta, 8, '0') +
  //            PadLeft(ACBrBanco.ACBrBoleto.Cedente.ContaDigito, 1, '0');
  aConta := PadLeft(ACBrBanco.ACBrBoleto.Cedente.Conta, 9, '0');
 

 

[Cleomar Pacheco]

esqueci que tem o erro no monta código de barras,

se deixar assim vai dar problema na geração do código de barras para o cnab 240 que usa digito

[Juliana Tamizou]

Bom dia.

Temos muitas empresas utilizando a implementação atual sem problemas, porém algumas agências recusam, de qq forma temos tópicos no fórum sobre este assunto..recomendo pesquisar..

Att.

[Cleomar Pacheco]

Já pesquisei e baixei a ultima versão,

Cnab 400 é 9 digitos a conta e sem digito da conta

  Se mandar da maneira que esta vai dar problema na conta colocando sempre um zero no final o que não pode.

e Cnab 240 esta certo , pois ai tem digito da conta.

vou pra ajustar no sistema antes de mandar para o ACBR, vou colocar o último digito da conta para o digito, para ver se da certo.

 

 

[José M. S. Junior]

Bom dia

Já tivemos diversas divergências com esse Banco devido a falta de padrão... A questão de Tamanho de agencia e conta varia de agência para agência. Então seguimos exatamente a documentação...

Note que na documentação diz conta 9 posições com dígito, ou seja existe o dígito, nesse caso basta passar a ultima posição da conta no campo ContaDigito.

 

[Cleomar Pacheco]

José foi exatamente isso que fiz, pois é complicado esse banco, CNAB 400 difere do CNAB 240.

Ai funcionou, vou usar assim para não mexer no ACBr

Grato pela resposta!