Histórico da Página
CONTEÚDO
- Visão Geral
- Exemplo de utilização
- 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:
Tipo de Variável | Descrição |
---|---|
Numérico | Novo valor de Salário que será aplicado ao funcionário |