Histórico da Página

CONTEÚDO

1. Visão Geral
2. Exemplo de utilização
3. Tabelas utilizadas

01. VISÃO GERAL

Este Ponto de Entrada permite que o usuário retorne um valor de Salário que não esteja cadastrado na Tabela Salarial, que deve ser associado à uma Classe Salarial específica contida na lista de Classe Salarial De/ Classe Salarial Até seja alterada Até  durante o processamento do Reajuste Salarial por Tabela.

02. EXEMPLO DE UTILIZAÇÃO

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

 Connout("Saiu do PE CSASAL1!")

RestArea(aSaveArea)

Return(nNovoSalario)

03. PARÂMETROS/RETORNO

Parâmetros a serem enviados no ponto de entrada:

...

Variáveis de retorno do Ponto de Entrada: