RetAdmSeg

Carrega variáveis de sistema com as informações de qual administradora, seguridade e percentual que o colaborador possui em determinada data e como retorno da função a quantidade de registros que o sistema leu para o colaborador.

Sintaxe: RetAdmSeg(Numero aNumEmp, Numero aTipCol, Numero aNumCad, Numero DatRef, Numero end aQtdLido);

<div class="Code"><p>@ ---- Exemplo de regra no evento Seleção de um relatório ---- @<br></br>@ Quando encontrar algum registro na função e for do empregado @<br></br>@ 177 da empresa 707, então guarda os retornos deste colaborador @<br></br>@ nos vetores definidos na regra @<br></br><br></br>Definir Numero RetAdmSeg[100];<br></br>Definir Numero RetPerSeg[100];<br></br>Definir Numero RetCodSeg[100];<br></br><br></br>RetAdmSeg(R034FUN.NumEmp, R034FUN.TipCol, R034FUN.NumCad, DatSis, aQtdLido);<br></br>x = 1;<br></br>Enquanto (aQtdLido &#x3C;> 0)<br></br>inicio<br></br>Se ((R034FUN.NumEmp = 707) e (R034FUN.TipCol = 1) e (R034FUN.NumCad = 177))<br></br>inicio<br></br>RetAdmSeg[x] = AdmSeg[x];<br></br>RetCodSeg[x] = CodSeg[x];<br></br>RetPerSeg[x] = PerSeg[x];<br></br>x++;<br></br>aQtdLido--; <br></br>fim;<br></br>fim;<br></br>.......</p></div>

Disponível para o módulo: Administração de Pessoal na versão Internacional.