Tempo aproximado para leitura: 00:01:30 min
Dúvida
RH - Linha Protheus - GPE - Funcionalidade do ponto de Entrada: GPM060EX (Exclusão de Títulos)
Ambiente
TOTVS RH - TOTVS RH (Linha Protheus) - Gestão de Pessoal - Versão 12.1.17
Solução:
Exemplo:
#Include 'Protheus.ch'
/*
O ponto de entrada GPM060EX substitui a validação padrão de exclusão de títulos
No padrão, caso o título não esteja liberado ou esteja inconsistente, o título é excluído normalmente.
Se o título já foi integrado e já foi baixado ou esteja em borderô, a exclusão não será permitida.
*/
User Function GPM060EX()
Local cFolMes := SuperGetMV("MV_FOLMES", .F., "")
Local lRet := .F.
If RC1->RC1_COMPET >= SubStr( cFolMes, 5, 2 ) + SubStr( cFolMes, 1, 4 )
lRet := .T.
EndIf
/*
No exemplo acima, é verificado se o titulo é referente a competência igual ou
superior ao da folha em aberto.
Caso seja, a exclusão do título é permitida, caso contrário, a exclusão não será efetuada.
*/
Return lRet
Abaixo apresentação do ponto de entrada sendo executado:
Saiba Mais:
RH - Linha Protheus - GPE - Quais são os pontos de entrada disponíveis na rotina GPEM660
0 Comentários