Histórico da Página
...
02. EXEMPLO DE UTILIZAÇÃO
Tabela Salarial (exemplo):
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"
ConnoutConout("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+cClasseDe)
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
ConnoutConout("Saiu do PE CSASAL1!")
RestArea(aSaveArea)
Return(nNovoSalario)
...