Leitura do XML NFSe do Sevidor Betha da Cidade de Mandaguaçu-PR esta pulando o segundo registro

[vandermga]

Boa tarde estou importando um XML de NFSe com várias Notas, gerado pelo Servidor da Empresa Betha da cidade de Mandaguaçu-PR e está pulando a segunda nota.

Na unit ACBrNFSeNotasFiscais.pas, contém a seguinte validação abaixo, rotina esta que a primeira vez que passa pelo laço de repetição superior, ela concatena o bloco inteiro da primeira Nota + o Bloco inteiro da segunda nota, sendo assim a segunda vez que entra nesse laço o ACBr já está com a terceira Nota carregada.

--------

// Ler os XMLs das NFS-e
    while N > 0 do
    begin
      AXML := copy(AXMLString, 1, N + TamTAG);
      AXMLString := Trim(copy(AXMLString, N + TamTAG + 1, length(AXMLString)));

 

     # CÓDIGO EM QUE ESTÁ OCASIONANDO O ERRO - Linha 953

      // No caso dos provedores [SimplISS, Betha e Tecnos] o grupo NfseCancelamento fica fora do
      // grupo CompNfse
      if TACBrNFSe(FACBrNFSe).Configuracoes.Geral.Provedor in [proSimplISS, proBetha, proTecnos, proFISSLEX] then
      begin
        N:= PosNFSeCancelamento;
        if N > 0 then
        begin
          // concatena o grupo NfseCancelamento ao grupo Nfse
          AXML:= AXML + copy(AXMLString, 1, N + TamTAG);
          AXMLString := Trim(copy(AXMLString, N + TamTAG + 1, length(AXMLString)));
        end;
      end;

      with Self.Add do
      begin
        LerXML(AXML);

//        if AGerarNFSe then // Recalcula o XML
//          GerarXML;
      end;

      N := PosNFSe;
    end;

------

Efetuado testes foi identificado que no copy inicial do método já está carregando as tags de cancelamento não sendo necessário esta validação.

Estou encaminhando em anexo um arquivo com tais informações para teste, altere a extensão para xml, se possível gostaria de um retorno.

Obrigado .

Vanderson Marocchio

LoteNotas.txt

[Italo Giurizzato Junior]

Bom dia Vanderson,

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

[vandermga]

Bom dia Italo, 

atualizei novamente os fontes e com a remoção do provedor Betha da validação, funcionou corretamente.

Muito obrigado

att

Vanderson