Acbrnfse - Loadfromfile Não Carrega Tags Da Nfse Provedor Goiânia.

[Anizair Lopes]

Olá bom dia,

Gostaria de informar que ao carregar uma arquivo de xml para o provedor de goiânia o mesmo não está preenchendo o componente da NFs-e, com isso não consigo enviar notas para a prefeitura.

 Executei um passo a passo no codigo e identifiquei a possível falha, gostaria que pudessem analisar se estou correto.

 if pos('</Rps>', ArquivoXML.Text) > 0
         then begin
          while pos('</Rps>', ArquivoXML.Text) > 0 do
           begin
            XML             := copy(ArquivoXML.Text, 1, pos('</Rps>', ArquivoXML.Text) + 5);
            //aqui o arquivo está sendo separado e como tem duas tags rps está passando para o 
            //leitor somente um pedaço do arquivo.
            ArquivoXML.Text := Trim(copy(ArquivoXML.Text, pos('</Rps>',ArquivoXML.Text) + 6, length(ArquivoXML.Text)));
  
            LocNFSeR        := TNFSeR.Create(Self.Add.NFSe);
            try
             LocNFSeR.Leitor.Arquivo := XML; --> aqui é passado somente um pedaço do arquivo.
             LocNFSeR.VersaoXML      := NotaUtil.VersaoXML(XML);
//             LocNFSeR.Provedor       := FConfiguracoes.WebServices.Provedor;
             LocNFSeR.LerXml;
             Items[Self.Count-1].XML_Rps := LocNFSeR.Leitor.Arquivo;
             Items[Self.Count-1].NomeArq := CaminhoArquivo;
            finally
             LocNFSeR.Free;
            end;
           end;
         end;
       end;

  estou anexando o xml que estou utilizando para ver se é problema no arquivo ou se é a codificação acima que encontra-se errada.

NovoTeste.xml

[Leandro Araújo]

Também estou com o mesmo problema, aqui estou utilizando o Coplan.

[Italo Giurizzato Junior]

Bom dia a todos,

 

Acredito ter encontrado uma solução para o problema.

 

Não só para os dois provedores mencionados, como para todos os que no XML do RPS aparece o grupo <Rps> duas vezes.

 

Ainda hoje estarei disponibilizando as alterações.