Ponto-de-Entrada: GP240OK - Configuração do Botão OK
Versões: | Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Descrição:
Esse ponto de entrada permite complementar a validação do botão Ok da rotina de Cadastro de Afastamentos
Programa Fonte
GPEA240.PRX
Sintaxe
GP240OK - Configuração do Botão OK ( [ ] ) --> lRet
Parâmetros:
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
Array of Record |
Retorno
-
lRet(logico)
- Indica se efetiva a gravação
Observações
O ponto de entrada deve retornar um valor lógico para indicar se realiza a gravação. O retorno .T. indica que a rotina deve efetuar a gravação e, o retorno .F. indica que a rotina não irá efetuar a gravação.
Exemplos
//Nesse exemplo, se o funcionário for do Centro de Cuto 200100001, não permite gravar o afastamento#INCLUDE 'PROTHEUS.CH'User Function Gp240Ok()Local aArea := GetArea()Local lRet := .T.Alert( "Passou pelo PE Gp240Ok" )If SRA->RA_CC == "200100001" lRet := .F.EndIfRestArea(aArea)Return(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