Ponto-de-Entrada: OM030TOK - Confirmação da 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 na rotina Req Serviços/Apont (OFIOM030), executado ao confirmar a requisição de serviços questionando se o usuário deseja confirmar ou cancelar a requisição.
Eventos
User Function OM030TOK()
Local lRetorno := .f.
Local aHReq := ParamIXB[1] // aHeader da GetDados de Requisição
Local aCReq := ParamIXB[2] // aCols da GetDados de Requisição
If MsgYesNo("Ponto de Entrada ao confirmar a requisição." + CHR(13) + CHR(10) + ;
"Deseja prosseguir ?")
lRetorno := .t.
EndIf
Return lRetorno
Programa Fonte
OFIOM030.PRW
Sintaxe
OM030TOK - Confirmação da requisição de serviços ( [ aHReq ], [ aCReq ] ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| aHReq | Vetor | Copia da array aHeader da GetDados de Requisição de Serviços. | |||||||||||||||
| aCReq | Array of Record | Copia da array aCols da GetDados de Requisição de Serviços. |
Retorno
-
lRet(logico)
- Indica se pode continuar com a Requisição.
Observações
If ( ExistBlock("OM030TOK") )
lRet := ExecBlock("OM030TOK",.F.,.F.,{aClone(aAuxaHeader),aClone(aAuxaCols)})
EndIf
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |