Linha Microsiga Protheus

Árvore de páginas

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 de 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 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
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não