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