Ponto-de-Entrada: OM030ANGR - Antecede a Gravação de 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 |
| Idiomas: | Português (Brasil) |
Descrição:
Ponto de Entrada executado antes da gravação de requisição de serviços.
Eventos
If ExistBlock("OM030ANGR")
lRetPE := ExecBlock("OM030ANGR",.f.,.f.,)
If !lRetPE
Return
Endif
EndIf
lRetPE := ExecBlock("OM030ANGR",.f.,.f.,)
If !lRetPE
Return
Endif
EndIf
Programa Fonte
OFIOM030
Sintaxe
OM030ANGR - Antecede a Gravação de 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 gravação da requisição.
Observações
Exemplos
User Function OM030ANGR()Local lRetorno := .f.If MsgYesNo("Ponto de Entrada antes da gravação da requisição." + CHR(13) + CHR(10) + "Deseja prosseguir com a gravação ?") lRetorno := .t.EndIfReturn lRetorno
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |