Boa noite,
TEvtInfoComplPer = class(TESocialEvento)
private
FClassTrib: TpClassTrib;
.
.
.
public
.
.
.
property ClassTrib: TpClassTrib read FClassTrib write FClassTrib;
.
.
.
end;
Item 1
O grupo infoAtivConcom não é obrigatório, com isso precisamos ter uma condição para o preenchimento, para evitar o problema do outro tópico citado.
O evento S1280 não possuia nenhuma informação que possamos identificar a classificação, a solução foi adicionar essa propriedade apenas em carater informativo neste evento, para quando for ClassTrib = ct03, o grupo infoAtivConcom será gerado mesmo com valores zerados.
Foram enviadas correções ao SVN que devem resolver o problema relatado, Rev-32850
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.
Item 2
Essa alteração do refactory, não alterou nada a geração da chave.
Note que foi removida a unit pcnAuxiliar, mas a função IntToStrZero foi mantida, pois está sendo utilizada pela unit ACBrUtil.Base.