Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: GP020CGV - Complemento de Informações dos Dependentes
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:
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
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas