Problemas Com Nfe Do Pr

maicodalri · 9 Janeiro, 2014

Boa tarde a todos...

Estou a um tempo com um problema quando vou consultar a NFe pelo chnfe..

Da um acess violation....cfe a imagem em anexo

Esse erro só acontece em um windows 2008 x64, e no estado do Paraná ( 41 )

Abaixo segue uma imagem uma CHNFe pra consulta...isso a acontece no ambiente de produção, em vermelho está o trecho do código que acontece o problema...

41131233530486000714550010000067801351305475

(ACBrNFe1.WebServices.Consulta.Executar;)

{$IFDEF ACBrNFeOpenSSL}

HTTP.Document.LoadFromStream(Stream);

ConfiguraHTTP(HTTP,'SOAPAction: "http://www.portalfiscal.inf.br/nfe/wsdl/NfeConsulta2"');

HTTP.HTTPMethod('POST', FURL);

StrStream := TStringStream.Create('');

StrStream.CopyFrom(HTTP.Document, 0);

FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));

FRetWS := SeparaDados( FRetornoWS,'nfeConsultaNF2Result');

StrStream.Free;

{$ELSE}

ReqResp.Execute(Acao.Text, Stream);

StrStream := TStringStream.Create('');

StrStream.CopyFrom(Stream, 0);

FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));

FRetWS := SeparaDados( FRetornoWS,'nfeConsultaNF2Result');

StrStream.Free;

{$ENDIF}

maicodalri · 9 Janeiro, 2014

Até onde pesquisei o problema é que StrStream.DataString esta vindo vazia.

matheushcleite · 17 Janeiro, 2014

Olá Maico,

Você conseguiu resolver este problema?

Obrigado

Até mais.

Leonardo Gregianin · 17 Janeiro, 2014

Boa tarde,

Quando os WebServices retornavam o resultado em branco, como mostra sua imagem, ocorria violação de acesso que foi corrigida no SVN na revisão 6273 de 08/01/2014.

Atualizem os fontes e testem novamente.

Alan Vieceli · 17 Janeiro, 2014

Sim, mas agora está vindo em branco, somente no windows 2008 server, nos outros funcionar normalmente

hebertonlp · 20 Janeiro, 2014

Estou com o mesmo problema, roda normal em Windows 8, 8.1, 7, XP, Server 2003 32 e 64 mas no Win 2008 Server x64 CRASH, estava rodando normalmente e parou de funcionar sozinho, sei que não foi depois de um update pq no dia que parou de funcionar não foi aplicado nenhuma instalação nova.

matheushcleite · 20 Janeiro, 2014

Só com a ajuda do Criador mesmo para resolver um bug desses. Consegui achar a solução, graças a D'us. Aqui está:

-Entrar no Internet Explorer;

-Opções da internet;

-Entrar na aba "Avançadas";

-Em configurações na seção "Segurança" desmarcar as opções "Usar TLS 1.0", "Usar TLS 1.1", "Usar TLS 1.2";

Até mais

Samuel Monteiro

BrainSoft

[email protected]

luisclaudio_jr · 21 Janeiro, 2014

Valeu cara, quebrei a cara nisso! valeuu!!!

klaus · 24 Fevereiro, 2014

Muito bom, estava me quebrando por conta deste problema na emissão para o PR.

Valeu

Alan Vieceli · 10 Março, 2014

Ae pessoa...era o que o matheushcleite tinha mencionado.....

Problema resolvido

-Entrar no Internet Explorer;

-Opções da internet;

-Entrar na aba "Avançadas";

-Em configurações na seção "Segurança" desmarcar as opções "Usar TLS 1.0", "Usar TLS 1.1", "Usar TLS 1.2";

Rogério · 19 Maio, 2014

Alan bom dia.

Neste caso estou usando o Win7, porem nas configurações eu não tenho esse TLS 1.2 tem que fazer alguma instalação ou atualização.

Agradeço desde já,

Rogério

Régys Silveira · 19 Maio, 2014

Qual é a versão do seu Internet Explorer?

Alan bom dia.

