Tratar Retorno NF-e

[arce]

A alguns meses criei um módulo para envio da nfe (não uso o monitor), e esta funcionando, mas não da forma como gostaria, ele ainda apresenta falhas na leitura do retorno, normalmente esses erros ocorrem qndo alguma nf-e tem algum tipo de rejeição.

A questão é que estou buscando uma forma de criar uma tela de recepção, onde não mostre apenas para ao usuário o status "recebendo nfe" mas também qual nfe esta sendo recebida no momento (envio mais de uma nfe por lote).

estou seguindo a seguinte lógica

gerar_nfe(0);


ACBrNFe1.NotasFiscais.Valida;

ACBrNFe1.NotasFiscais.Assinada;

ACBrNFe1.Enviar(lote, false);


         for count := 0 to ACBrNFe1.NotasFiscais.Count-1 do

           begin

             qryAtulizaStatus.ParamByName('ESTADONFE').AsInteger   := frmPrincipal.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[count].cStat;

             qryAtulizaStatus.ParamByName('DESC_EST_NFE').AsString := frmPrincipal.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[count].xMotivo;

             qryAtulizaStatus.ParamByName('DHRECBTO').AsDateTime   := frmPrincipal.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[count].dhRecbto;

             qryAtulizaStatus.ParamByName('CHAVE').AsString        := frmPrincipal.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[count].chNFe;

             qryAtulizaStatus.ParamByName('PROTOCOLO').AsString    := frmPrincipal.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[count].nProt;

             qryAtulizaStatus.ParamByName('DIGVAL').AsString       := frmPrincipal.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[count].digVal;

             qryAtulizaStatus.ParamByName('VERAPLIC').AsString     := frmPrincipal.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[count].verAplic;

           end; 

grava corretamente no banco, acontece q qndo o FOR é acionado ... todas as nfes já foram recebidas ... e gostaria de fazer essa atualização em tempo real, mostrando em uma grid (como no sistema gratuito da receita)

Se não fui bem claro, eu detalho mais.

Obrigado.

[peterson161]

Veja se esta idéia te agrada:

Consulte o Demo, para efetuar os processos de envio separadamente (Explore o método "ACBrNFe1.Enviar"). Desta forma você terá como consultar o número do recibo e obter o status de cada nota que está no lote. Durante a consulta ao recibo, você pode efetuar este "for" e antes do "end" alimentar o seu grid.

[peterson161]

Segue em anexo um trecho do meu sistema. Funciona perfeitamente, veja se te dá uma luz.

[arce]

peterson161 muito obrigado, seu exemplo me ajudou mto.

Obrigado pela atenção.

[Resolvido]