Recuperar Dados Do Web Service Não Funciona Mais

[bZottis_IG]

Olá, estou tendo problemas com uma rotina que antes funcionava.

 

a rotina é esta:

 

           EnviarNFe.acbrnf1.WebServices.Consulta.NFeChave := vChave;

           EnviarNFe.acbrnf1.WebServices.Consulta.Executar;

           //EnviarNFe.acbrnf1.Consultar;// tentei assim

           //ShowMessage(EnviarNFe.acbrnf1.WebServices.Consulta.Protocolo);// tentei assim

 

            MemoResp.Lines.Text := UTF8Encode(EnviarNFe.acbrnf1.WebServices.Consulta.RetWS);// Aqui vem Vazio

            memoRespWS.Lines.Text := UTF8Encode(EnviarNFe.acbrnf1.WebServices.Consulta.RetornoWS);

            LoadXML(MemoResp, WBResposta);

            //LoadConsulta201(EnviarNFe.acbrnf1.WebServices.Consulta.RetWS);// Assim da erro por estar vazio

            LoadConsulta201(EnviarNFe.acbrnf1.WebServices.Consulta.RetornoWS);

 

            if not(DadosZCE2.NF_CabecPROTOCOLO.Value <> '') then

              Begin

                 DadosZCE2.NF_Cabec.Edit;

                 DadosZCE2.NF_CabecRECIBO.Value             := '';//EnviarNFe.acbrnf1.WebServices.Consulta.protNFe.nProt;// Aqui vem Vazio

                 DadosZCE2.NF_CabecCHAVE_ACESSO.Value       := EnviarNFe.acbrnf1.WebServices.Consulta.NFeChave;// Aqui vem Vazio

                 DadosZCE2.NF_CabecPROTOCOLO.Value          := EnviarNFe.acbrnf1.WebServices.Consulta.Protocolo;// Aqui vem Vazio

                 DadosZCE2.NF_CabecVERSAO_XML.Value         := SomenteNumerosComPonto(EnviarNFe.acbrnf1.WebServices.Consulta.verAplic);//EnviarNFe.acbrnf1.WebServices.Retorno.NFeRetorn// Aqui vem Vazioo.verAplic;

                 DadosZCE2.NF_CabecMOTIVO.Value             := EnviarNFe.acbrnf1.WebServices.Consulta.XMotivo;// Aqui vem Vazio

                 DadosZCE2.NF_CabecDIGEST_VALUE.Value       := EnviarNFe.acbrnf1.WebServices.Consulta.protNFe.digVal;// Aqui vem Vazio

                 DadosZCE2.NF_CabecDATA_AUTORIZ.Value       := EnviarNFe.acbrnf1.WebServices.Consulta.DhRecbto;//DataServidor;// Aqui vem Vazio

                 DadosZCE2.NF_CabecHORA_AUTORIZ.Value       := EnviarNFe.acbrnf1.WebServices.Consulta.DhRecbto;//DataServidor;// Aqui vem Vazio

                 DadosZCE2.NF_CabecNOME_XML.Value           := EnviarNFe.acbrnf1.NotasFiscais.Items[0].NomeArq;// Aqui vem Vazio

 