Neste caso estou usando o Win7, porem nas configurações eu não tenho esse TLS 1.2 tem que fazer alguma instalação ou atualização.

Agradeço desde já,

Rogério

rodrigod6 · 30 Outubro, 2014

Boa Tarde colegas,

Estou fazendo um teste com a versão 3.10 do layout.

Mesmo trocando as opções do IE,

no meu acontece a mesma coisa que o colega, retorna em branco, para PR(41);

ACBrWebServices.pas - TNFeConsulta.Executar

    {$IFDEF ACBrNFeOpenSSL}
       HTTP.Document.LoadFromStream(Stream);
       ConfiguraHTTP(HTTP,'SOAPAction: "http://www.portalfiscal.inf.br/nfe/wsdl/' + Metodo + '"');
       HTTP.HTTPMethod('POST', FURL);

       StrStream := TStringStream.Create('');
       StrStream.CopyFrom(HTTP.Document, 0);
       FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));
       FRetWS := SeparaDados(FRetornoWS, TAGResult);
       StrStream.Free;
    {$ELSE}
       ReqResp.Execute(Acao.Text, Stream);
       StrStream := TStringStream.Create('');
       StrStream.CopyFrom(Stream, 0);
       FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));
       FRetWS := SeparaDados(FRetornoWS, TAGResult);
       StrStream.Free;
    {$ENDIF}

O problema esta aqui:

       FRetWS := SeparaDados(FRetornoWS, TAGResult);

A TAGResult esta indo como NfeConsultaNF2Result, e no arquivo de retorno do WS esta nfeConsultaNFResult

<cUF>41</cUF><versaoDados>3.10</versaoDados></nfeCabecMsg></env:Header><env:Body xmlns:env='http://www.w3.org/2003/05/soap-envelope'><nfeConsultaNFResult

Fiz o seguinte teste :

Mudei de:

 FRetWS := SeparaDados(FRetornoWS, TAGResult);

para:

 FRetWS := SeparaDados(FRetornoWS, 'NfeConsultaNFResult');

Dai retornou certo para a consulta da NFe na versão 3.10 para o PR(41).

Abraços,

rodrigod6 · 12 Novembro, 2014

Olá pessoal,

Tive que alterar no fonte do ACBr para o PR pois o retorno do ws, vem como "NfeConsultaNFResult" e não "NfeConsultaNF2Result".

Foi a forma que achei para resolver a consulta da NFe aqui.

Testei em homologação e produção e deu certo.

Então alterei o fonte ACBrNFeWebServices.pas

Na function TNFeConsulta.Executar: Boolean;

       ReqResp.Execute(Acao.Text, Stream);
       StrStream := TStringStream.Create('');
       StrStream.CopyFrom(Stream, 0);
       FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));
       if (FConfiguracoes.WebServices.UFCodigo = 41) and (FConfiguracoes.Geral.VersaoDF = ve310) then // 41 = PR
         FRetWS := SeparaDados(FRetornoWS, 'NfeConsultaNFResult')
       else
         FRetWS := SeparaDados(FRetornoWS, TAGResult);
       StrStream.Free;

Abraços,

Rodrigo

rodrigod6 · 12 Novembro, 2014

Completando fiz somente para o Capicom, segue código completo:

    {$IFDEF ACBrNFeOpenSSL}
       HTTP.Document.LoadFromStream(Stream);
       ConfiguraHTTP(HTTP,'SOAPAction: "http://www.portalfiscal.inf.br/nfe/wsdl/' + Metodo + '"');
       HTTP.HTTPMethod('POST', FURL);

       StrStream := TStringStream.Create('');
       StrStream.CopyFrom(HTTP.Document, 0);
       FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));
       FRetWS := SeparaDados(FRetornoWS, TAGResult);
       StrStream.Free;
    {$ELSE}
       ReqResp.Execute(Acao.Text, Stream);
       StrStream := TStringStream.Create('');
       StrStream.CopyFrom(Stream, 0);
       FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));
       if (FConfiguracoes.WebServices.UFCodigo = 41) and (FConfiguracoes.Geral.VersaoDF = ve310) then // 41 = PR
         FRetWS := SeparaDados(FRetornoWS, 'NfeConsultaNFResult')
       else
         FRetWS := SeparaDados(FRetornoWS, TAGResult);
       StrStream.Free;
    {$ENDIF}

