Alteração no SetConta do Cedente, para Banrisul

[Fernando Massa]

Bom dia pessoal, ontem precisei fazer esta alteração no ACBrBoleto:

procedure TACBrCedente.SetConta(const AValue: String);
var
  aConta: Integer;
begin
   if fConta = AValue then
      exit;
  { fConta:= AValue;
   aConta:= StrToIntDef(trim(AValue),0);
   if aConta = 0 then
      exit;
   fConta:= IntToStrZero(aConta, ACBrBoleto.Banco.TamanhoConta );    }
   fConta := trim(AValue);
end;

Comentei o que está em vermelho pelo seguinte:

qualquer conta que terminava em ZERO, dava problema.

Exemplo: uma conta que fosse: 7588950 ficava 758895 e daí quando gerava o EDI de remessa para Banrisul ficava errado pois lá está assim: PadLeft(OnlyNumber(ACBrBanco.ACBrBoleto.Cedente.Conta), 12, '0')

Posto aqui, porque isso foi uma solução rápida, mas imagino que possa interferir em outros bancos.

Se mais alguém tem esse problema pode resolver assim, mas sei que o pessoal aqui vai achar uma solução melhor e mais elegante do que a minha gambi. 

 

[Antonio Gomes]

o tamanho da conta nao está configurado no seu programa com apenas 6 digitos?

Zero no final essa funcao não remove. é ilógico isso... antes dos numeros sei que é padrao remover.

[BigWings]

2 horas atrás, Fernando Massa disse:

Exemplo: uma conta que fosse: 7588950 ficava 758895 e daí quando gerava o EDI de remessa para Banrisul ficava errado pois lá está assim: PadLeft(OnlyNumber(ACBrBanco.ACBrBoleto.Cedente.Conta), 12, '0')

Verifica se você não está passando o número da conta ANTES de informar de qual banco se trata.

Para o Banrisul o tamanho da conta é 7 então não deveria truncar...

[Fernando Massa]

Em 25/10/2019 at 09:35, Antonio Gomes disse:

o tamanho da conta nao está configurado no seu programa com apenas 6 digitos?

Zero no final essa funcao não remove. é ilógico isso... antes dos numeros sei que é padrao remover.

Tem razão. Era isso mesmo. kkk beleza. Disfarça, faz de conta que não aconteceu. 

Em 25/10/2019 at 10:23, BigWings disse:

Verifica se você não está passando o número da conta ANTES de informar de qual banco se trata.

Para o Banrisul o tamanho da conta é 7 então não deveria truncar...

isso mesmo! valeu, desculpa o incomodo. 

[BigWings]

Sem problema.

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.