Erro No Retorno Da Pcnretconsstatserv

[rodrigod6]

Olá Pessoal,

 

Fiz algumas pesquisas no fórum e não achei nada a respeito.

Venho utilizando o ACBr algum tempo e nunca tive problema

E na unit pcnRetConsStatServ temos a função:

function TRetConsStatServ.LerXml: boolean;

...

Eu atualizei os fontes esses dias e agora nos testes começou a ocorre o seguinte:

 

Na primeira consulta de status de serviço retorna esse XML:

<ns2:retConsStatServ versao='2.00' xmlns='http://www.w3.org/2000/09/xmldsig#' xmlns:ns2='http://www.portalfiscal.inf.br/nfe'><ns2:tpAmb xmlns:ns2='http://www.portalfiscal.inf.br/nfe'>2</ns2:tpAmb><ns2:verAplic xmlns:ns2='http://www.portalfiscal.inf.br/nfe'>PR-v2_8_0</ns2:verAplic><ns2:cStat xmlns:ns2='http://www.portalfiscal.inf.br/nfe'>107</ns2:cStat><ns2:xMotivo xmlns:ns2='http://www.portalfiscal.inf.br/nfe'>Servico em Operacao</ns2:xMotivo><ns2:cUF xmlns:ns2='http://www.portalfiscal.inf.br/nfe'>41</ns2:cUF><ns2:dhRecbto xmlns:ns2='http://www.portalfiscal.inf.br/nfe'>2013-09-27T09:21:43</ns2:dhRecbto><ns2:tMed xmlns:ns2='http://www.portalfiscal.inf.br/nfe'>1</ns2:tMed></ns2:retConsStatServ>

Na segunda vez que consulto retorna isso:

<retConsStatServ versao='2.00' xmlns='http://www.portalfiscal.inf.br/nfe'><tpAmb>2</tpAmb><verAplic>PR-v2_8_0</verAplic><cStat>107</cStat><xMotivo>Servico em Operacao</xMotivo><cUF>41</cUF><dhRecbto>2013-09-27T09:34:54</dhRecbto><tMed>1</tMed></retConsStatServ>

Logo a função LerXML não consegue retornar certo!

 

Alguém mais utiliza essa unit (pcnRetConsStatServ.pas)  e esta passando por esse problema?

Ou tem alguma ideia do que pode ser?

 

Só ocorre na primeira vez.

 

Na consulta esta ocorre o mesmo problema:

 

Primeira consulta:

<ns2:retConsSitNFe versao='2.01' xmlns='http://www.w3.org/2000/09/xmldsig#' xmlns:ns2='http://www.portalfiscal.inf.br/nfe'><ns2:tpAmb xmlns:ns2='http://www.portalfiscal.inf.br/nfe'>2</ns2:tpAmb><ns2:verAplic xmlns:ns2='http://www.portalfiscal.inf.br/nfe'>PR-v2_8_0</ns2:verAplic><ns2:cStat xmlns:ns2='http://www.portalfiscal.inf.br/nfe'>217</ns2:cStat><ns2:xMotivo xmlns:ns2='http://www.portalfiscal.inf.br/nfe'>NF-e nao consta na base de dados da SEFAZ</ns2:xMotivo><ns2:cUF xmlns:ns2='http://www.portalfiscal.inf.br/nfe'>41</ns2:cUF><ns2:chNFe xmlns:ns2='http://www.portalfiscal.inf.br/nfe'>41130900151232000140550000000485401000000690</ns2:chNFe></ns2:retConsSitNFe>

Na segunda consulta, logo na sequência vem certo:

<retConsSitNFe versao='2.01' xmlns='http://www.portalfiscal.inf.br/nfe'><tpAmb>2</tpAmb><verAplic>PR-v2_8_0</verAplic><cStat>217</cStat><xMotivo>NF-e nao consta na base de dados da SEFAZ</xMotivo><cUF>41</cUF><chNFe>41130900151232000140550000000485401000000690</chNFe></retConsSitNFe>

Mesmo estamos nesta unit (E M   D E S E N V O L V I M E N T O   -   N Ã O   T E S T A D O) vinha usando desde que foi feito.

Detalhe o servidor da SEFAZ-PR foi mudado começo desta semana. Pode ter algo a ver também !!

 

Agradeço a todos pela atenção,

Editado 27 Setembro, 2013 por rodrigod6

[rodrigod6]

Olá Pessoal,

 

Resolvido o meu problema assim:

Alterei a pcnLeitor.pas na rotina TLeitor.rExtrai:

function TLeitor.rExtrai(const nivel: integer; const TagInicio: string; TagFim: string = ''; const item: integer = 1): AnsiString;
var
  Texto: AnsiString;
  i,j: integer;
begin
  // Ajuste
  if (pos(' xmlns:ns2=''http://www.portalfiscal.inf.br/nfe''', FArquivo) > 0) then
  begin
    FArquivo := StringReplace(FArquivo,
      ' xmlns:ns2=''http://www.portalfiscal.inf.br/nfe''', '',
      [rfReplaceAll, rfIgnoreCase]);
    FArquivo := StringReplace(FArquivo,
      'ns2:', '',
      [rfReplaceAll, rfIgnoreCase]);
  end;
  // Ajuste

Foi o único jeito de resolver.

Pois o pedido era igual e sempre retornava na primeira vez com erro.

...

mas acho que foi algum problema na SEFAZ-PR na semana passada, hoje já voltou ao normal.

Mas esta a a solução se alguém tiver este problema.

Vou deixar o código comentado por enquanto qualquer coisa volto ele.

 

Abraços,