PE TR060WF Permite customizar envio de e-mail/workflow de confirmação de reserva de treinamento.

01. DADOS GERAIS

Produto:	TOTVS RH
Linha de Produto:	Linha Protheus
Segmento:	RH
Módulo:	TOTVS RH (Linha Protheus) - Treinamento (SIGATRM)
Função:	TRMA060 - Reserva de Treinamento
País:	Brasil

02. DESCRIÇÃO

Ponto de Entrada para customização de workflow/e-mail de confirmação de Reserva de Treinamento.

Localização

Tr060Grava() - Função de gravação da Reserva. (TRMA060).

Parâmetro

Nome

Tipo

Descrição

PARAMIXB

Array

Array com informações do processamento.

Nome	Tipo	Descrição
PARAMIXB[1]	Caracter	Filial
PARAMIXB[2]	Caracter	Matricula
PARAMIXB[3]	Caracter	Código do Calendário
PARAMIXB[4]	Caracter	Código do Curso
PARAMIXB[5]	Caracter	Turma
PARAMIXB[6]	Caracter	Situação ("R", "S", "L")
PARAMIXB[7]	Caracter	Obs linha 1
PARAMIXB[8]	Caracter	Obs linha 2
PARAMIXB[9]	Caracter	Obs linha 3
PARAMIXB[10]	Caracter	Obs linha 4
PARAMIXB[11]	Caracter	Obs linha 5
PARAMIXB[12]	Caracter	Obs linha 6
PARAMIXB[13]	Caracter	Assunto

Retorno

Nil

03. DEMAIS INFORMAÇÕES

Exemplo de utilização:

User Function TR060WF()

//Parametros recebidos
Local cFilAux := PARAMIXB[1] // Filial corrente
Local cMat := PARAMIXB[2] // Matricula
Local cCalend := PARAMIXB[3] // Codigo do Calendario
Local cCurso := PARAMIXB[4] // Codigo do Curso
Local cTurma := PARAMIXB[5] // Turma
Local cSx5 := PARAMIXB[6] // Situacao ("R"-Reservado, "S"-Solicitacao, "L"-Lista Espera, " " - Cancelado)
Local cObs1 := PARAMIXB[7] // 1a linha de Observação

Local cObs2 := PARAMIXB[8] // 2a linha de Observação

Local cObs3 := PARAMIXB[9] // 3a linha de Observação

Local cObs4 := PARAMIXB[10] // 4a linha de Observação

Local cObs5 := PARAMIXB[11] // 5a linha de Observação

Local cObs6 := PARAMIXB[12] // 6a linha de Observação

Local cAssunto := PARAMIXB[13] // Assunto do Email
Local cTipoMail := ""
Local cNome := ""
Local cDCurso := ""
Local cDCalend := ""
Local cInstrut := ""
Local cDInicio := ""
Local cDfim := ""
Local cHorario := ""
Local cEntidade := ""
Local cLocal := ""
Local cSituac := (Iif(cSx5 == "R", "Reservado",; //"Reservado"
(Iif(cSx5 == "S", "Solicitacao",; //"Solicitacao"
(Iif(cSx5 == "L", "Lista de Espera",; //"Lista de Espera"
"Cancelado")))))) //"Cancelado"

