ajuda a tratar os retornos

[felipeiw]

Amigos sera que podem por favor me ajudar a tratar o retorno da nfs, pra saber se foi ou não aceita, to estudando o exemplo da ACBrNFSeX1, mais não to conseguindo, é possivel sem usar o metodo ChegarResposta ? parecido com o exemplo q coloquei

  ACBrNFSeX1.Emitir(vNumLote);

  if (ACBrNFSeX1.WebService.Emite.Sucesso = True) then
  begin
    ShowMessage('SUCESSO');

    ShowMessage('ARQUIVO: '+ACBrNFSeX1.NotasFiscais.Items[0].NomeArq);
    ShowMessage('ARQUIVO CHAVE: '+Copy(ExtractFileName(ACBrNFSeX1.NotasFiscais.Items[0].NomeArq),1,PosEx('-',ExtractFileName(ACBrNFSeX1.NotasFiscais.Items[0].NomeArq))-1));
    ShowMessage('NOTA: '+ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Numero);
    ShowMessage('VERIFICACAO: '+ACBrNFSeX1.NotasFiscais.Items[0].NFSe.CodigoVerificacao);
    ShowMessage('CHAVE: '+ACBrNFSeX1.NotasFiscais.Items[0].NFSe.ChaveAcesso);

//  ShowMessage(ACBrNFSeX1.WebService.Emite.Lote);
//  ShowMessage(ACBrNFSeX1.WebService.Emite.CodVerificacao);
//  ShowMessage(ACBrNFSeX1.WebService.Emite.Protocolo);
//  ShowMessage(ACBrNFSeX1.WebService.Emite.NumeroNota.ToString);
  end
  else
    ShowMessage('ERRO NFS');
 

Obrigado pessoal

[SISBLU Software]

 Bom dia, conseguiu tratar os erros? Pq não consegui também