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 do eventual bloqueio na inclusão. |
Localização: | GPEA190 |
Eventos: | GP190LinOk |
Programa Fonte: | GPEA190.PRX |
Função: | GPEA190 |
Retorno: | .T. ou .F.Lógico |
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 := .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
lRet |