English
Español
CarregaQtdeColGHE
Função que busca a quantidade de colaboradores de determinado PGR/GHE podendo agrupá-los por Turno, Faixa Etária, Turno/Faixa Etária. O resultado é divido entre o sexo masculino e feminino.
Os dados são armazenados numa lista interna, sendo que para recuperá-los é necessário utilizar a função RetornaQtdColGHE.
Sintaxe: CarregaQtdColGHE(Numero xTipo, Numero xCodPRA, Numero xCodGHE, Numero xData, Alfa xAbrFil, Numero xDe, Numero xAte)
Parâmetros:Nome | Tipo | Descrição |
xTipo | Numérica | Forma que são agrupados os colaboradores (1-Turno, 2-Faixa Etária, 3-Turno/Faixa Etária). |
xCodPRA | Numérica | Código do PGR. |
xCodGHE | Numérica | Código do GHE - Grupo Homogêneo de Exposição. |
xData | Numérica | Data de referência. |
xAbrFil | Alfanumérica | Abrangência de filial. |
xDe | Numérica | Início da faixa etária. |
xAte | Numérica | Término da faixa etária. |
<div class="Code"><p style="font-family: 'Courier New';font-size: 10pt;">xInd = 1;</p><p style="font-family: 'Courier New';font-size: 10pt;"><br></br>Enquanto (xInd < 4)<br></br>inicio<br></br></p><p style="font-family: 'Courier New';font-size: 10pt;">se (xInd = 1)<br></br>{<br></br></p><p style="font-family: 'Courier New';font-size: 10pt;">xFxDe = 0;<br></br>xFxAte = 18;</p><p style="font-family: 'Courier New';font-size: 10pt;">}</p><p style="font-family: 'Courier New';font-size: 10pt;">senao<br></br>se (xInd = 2)<br></br>{</p><p style="font-family: 'Courier New';font-size: 10pt;">xFxDe = 19;<br></br>xFxAte = 46;</p><p style="font-family: 'Courier New';font-size: 10pt;">}<br></br></p><p style="font-family: 'Courier New';font-size: 10pt;">senao<br></br>se (xInd = 3)<br></br>{</p><p style="font-family: 'Courier New';font-size: 10pt;">xFxDe = 47;<br></br>xFxAte = 99;</p><p style="font-family: 'Courier New';font-size: 10pt;">}</p><p style="font-family: 'Courier New';font-size: 10pt;">@ Busca a quantidade de colaboradores agrupando por Turno/Faixa Etária @</p><p style="font-family: 'Courier New';font-size: 10pt;">CarregaQtdColGHE(3, R583GHE.CODPRA, R583GHE.CODGHE, EDatRef, EAbrFil, xFxDe, xFxAte);</p><p style="font-family: 'Courier New';font-size: 10pt;">xQtdCol = RetornaQtdColGHE("INICIO", xTurno, xDe, xAte, xQtdM, xQtdF);</p><p style="font-family: 'Courier New';font-size: 10pt;">@ Seta os valores retornados para os controles @</p><p style="font-family: 'Courier New';font-size: 10pt;">Enquanto (xTurno <> 0)<br></br>inicio</p><p style="font-family: 'Courier New';font-size: 10pt;">FTurno = xTurno;</p><p style="font-family: 'Courier New';font-size: 10pt;">FFxDe = xDe;</p><p style="font-family: 'Courier New';font-size: 10pt;">FFxAte = xAte;</p><p style="font-family: 'Courier New';font-size: 10pt;">FQtdM = xQtdM;</p><p style="font-family: 'Courier New';font-size: 10pt;">FQtdF = xQtdF;</p><p style="font-family: 'Courier New';font-size: 10pt;">FTotal = xQtdCol;</p><p style="font-family: 'Courier New';font-size: 10pt;">ListaSecao("Adicional_Info");</p><p style="font-family: 'Courier New';font-size: 10pt;">xQtdCol = RetornaQtdColGHE("PROXIMO", xTurno, xDe, xAte, xQtdM, xQtdF);</p><p style="font-family: 'Courier New';font-size: 10pt;">fim;</p><p style="font-family: 'Courier New';font-size: 10pt;">fim;</p></div>
Utilização: Gerador de Relatórios
Disponível para o módulo: SM.
English
Español
