Ajuste Reinf R5011

[Maxwell Roberto]

bom dia,

ao tentar manipular o XML "Reinf-sit.xml" (consulta R-5011) tive problemas ao utilizar
a unit "pcnReinfR5011".

Vi que o problema estava na linha "RTom.Items.infoCRTom.Add" da função "LerXML".

Comparando a mesma função da unit "pcnReinfRetConsulta" (que funciona corretamente)
identifiquei algumas divergências e fiz os devidos ajustes.

Ao meu ver, a unit pcnReinfR5011 estava desatualizada.

Se puderem conferir.

Obrigado.

 

pcnReinfR5011.pas

[Italo Giurizzato Junior]

Bom dia Maxwell,

Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.