Erro ao importar XML mal gerado

[Sady Martins]

Encontrei um XML mal gerado que contém a seguinte tag:

                <ISSQNtot>
                    <dCompet>2025-05-20</dCompet>
                </ISSQNtot>

E no arquivo ACBrNFe.XmlReader tem o seguinte trecho: 

  AuxNode := ANode.Childrens.Find('ISSQNtot');
  if (AuxNode <> nil) then
  begin
    NFe.Total.ISSQNtot.vServ   := ObterConteudo(AuxNode.Childrens.Find('vServ'), tcDe2);
    NFe.Total.ISSQNtot.vBC     := ObterConteudo(AuxNode.Childrens.Find('vBC'), tcDe2);
    NFe.Total.ISSQNtot.vISS    := ObterConteudo(AuxNode.Childrens.Find('vISS'), tcDe2);
    NFe.Total.ISSQNtot.vPIS    := ObterConteudo(AuxNode.Childrens.Find('vPIS'), tcDe2);
    NFe.Total.ISSQNtot.vCOFINS := ObterConteudo(AuxNode.Childrens.Find('vCOFINS'), tcDe2);

    if NFe.infNFe.Versao >= 3 then
    begin
      NFe.Total.ISSQNtot.dCompet     := ObterConteudo(AuxNode.Childrens.Find('dCompet'), tcDat);
      NFe.Total.ISSQNtot.vDeducao    := ObterConteudo(AuxNode.Childrens.Find('vDeducao'), tcDe2);
      NFe.Total.ISSQNtot.vOutro      := ObterConteudo(AuxNode.Childrens.Find('vOutro'), tcDe2);
      NFe.Total.ISSQNtot.vDescIncond := ObterConteudo(AuxNode.Childrens.Find('vDescIncond'), tcDe2);
      NFe.Total.ISSQNtot.vDescCond   := ObterConteudo(AuxNode.Childrens.Find('vDescCond'), tcDe2);
      NFe.Total.ISSQNtot.vISSRet     := ObterConteudo(AuxNode.Childrens.Find('vISSRet'), tcDe2);
      NFe.Total.ISSQNtot.cRegTrib    := StrToRegTribISSQN(Ok, ObterConteudo(AuxNode.Childrens.Find('cRegTrib'), tcStr));
    end;
  end;

Quando chega na leitura da tag cRegTrib dá erro ao tentar converter com StrToRegTribISSQN(), já que a tag cRegTrib não existe.
Fiz a seguinte alteração:
 

      cRegTrib := ObterConteudo(AuxNode.Childrens.Find('cRegTrib'), tcStr);
      if (cRegTrib <> EmptyStr) then
      begin
        NFe.Total.ISSQNtot.cRegTrib    := StrToRegTribISSQN(Ok, cRegTrib);
      end;

Não quis atribuir RTISSNenhum porque não se trata de serviço e, no meu entendimento, seria gerar uma informação que não existe.
Tanto que as outras tags não recebem valor algum.

Valeu!

[Juliomar Marchetti]

anexe sua unit modificada com a sugestão

[Sady Martins]

Bom dia @Juliomar Marchetti

Baixei um arquivo ACBrNFe.XmlReader.pas atualizado e notei que já implementaram a alteração:

 

      aValor := ObterConteudo(AuxNode.Childrens.Find('cRegTrib'), tcStr);
      if aValor = '' then
        aValor := '0';
      NFe.Total.ISSQNtot.cRegTrib := StrToRegTribISSQN(Ok, aValor);

Só não concordei com terem atribuído como nenhum, já que quando acontece esse problema não é nota de serviço.
Mas de qualquer forma vou deixar o código assim mesmo.

Obrigado meu caro!