Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: OX001TOK - Botões OK
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:
Retorno
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
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas