Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: GP020OKT– Validação da confirmação da rotina do cadastro de dependentes
Descrição: No cadastro de dependentes, esse ponto de entrada é executado na validação da confirmação da rotina. A customização poderá determinar a continuação do processo ou o retorno para a janela de digitação. Programa Fonte GPEA020.PRX Sintaxe GP020OKT– Validação da confirmação da rotina do cadastro de dependentes ( [ ParamIXB ] ) --> lRet Parâmetros:
Retorno
Exemplos #INCLUDE "Protheus.CH"User function GP020OKT()Local lRet := .T.Local aLinhas := ParamIXB[1] Local aCampos := ParamIXB[2] Local nXFor nX:= 1 To Len(aLinhas) IF ! (lRet := U_Maior30(aLinhas[nX]) ) Exit EndifNext nX 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