Ponto-de-Entrada: OM030INI - Requisição de Serviços
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
Descrição:
Localização: Este Ponto de Entrada está localizado na rotina Requisição de Serviços (OFIOM030), executado antes da montagem da dialog principal da requisição de serviços.Finalidade: Permite realizar a validação do Sistema.
Eventos
User Function OM030INI()
Local lRetorno := .f.
If MsgYesNo("Ponto de Entrada antes da Montagem da Dialog de Requisicao de Servico." + CHR(13) + CHR(10) + "Deseja prosseguir com a requisição ?")
lRetorno := .t.
EndIf
Return lRetorno
Programa Fonte
OFIOM030.PRW
Sintaxe
OM030INI - Requisição de Serviços ( [ ] ) --> lRetorno
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
lRetorno(logico)
- Indica se pode continuar com a requisição.
Observações
If ExistBlock("OM030INI")
lRet := ExecBlock("OM030INI",.f.,.f.,{})
If !lRet
Return
Endif
Endif
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |