Manif. Dest. Das Notas Emitidas

[FocusRJ]

Amigos estava pensando em uma forma de que o emitente da NF-e possa estar ciente da manifestação do destinatário das suas NF-es...

 

Pensei em algo como no momento que o destinatário consultar a NF-e emitida (pelo que vi somente consultando pra obter o retorno) aí antes de imprimir a NF-e testa se a NF-e tem algum evento vinculado e verifica quais os possíveis eventos para avisar ao Emitente.

 

Pensei em algo como:

      ACBrNFe1.Consultar;
      FechaAviso;
      if ACBrNFe1.WebServices.Consulta.procEventoNFe.Count > 0 then
      begin
        if ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[ACBrNFe1.WebServices.Consulta.procEventoNFe.Count-1].RetEventoNFe.InfEvento.tpEvento = teManifDestConfirmacao then
          showmessage('Destinatário Manifestou Confirmação da Operação!')
        else
        if ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[ACBrNFe1.WebServices.Consulta.procEventoNFe.Count-1].RetEventoNFe.InfEvento.tpEvento = teManifDestOperNaoRealizada then
          showmessage('Destinatário Manifestou Operação não Realizada!')
        else
        if ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[ACBrNFe1.WebServices.Consulta.procEventoNFe.Count-1].RetEventoNFe.InfEvento.tpEvento = teManifDestCiencia then
          showmessage('Destinatário Manifestou Ciência da Operação!')
        else
        if ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[ACBrNFe1.WebServices.Consulta.procEventoNFe.Count-1].RetEventoNFe.InfEvento.tpEvento = teManifDestDesconhecimento then
          showmessage('Destinatário Manifestou Desconhecimento da Operação!');
      end;
      ACBrNFe1.NotasFiscais.Items[0].Imprimir;

Pensei também na possibilidade de passar uma variável para o relatório e na própria NF-e imprimir a Manifestação do destinatário para não ficar aquela coisa chata de aparecer a mensagem na tela antes da NF-e, alguém me sugere alguma outra forma?

 

Att.

Rômulo Mayworm