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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas