Erro em ACBrNFe1.NotasFiscais.LoadFromFile

[luciano_f]

Estou usando a "Function ACBrNFe1.NotasFiscais.LoadFromFile"  porém me retorna vazio o numero do protocolo

procNFe.nProt  = ''

O extranho é que esse XML tem numero de protocolo

O XML foi baixado direto do Site da Sefaz.

o XML está em anexo

 

41160501090123000123550010001950901009612076.xml

[Juliomar Marchetti]

O que notei é que a tag que no ACBr é feito a leitura não tem o trecho:

<protNFe versao="3.10">

e no ACBr somente procura por :

<protNFe>

 

 

[luciano_f]

o que eu percebi está no cabeçario do XML que nesse XML muda para

<?xml version="1.0"?>

<NFeLog versao="1.00"> <procNFe> <NFe xmlns="http://www.portalfiscal.inf.br/nfe">

 

como resolver isso ?

[luciano_f]

Encontrei onde está o problema e a solução foi adicionar 3 linhas de codigos

Gostaria que o administradores dessem uma analisada para colocar no Repositório.

function TNotasFiscais.LoadFromString(AXMLString: String;  AGerarNFe: Boolean = True): Boolean;
var
  AXML: AnsiString;
  P, N: integer;

  function PosNFe: integer;
  begin
    Result := pos('</NFe>', AXMLString);
  end;

begin
  N := PosNFe;
  while N > 0 do begin
    P := pos('</nfeProc>', AXMLString);




    if P <= 0 Then  // 3 Linhas adicionadas para correção
     if pos('</procNFe>', AXMLString) > 0 Then
      P := pos('</procNFe>', AXMLString);



    if P > 0 then begin
      AXML := copy(AXMLString, 1, P + 10);
      AXMLString := Trim(copy(AXMLString, P + 10, length(AXMLString)));
    end else begin
      AXML := copy(AXMLString, 1, N + 6);
      AXMLString := Trim(copy(AXMLString, N + 6, length(AXMLString)));
    end;

    with Self.Add do begin
      LerXML(AXML);

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

    N := PosNFe;
  end;

  Result := Self.Count > 0;

end;

 

sem a correção que fiz o Retorno da variável  "AXML"  não tem a tag  "protNFe"

Esse XML é baixado do portal da receita do Estado do Paraná.

 

 

Editado 10 Junho, 2016 por luciano_f

[Daniel Simoes]

Favor anexar as Units modificadas...

De ondem vem esse XML ? Ele não parece estar nas espcificações do NFe..

[Daniel Simoes]

Compreendi o problema e já implementei a modificação semelhante a proposta...

Estou fazendo algumas modificações nas Units do ACBrNFe e ACBrDFe, para tentar resolver em definitivo o conflito de UTF8 e acentos...

Assim que terminar os testes, eu envio...

[luciano_f]

Compreendi o problema e já implementei a modificação semelhante a proposta...

Estou fazendo algumas modificações nas Units do ACBrNFe e ACBrDFe, para tentar resolver em definitivo o conflito de UTF8 e acentos...

Assim que terminar os testes, eu envio...

Ok Grato