Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Consultar Ultimo Manifesto


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

Recommended Posts

  • Consultores

Boa Tarde @Thiago FD, dê uma olhada na documentação os métodos disponíveis para Distribuição de NFe: http://acbr.sourceforge.net/ACBrMonitor/NFEDistribuicaoDFe.html. Neste caso acredito que possa consultar pela chave : DistribuicaoDFePorChaveNFe("cUF", "cCNPJ", "aChNFe").

A explicação do Ítalo neste tópico também pode te ajudar: 

 

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to comment
Share on other sites

  • Consultores

Boa noite Thiago,

Se eu entendi o que você deseja, a única solução é via site, não existe nenhum Web Services de Consulta a Eventos Enviados para SEFAZ.

Quem envia um evento tem que saber o que fez.

A aplicação tem que guardar o evento enviado.

Consultor SAC ACBr Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Link to comment
Share on other sites

O problema que, nem sempre a SEFAZ me retorna que o evento foi aceito e registrado.

Abaixo como estou tratando.

Vocês tem algum exemplo?

Caso de algum erro no retorno, não existe nenhuma possibilidade de saber se o evento foi vinculado?
 

Adiciono até 50 eventos.

with ACBrNFe1.EventoNFe.Evento.Add do
  begin
  infEvento.chNFe    := Chave;
  infEvento.CNPJ     := CNPJ;
  infEvento.dhEvento := now;
  infEvento.tpEvento := teManifDestCiencia;
  InfEvento.cOrgao := StrToInt(orgao);
  end;

Depois envio o lote
ACBrNFe1.EnviarEvento(IDLote);

Percorro o retorno.

for i := 0 to (AcbrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Count - 1) do
  begin
  	with AcbrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[i].RetInfEvento do
		if (cStat = 135) or (cStat = 136) then
	 		begin
				if tpEvento = teManifDestConfirmacao then
					begin
					//rotina
					end;

				if tpEvento = teManifDestCiencia then
            		begin
					//rotina
					end;
				//Demais rotinas para outros eventos
            
			end;
    
		end;
  end;
 
end;

 

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.