Linha Microsiga Protheus

Árvore de páginas


01. VISÃO GERAL

O ponto de entrada PNA140VAL permite realizar validações na exceção cadastrada para um funcionário.
O ponto de entrada é executado na validação da linha, ao trocar de linha no grid e também ao confirmar as alterações.

O retorno do ponto de entrada determina se a linha alterada é válida ou não.

Rotina:

    • PONA140 - Exceções por Funcionário 

Parâmetros:

O ponto de entrada recebe por parâmetro as informações do Grid e o Cabeçalho com a definição dos campos

ParamIxb[1] // informações do Grid (aCols)

ParamIxb[2] // Cabeçalho com a definição dos campos (aHeader)

Retorno:

O ponto de entrada deve retornar um valor Lógico, .T. para verdadeiro ou .F. para falso

02. EXEMPLO DE UTILIZAÇÃO

Obriga o preenchimento do campo Código da Refeição ao cadastrar uma exceção

Filtro
#INCLUDE "RWMAKE.CH"

User Function PNA140VAL()
	
	Local aCols 		:= ParamIxb[1]
	Local aHeader 		:= ParamIxb[2]
	Local nPosCodRef	:= 0
	Local lRet			:= .T.
	
	
	nPosCodRef := GdFieldPos( "P2_CODREF"  )
	
	If nPosCodRef > 0
		If Empty(aCols[ n, nPosCodRef])
			MsgInfo("Campo Código Refeição vazio", "Atenção")
			lRet := .F.
		EndIf
	EndIf
	
Return lRet