Unicred - Retorno 400 - sem leitura do digito da agência

[chico_lopes]

Bom dia 

     na leitura do arquivo de retorno 400 a unit não está buscando o digito da agência, fiz a leitura pela linha do titulo, mantendo a linha de raciocínio do leitura da agencia e conta. 

    Segue em anexo o PAS para validação e abaixo o os trechos alterados.

 

procedure TACBrBancoUnicredES.LerRetorno400(ARetorno: TStringList);
var
  ...
  rAgencia, rDigitoAgencia  :String;  //>>>alterado
  ...
begin
....
  rAgencia := trim(Copy(ARetorno[1], 18, ACBrBanco.TamanhoAgencia));
  rDigitoAgencia := Copy(ARetorno[1], 22 ,1);  //>>>alterado
  rConta   := trim(Copy(ARetorno[1], 23, 8));
  rDigitoConta := Copy(ARetorno[1], 31 ,1);
....

       Cedente.CodigoCedente:= rCodEmpresa;
       Cedente.Nome         := rCedente;
       Cedente.Agencia      := rAgencia;
       Cedente.AgenciaDigito:= rDigitoAgencia;  //'0';   //>>>alterado
       Cedente.Conta        := rConta;
       Cedente.ContaDigito  := rDigitoConta;
...

ACBrBancoUnicredES.pas

[Alexandre de Paula]

Boa tarde,

Criada a TK-7371 para avaliação.

Obrigado pela contribuição.

[chico_lopes]

Boa noite 

 

   algum retorno do TK-7371 ?

[Juliomar Marchetti]

Em 06/10/2025 at 23:12, chico_lopes disse:

Boa noite 

 

   algum retorno do TK-7371 ?

comparei seu arquivo com o svn mas está diferente

tem umas mudanças no 240 na leitura, comentando o tamanho nosso numero , mudançação ler nosso numero completo com uma variavel temporaria, alteração no definiposicaonossonumeroretorno

[chico_lopes]

7 horas atrás, Juliomar Marchetti disse:

comparei seu arquivo com o svn mas está diferente

tem umas mudanças no 240 na leitura, comentando o tamanho nosso numero , mudançação ler nosso numero completo com uma variavel temporaria, alteração no definiposicaonossonumeroretorno

Bom dia @Juliomar Marchetti

 

      nessa época, eu tinha colocado esse padrão de leitura do nosso numero com o padrão do manual para arquivo de remessa, que a logica é que se vc envia com 10 vc recebe 10 e não 19, mas em outro tópico que eu tinha aberto para comentar sobre o assunto, disseram q não era o correto, então sobre nosso numero pode manter o padrão de leitura atual. 

 

    Somente esse da Cedente.AgenciaDigito que vejo como crucial pois ele vem no retorno, e estava fixo "0";

Editado 11 Outubro, 2025 por chico_lopes

[Victor H. Gonzales - Panda]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo