Contribuicao: SOFISA: Tamanho de registro de mensagens

[Marcos Lenharo]

Olá,

nas nossas homologacoes detectamos um erro no calculo do tamanho do registro de mensagens caso o mesmo nao tenha exatamente 5 mensagens.

Peço a gentileza de analisar as mudanças e se possível integrar ao repositório do ACBr.

Seguem as modificações e a documentação recebida.

Obrigado

ACBrBancoSofisaSantander.pas ACBrBancoSofisa.pas ACBrBancoSofisaItau.pas

[Alexandre de Paula]

Boa tarde,

Criada a tarefa ACBR-7944 para validação.

Obrigado pela contribuição.

[Renato Rubinho]

Obrigado pela contribuição, mas no fonte atual as mensagens foram geradas corretamente e com a sua contribuição, passaram a gerar de forma errada.

1. Efetuados testes com o fonte atual do componente, gerando de 0 a 5 mensagens e a linha de mensagem foi gerada corretamente, conforme o anexo contendo a linha de mensagem de cada teste:teste_mensagens_fonte_atual.txt

2. Efetuados testes com seu fonte e somente com as 5 mensagens a linha foi gerada corretamente, se forem passadas apenas de 1 a 4 mensagens, a linha fica com o tamanho incorreto (332 posições ao invés de 400), conforme o anexo contendo a linha de mensagem de cada teste:teste_mensagens_fonte_contribuição.txt

3. Caso o problema persista no seu cenário:
* Simule com o programa de exemplo para verificar se ocorre o mesmo ou se precisa de algum ajuste no seu cenário

 

[Marcos Lenharo]

18 minutos atrás, Renato Rubinho disse:

Obrigado pela contribuição, mas no fonte atual as mensagens foram geradas corretamente e com a sua contribuição, passaram a gerar de forma errada.

1. Efetuados testes com o fonte atual do componente, gerando de 0 a 5 mensagens e a linha de mensagem foi gerada corretamente, conforme o anexo contendo a linha de mensagem de cada teste: teste_mensagens_fonte_atual.txt 2.07 kB · 1 download

2. Efetuados testes com seu fonte e somente com as 5 mensagens a linha foi gerada corretamente, se forem passadas apenas de 1 a 4 mensagens, a linha fica com o tamanho incorreto (332 posições ao invés de 400), conforme o anexo contendo a linha de mensagem de cada teste: teste_mensagens_fonte_contribuição.txt 1.8 kB · 1 download

3. Caso o problema persista no seu cenário:
* Simule com o programa de exemplo para verificar se ocorre o mesmo ou se precisa de algum ajuste no seu cenário

 

Olá,
que estranho.
Para qual das 3 classes foi feito o teste?

O que eu percebi é que a mudanca para o ACBrBancoSofisa.pas acabou indo junto com a minha outra contribuicao via ACBr-7943 e Rev-41032.
A principio teria que estar funcionando mesmo para o codigo mais recente do repositorio para a classe da revisao acima.

[Renato Rubinho]

As três tiveram o mesmo comportamento, inclusive a do leiaute próprio precisará de correção no SVN.

Removendo o "-1" que foi adicionado, funcionou corretamente também. 

Por favor, simule o erro com o programa de exemplo para termos o mesmo cenário, caso o problema também ocorra com ele.

[Marcos Lenharo]

2 horas atrás, Renato Rubinho disse:

As três tiveram o mesmo comportamento, inclusive a do leiaute próprio precisará de correção no SVN.

Removendo o "-1" que foi adicionado, funcionou corretamente também. 

Por favor, simule o erro com o programa de exemplo para termos o mesmo cenário, caso o problema também ocorra com ele.

Situacao interessante.

Segui suas instruções e gerei remessas para Sofisa leiaute próprio e leiaute Itau usando revisão 41128 do SVN.
No meu caso o comprimento está em ordem no para Sofisa leiaute próprio e errado para leiaute Itau como nos anexos.

Não sei se é relevante mas no meu caso eu compilo usando o Lazarus no linux e gerei o demo para Linux e também para Windows.

Por favor me indique qualquer outro teste que eu possa fazer do meu lado para ajudar a esclarecer o que pode estar acontecendo.

AcbrBoletoDemo_Sofisa_Itau.ini codigo_atual_Sofisa_Proprio.rem AcbrBoletoDemo_Sofisa_Proprio.ini codigo_atual_Sofisa_Itau.rem

[Marcos Lenharo]

Olá,
encontrei o problema.

De acordo com a documentação do Lazarus (https://wiki.lazarus.freepascal.org/For#Loop_Completion), e do Delphi (https://docwiki.embarcadero.com/RADStudio/Sydney/en/Declarations_and_Statements_(Delphi)#For_Statements) a variável do FOR tem valor indefinido ao final do loop. Ela só tem valor definido caso o FOR tenha sido interrompido com um BREAK.
Neste caso, é prudente usar o WHILE para garantir o valor da variável ao final do loop.

Substituí o FOR por WHILE nos códigos em anexo que devem tornar o comportamento previsível em todos os compiladores/plataformas.

ACBrBancoSofisaSantander.pas ACBrBancoSofisaItau.pas ACBrBancoSofisa.pas

[Renato Rubinho]

Obrigado pela contribuição, era isso mesmo. 
Foram enviadas correções ao SVN que devem resolver o problema relatado, Rev-41144
Por favor atualize os fontes, reinstale os componentes, verifique se o problema foi resolvido e, se possível, nos informe se foi o resultado esperado.

Obs: 
* Seus fontes estão desatualizados. A contribuição da leitura do NossoNumero com DV do leiaute próprio não consta no arquivo que anexou aqui neste tópico.
* Enviado ao SVN as alterações dos demais arquivos e, deste arquivo, somente as alterações referentes à correção das mensagens, as demais alterações já estavam ok.
 

[Marcos Lenharo]

Obrigado pelo retorno.

[Renato Rubinho]

Obrigado por reportar.

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