(0-0002) Contribuinte Industrial ou equiparado a industrial deve ser informada a classificação do estabelecimento conforme tabela 4.5.5!

[Halisson.kosvoski]

Boa tarde,
Verificando a validação para mensagem de Log de erros, verifiquei que a disposição dos "()" parenteses estava errada, assim mesmo com todas as informações corretas era retornado o Log informando que:
"(0-0002) Contribuinte Industrial ou equiparado a industrial deve ser informada a classificação do estabelecimento conforme tabela 4.5.5!"

Estava assim:

         Check((not((FRegistro0000.IND_ATIV = atIndustrial) and (DT_INI >= EncodeDate(2020,01,01))) and (FRegistro0002.CLAS_ESTAB_IND = EmptyStr)),
          '(0-0002) Contribuinte Industrial ou equiparado a industrial deve ser informada a classificação do estabelecimento conforme tabela 4.5.5!');

Alterei para:

        Check(not((FRegistro0000.IND_ATIV = atIndustrial) and (DT_INI >= EncodeDate(2020,01,01)) and (FRegistro0002.CLAS_ESTAB_IND = EmptyStr)),
          '(0-0002) Contribuinte Industrial ou equiparado a industrial deve ser informada a classificação do estabelecimento conforme tabela 4.5.5!');

Peço que seja analisado, para que, se possível arrumar na próxima versão.

ACBrEFDBloco_0_Class.pas

[Juliana Tamizou]

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

[Halisson.kosvoski]

Boa tarde.

Ok, obrigado.

[EMBarbosa]

Em 13/03/2020 at 15:14, Halisson.kosvoski disse:

Boa tarde,
Verificando a validação para mensagem de Log de erros, verifiquei que a disposição dos "()" parenteses estava errada, assim mesmo com todas as informações corretas era retornado o Log informando que:
"(0-0002) Contribuinte Industrial ou equiparado a industrial deve ser informada a classificação do estabelecimento conforme tabela 4.5.5!"

Estava assim:

         Check((not((FRegistro0000.IND_ATIV = atIndustrial) and (DT_INI >= EncodeDate(2020,01,01))) and (FRegistro0002.CLAS_ESTAB_IND = EmptyStr)),
          '(0-0002) Contribuinte Industrial ou equiparado a industrial deve ser informada a classificação do estabelecimento conforme tabela 4.5.5!');

Alterei para:

        Check(not((FRegistro0000.IND_ATIV = atIndustrial) and (DT_INI >= EncodeDate(2020,01,01)) and (FRegistro0002.CLAS_ESTAB_IND = EmptyStr)),
          '(0-0002) Contribuinte Industrial ou equiparado a industrial deve ser informada a classificação do estabelecimento conforme tabela 4.5.5!');

Peço que seja analisado, para que, se possível arrumar na próxima versão.

ACBrEFDBloco_0_Class.pas 41 kB · 1 download

Olá Halisson,

Muito obrigado pela contribuição. Sua modificação me fez perceber que essa parte do código poderia ser simplificada.

Então fiz ajustes que devem corrigir o problema que você relatou. Além disso, o código agora deve estar um pouco mais claro.

Subi as alterações para o SVN na Revisão  19697.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

[Halisson.kosvoski]

Bom dia. 

EmBarbosa, muito obrigado.

Irei providenciar os testes e darei o feedback.

[Halisson.kosvoski]

Boa tarde, os testes foram realizados e atenderam o solicitado.

O código ficou bem melhor assim. 

Obrigado novamente.

[Juliana Tamizou]

Obrigado por reportar.

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