Pe cadastro de dependentes - validação da linha do a cols
-
Upload
alexandre-alves -
Category
Documents
-
view
130 -
download
0
Transcript of Pe cadastro de dependentes - validação da linha do a cols
GP020LOK– Validação da linha de dados do cadastro d e dependentes Ir para o final dos metadados Ir para o início dos metadados Ponto-de-Entrada: GP020LOK– Validação da linha de dados do cadastro de dependentes
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Brasil
Sistemas Operacionais: Todos
Compatível às Bases de Dados:
Todos
Idiomas: Português (Brasil)
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 d e dependentes ( [ ParamIXB ] ) --> lRet
Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIXB Array of Record
Variável do tipo private com 2 elementos:Elemento 1 - Corresponde ao conteúdo da linha de dados corrente. É cópia da variavel aCols[n].Elemento 2 - Corresponde ao cabeçalho da linha de dados corrente. É cópia da variável aHeader.
Retorno lRet (logico)
• .T. - determina que as validações foram realizadas e não foram detectadas não conformidades. O processamento prossegue..F. - foram encontradas incoerências durante a validação e o processamento não prossegue sendo necessário realizar as correções dos dados digitados.
Exemplos
#INCLUDE "Protheus.CH"User function GP020LOK()Local lRet:= .T.Local aLinha := ParamIXB[1] Local aCampo s
User Function Maior30(aLinha)Local nPosNasc := GdFi eldPos("RB_DTNASC") Local nIdade Local lRet:=
.T.nIdade := Year(dDataBase) - Year(aLinha[nPosNasc]) nIdade
aLinha[nPosNasc] ) ), nIdade- 1,nIdade)if nIdade >= 30
Confirmar (S)im / (N) não ? ") endifReturn (lRet)
Variáveis
Nome Tipo Escopo
Array of Record Global
totvs
Year(aLinha[nPosNasc]) nIdade := IIF( ( Month( dDataBase )< Month(
1,nIdade)if nIdade >= 30 lRet:= APMSGYESNO("Esse dependente é maior
Confirmar (S)im / (N) não ? ") endifReturn (lRet)
Pode Alterar descrição
Não
Seu voto:
Resultados:
0 votos
:= IIF( ( Month( dDataBase )< Month(
lRet:= APMSGYESNO("Esse dependente é maior que 30.