Gravação incorreta do campo COD_GRUPO_TENSAO no registro C500

[Clayton Alves]

Ao gravar o registro C500 o campo COD_GRUPO_TENSAO está sendo gravado incorretamente (acrescentando 1).

Ex. correto, grupo de tensão gtA1:

|C500|0|1|F000001|06|00|150||02|000002568|01012017|01012017|55,00|5,00|50,00|0,00|0,00|0,00|12,00|15,00|10,00|10,00||5,00|5,00|1|01|

Ex. incorreto, grupo de tensão gtA1:

|C500|0|1|F000001|06|00|150||02|000002568|01012017|01012017|55,00|5,00|50,00|0,00|0,00|0,00|12,00|15,00|10,00|10,00||5,00|5,00|1|02|

Aparentemente o problema está na unit ACBrEFDBlocos na função GrupoTensaoToStr.

Segue anexo unit corrigida.

ACBrEFDBlocos.pas

Editado 4 Fevereiro, 2020 por Clayton Alves

[Juliana Tamizou]

Bom dia.
Obrigada pela contribuição, adicionada para análise.

Att.

[EMBarbosa]

Em 04/02/2020 at 18:57, Clayton Alves disse:

Ao gravar o registro C500 o campo COD_GRUPO_TENSAO está sendo gravado incorretamente (acrescentando 1).

Ex. correto, grupo de tensão gtA1:

|C500|0|1|F000001|06|00|150||02|000002568|01012017|01012017|55,00|5,00|50,00|0,00|0,00|0,00|12,00|15,00|10,00|10,00||5,00|5,00|1|01|

Ex. incorreto, grupo de tensão gtA1:

|C500|0|1|F000001|06|00|150||02|000002568|01012017|01012017|55,00|5,00|50,00|0,00|0,00|0,00|12,00|15,00|10,00|10,00||5,00|5,00|1|02|

Aparentemente o problema está na unit ACBrEFDBlocos na função GrupoTensaoToStr.

Segue anexo unit corrigida.

ACBrEFDBlocos.pas 91 kB · 1 download

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  19200.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.