Linha de Produto: | Microsiga Protheus®. | ||||||
Segmento: | Serviços. | ||||||
Módulo: | SIGAGPE. | ||||||
Rotina: |
| ||||||
Chamados Relacionados | TVVHM2. | ||||||
País(es): | Todos. |
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:
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.
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)