Enviar email quando stock =< 0

[Wolfthief 0]

Viva!

É possível configurar em phc um aviso automático por email quando for efectuada uma factura com referências em que o stock das mesmas seja menor ou igual a zero?
(De momento já coloquei um aviso que é visível durante a introdução de linhas nas facturas.)

[pc.cesar 15]

msel="select pe.nome from pe (nolock) where datediff(dd,getdate(),pe.cfim)<30"
if u_sqlexec(msel,"tmppe")
      m_To="director@empresa.pt;presidente@empresa.pt;bcc:subdirector@empresa.pt"
      m_Subject="Funcionário com contrato perto do termo"
      m_Body="Atenção !"+chr(13)+"O funcionário "+tmppe.nome+" tem o contrato perto do termo"
      m_Attachments=""
      l_OpenClient=.f.
      l_Quiet=.f.
      u_sendmail(m_to,m_subject,m_body,m_attachments,l_openclient,l_quiet)
endif