Linha Microsiga Protheus

Árvore de páginas

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