Boa Tarde!
Meu nome é Amaury, sou iniciante aqui no forum e estou desenvolvendo a rotina de Cancelamento utilizando
Evento e estou com com essa mensagem, alguém sabe me dizer o que pode ser?
Segue a mensagem e o codigo da rotina
// Mensagem de Erro
Não foi possivel cancelar a NF-e
Erro Original:envEventoCancNFe_v1.00.xsd#schema/element[1][@name = 'envEvento']
Undeclared XSD type : "{http://www.portafiscal.inf.br/nfe}-TEnvEvento"
Processament interrompido
// Codigo da Rotina
ACBrNFe1.NotasFiscais.LoadFromFile(PathWithDelim(ACBrNFe1.Configuracoes.Geral.PathSalvar)+'XML_Load\Nota_'+DadosNFe.TNotaFiscalNOTA.AsString+'.xml');
if not(InputQuery('WebServices Cancelamento', 'Justificativa', MJustificativa)) then exit;
idLote := Trim(IntToStr(MProximo_Lote));
nSeqEvento := IntToStr(DadosNFe.TNotaFiscalSEQUENCIA_EVENTO.AsInteger + 1);
ACBrNFe1.EventoNFe.Evento.Clear;
ACBrNFe1.EventoNFe.idLote :=StrToInt(idLote) ;
with ACBrNFe1.EventoNFe.Evento.Add do
begin
InfEvento.tpAmb := ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb;
infEvento.CNPJ := ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF;
InfEvento.cOrgao := ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF;
InfEvento.nSeqEvento := StrToInt(nSeqEvento); //1;
InfEvento.chNFe := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44);
InfEvento.dhEvento := Now;
InfEvento.tpEvento := teCancelamento;
infEvento.detEvento.xJust := MJustificativa;
InfEvento.detEvento.nProt := ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt;
end;
Try
//ACBrNFe1.Cancelamento(vAux);
// ACBrNFe1.EnviarEventoNFe(StrToInt(idLote));
ACBrNFe1.WebServices.EnvEvento.Executar;
Sleep(3000);
Except on
E:Exception do
Begin
Abilita_Botoes;
raise Exception.Create('Não foi possível cancelar a NF-e'+#13+
'Erro Original:'+E.Message+#13+
'Processamento interrompido.');
if ACBrNFe1.NotasFiscais.Items[0].Alertas <> '' then
MemoDados.Lines.Add('Alertas: '+ACBrNFe1.NotasFiscais.Items[0].Alertas);
Exit;
end;
end;