Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: GP020CGV - Complemento de Informações dos 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: 
Ponto de entrada acionado após a confirmação da manutenção (inclusão, alteração, exclusão ou visualização) das informações dos dependentes.
Programa Fonte 
GPEA020.prx
Sintaxe

GP020CGV - Complemento de Informações dos Dependentes ( [ ParamIXB ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIXB Array of Record Array com 4 elementos onde:Elemento 1 - corresponde aos dados da Linha de dadosElemento 2 - array correspondente ao cabeçalho da linha de dadosElemento 3 - Operação da manutenção de dados dos dependentesElemento 4 - Informa se a operação foi confirmada pelo usuário
Retorno
    ()
Exemplos 
User function GP020CGV()Local lRet		:= .T.Local aLinhas	:= ParamIXB[1]  Local aCampos	:= ParamIXB[2]  Local nOpcao	:= ParamIXB[3]  //-- Opcao de manutencao: 2 - Consulta, 3 - Inclusao, 4 - Alteracao, 5 - ExclusaoLocal lConfirma	:= ParamIXB[4]  //-- .T. - Confirmou a operacao de manutencaoLocal nX            Local nQtMais30 := 0                            IF lConfirma .and. nOpcao # 2 	For nX:= 1 To Len(aLinhas)		IF ( U_Maior30GV(aLinhas[nX]) )		    //-- Alimenta campo de usuario		    nQtMais30 ++	    Endif	Next nX  		Alert('Qtde Filhos >= 30: '+ Strzero(nQtMais30,2))				   	    			   EndifReturn(lRet) User Function Maior30GV(aLinha)Local nPosNasc	:= GdFieldPos("RB_DTNASC")  Local nIdade	Local lRet:= .F.nIdade	:= Year(dDataBase) - Year(aLinha[nPosNasc]) nIdade	:= IIF( ( Month( dDataBase )< Month( aLinha[nPosNasc] ) ), nIdade-1,nIdade)if nIdade >= 30	lRet:= .T.endifReturn (lRet)
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não