Cancelamento NFE por evento

[Sergio Sartori]

Bom dia a todos.

Pessoal estou com problema ao tentar cancelar uma nfe.

ao executar o cancelamento da este erro :

TDFeSSLXmlSignClass.Assinar não implementado

já olhei o demo mas consigo achar aonde que eu estou errando.

por favor se alguém puder me ajudar nisso, fico muito agradecido.

segue o codigo

    cnpj          := txtCNPJ;
    chave         := chNFe;
    Justificativa := xJust;
    Protocolo     := vProtocolo;

 //*****************************************************************************
 //                Cancelamento NFe pela Chave de Acesso.
 //*****************************************************************************

  if not(InputQuery('WebServices Eventos: Cancelamento', 'Chave da NF-e', Chave)) then
     exit;
  Chave := Trim(OnlyNumber(Chave));
  idLote := '1';
  if not(InputQuery('WebServices Eventos: Cancelamento', 'Identificador de controle do Lote de envio do Evento', idLote)) then
     exit;
  CNPJ := copy(Chave,7,14);
  if not(InputQuery('WebServices Eventos: Cancelamento', 'CNPJ ou o CPF do autor do Evento', CNPJ)) then
     exit;

  if not(InputQuery('WebServices Eventos: Cancelamento', 'Protocolo de Autorização', Protocolo)) then
     exit;
  Justificativa := 'Justificativa do Cancelamento';
  if not(InputQuery('WebServices Eventos: Cancelamento', 'Justificativa do Cancelamento', Justificativa)) then
     exit;

  ACBrNFe1.EventoNFe.Evento.Clear;
  with ACBrNFe1.EventoNFe.Evento.New do
   begin
     infEvento.chNFe := Chave;
     infEvento.CNPJ   := CNPJ;
     infEvento.dhEvento := now;
     infEvento.tpEvento := teCancelamento;
     infEvento.detEvento.xJust := Justificativa;
     infEvento.detEvento.nProt := Protocolo;
   end;
   ACBrNFe1.EnviarEvento(StrToInt(idLote));
   cStat              := IntToStr(ACBrNFe1.WebServices.EnvEvento.EventoRetorno.cStat);
   motivo             := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.xMotivo ;
   nProt              := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt;
   dhRegEvento        := DateToStr(ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento);
   vChaveCancelamento := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.chNFe;
 

 

 

[Juliomar Marchetti]

está faltando configurar o componente com dados de tipo de lib será usado e certificados e senhas