Histórico da Página

...

#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)
        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)

...