Erro Ao Tentar Cancelar Uma Nota Fiscal

[igmaster2000]

estou fazendo assim:

 

  NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW));

  OpenDialog1.Title := 'Selecione a NFE';

  OpenDialog1.DefaultExt := '*-nfe.XML';

  OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';

  OpenDialog1.InitialDir := nfe.Configuracoes.Geral.PathSalvar;

  if OpenDialog1.Execute then

     begin

     nfe.NotasFiscais.Clear;

     NFe.EventoNFe.idLote := NumeroLote;

     with NFe.EventoNFe.Evento.Add do

     begin

     infEvento.dhEvento := now;

     infEvento.tpEvento := teCancelamento;

//     infEvento.cOrgao   := RetornarCodigoUF(Emitente.Empresa.UF); //coloca o codigo do estado q deseja tranmitir

     infEvento.cOrgao   := 91;

     infEvento.detEvento.nProt := NFe.NotasFiscais.Items[0].NFe.procNFe.nProt;

     infEvento.detEvento.xJust := vAux;

     end;

     NFe.EnviarEventoNFe(NumeroLote);

     nfe.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

     if not(InputQuery('WebServices Cancelamento', 'Justificativa', vAux)) then

        exit;

     nfe.Cancelamento(vAux);

     MemoResp.Lines.Text   := UTF8Encode(nfe.WebServices.Cancelamento.RetWS);

     memoRespWS.Lines.Text := UTF8Encode(nfe.WebServices.Cancelamento.RetornoWS);

     LoadXML(MemoResp, WBResposta);

     ShowMessage(IntToStr(nfe.WebServices.Cancelamento.cStat));

     ShowMessage(nfe.WebServices.Cancelamento.Protocolo);

     end;

 

[André Ferreira de Moraes]

Não crie tópicos repetidos.