rodrigod6 · 12 Novembro, 2014

O mesmo aconteceu com a inutilização no ws do PR, vejam o retorno do SEFAZ:

'<env:Envelope xmlns:env='http://www.w3.org/2003/05/soap-envelope'><env:Header xmlns:env='http://www.w3.org/2003/05/soap-envelope'><nfeCabecMsg xmlns='http://www.portalfiscal.inf.br/nfe'><cUF> 41</cUF><versaoDados>3.10</versaoDados></nfeCabecMsg></env:Header><env:Body xmlns:env='http://www.w3.org/2003/05/soap-envelope'><nfeInutilizacaoNFResult xmlns='http://www.portalfiscal.inf.br/nfe/wsdl/NfeInutilizacao3'><retInutNFeversao='3.10' xmlns='http://www.portalfiscal.inf.br/nfe'><infInut><tpAmb>2</tpAmb><verAplic>PR-v3_2_3</verAplic><cStat>563</cStat>.

Retornando nfeInutilizacaoNFResult no XML e não nfeInutilizacaoNF2Result.

Fiz a modificação:

       if (FConfiguracoes.WebServices.UFCodigo = 41) and (FConfiguracoes.Geral.VersaoDF = ve310) then // 41 = PR
         FRetWS := SeparaDados( FRetornoWS,'nfeInutilizacaoNFResult');
       else
         FRetWS := SeparaDados( FRetornoWS,'nfeInutilizacaoNF2Result');

    {$IFDEF ACBrNFeOpenSSL}
       HTTP.Document.LoadFromStream(Stream);
       ConfiguraHTTP(HTTP,'SOAPAction: "http://www.portalfiscal.inf.br/nfe/wsdl/NfeInutilizacao2"');
       HTTP.HTTPMethod('POST', FURL);

       StrStream := TStringStream.Create('');
       StrStream.CopyFrom(HTTP.Document, 0);
       FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));
       FRetWS := SeparaDados( FRetornoWS,'nfeInutilizacaoNF2Result');
       StrStream.Free;
    {$ELSE}
       ReqResp.Execute(Acao.Text, Stream);
       StrStream := TStringStream.Create('');
       StrStream.CopyFrom(Stream, 0);
       FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));
       if (FConfiguracoes.WebServices.UFCodigo = 41) and (FConfiguracoes.Geral.VersaoDF = ve310) then // 41 = PR
         FRetWS := SeparaDados( FRetornoWS,'nfeInutilizacaoNFResult')
       else
         FRetWS := SeparaDados( FRetornoWS,'nfeInutilizacaoNF2Result');
       StrStream.Free;
    {$ENDIF}

Mas atualizei o fonte e vi que já atualizaram isso:

    FRetWS := SeparaDados( FRetornoWS,'nfeInutilizacaoNF2Result');
    if FRetWS = '' then
      FRetWS := SeparaDados( FRetornoWS,'nfeInutilizacaoNFResult');

Boa valeu !!!

Italo Giurizzato Junior · 12 Novembro, 2014

Boa tarde Rodrigo,

Pelo código que você postou, os seus fontes estão desatualizados faz um bom tempo.

rodrigod6 · 12 Novembro, 2014

Boa Noite Italo,

Isso mesmo, tinha atualizado em Agosto.

Resolvido !

Abraços,

Entrar

Sobre nós...

Problemas Com Nfe Do Pr

Recommended Posts

maicodalri

maicodalri

matheushcleite

Leonardo Gregianin

Alan Vieceli

hebertonlp

matheushcleite

luisclaudio_jr

klaus

Alan Vieceli

Rogério

Régys Silveira

rodrigod6

rodrigod6

rodrigod6

rodrigod6

Italo Giurizzato Junior

rodrigod6

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante