Abrangências: | Microsiga Protheus 11 |
Versões: | Microsiga Protheus 11 |
Compatível Países: | Mercado Internacional |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Português (Brasil) |
Essa implementação tem o objetivo de calcular o salário incorporado na rotina de férias através de fórmulas de usuário, alterando o SALMES, SALDIA, etc.
Exemplo:
User Function SAL_USUA
Local aArea := GetArea()
Local nExecRot
DbSelectArea("RC2")
RC2->(DbSetOrder(1))
If RC2->(DbSeek(xFilial("RC2")+"U_UFORTST"))
MsAguarde( {|| nExecRot := ExecForm( SRA->RA_FILIAL, "UFORTST", "FOL") }, OemToAnsi("Aguarde..."), OemToAnsi("Montando Salarios incorporados") )
EndIF
RestArea(aArea)
Return(nExecRot)
Exemplo codigo fonte gerado da fórmula U_UFORTST
Function U_UFORTST()
S_CARGASRC()
S_CARGATAB()
S_CARGARCF()
S_CARGASRF()
S_CARGASRO()
S_CARGARG1()
S_CARGARCM()
S_CARGASR8()
S_CARGASRB()
S_PROCSR8()
S_DIASTRAB()
S_SALARIOM()
S_SALARIOD()
S_SALARIOH()
S_SALARIOB()
S_SALARIOG()
S_CALCDSR()
S_GRAVASAL()
S_PROCSRO()
S_PARDSRAT()
S_BASEDSRF()
S_BASEATVF()
S_SALPROF()
S_CALATS()
S_CALPERAT()
S_CALATSGP()
S_GRVATS()
S_INSALUB()
S_GRVINSAL()
S_PERICUL()
S_GRVPERIC()
S_PROCRG1()
CTIPOROT := "3"
End Sequence
Return
Atenção
Na Versão 12 este ponto de entrada não faz sentido, já que o salário é calculado no roteiro FER