Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada GPROXFUN - Verifica Funcionário para Processamento

Características do Requisito

Linha de Produto:

Microsiga Protheus®.

Segmento:

Serviços.

Módulo:

SIGAGPE.

Rotina:

Rotina

Nome Técnico

GPEM160

Cancelamento de Cálculos / Lançamentos

GPEM170Geração de Verbas

Chamados Relacionados

TVVHM2.

País(es):

Todos.

Ponto de Entrada

Descrição:

Este Ponto de Entrada tem como objetivo permitir realizar validações no Funcionário que está em foco no loop da SRA durante processamento das rotinas Cancelamento de Cálculo e Geração de Verbas.

Deve retornar verdadeiro (.T.) se desejar desperezar funcionário.

Localização:

SIGAGPE - Miscelânea - Cálculos - Cancelamento de Cálculo

SIGAGPE - Miscelânea - Cálculos - Geração de Verbas

Eventos:

Cancelamento de Cálculo (gpem160)

Geração de Verbas (gpem170)

Programa Fonte:

GPEM160.prx

GPEM170.prx

Função:

GPEM160 e GPEM170

Retorno:

Lógico (.T. ou .F.)

 

Exemplos:

GPROXFUN - P11
User Function GPROXFUN()
 
Local aArea	:= GetArea()
Local lRet	:= .T.
 
If SRA->RA_MAT == "000051"   
	lRet := .F.
EndIf
 
RestArea(aArea)
 
Return(lRet)

 

 

Atualização válida a partir do Release 12.1.7 - Expedição Outubro/2016 e superiores.

As variáveis cNOTCanRGB , cNOTCanSRC , cNOTCanSRK foram disponibilizadas apenas na rotina GPEM160.

GPROXFUN - P12
USER FUNCTION GPROXFUN()

/* Variáveis disponíveis na rotina GPEM160 para manipulação das verbas a serem canceladas
cCanVrb - verbas escolhidas para cancelamento. Preenchida com '*' (asterisco) em caso de todas verbas.
cNOTCanRGB - Variável para indicar quais verbas não poderão ser deletadas da tabela RGB - Lançamentos durante o processamento do Cancelamento de Cálculos
cNOTCanSRC - Variável para indicar quais verbas não poderão ser deletadas da tabela SRC - Resultado de Cálculo durante o processamento do Cancelamento de Cálculos
cNOTCanSRK - Variável para indicar quais verbas não poderão ser deletadas da tabela SRK- Valores Futuros durante o processamento do Cancelamento de Cálculos
*/
Local lRet	:= .F.
 
/*Neste exemplo, o PE está sendo utilizado para parametrizar as verbas que poderão ou não ser deletadas durante o processo de cálculo.*/
If nTipCanc == 1 //se tipo de cancelamento for Informados 
	If ('*' $ cCanVrb) //se estiver preenchido para deletar todas as verbas
		cNOTCanRGB := "013"
	ElseIf ('013' $ cCanVrb) //se a verba estiver preenchida na variavel de verbas escolhidas, retiro ela da variavel
		cCanVrb := STRTRAN(cCanVrb, "013", "")
	EndIf
EndIf


Return (lRet)