Imprimir Email Do Emitente

[wagner_fix]

Olá pessoal bom dia...

 

Estou usando a versão 1.4 do CT-e e tenho uma dúvida. É possível sair impresso no Dacte o e-mail do emitente? Não vi essa propriedade do componente...

 

Grato,

Wagner

[Italo Giurizzato Junior]

Boa tarde Wagner,

 

O componente ACBrCTeDACTEQR possui a propriedade email.

 

 ACBrCTeDACTeQR.Email := sEmail; // e-mail do emitente do CT-e
 

[wagner_fix]

Italo boa tarde...

 

Obrigado pela resposta... Mas não funcionou... Tentei pegar alguns exemplos na internet e não encontrei nada...

 

Eu estou jogando esse comando aqui veja...

 

Está correto??

 

  if (Application.MessageBox('Deseja Realmente Gerar/Assinar/Validar/Transmitir o CT-e?','Pergunta',MB_YESNO+MB_ICONQUESTION) = IDYES) then begin

     ACBrCTe1.DACTe.MostrarPreview   := False;

     ACBrCTeDACTeQR1.MostrarPreview  := False;

     ACBrCTeDACTeQR1.Email           := '[email protected]';

     ToolBar1.Enabled     := False;

     btnGerar.Enabled     := False;

     btnEmail.Enabled     := False;

     btnDacte.Enabled     := False;

     btnStatus.Enabled    := False;

     btnCancelar.Enabled  := False;

     btnErro.Enabled      := False;

     MemoResp.Lines.Clear;

     MemoResp.Lines.Add('-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------');

     MemoResp.Lines.Add('Gerando XML...');

     MemoResp.Refresh;

     NaoEmitidos;

     // Gera o XML, Assina e Salva o Arquivo

     memoResp.Lines.Add('Se preparando para Assinar...');

     memoResp.Lines.Add('Assinando...');

     memoResp.Refresh;

     ACBrCTe1.Conhecimentos.Assinar;

.............................

[Italo Giurizzato Junior]

Boa tarde Wagner,

 

Favor atualizar os fontes e testar novamente.

[wagner_fix]

Agora sim Ítalo perfeito...

 

Grato,

Wagner