Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada GP190VPE - Validação de Inclusão de Tarefa


Ponto de Entrada

Descrição:

Este ponto de entrada permite validar a inclusão de determinada tarefa.

O array aCols contém todas as tarefas cadastradas e a variável N contem a posição do array que esta sendo validada.

Deverá ser retornado .T. para validar a inclusão da tarefa, ou .F., para bloqueá-la. Convém retornar uma mensagem informando a razão do eventual bloqueio na inclusão.

Localização:

GPEA190

Eventos:

GP190LinOk

Programa Fonte:

GPEA190.PRX

Função:

GPEA190

Retorno:

Lógico

 

Exemplo:

#Include 'Protheus.ch'

User Function GP190VPE()

Local nPosVal		:= GdFieldPos("RO_VALOR")
Local nPosTipo		:= GdFieldPos("RO_TIPO")
Local nPosCodCC 	:= GdFieldPos("RO_CC")
Local lRet			:= .T.

If aCols[N,nPosCodCC] <> SRA->RA_CC
	Help(, , "Atenção", NIL, "Centro de custos deve ser igual ao do cadastro de funcionário", 1, 0, NIL, NIL, NIL, NIL, NIL, {"Altere o centro de custos para o do funcionário."})
	lRet := .F.
ElseIf aCols[N,nPosVal] > 1000
	Help(, , "Atenção", NIL, "Valor unitário da tarefa ultrapassa o máximo permitido.", 1, 0, NIL, NIL, NIL, NIL, NIL, {"Informe um valor inferior a 1000."})
	lRet := .F.
EndIf

Return lRet