ACBrBancoUnicredES sugestão de melhoria

[chico_lopes]

Boa noite

 

    fiz os ajustes abaixo para adaptar ao limite do máximo do nosso numero conforme manual de arquivo de remessa, sendo 10 dígitos e mais o digito verificador. 

 

1º LerRetorno240 - colocado para verificar se LerNossoNumeroCompleto

  if ACBrBanco.ACBrBoleto.LerNossoNumeroCompleto then
    fpTamanhoMaximoNossoNum := 11
  else
    fpTamanhoMaximoNossoNum := 10;

2º DefinePosicaoNossoNumeroRetorno - corrigido o inicio da leitura para retornar os 11 digitos padrão do boleto

  if ACBrBanco.ACBrBoleto.LayoutRemessa = c240 then
    Result := 47   //39
  else
    Result := 71;

3º LerRetorno400 - colocado para nosso numero retornar 11 ou 10 dígitos conforme LerNossoNumeroCompleto

var
  nossonumero_tmp           :string;
begin
  ...
      //fpTamanhoMaximoNossoNum  := 17;
  ....
  
          if ACBrBanco.ACBrBoleto.LerNossoNumeroCompleto then
            nossonumero_tmp          := Copy(Linha,46, 17)
          else
            nossonumero_tmp          := Copy(Linha,46, 16);
          nossonumero         := copy(nossonumero_tmp, 1+length(nossonumero_tmp)-fpTamanhoMaximoNossoNum,fpTamanhoMaximoNossoNum);

   ....
end; 

 

ACBrBancoUnicredES.pas

[Alexandre de Paula]

Bom dia,

Criada a TK-6457 para avaliação.

Obrigado pela contribuição.

[chico_lopes]

por nada, estamos para nos ajudarmos.  Depois haverá um feedback para eu saber se foi aprovado?

[Alexandre de Paula]

43 minutos atrás, chico_lopes disse:

Depois haverá um feedback para eu saber se foi aprovado?

Sim. Sempre que registramos uma TK retornamos no topico sobre o andamento da mesma.

[Victor H. Gonzales - Panda]

Bom dia,

anexe um arquivo de retorno por favor

[Victor H. Gonzales - Panda]

@chico_lopes obrigado pelos arquivos

[Victor H. Gonzales - Panda]

Em 07/01/2025 at 22:09, chico_lopes disse:

Boa noite

 

    fiz os ajustes abaixo para adaptar ao limite do máximo do nosso numero conforme manual de arquivo de remessa, sendo 10 dígitos e mais o digito verificador. 

 

1º LerRetorno240 - colocado para verificar se LerNossoNumeroCompleto

  if ACBrBanco.ACBrBoleto.LerNossoNumeroCompleto then
    fpTamanhoMaximoNossoNum := 11
  else
    fpTamanhoMaximoNossoNum := 10;

2º DefinePosicaoNossoNumeroRetorno - corrigido o inicio da leitura para retornar os 11 digitos padrão do boleto

  if ACBrBanco.ACBrBoleto.LayoutRemessa = c240 then
    Result := 47   //39
  else
    Result := 71;

3º LerRetorno400 - colocado para nosso numero retornar 11 ou 10 dígitos conforme LerNossoNumeroCompleto

var
  nossonumero_tmp           :string;
begin
  ...
      //fpTamanhoMaximoNossoNum  := 17;
  ....
  
          if ACBrBanco.ACBrBoleto.LerNossoNumeroCompleto then
            nossonumero_tmp          := Copy(Linha,46, 17)
          else
            nossonumero_tmp          := Copy(Linha,46, 16);
          nossonumero         := copy(nossonumero_tmp, 1+length(nossonumero_tmp)-fpTamanhoMaximoNossoNum,fpTamanhoMaximoNossoNum);

   ....
end; 

 

ACBrBancoUnicredES.pas 64.21 kB · 0 downloads

Bom dia,

não pude subir esses arquivos pois divergiu com a documentação.

a Documentação do retorno diz ser 17 posições e começar na posição 47.

no print seu diz ser 11 posições e começar na posição 193, não bate com o arquivo de retorno anexado.

[chico_lopes]

Bom dia @Victor H. Gonzales - Panda

 

  eu estou vendo que no else do LerNossoNumeroCompleto coloquei um valor não tamanho do manual do retorno. 

  e se usarmos esse parâmetro LerNossoNumeroCompleto para ter as duas opções o completo que é igual do manual de retorno e não completo ficar igual do manual de remessa?