Local cMensagem := "" // Conteudo de Retorno

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Nome do Funcionario ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
dbSelectArea("SRA")
cFil:= xFilial("SRA", cFilAux)
dbSeek(cFil+cMat)
cNome := SRA->RA_NOME
cTipomail := SRA->RA_TPMAIL

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Curso ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
dbSelectArea("RA1")
cFil:= xFilial("RA1", cFilAux)
dbSeek(cFil+cCurso)
cDCurso := RA1->RA1_DESC

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Calendario ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
dbSelectArea("RA2")
cFil:= xFilial("RA2", cFilAux)
dbSeek(cFil+cCalend+cCurso+cTurma)
cDCalend := RA2->RA2_DESC
cLocal := RA2->RA2_LOCAL
cDInicio := Dtoc(RA2->RA2_DATAIN)
cDFim := Dtoc(RA2->RA2_DATAFI)
cHorario := RA2->RA2_HORARI

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Instrutor ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
dbSelectArea("RA7")
cFil:= xFilial("RA7", cFilAux)
dbSeek(cFil+RA2->RA2_INSTRU)
cInstrut := RA7->RA7_NOME

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Entidade ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
dbSelectArea("RA0")
cFil:= xFilial("RA0", cFilAux)
dbSeek(cFil+RA2->RA2_ENTIDA)
cEntidade := RA0->RA0_DESC

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Envia e-mail: cTipoMail = "1" (Formato Html) ou = "2" (Formato Texto) ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If cTipoMail == "2"
cMensagem := Upper(cAssunto) + CHR(13)+CHR(10) +CHR(13)+CHR(10)//"CONFIRMACAO DE TREINAMENTO" ou "CANCELAMENTO DE TREINAMENTO"
cMensagem += "Funcionario: " + cMat + " - " + cNome +CHR(13)+CHR(10)
cMensagem += "Calendario: " + cCalend + " - " + cDCalend +CHR(13)+CHR(10)
cMensagem += "Curso: " + cCurso + " - " + cDCurso +CHR(13)+CHR(10)
cMensagem += "Turma: " + cTurma +CHR(13)+CHR(10)
cMensagem += "Instrutor: " + cInstrut +CHR(13)+CHR(10)
cMensagem += "Periodo: " + cDInicio + " a " + cDFim +CHR(13)+CHR(10)
cMensagem += "Horario: " + cHorario +CHR(13)+CHR(10)
cMensagem += "Entidade: " + cEntidade +CHR(13)+CHR(10)
cMensagem += "Local: " + cLocal +CHR(13)+CHR(10)
cMensagem += "Situacao: " + cSituac +CHR(13)+CHR(10)
cMensagem += CHR(13)+CHR(10)

cMensagem += "Observacoes: " +CHR(13)+CHR(10)
cMensagem += cObs1 +CHR(13)+CHR(10)
cMensagem += cObs2 +CHR(13)+CHR(10)
cMensagem += cObs3 +CHR(13)+CHR(10)
cMensagem += cObs4 +CHR(13)+CHR(10)
cMensagem += cObs5 +CHR(13)+CHR(10)
cMensagem += cObs6 +CHR(13)+CHR(10)
Else
cMensagem := '<html><title>'+cAssunto+'</title><body>'
cMensagem += '<table borderColor="#0099cc" height="29" cellSpacing="1" width="645" borderColorLight="#0099cc" border=1>'
cMensagem += '<tr><td borderColor="#0099cc" borderColorLight="#0099cc" align="left" width="606"'
cMensagem += 'borderColorDark=v bgColor="#0099cc" height="1">'
cMensagem += ''
cMensagem += ''+OemToAnsi(cAssunto)+'</td></tr>'
cMensagem += '<tr><td align="left" width="606" height="32">'+' '+''+' ' + '' + OemtoAnsi("Funcionario: ") + '' + '' + '' + cMat + " - " + cNome + '' + ' '
cMensagem += '' + '' + "Calendario: " + '' + '' + '' + cCalend + " - " + cDCalend + '' + ' '
cMensagem += '' + '' + "Curso: " + '' + '' + '' + cCurso + " - " + cDCurso + '' + ' '
cMensagem += '' + '' + "Turma: " + '' + '' + '' + cTurma + '' + ' '
cMensagem += '' + '' + "Instrutor: " + '' + '' + '' + cInstrut + '' + ' '
cMensagem += '' + '' + "Periodo: " + '' + '' + '' + cDInicio + '' +" a " +''+ cDFim + '' + ' '
cMensagem += '' + '' + "Horario: " + '' + '' + '' + cHorario + '' +' '
cMensagem += '' + '' + "Entidade: " + '' + '' + '' + cEntidade + '' + ' '
cMensagem += '' + '' + "Local: " + '' + '' + '' + cLocal + '' + ' '
cMensagem += '' + '' + "Situacao: " + '' + '' + '' + cSituac + '' +' '
cMensagem += ' '
cMensagem += ' '+ '' + "Observacoes: " + ''+''+' '
cMensagem += '' + cObs1 + '' +' '
cMensagem += '' + cObs2 + '' +' '
cMensagem += '' + cObs3 + '' +' '
cMensagem += '' + cObs4 + '' +' '
cMensagem += '' + cObs5 + '' +' '
cMensagem += '' + cObs6 + '' +' '
cMensagem += +'</td></tr>'
EndIf

Return cMensagem

04. ASSUNTOS RELACIONADOS

Não há.

Árvore de páginas

PE TR060WF Permite customizar envio de e-mail/workflow de confirmação de reserva de treinamento.

01. DADOS GERAIS

02. DESCRIÇÃO

03. DEMAIS INFORMAÇÕES

04. ASSUNTOS RELACIONADOS