tentei de outra forma conforme consulta a mensagens postadas assim:

 

            LerConfiguracao;

            EnviarNFe.acbrnf1.NotasFiscais.Clear;

            EnviarNFe.acbrnf1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

            EnviarNFe.acbrnf1.Consultar;

            ShowMessage(EnviarNFe.acbrnf1.WebServices.Consulta.Protocolo);

            MemoResp.Lines.Text := UTF8Encode(EnviarNFe.acbrnf1.WebServices.Consulta.RetWS);

            memoRespWS.Lines.Text := UTF8Encode(EnviarNFe.acbrnf1.WebServices.Consulta.RetornoWS);

            LoadXML(MemoResp, WBResposta);

            NomeArq := OpenDialog1.FileName;

            if pos(UpperCase('-nfe.xml'),UpperCase(NomeArq)) > 0 then

               NomeArq := StringReplace(NomeArq,'-nfe.xml','-procNfe.xml',[rfIgnoreCase]);

            EnviarNFe.acbrnf1.NotasFiscais.Items[0].SaveToFile(NomeArq);

            ShowMessage('Arquivo gravado em: '+NomeArq);

            memoLog.Lines.Add('Arquivo gravado em: ' + NomeArq);

 

            memoLog.Lines.Add('Chave de Acesso: ' + EnviarNFe.acbrnf1.WebServices.Consulta.NFeChave);

            memoLog.Lines.Add('Protocolo      : ' + EnviarNFe.acbrnf1.WebServices.Consulta.Protocolo);

            memoLog.Lines.Add('Versão         : ' + SomenteNumerosComPonto(EnviarNFe.acbrnf1.WebServices.Consulta.verAplic));//EnviarNFe.acbrnf1.WebServices.Retorno.NFeRetorno.verAplic;

            memoLog.Lines.Add('Motivo         : ' + EnviarNFe.acbrnf1.WebServices.Consulta.XMotivo);

            memoLog.Lines.Add('Digest Value   : ' + EnviarNFe.acbrnf1.WebServices.Consulta.protNFe.digVal);

            memoLog.Lines.Add('Dat Autorização: ' + DateToStr(EnviarNFe.acbrnf1.WebServices.Consulta.DhRecbto));//DataServidor;

            memoLog.Lines.Add('Hor Autorização: ' + TimeToStr(EnviarNFe.acbrnf1.WebServices.Consulta.DhRecbto));//DataServidor;

 

mas também retorna vazio;

 

o XML que retorna no memo "memoRespWS" esta esquisito:

<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'><nfeConsultaNFResult xmlns='http://www.portalfiscal.inf.br/nfe/wsdl/NfeConsulta3'><retConsSitNFe versao='3.10' xmlns='http://www.portalfiscal.inf.br/nfe'><tpAmb>2</tpAmb><verAplic>PR-v3_1_6</verAplic><cStat>100</cStat><xMotivo>Autorizado o uso da NF-e</xMotivo><cUF>41</cUF><dhRecbto>2014-08-21T23:44:27-03:00</dhRecbto><chNFe>41140805681938000138550010000000391000000396</chNFe><protNFe versao='3.10'><infProt Id='ID141140001313232'><tpAmb>2</tpAmb><verAplic>PR-v3_1_5</verAplic><chNFe>41140805681938000138550010000000391000000396</chNFe><dhRecbto>2014-08-20T00:02:43-03:00</dhRecbto><nProt>141140001313232</nProt><digVal>0pWVmnMULLnWKihPqvrVGReU3m8=</digVal><cStat>100</cStat><xMotivo>Autorizado o uso da NF-e</xMotivo></infProt></protNFe></retConsSitNFe></nfeConsultaNFResult></env:Body></env:Envelope>

 

e o que retorna no memo "WBResposta" esta assim

 

A página XML não pode ser exibida

Não é possível exibir a entrada XML usando a folha de estilos . Corrija o erro e clique no botão Atualizar ou tente novamente mais tarde.

O documento XML deve ter um elemento de nível superior. Erro ao processar o recurso 'file:///H:/Projetos/ZottisCE/ZottisCE/...

 

agradeço desde já pela ajuda.

 

 

[Italo Giurizzato Junior]

Boa tarde,

 

Desculpe pela demora, por favor realize o seguinte teste:

 

Abra a unit ACBrNFeWebServices, e faça uma alteração na linha 2809:

 

de:

 

  if (FConfiguracoes.WebServices.UFCodigo = 29) and (FConfiguracoes.Geral.VersaoDF = ve310) then // 29 = BA

 

para

 

  if (FConfiguracoes.WebServices.UFCodigo in [29, 41]) and (FConfiguracoes.Geral.VersaoDF = ve310) then // 29 = BA

 

Depois compile a sua aplicação com a opção Build, vamos ver se isso resolve o problema.

[bZottis_IG]

Oi Italo, obrigado pela ajuda.

Nesta Unit tem mais linhas como esta que você falou para alterar.

Altera Todas ou somente essa?

[Italo Giurizzato Junior]

Boa tarde zottis,

 

A principio somente esta linha uma vez que o seu problema é a consulta.

[bZottis_IG]

Boa Noite Italo deu certo, obrigado.