Cancelamento NFE por evento

Sergio Sartori · 9 Setembro, 2019

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;