Perguntas WORKFLOW

Pessoal, boa tarde!

Alguem teria um modelo de um workflow de envio mensagem para vencimento de contrato e exame medico? no SIGAGPE..

Procure pelo ponto de entrada correto e Adapte esse fonte. No meu caso usei GPEA010.

#Include "TOPCONN.CH"
#Include "RWMAKE.CH"


//*/#########################################################################
//*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ#
//* PROGRAMA..: GPEA010W #
//* FUNCAO....: Manda um e-mail informando quando qualquer funcionario #
//* tiver sua função mudada na empresa. #
//* AUTOR.....: #
//* OBS.......: #
//*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ#
//*/#########################################################################

User Function GPEA010()


IF ALTERA

DBSELECTAREA("SRA")
DBSETORDER(1)
DBSEEK(xfilial("SRA")+m->RA_MAT,.T.)


DBSELECTAREA("SRJ")
DBSETORDER(1)
DBSEEK(xfilial("SRJ")+sra->RA_CODFUNC,.T.)

_cAntfunc := SRJ->RJ_DESC

DBSELECTAREA("SRJ")
DBSETORDER(1)
DBSEEK(xfilial("SRJ")+M->RA_CODFUNC,.T.)

_cNovfunc := SRJ->RJ_DESC

DBSELECTAREA("SRA")
DBSETORDER(1)
DBSEEK(xfilial("SRA")+m->RA_MAT,.T.)

cUpdate := "UPDATE "+RetSqlName("SRA")+" SET RA_PIS = '"+M->RA_PIS+"' WHERE "
cUpdate += "RA_FILIAL IN (SELECT CODFILIAL FROM EMPRESA_FILIAL) "
cUpdate += "AND RA_CIC = '"+M->RA_CIC+"' AND D_E_L_E_T_ = ' ' "

TcSqlExec(cUpdate)
TcSqlExec("COMMIT")


If m->RA_CODFUNC <> sra->RA_CODFUNC

oProcess := TWFProcess():New( '000003', 'Mudança de Função ' )
oProcess:NewTask('Notificacao','\workflow\BRANCO.htm')
oProcess:cSubject := 'Mudança de Função dos Funcionarios '
// oProcess:cTo := 'Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.'
oProcess:cTo := 'Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.'
_msg := ""
_msg := "Prezado(s),"
Aadd(oProcess:oHtml:ValByName("HISTO.LINHA"),_msg)
_msg := ""
Aadd(oProcess:oHtml:ValByName("HISTO.LINHA"),_msg)
_msg := "Houve uma mudança de função no dia "+DtoC(ddatabase)
Aadd(oProcess:oHtml:ValByName("HISTO.LINHA"),_msg)
_msg := "Do funcionario(a):<i><b> "+SRA->RA_NOME
Aadd(oProcess:oHtml:ValByName("HISTO.LINHA"),_msg)
_msg := "Nova função:<i><b> "+m->RA_CODFUNC + space(1) + "-" + space(1) + _cNovfunc
Aadd(oProcess:oHtml:ValByName("HISTO.LINHA"),_msg)
_msg := "Antiga função:<i><b> "+SRA->RA_CODFUNC+ space(1) + "-" + space(1) + _cAntfunc
Aadd(oProcess:oHtml:ValByName("HISTO.LINHA"),_msg)
_msg := "Matricula:<i><b> "+SRA->RA_MAT
Aadd(oProcess:oHtml:ValByName("HISTO.LINHA"),_msg)
_msg := "Unidade - "+"<i><b>"+SRA->RA_FILIAL + space(1) + "-" + space(1) + SM0->M0_FILIAL
Aadd(oProcess:oHtml:ValByName("HISTO.LINHA"),_msg)
oProcess:Start()
oProcess:Finish()

EndIf

ENDIF

return