Versao LCDPR

[darlananogueira]

Prezados,

Gostaria de confirmar com mais alguém a respeito da versão do layout para o campo COD_VER do bloco0000.

Observado a função de conversão em LCDPRBlocos.pas  (function CodVerToStr(CodVer : TCodVer) : String;) hoje o ACBr trata apenas as versões 0001 e 0011.

Mas não estaríamos na versão 0013?

 

[Leandro Araújo]

Boa tarde.

Verifiquei também, realmente está faltando uma opção no enumerado TCodVer.
Deveria haver um "Versao013" para tratar a nova versão do layout na função CodVerToStr.

Até percebi que na versão 1.2 do layout eles mantiveram o código como 0011 e não 0012...

Mas enfim, é isso mesmo, caso queira eu posso modificar e anexar a unit "LCDPRBlocos.pas" alterada, ou você já fez alguma correção?

[Leandro Araújo]

21 minutos atrás, Leandro Araújo disse:

...

Até percebi que na versão 1.2 do layout eles mantiveram o código como 0011 e não 0012...

...

O "eles" a quem me refiro é a Receita Federal..

[darlananogueira]

1 hora atrás, Leandro Araújo disse:

Boa tarde.

Verifiquei também, realmente está faltando uma opção no enumerado TCodVer.
Deveria haver um "Versao013" para tratar a nova versão do layout na função CodVerToStr.

Até percebi que na versão 1.2 do layout eles mantiveram o código como 0011 e não 0012...

Mas enfim, é isso mesmo, caso queira eu posso modificar e anexar a unit "LCDPRBlocos.pas" alterada, ou você já fez alguma correção?

Tranquilo Leandro, pode realizar a correção ai pra gente, vou acompanhando as atualizações.

[Leandro Araújo]

Certo, tudo bem...

Segue em anexo a unit "LCDPRBlocos.pas" com a alteração na função CodVerToStr para gerar o campo "3 - Código da versão do leiaute " do bloco 0000 com o valor 0013.

Peço aos administradores quando possível validarem e adicionar ao svn.

Obrigado.

LCDPRBlocos.pas

Editado 6 Março, 2020 por Leandro Araújo
Alteração descrição

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

[Lazaro Pavao]

Segue em anexo a unit "LCDPRBlocos.pas" com a alteração na função CodVerToStr para gerar o campo "3 - Código da versão do leiaute " do bloco 0000 com o valor 0013

E alguns facilitadores.

LCDPRBlocos.pas

[EMBarbosa]

Em 26/03/2020 at 09:33, Lazaro Pavao disse:

Segue em anexo a unit "LCDPRBlocos.pas" com a alteração na função CodVerToStr para gerar o campo "3 - Código da versão do leiaute " do bloco 0000 com o valor 0013

E alguns facilitadores.

LCDPRBlocos.pas 7 kB · 0 downloads

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

Mais uma vez obrigado.