CSASAL1 - Permite fixar um valor de Salário para uma Classe Salarial

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é  durante o processamento do Reajuste Salarial por Tabela.

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"
User Function CSASAL1()
Local aSaveArea := GetArea()
Local aParam        := PARAMIXB
Local nNovoSalario  := 0
Local cTabela       := "003"

 Conout("Passou pelo PE CSASAL1!")

If aParam <> 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
    If dbSeek(cFil+cClasseDe+cTabela)
        While !EoF() .And. RB6->RB6_FILIAL+RB6->RB6_TABELA == cFil+cTabela .And. nNovoSalario == 0
            If RB6->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
                If RB6->RB6_CLASSE == "001"
                    nNovoSalario := 2050
                EndIf
            EndIf
            dbskip()
        EndDo
    EndIf      
EndIf

 Conout("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: