Ir para conteúdo
  • Cadastre-se

dev botao

Enviar evento por e-mail


  • Este tópico foi criado há 1691 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Moderadores
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.

 

 

 

Link para o comentário
Compartilhar em outros 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.

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1691 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.