Histórico da Página

...

02. EXEMPLO DE UTILIZAÇÃO

Tabela Salarial (exemplo):

Image Added

Com o exemplo abaixo todos os funcionários terão seu salário reajustado para R$ 2050,00 por somente pertencerem à Classe Salarial 001 – Estagiário/Menor Aprendiz independente do Nível/Faixa:

#INCLUDE"PROTHEUS.CH"
UserFunctionCSASAL1()
LocalaSaveArea := GetArea()
LocalaParam        := PARAMIXB
LocalnNovoSalario  := 0
LocalcTabela       := "003"

 Connout("Passou pelo PE CSASAL1!")

IfaParam <> NIL      
    cClasseDe    := aParam[1]
    cClasseATe   := aParam[2]
    cFil := xFilial("RB6",SRA->RA_FILIAL)
    dbSelectArea("RB6")
    dbSetOrder(2) // RB6_FILIAL+RB6_CLASSE+RB6_TABELA+RB6_NIVEL+RB6_FAIXA
    IfdbSeek(cFil+cClasseDe+cTabela)
        While !EoF() .And.RB6->RB6_FILIAL+RB6->RB6_TABELA == cFil+cTabela.And.nNovoSalario >= 0
            IfRB6->RB6_CLASSE >= cClasseDe.And.RB6->RB6_CLASSE <= cClasseAte
                // Todos funcionários (Níveis/Faixas) da Classe 001 terão
                // seu salário fixado em R$ 2050,00
                IfRB6->RB6_CLASSE == "001"
                    nNovoSalario := 2050
                EndIf
            EndIf
            dbskip()
        EndDo
    EndIf      
EndIf

 Connout("Saiu do PE CSASAL1!")

RestArea(aSaveArea)

Return(nNovoSalario)

...