Problemas No Envio De Email Do Evento

[Dércio Luis Zanatta]

Boa tarde..

Estou tento um problema ao enviar e-mail de um Evento (CCe, no caso)..

 

Faço o envio da CCe assim:

ACBrNFe1.EnviarEventoNFe(1);

 

Depois tento enviar o e-mail assim:

 

ACBrNFe1.EnviarEmailEvento(

 

O mail vai com o pdf da CCe, porém o XML !

 

o que poder ser ?

 

No caso de enviar cancelamento ocorre "acesse Violation" tanto no ACBrNFe1.EnviarEmailEvento(, quanto no

 ACBrNFe1.ImprimirEvento ;  (quik report)

Editado 20 Maio, 2015 por Dércio Luis Zanatta

[Italo Giurizzato Junior]

Boa noite Dércio,

 

Com ao enviar o evento por e-mail, você esta carregado tanto o XML da NF-e quanto do Evento?

 

Se esta ocorrendo erro de violação de acesso no que diz respeito ao cancelamento, com certeza é a sua aplicação, pois ambos: CC-e Cancelamento são eventos e utilizam a mesmas rotinas.

[Dércio Luis Zanatta]

Bom dia Ítalo..

Não estou carregando nenhum xml, estou enviando o email logo após enviar o cancelamento.. Assim:

 

  ACBrNFe1.EventoNFe.Evento.Clear;

  with ACBrNFe1.EventoNFe.Evento.Add do

  begin

    InfEvento.chNFe:=Alltrim(OnlyNumber(IbqArqvendmCHAVE_NFE.AsString)) ;

    InfEvento.CNPJ:=Vcnpj_emit ;

    InfEvento.dhEvento:=Now ;

    InfEvento.tpEvento:=teCancelamento ;

    InfEvento.detEvento.xJust:=PJust ;

    InfEvento.detEvento.nProt:=Alltrim(ibqarqvendmProt_Auto.Asstring) ;

    //InfEvento.cOrgao:=91 ;

  End ;

  Try

    ACBrNFe1.EnviarEventoNFe(1);

  Except on e:Exception do

   Begin

      Result:=''

      Exit ;

   End ;

  End ;

 

ACBrNFe1.EnviarEmailEvento()  // aqui ocorre acess violation

 

 

Faço a mesma coisa com CCe e funciona, somente com o cancelamento ocorre acess violation 

[Italo Giurizzato Junior]

Boa tarde Dércio,

 

Antes da linha: ACBrNFe1.EventoNFe.Evento.Clear;

 

Carregue o XML da NF-e que deseja cancelar.