Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: GP020OKT– Validação da confirmação da rotina 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 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:
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 das linhas de dados dos dependentes. É cópia da variavel aCols.Elemento 2 - Corresponde ao cabeçalho da linha de dados. É 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 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
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não