Linha Microsiga Protheus

Árvore de páginas


01. VISÃO GERAL

O Ponto de Entrada PN350GRV permite realizar a validação das informações antes de realizar a gravação do Pré-Abono.

O retorno do Ponto de Entrada deverá ser lógico, .T. para dados válidos, permitido a gravação e .F. para impedir que os lançamentos sejam salvos.

Rotina:

    • PONA350 - Pré-Abono

Parâmetros:
Será enviado um array contendo todos os registros do Pré-Abono do funcionário que está sendo feito o cadastro via variável ParamIXB.

Retorno:
Deverá ser retornado um valor lógico.

    • .T. → Prossegue para a gravação dos dados
    • .F. → Impede que os lançamentos sejam salvos.

02. EXEMPLO DE UTILIZAÇÃO

Verifica se o campo "Conforme Tabela" está com Sim e pergunta ao usuário se deseja continuar

Validação
#INCLUDE "TOTVS.CH"

User Function PN350GRV()
	
	Local aCols 	:= PARAMIXB[1]
	Local nHorTab	:= GdFieldPos("RF0_HORTAB")
	Local nPosAbo	:= GdFieldPos("RF0_ABONA")
	Local nI		:= 0
	Local lRet		:= .T.
	
	If nPosAbo > 0 .And. nHorTab > 0
		For nI := 1 To Len(aCols)
			If aCols[nI][nPosAbo] == "N" .And. aCols[nI][nHorTab] == "S"
				lRet := MsgYesNo("Está sendo lançado um pré-abono para o dia inteiro, deseja continuar?")
			EndIf
		Next
	EndIf
	
Return lRet