Consultar Ultimo Manifesto

[Thiago FD]

Boa Tarde,

Preciso consultar o ultimo manifesto realizado em uma determinada nota. Como proceder?

[José M. S. Junior]

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: 

 

[Italo Giurizzato Junior]

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.

[Thiago FD]

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;

 

[Italo Giurizzato Junior]

Boa tarde Thiago,

A minha rotina é semelhante com uma diferença eu não checo o valor da propriedade cStat.