Histórico da Página
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 d eventual bloqueio na inclusão. | |
Localização: | GPEA190 |
Eventos: | GP190LinOk |
Programa Fonte: | GPEA190.PRX |
Função: | GPEA190 |
Retorno: | .T. ou .F. |
Exemplo:
Bloco de código | ||
---|---|---|
| ||
#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 |
#Include 'Protheus.ch'
User Function GP190VPE()
Local nPosVal := GdFieldPos("RO_VALOR")
Local nPosTipo := GdFieldPos("RO_TIPO")
Local nPosCodCC := GdFieldPos("RO_CC")
Local lRet := .F.
If
aAdd( aRotina, { "GPE250MNU", "GPE250MNU", 0, 6 } )
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 lRet := .T.
EndIf
Return lRet