Histórico da Página
...
- 1: Código do Grau de Parentesco (Tipo Caracter) - Obrigatório
- 2: Tipo de Usuário (Tipo Caracter) - Obrigatório
- 3: Valida Reembolso Patronal (Tipo Lógico) - Obrigatório - Para seguir com as validações do padrão, esse campo deverá retornar .T.
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#Include "PROTHEUS.CH"
User Function PLCPATRO()
Local cMatricBeneficiaro := PARAMIXB[1]
Local cGrauCustomizado := ""
Local cTipoUsuario := ""
Local lDireito := .T.
Local aAreaBA1 := BA1->(GetArea())
BA1->(DbSetOrder(2))
If BA1->(MsSeek(xFilial("BA1")+cMatricBeneficiaro))
cGrauCustomizado := BA1->BA1_GRAUPA
cTipoUsuario := BA1->BA1_TIPUSU
// Regra especifica pra definir que o beneficiário não tem direito, com isso não será verifica pelo padrão
lDireito := .F.
EndIf
RestArea(aAreaBA1)
Return {cGrauCustomizado, cTipoUsuario, lDireito} |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas