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

[Adailson Rocha]

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;

 

 

Editado 9 Setembro, 2024 por Adailson Rocha

[Italo Giurizzato Junior]

Boa tarde @Adailson Rocha,

Muito obrigado pela colaboração, já foi criado a TK-5943 para analise do problema.

[Italo Giurizzato Junior]

Bom dia @Adailson Rocha,

Favor atualizar todos os fontes de todas as pastas, reinstale o ACBr e faça novos testes.

[Adailson Rocha]

Bom dia, Italo,

 

Obrigado.

[Italo Giurizzato Junior]

Obrigado por reportar.

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