Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: GP020LOK– Validação da linha de dados do cadastro de dependentes
Descrição: No cadastro de dependentes, esse ponto de entrada é executado na validação da linha de dados digitada após as validações padrões da rotina. A customização poderá determinar a continuação do processo ou o retorno para a linha de dados corrente. Programa Fonte GPEA020.PRX Sintaxe GP020LOK– Validação da linha de dados do cadastro de dependentes ( [ ParamIXB ] ) --> lRet Parâmetros:
Retorno
Exemplos #INCLUDE "Protheus.CH"User function GP020LOK()Local lRet:= .T.Local aLinha := ParamIXB[1] Local aCampos := ParamIXB[2] //--Mensagem para dependentes maiores que 30 (nessa hipotese impede registro do dependente)lRet:=U_Maior30(aLinha)Return(lRet) User Function Maior30(aLinha)Local nPosNasc := GdFieldPos("RB_DTNASC") Local nIdade Local lRet:= .T.nIdade := Year(dDataBase) - Year(aLinha[nPosNasc]) nIdade := IIF( ( Month( dDataBase )< Month( aLinha[nPosNasc] ) ), nIdade-1,nIdade)if nIdade >= 30 lRet:= APMSGYESNO("Esse dependente é maior que 30. Confirmar (S)im / (N) não ? ") endifReturn (lRet) Variáveis
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas