ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Não consigo consultar StatusServico em webservice SVAN

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> NFe
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
aislan.torres
Novato
Novato


Registrado: Quinta-Feira, 21 de Junho de 2012
Mensagens: 2

MensagemEnviada: Qui Jun 21, 2012 5:57 pm    Assunto: Não consigo consultar StatusServico em webservice SVAN Responder com Citação

Boa tarde a todos!

Preciso de ajuda, não consigo consultar status do serviço utilizando o ambiente svan (cliente do ES). A rotina funciona normalmente para MG, mas quando vou utilizar os serviços do SVAN, retorna a mensagem:

"Server did not recognize the value of HTTP Header SOAPAction: http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2."

O estranho é que utilizando os webservices de MG funciona normalmente.

Meu código:

Código:

procedure TEsSeFaz2.ExecuteNovo(MostraMsg : Boolean);
var
  Texto, S, Certas, Erradas: string;
  Resposta: TStringStream;
  ReqResp: THTTPReqResp;
begin
  // Cria stream para armazenar o XML de resposta.
   Resposta := TStringStream.Create('');

   // Define texto XML para status de serviço.
   Texto := '<xml>'
     + '   <soap12> '
     +   '<soap12>'
     +   '   <nfeCabecMsg> '
     +   '      <cUF>32</cUF> '
     +     '      <versaoDados>2.00</versaoDados> '
     +   '   </nfeCabecMsg>'
          +     '</soap12>'
          +     '<soap12>'
     +     '   <nfeDadosMsg>'
     +   '      <consStatServ>'
        +     '     <tpAmb>2</tpAmb>'
     +     '         <cUF>32</cUF>'
     +     '         <xServ>STATUS</xServ>'
     +     '      </consStatServ>'
          +     '   </nfeDadosMsg>'
     +     '</soap12>'
          +     '</soap12>';

   // Cria e configura objeto para comunicação com o webservice.
   ReqResp := THTTPReqResp.Create(nil);
   ReqResp.OnBeforePost := OnBeforePost;
   ReqResp.UseUTF8InHeader := True;
   ReqResp.URL := FURL;
   ReqResp.SoapAction := nfe.GetSoapAction(self.FConfig.FModalidade,FServico);
   ReqResp.Execute(Texto, Resposta);
 
   self.FRetWS := Resposta.DataString;
   .
   .
   .
   .
   .
end;


P.S.: Conferi no componente ACBrNfe e está praticamente do mesmo jeito, mas lá consegue a comunicação normalmente e no meu programa não.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
aislan.torres
Novato
Novato


Registrado: Quinta-Feira, 21 de Junho de 2012
Mensagens: 2

MensagemEnviada: Seg Jun 25, 2012 3:38 pm    Assunto: Re: Não consigo consultar StatusServico em webservice SVAN Responder com Citação

Após ficar levando na cara do programa por alguns dias, consegui descobrir meu erro, eu não estava formatando o contentheader antes de enviar (requerido para os webservices .asmx - por isso em MG dava certo).

Agradeço a atenção de todos.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
hmzbr
Novato
Novato


Registrado: Segunda-Feira, 17 de Janeiro de 2011
Mensagens: 3

MensagemEnviada: Ter Abr 22, 2014 4:34 pm    Assunto: Ajuda Responder com Citação

Aislan, tudo bem?

Sei que o tópico é antigo, mas acredito que estou com o mesmo problema que aconteceu contigo...

Poderia me ajudar falando como você fez para solucionar o problema?

Agradeço desde já.
Um abraço.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> NFe Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB