Histórico da Página

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.

GPEM610.PRX

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

nRemRet (numerico)

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

#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)