Nosso Numero Sicoob

[cefantacini]

Depois das mudanças no campo Nosso Numero no sicoob no inicio do ano eu fiz os ajustes no programa para se adaptar as modificações do componente.

Na ocasião fui orientado aqui no fórum a preencher o LayoutVersaoArquivo com 810 se fosse boleto do sicoob.

 

 

Porém atualizei o ACBr semana passada e agora ao gerar uma remessa do Sicoob recebo a seguinte mensagem de erro:

 

Teria alguma configuração adicional a fazer depois da atualização?

 

[Juliomar Marchetti]

Lembre-se que as contas antigas ainda continua com 7 digitos

somente as novas que é 8

então para com 8 usa 810 e para 7 deixa zerado

[cefantacini]

Conta bancária vc diz?

Até antes da atualização dos ACBr estava funcionando normal com o leiaute 810 e 8 dígitos nessa conta....

Está mensagem aparece quando eu peço para gerar a remessa....

[cefantacini]

Eu fiz um teste de atualizar o ACBr novamente hoje e a mensagem de erro permaneceu.

Dai voltei a versão anterior que eu tinha (backup) de antes da atualização de sábado passado e o problema foi resolvido.

Pelo que percebi foi alguma alteração recente no ACBr que está gerando o problema ....

[Juliomar Marchetti]

2 horas atrás, cefantacini disse:

Eu fiz um teste de atualizar o ACBr novamente hoje e a mensagem de erro permaneceu.

Dai voltei a versão anterior que eu tinha (backup) de antes da atualização de sábado passado e o problema foi resolvido.

Pelo que percebi foi alguma alteração recente no ACBr que está gerando o problema ....

olha então o que foi feito de mudanças no change log e no winmerge ou diff do svn

[cefantacini]

 

 

Provavelmente o problema é nessa procedure CalcularTamMaximoNossoNumero, mais eu não consegui entender como ela é codificada

 

 

 

 

[Juliomar Marchetti]

Atualiza o svn pois houve mudanças hoje a tarde

[cefantacini]

Atualizei e fiz o teste, porém na nova atualização o problema permanece...

[Juliomar Marchetti]

13 horas atrás, cefantacini disse:

Atualizei e fiz o teste, porém na nova atualização o problema permanece...

Então é outra coisa que está faltando do seu lado
se ainda assim achar que é algo no componente e quiser modificar testar e anexar aqui para validarmos

[cefantacini]

Eu depurei e acredito que encontrei onde está o problema, mais não tenho certeza se a solução que encontrei pode dar algum "efeito colateral"

No ACBr novo, dentro do arquivo:

....\Fontes\ACBrBoleto\ACBrBancoSicoob.pas

tem uma procedure que não tem no mesmo arquivo do ACBr antigo:

.

.

function TACBrBancoSicoob.CalcularTamMaximoNossoNumero(const Carteira: String; const NossoNumero : String = ''; const Convenio: String = ''): Integer;
begin
  case StrToIntDef(Carteira,0) of
    1 : begin
        if fpLayoutVersaoArquivo = 810
        then
          Result := 8
        else
          Result := 7
      end;
    9 : Result := 9;
    else
      Result := 7;
  end;
  fpTamanhoMaximoNossoNum := Result;
end;

 

Esse parametrro carteira vem nulo, dai ele assume o 0 e cai no else e assume 7;

Se eu simplesmente tratar o else da mesma forma que o 1 o problema fica resolvido

 

 

 

function TACBrBancoSicoob.CalcularTamMaximoNossoNumero(const Carteira: String; const NossoNumero : String = ''; const Convenio: String = ''): Integer;
begin
  case StrToIntDef(Carteira,0) of
    1 : begin
        if fpLayoutVersaoArquivo = 810
        then
          Result := 8
        else
          Result := 7
      end;
    9 : Result := 9;
    else
        begin
          if fpLayoutVersaoArquivo = 810
          then
            Result := 8
          else
            Result := 7
       end;
  end;
  fpTamanhoMaximoNossoNum := Result;
end;

 

 

 

 

 

 

 

 

 

 

[BigWings]

38 minutos atrás, cefantacini disse:

Esse parametrro carteira vem nulo, dai ele assume o 0 e cai no else e assume 7;

Você está informando a carteira ao adicionar os títulos para gerar a remessa?

[cefantacini]

Estou sim eu fiz essa verificação....