Como Tratar Lote Em Processamento

[ronnei]

Amigos, qual a solução para tratar lote em processamento, após enviar e consultar ele está gerando um exception que o lote ainda não foi processado, tem como fazer igual ao do AcbrNfe, na nfe de produto eu envio, guardo o protocolo,  depois eu consulto separadamente, se der alguma excessão eu trato, mas o lote já foi enviado e arquivo o número do protocolo já esta salvo, faço assim no AcbrNfe:

---função que envia---
Enviar.Executar;
Recibo_numero    := Enviar.Recibo;
Recibo_CStat     := IntToStr(Enviar.cStat);
Recibo_XMotivo   := Enviar.xMotivo;
Recibo_dhRecbto  := DateTimeToStr(Enviar.dhRecbto);


---outra funcao que verifica se o lote foi processado---

Retorno.Recibo := Self.nfe.get_reciboenvio;//de posso do recibo de envio posso consultar
Retorno.Executar;

if (Retorno.cStat<>104)//104 É lOTE PROCESSADO SE FOR DIFERENTE DISSO GERA UM ERRO
Then Exception.Create(Retorno.Msg);

Alguma dica?

 

[aslsoftware]

alguma solução para a sua proposta??? Obrigado.

[ronnei]

Nada ainda

[Juliomar Marchetti]

Carrega o xml e faz outra consulta mas esperasse um tempo para fazer

[ronnei]

Sim Juliomar, essa é a idéia mesmo, já implementei para ele não consultar logo após o envio, o que eu preciso agora é pegar a situação do RPS nesta consulta, assim posso tratar, se ainda for lote em processamento não faz nada, já se o lote foi rejeitado eu devolvo a Nfse para digitação.