Jump to content

SUPER OFERTA!
Compre o Delphi com 45% de desconto

botao_delphi.png

110.png

Curso Gratuito para todos Usuários
+ Super Treinamento Assinando o SAC Anual

botao_campanha_thulio.png

sem_ttulo-620.fw_-e1583866078274.png 

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

ornei

Enviar evento por e-mail

Recommended Posts

Boa tarde,

estou tentando enviar o evento do cancelamento por e-mail, e esta retornando esta mensagem: Add Attachment: File not Exists.

como pode ver pela imagem no demo esta ocorrendo também.

erro enviar email do evento da nfce.jpg

Share this post


Link to post
Share on other sites
Em 09/08/2019 at 17:39, ornei disse:

 

Bom dia, ornei.

Você carregou a nota no componente antes de chamar o método de envio? Veja que o ACBrNFe possui dois métodos de envio:

EnviarEmailEvento = Enviar o XML do evento, o método necessita que o XML seja anexado, o mesmo não realiza essa operação automaticamente.

EnviarEmail = Enviar o XML da NF-e, o método se encarrega de anexar automaticamente o XML da nota.


Equipe ACBr

Felipe Eduardo Resende Mesquita

Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

 

 

 

Share this post


Link to post
Share on other sites
36 minutos atrás, Felipe E. Resende Mesquita disse:

Bom dia, ornei.

Você carregou a nota no componente antes de chamar o método de envio? Veja que o ACBrNFe possui dois métodos de envio:

EnviarEmailEvento = Enviar o XML do evento, o método necessita que o XML seja anexado, o mesmo não realiza essa operação automaticamente.

EnviarEmail = Enviar o XML da NF-e, o método se encarrega de anexar automaticamente o XML da nota.

bom dia,   estou fazendo desta maneira:

procedure TfrmNotasEnviadas.mnuEnviarCancelamentoEmailClick(
  Sender: TObject);
var
  Para,
  Copia,
  lsXML,
  lsXMLCanc,
  Remetente,
  sNomeCancN: String;
  Anexo,
  Mensagem: Tstrings;
  CC:TStringList;
  Confirmacao: Boolean;
  tpCancelamento: TpcnTpEvento;
begin
  { Crio os objeto }
  Anexo := TstringList.Create;
  CC    := TstringList.Create;
  with dmMonitorNFCe do
  try
    Para := Trim(cdsBuscaNFCeEMAIL.AsString);
    Confirmacao := True;
    Mensagem := nil;
    if cdsBuscaNFCePROTOCOLO_CANC.AsString <> EmptyStr then
    begin
      if MostraFormularioEmail(Para,Copia,Confirmacao,Mensagem) = mrOk then
      begin
        ConfiguraComponenteNFe;
        { Define o nome do arquivo XML do cancelamento }
        if cdsBuscaNFCeCHAVE_CONTINGENCIA.AsString = EmptyStr then
        begin
          sNomeCancN := '110111'+Trim(cdsBuscaNFCeCHAVE.AsString)+'01'+'-procEventoNFe.xml';
          tpCancelamento := teCancelamento;
        end
        else
        begin
          sNomeCancN := '110112'+Trim(cdsBuscaNFCeCHAVE.AsString)+'01'+'-procEventoNFe.xml';
          tpCancelamento := teCancSubst;
        end;
        { Arquivo XML do Cancelamento }
        lsXMLCanc := NFCe.Configuracoes.Arquivos.GetPathEvento(tpCancelamento,'',cdsBuscaNFCeDATA_CANCELAMENTO.AsDateTime)+
                     PathDelim + 'Cancelamento' + PathDelim + sNomeCancN;
        { Arquivo XML da NFCe Cancelada }
        lsXML     := NFCe.Configuracoes.Arquivos.GetPathNFe(cdsBuscaNFCeDATA_EMISSAO.AsDateTime) + PathDelim +
                     Trim(cdsBuscaNFCeCHAVE.AsString) + '-nfe.xml';
        { Carrego o XML da NFC-e }
        NFCe.NotasFiscais.Clear;
        NFCe.NotasFiscais.LoadFromFile(lsXML);
        { Carrego o XML do Cancelamento }
        NFCe.EventoNFe.Evento.Clear;
        NFCe.EventoNFe.LerXML(lsXMLCanc);
        { Carrego os anexos }
        Anexo.Clear;
        Anexo.Add(lsXMLCanc);
        MinhaExtractStrings(';',Copia,CC);
        { Configura os dados do ACBr_Email }
        EMail.From := EMail.Username;
        EMail.ReadingConfirmation := Confirmacao;
        EMail.FromName := Trim(NFCe.NotasFiscais.Items[0].NFe.Emit.xNome);
        { Gera mensagem para ser enviada }
        mmEmailMsgCanc.Lines.Text:=format(mmEmailMsgCanc.Lines.Text,[cdsBuscaNFCeNUMERO.AsString,
                                                                     cdsBuscaNFCeSERIE.AsString,
                                                                     Trim(Remetente),
                                                                     FloatToStrF(cdsBuscaNFCeVALOR.AsFloat,ffNumber,10,2),
                                                                     Trim(Remetente)]);
        NFCe.EnviarEmailEvento(Trim(Para)
                               , 'Cancelamento referente ' + Trim(Email.Subject) + ' n. '+LFIll(cdsBuscaNFCeNUMERO.AsString,9)
                               , mmEmailMsgCanc.Lines
                               , CC      //Lista com emails que serão enviado cópias - TStrings
                               , Anexo); // Lista de anexos - TStrings

        TUtil.ExibirMsg('XML do Cancelamento da Nota Fiscal ' + LFIll(cdsBuscaNFCeNUMERO.AsString,9) +
                        ' enviada com secesso!','Nota Fiscal Eletrônica');
      end
    end
  finally
    CC.Free;
    Anexo.Free;
  end;
end;

o erro acontece para a NFCe, a NFe envia normal.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...