Jump to content

dev botao

Enviar evento por e-mail


  • Este tópico foi criado há 1808 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 to comment
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.

Link to comment
Share on other sites

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

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

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.