Acessar o Zé Moleza
ou
O que você está pesquisando?
JWA ? Sistema de Controle de Ordens de Serviços
1879 visualizações
19608 palavras
Adicionar aos favoritos
Loading...- | |
End Sub
Private Function SaveOS() As Boolean
SaveOS = False
'se há dados inválidos, sai
If Not IsValid Then Exit Function
'se salvou, ajusta opções e trava campos
If fCls.Salvar Then
ShowRec 'atualiza dados salvos
SaveOS = True
Status "" 'oculta aviso
Else 'se ocorreu erro ao salvar, sai
Exit Function
End If
End Function
Private Sub cboCCusto_GotFocus()
gPrinc.SelTxt cboCCusto, True 'destaca
End Sub
Private Sub cboCCusto_LostFocus()
gPrinc.UnselTxt cboCCusto, True 'destaca
End Sub
Private Sub cboCli_GotFocus()
gPrinc.SelTxt cboCli, True 'destaca
End Sub
Private Sub cboCli_LostFocus()
gPrinc.UnselTxt cboCli, True 'destaca
End Sub
Private Sub cboFunc_GotFocus()
gPrinc.SelTxt cboFunc, True 'destaca
End Sub
Private Sub cboFunc_LostFocus()
gPrinc.UnselTxt cboFunc, True 'destaca
End Sub
Private Sub cboPrioridade_GotFocus()
gPrinc.SelTxt cboPrioridade, True 'destaca
End Sub
Private Sub cboPrioridade_LostFocus()
gPrinc.UnselTxt cboPrioridade, True 'destaca
End Sub
Private Sub cmdChange_Click()
If cmdChange.Caption Like "&Salvar*" Then
If SaveOS Then cmdChange.Caption = "&Alterar Dados da O. S."
Else
gPrinc.UnLockTab Me, MINTAB, MAXTAB 'habilita campos
fCls.Operacao = "A" 'indica alteração
cmdChange.Caption…
Private Function SaveOS() As Boolean
SaveOS = False
'se há dados inválidos, sai
If Not IsValid Then Exit Function
'se salvou, ajusta opções e trava campos
If fCls.Salvar Then
ShowRec 'atualiza dados salvos
SaveOS = True
Status "" 'oculta aviso
Else 'se ocorreu erro ao salvar, sai
Exit Function
End If
End Function
Private Sub cboCCusto_GotFocus()
gPrinc.SelTxt cboCCusto, True 'destaca
End Sub
Private Sub cboCCusto_LostFocus()
gPrinc.UnselTxt cboCCusto, True 'destaca
End Sub
Private Sub cboCli_GotFocus()
gPrinc.SelTxt cboCli, True 'destaca
End Sub
Private Sub cboCli_LostFocus()
gPrinc.UnselTxt cboCli, True 'destaca
End Sub
Private Sub cboFunc_GotFocus()
gPrinc.SelTxt cboFunc, True 'destaca
End Sub
Private Sub cboFunc_LostFocus()
gPrinc.UnselTxt cboFunc, True 'destaca
End Sub
Private Sub cboPrioridade_GotFocus()
gPrinc.SelTxt cboPrioridade, True 'destaca
End Sub
Private Sub cboPrioridade_LostFocus()
gPrinc.UnselTxt cboPrioridade, True 'destaca
End Sub
Private Sub cmdChange_Click()
If cmdChange.Caption Like "&Salvar*" Then
If SaveOS Then cmdChange.Caption = "&Alterar Dados da O. S."
Else
gPrinc.UnLockTab Me, MINTAB, MAXTAB 'habilita campos
fCls.Operacao = "A" 'indica alteração
cmdChange.Caption…
É esse o conteúdo que você precisa?
Faça seu login e saiba como ver o trabalho completo
Institucional
Saiba como fazer
Trabalhos Acadêmicos
O Zé Moleza facilita sua vida acadêmica ajudando você em suas pesquisas, e a economizar o seu tempo e o seu dinheiro nos seus trabalhos de faculdade. São mais de 26144 pesquisa acadêmicas entre elas, monografia, temas de monografias, TCC, modelos de monografias, trabalhos de universidades, resenha, Paper, Ensaio, Bibliografia, Trabalhos Escolares.
Dicas de como fazer: Capa de Monografia, capa de TCC, Regras da ABNT, como fazer monografia, como fazer Projeto Final, como fazer seminário, como fazer capas, referências bibliográficas, modelo de monografia.
O Zé Moleza NÃO faz a venda de monografia e É TOTALMENTE CONTRA a compra de monografia pronta e trabalhos prontos. O Zé Moleza NÃO auxilia a quem compra monografia, NÃO apóia a quem quer comprar Trabalhos Prontos, e NÃO APROVA a quem quer comprar TCC prontos, dando dicas de formatação, regras da ABNT, dando sugestões de temas para monografia, resumo de livros, projeto de pesquisa, projeto de mestrado, projeto de pós-graduação, trabalhos acadêmicos, incentivando o usuário a desenvolver por conta própria sua monografia.
