S1100 e S2200 - Correção LerXML, identificar id como atributo

[MSS]

Boa tarde, Renato.

Eu estava logando no Fórum da ACBr para criar um post a respeito de correções no método LerXML das units pcesS1010 e pcesS2200; mas desisti de abrir o post e vou interagir nesse aqui.

O método LerXML dos eventos S-1010 e S-2200 atribuem valores para a propriedade Id utilizando-se de chamada para Leitor.rCampo e o correto seria Leitor.rAtributo.

Na realidade eu creio que essa atribuição para Id no método LerXML seja desnecessário; porque essa propriedade é alimentada previamente ao passar pelo método TeSocialEvento.SetXML, da unit pcesGerador;

Para solucionar o problema sem analisar maiores impactos eu apenas substitui o código, nas units pcesS1010 e pcesS2200:

Id := Leitor.rCampo(tcStr, 'Id');

por

if Self.Id = '' then
  Self.Id := Leitor.rAtributo('Id=');

[]s,

Mário

[Renato Rubinho]

Boa noite,

Separei seu POST em um novo tópico.

Por favor, anexe as units alteradas para análise.

[MSS]

Bom dia.

Conforme solicitado, estou anexando as units alteradas.

[]s,

Mário

pcesS2200.pas pcesS1010.pas

[Renato Rubinho]

Obrigado pela contribuição.

Criada TK-4748 para análise e possível envio ao SVN.

[Renato Rubinho]

Boa tarde,

Obrigado pela contribuição.
Foram enviadas correções ao SVN que devem resolver o problema relatado, Rev-31287
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.

[Renato Rubinho]

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