Ponto-de-Entrada: OX001TOK - Botões OK
| 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 localizado na rotina Orçamento de Peças e Serviços (OFIXX001), executado em todos os botões OK, com a finalidade de questionar se o usuário continua ou abortar a operação.
Eventos
User Function OX001TOK ()
lRet := MsgYesNo(“Deseja continuar ?”,”Atencao”)
return lRet
Programa Fonte
OFIXX001.PRW
Sintaxe
OX001TOK - Botões OK ( [ ] ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
lRet(logico)
- Continua ou Aborta Execução.
Observações
Static Function OX001TUDOK(nOpc)
Local nCntFor
//
IF FECHA .or. EXCLUI
return .t.
endif
// ####################################################
// Ponto de Entrada para validacao de todo o orcamento
// ####################################################
If ( ExistBlock("OX001TOK") )
lRet := ExecBlock("OX001TOK",.F.,.F.,{lRet})
If !lRet
return .f.
EndIf
EndIf
// ############################################################
// # Verifica campos obrigatorios da Enchoice #
// ############################################################
if M->VS1_TIPORC == "2"
if Empty(M->VS1_CHASSI)
if !lOX001Auto
MsgInfo(STR0054,STR0025)
endif
return .f.
endif
endif
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |