Componente XMLDOCUMENT gerando tag </valePed> mesmo quando não tem valor

Adailson Rocha · 9 Setembro

Boa tarde,

O XML gerado utilizando o novo componente XMLDOCUMENT esta gerando a tag </valePed> mesmo quando não existe informação.

Verifiquei os fontes e cheguei na function abaixo na unit ACBrMDFe.XmlWriter, na linha "Result.AppendChild(Gerar_ValePedagio);", não esta validando se a classe tem informação.

Não verifiquei outras units e também não sei se é esse o problema.

function TMDFeXmlWriter.Gerar_infANTT: TACBrXmlNode;
var
nodeArray: TACBrXmlNodeArray;
i: integer;
begin
Result := FDocument.CreateElement('infANTT');

Result.AppendChild(AddNode(tcStr, '#02', 'RNTRC', 8, 8, 0,
OnlyNumber(MDFe.Rodo.infANTT.RNTRC), DSC_RNTRC));

nodeArray := Gerar_InfCIOT;
for i := 0 to MDFe.rodo.infANTT.infCIOT.Count - 1 do
begin
Result.AppendChild(nodeArray[i]);
end;

Result.AppendChild(Gerar_ValePedagio);

nodeArray := Gerar_InfContratante;
for i := 0 to MDFe.rodo.infANTT.infContratante.Count - 1 do
begin
Result.AppendChild(nodeArray[i]);
end;

nodeArray := Gerar_InfPag;
for i := 0 to MDFe.rodo.infANTT.infPag.Count - 1 do
begin
Result.AppendChild(nodeArray[i]);
end;
end;