Ir para conteúdo
  • Cadastre-se

dev botao

Protocolo de Retorno PVH


amnchaves
  • Este tópico foi criado há 3012 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Caros colegas, estou tentando obter o protocolo de retorno do provedor PVH, mas não estou conseguindo, esta retornando em branco. A sequência que estou usando é a seguinte:

Para enviar:

ACBrNFSe1.EnviarSincrono(vNumLote);

 

Depois que enviei, tento pegar o protocolo da seguinte forma:

ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo;

 

Tentei dessa outra forma, mas sem sucesso.

ACBrNFSe1.WebServices.ConsNFSe.Protocolo;

 

Ja olhei no XML e o protocolo está preenchido:   <Protocolo>27C1B3137B5A4418A3AC6C8A555A9B41</Protocolo>

Agradeço pela atenção

Marcos

Link para o comentário
Compartilhar em outros sites

Estou com mesmo problema a alguns dias.
Ainda não consegui resolver problema 100%, mas acredito estar no caminho.

Primeiro atualizei o ACBRNFSE na ultima versão.
Agora segue minha sequencia de comandos para enviar e pegar retorno.
Adicionei esses parametros ao componente, antes do envio
 

      ACBrNFSe.Configuracoes.Geral.Emitente.CNPJ  := '12345678901234';
      ACBrNFSe.Configuracoes.Geral.Emitente.InscMun := '12345';
      ACBrNFSe.Configuracoes.Geral.Emitente.RazSocial := 'razap social';

      ACBrNFSe.Configuracoes.Geral.Emitente.WebSenha  := 'xxx';
      ACBrNFSe.Configuracoes.Geral.Emitente.WebUser   := 'xx';

      ACBrNFSe.Configuracoes.WebServices.AguardarConsultaRet      := 15000;
      ACBrNFSe.Configuracoes.WebServices.AjustaAguardaConsultaRet := True;
      ACBrNFSe.Configuracoes.WebServices.IntervaloTentativas      := 1000;

apos isso:
 

ACBrNFSe.NotasFiscais.GerarNFSe;
ACBrNFSe.Enviar(nNrLote,False);

Agora buscar o retorno(onde estou trabalhando):

cProtocolo  := ACBrNFSe.NotasFiscais.Items[0].NFSe.Protocolo;
ACBrNFSe.ConsultarSituacao(cProtocolo);
cStat :=  StrToInt(ACBrNFSe.WebServices.ConsSitLoteRPS.Situacao);
  
ACBrNFSe.ConsultarLoteRps(INTTOSTR(ilote), cProtocolo);
RetWs := ACBrNFSe.WebServices.ConsLote.RetWS;


Espero ajudar.
Caso alguem tenha forma melhor de fazer peço ajuda também.

Edit1: minha rotina é para GINFES.
Edit2: atualize seus arquivos .ini
 

Editado por gabrielhw
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3012 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...