Erro ao Cancelar MDFe

[Valtenci Santos]

Ola Boa Noite, estou tentando cancelar um MDFe, seguindo o exemplo que vem no ACBRMDFe, e esta me retornando a mensagem, apos colocar a Justificativa:

"Argument out of range."

segue o meu codigo abaixo.:

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

   MDFeMy.EventoMDFe.Evento.Clear;

   with MDFeMy.EventoMDFe.Evento.Add do
    begin
     infEvento.chMDFe   := Copy(MDFeMy.Manifestos.Items[0].MDFe.infMDFe.ID, 5, 44);
     infEvento.CNPJ     := frmmodulo.qremitenteCNPJ.AsString;
     infEvento.dhEvento := now;
//  TpcnTpEvento = (teCCe, teCancelamento, teManifDestConfirmacao, teManifDestCiencia,
//                  teManifDestDesconhecimento, teManifDestOperNaoRealizada,
//                  teEncerramento);
     infEvento.tpEvento   := teCancelamento;
     infEvento.nSeqEvento := 1;

     infEvento.detEvento.nProt := MDFeMy.Manifestos.Items[0].MDFe.procMDFe.nProt;
     infEvento.detEvento.xJust := trim(vAux);
    end;

 

 

[Italo Giurizzato Junior]

Bom dia Valtenci,

O XML do MDF-e que se deseja efetuar o cancelamento foi carregado?

Note que a chave e o numero de protocolo são obtidos das propriedades do componentes e para que essas propriedades possuem as respectivas informações o XML tem que ser lido através do método LoadFromFile.

[Valtenci Santos]

como sempre preciso nas informações,

Problema resolvido, Amigo Italo.