Regra por processo 763 - Personalizar convite de treinamento
Esta regra será executada quando o usuário clicar no nome do curso na tela de convites pendentes no TRWEB. É através desta regra que o usuário poderá manipular o html disponibilizado, mostrando as informações da turma em questão.
Recursos utilizados: estará disponível para esta regra os campos da tabela R134DTU, inclusive campos de usuário.
Exemplo:
Definir Cursor Cur_R128CUA;
Definir Alfa xHTML;
Definir Alfa xStrHtml;
Definir Alfa xQuebra;
Definir Alfa aDatIni;
Definir Alfa aDatFim;
/* Informações da definição da turma
*/
xCodCua = R134DTU.CodCua;
xTmaCua = R134DTU.TmaCua;
RetornaAscII(13, xQuebra);
xStrHtml = "";
Cur_R128CUA.SQL "SELECT * FROM
R128CUA WHERE CODCUA = :xCodCua";
Cur_R128CUA.AbrirCursor();
Se (Cur_R128CUA.Achou)
{
/* Nome do Curso */
xStrHtml = xStrHtml + "<div id=01
class=TITULOCURSO align=center>Curso:
+ Cur_R128CUA.NomCua + "</div>" +
xQuebra;
/* Período da Turma */
ConverteDateTime(R134DTU.DatIni, 2,
aDatIni);
ConverteDateTime(R134DTU.DatFim, 2,
aDatFim);
xStrHtml = xStrHtml + "<div id=02>"
+ xQuebra +
" <span
class=ROTULO>Período: </span>" + xQuebra +
" <span class=INFO>" +
aDatIni + " à " + aDatFim + "</span>" + xQuebra +
"</div>" + xQuebra;
xStrHtml = xStrHtml +
"<hr class='LINHACONVITE'/>" + xQuebra;
}
Cur_R128CUA.FecharCursor();
xStrHtml = xStrHtml + xQuebra;
xHTML = WEB_HTML;
WAdicionanoHTML(xStrHtml, xHTML,
"<!--INSERE_TEXTO_TEMPLATE-->");
WEB_HTML = xHTML;
Disponível para o módulo: TR.