Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: GPE610REM - Altera Valor da Remuneração sem 13º Salário de Funcionários Demitidos
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Brasil
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
Ponto de entrada acionado apenas para funcionários demitidos, após apuração da remuneração sem 13º salário do funcionário.Este Ponto de Entrada altera o valor da remuneração apurada pelo sistema, acrescentando ou diminuindo seu valor. Uma vez executado, o valor enviado para SEFIP como remuneração sem 13ºSalário, será o valor retornado por este ponto na variável nRemRet, mesmo este sendo zerado.
Programa Fonte 
GPEM610.PRX
Sintaxe

GPE610REM - Altera Valor da Remuneração sem 13º Salário de Funcionários Demitidos ( [ ] ) --> nRemRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    nRemRet (numerico)
Observações

Deverá retornar variavel nRemRet com valor da Remuneração sem 13º Salário.

Exemplos 
#INCLUDE 'RWMAKE.CH'                               //TESTE PONTO ENTRADA GP610REMUSER FUNCTION GPE610REM()Local cTitulo := "Teste Ponto de Entrada GPE610REM"  Local cMat	  := SRA->RA_MATLocal nRemRet := 0 dbSelectArea("SRC")dbSetOrder(1)SRC->( dbSeek(SRA->RA_FILIAL+SRA->RA_MAT))While !Eof() .And. (!lRat .And. SRC->RC_FILIAL+SRC->RC_MAT == SRA->RA_FILIAL+SRA->RA_MAT) 					If SRC->RC_PD == aCodFol[111,1] // Aviso Indenizado		nRemRet := nBInss - Round(SRC->RC_VALOR,2)											EndIf		dbSelectArea("SRC")	dbSkip()EndDoReturn (nRemRet)
Variáveis
Nome Tipo Escopo Pode Alterar descrição
nBInss Numérico Global Não Valor da Remuneracao sem 13.Salario calculada pelo sistema.
nBFgts Numérico Global Não valor base do fgts do funcionario
lRat Lógico Global Não Indica se a sefip esta sendo gerada por centro de custo
aCodFol Array of Record Global Não Array com os identificadores de calculo e suas respectivas verbas.
Array of Record Global Não