Linha Microsiga Protheus

Árvore de páginas



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)


Descrição:
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