Criação de Evento no ecrã de Faturação

[pipoca_code]

Bom dia, 

 

Preciso da V/ ajuda na criação de um Evento - PHC, no ecrã de Faturação (FT).

Ou seja ao introduzir uma Fatura com determinada referencia deve ser enviado um email de aviso para um determinado destinatário.

Agradeço desde já a V/ ajuda.

Bom trabalho para todos 🙂

[pc.cesar]

EventoSFT ao introduzir

Local V_enviarmail
V_enviarmail=.f.
Select ft
select fi
scan
        if fi,ref='referencia'
                v_enviarmail=.t.
        endif
endscan



if v_enviarmail=.t.      

if u_sqlexec(msel,"tmpref")
      m_To="director@empresa.pt;presidente@empresa.pt;bcc:subdirector@empresa.pt"
      m_Subject="Venda com a ref "+ 
      m_Body="Atenção !"+chr(13)+"O referencia "+ bi.ref+" foi vendida"
      m_Attachments=""
      l_OpenClient=.f.
      l_Quiet=.f.
      u_sendmail(m_to,m_subject,m_body,m_attachments,l_openclient,l_quiet)
endif

endif

 

[pipoca_code]

Obrigada pela ajuda César.

[pc.cesar]

resolveu?

[pipoca_code]

Bom dia César,

 

Resolveu obrigada 🙂

[camexavi]

Em 12/03/2021 às 10:05, pc.cesar disse:

EventoSFT ao introduzir

Local V_enviarmail
V_enviarmail=.f.
Select ft
select fi
scan
        if fi,ref='referencia'
                v_enviarmail=.t.
        endif
endscan



if v_enviarmail=.t.      

if u_sqlexec(msel,"tmpref")
      m_To="director@empresa.pt;presidente@empresa.pt;bcc:subdirector@empresa.pt"
      m_Subject="Venda com a ref "+ 
      m_Body="Atenção !"+chr(13)+"O referencia "+ bi.ref+" foi vendida"
      m_Attachments=""
      l_OpenClient=.f.
      l_Quiet=.f.
      u_sendmail(m_to,m_subject,m_body,m_attachments,l_openclient,l_quiet)
endif

endif

 

Boa tarde,

Procuro algo parecido, julgo eu, mas no meu caso seria um evento ao copiar dossier para a fatura.

O objetivo é que ao copiar dossier em que o bi.ndos=34, o preço a copiar estaria no campo de utilizador (bi.u_proutro) e não o bi.epv, na versão Advanced

Mais uma vez obrigado!

[pc.cesar]

copiar normalmente de ao gravar

msel = [select bi.u_proutro from bi where bi.bistamp=']+alltrim(fi.bistamp)+[']

if u_sqlexec(msel, [crx])

replace fi.epv with crx.u_proutro



endif