Regra por processo 791 - Atualizar dados pesquisa candidato

Regra executada durante a rotina de atualização dos dados de pesquisa dos candidatos, através da tela de Atualização dos dados de pesquisa dos candidatos (frAtuCan) ou da função de programador AtualizaDadosPesquisaCandidato.

Recursos utilizados: Disponível ao usuário a tabela R122CCO posicionada no candidato em que o sistema está realizando a atualização. Os campos de pesquisa (CURCPL) e currículo resumido (CURRES) ficam disponíveis ao usuário para alteração.

Atenção: Esta regra não deve chamar a função de programador AtualizaDadosPesquisaCandidato.

Exemplo:

<div class="Code"><p style="font-family: 'Courier New';">Definir Cursor CursorCand;<br></br>Definir Numero xNumCan;<br></br>Definir Alfa StrNomeIn;<br></br>Definir Alfa StrNomeOut;<br></br>Definir Alfa StrCurRes;</p><p style="font-family: 'Courier New';">se (R122CCO.NumCan > 0) /* Candidato Externo */<br></br>{<br></br> xNumCan = R122CCO.NumCan;<br></br> CursorCand.SQL "SELECT NOMCAN, NOMMAE FROM R122CEX WHERE NUMCAN = :xNumCan";<br></br> CursorCand.AbrirCursor();<br></br> Se (CursorCand.Achou)<br></br> {<br></br> /* Converte nome do candidato para maiúsculo no currículo resumido */<br></br> StrNomeIn = CursorCand.NomCan;<br></br> ConverteParaMaiusculo(StrNomeIn, StrNomeOut);<br></br> TrocaString (R122CCO.CurRes, StrNomeIn, StrNomeOut, StrCurRes);<br></br> R122CCO.CurRes = StrCurRes;<br></br> /* Adiciona Nome da mãe ao currículo compilado */<br></br> R122CCO.CurCpl = R122CCO.CurCpl +"|"+ CursorCand.NomMae;<br></br> }<br></br> CursorCand.FecharCursor();<br></br>}<br></br>senao /* Candidato Interno */<br></br>{<br></br> xNumEmp = R122CCO.NumEmp;<br></br> xTipCol = R122CCO.TipCol;<br></br> xNumCad = R122CCO.NumCad;<br></br> CursorCand.SQL "SELECT NOMFUN, APEFUN FROM R034FUN \<br></br> WHERE NUMEMP = :xNumEmp AND TIPCOL = :xTipCol AND NUMCAD = :xNumCad";<br></br> CursorCand.AbrirCursor();<br></br> Se (CursorCand.Achou)<br></br> {<br></br> /* Converte nome do candidato para maiúsculo no currículo resumido */<br></br> StrNomeIn = CursorCand.NomFun;<br></br> ConverteParaMaiusculo(StrNomeIn, StrNomeOut);<br></br> TrocaString (R122CCO.CurRes, StrNomeIn, StrNomeOut, StrCurRes);<br></br> R122CCO.CurRes = StrCurRes;<br></br> /* Adiciona Apelido ao currículo compilado */<br></br> R122CCO.CurCpl = R122CCO.CurCpl +"|"+ CursorCand.ApeFun;<br></br> }<br></br> CursorCand.FecharCursor();<br></br>}</p></div>

Utilização:

• Tela de Atualização dos dados de pesquisa dos candidatos;
• Função de programador AtualizaDadosPesquisaCandidato.

Disponível para o(s) Módulo(s): RS