[Resolvido]Mudar Status de Ordem de Serviço

Em um Formulário existe um campo STATUS DA OS (Aberta/Fechada), onde de início a OS de cada viatura terá o Status de Aberta e só terá a condição de abrir outra OS para uma determinada viatura somente quando a primeira OS estiver passado para o Status de Fechada e isso só se dará quando for preenchido o campo "Saída da Oficina". Ou seja, uma viatura só poderá entrar em um novo serviço (OS Aberta) se o serviço anterior estiver finalizado (OS Fechada). Se for outra viatura que não tem OS Aberta, o serviço pode ser iniciado.


Aguardo  por um Help!


AMarcos

Marcos bom dia.

Precisa melhorar a nomenclatura em teu sistema, esta sofrível mesmo.

1- Não se usa em tabelas
- palavras com espaço: Entrada oficina...Dias oficina.
- palavras com acentos ou c cedilha: Serviço
- com caracteres especias: Nº OS

Na hora de escrever o código em VBA, vai ter grandes problemas e dores de cabeça.


2- Nomenclatura de entidades.
-para formulários: Frmqualquernome
-para consultas: Qryqualquernome...Consqualquernome
-para tabelas: Tblqualquernome.....Tbqualquernome
-para relatórios: Rptqualquernome...Relqualquernome

Já havia comentado com você na tua duvida anterior ...mas..........acho que não surtiu o efeito necessário para melhorias em teu projeto.
Corrija enquanto há tempo e está no começo.

Abraços.

Veja o item...2985 VW WORKER 5 TON, que é o primeiro registro  e está com a OS em aberto.  Tente adicionar uma nova OS.

Fique atento as mudanças que eu fiz na tabela manutenção.
Tirei o espaçamento do campo NºOS e acrescentei mais dois campos na mesma tabela
Criei uma consulta para a verificação de ordem em aberto(QryOSAberta).
O código de verificação está no evento antes de atualizar da combobox.

Bons estudos...e acerte teu sistema.

Silvio bom dia!
Eu não desconsiderei a sua orientação, o motivo de não ter tomado as providências é pq o programa não é só aqueles formulaŕios que lhe enviei, é muito mais. Esse controle de frota já existe a dois anos e agora está ocorrendo um aumento de recursos que não existia e melhoria dos que já estavam sendo executados. Qdo comecei foi sem pretensão de ir muito longe e agora tá de um jeito que estou com receios de mexer e ficar com falha em algum código. Mesmo assim vou tentar ir eliminando os erros mais grosseiros até extinguir todos ou chegar numa situação aceitável.

Obrigado!

AMARCOS

Ok...faça as mudanças/alterações por partes.

Silvio meu amigo, testei aqui o exemplo e observei que ele está realizando o bloqueio condicional que eu desejo, mas não de forma independente. Por exemplo: a 2985 está aberta, logo não consigo abrir outra OS da 2985 se eu não fechar a primeira manualmente, blz. Mas se eu estiver com a 2926 também aberta, junto com a 2985, eu consigo abrir outra 2926 sem problemas, a não ser que eu feche a 2985. Daí o bloqueio passa para a 2926, mas as demais viatura ficam liberadas para abrir quantas der vontade.

O que eu desejava e não consegui, devido a minha inexperiência, visualizar com faz é o seguinte (vou tentar me fazer entender sendo bem simples):
- ao abrir uma OS após escolher a VTR, automaticamente ela assume o Status de "Aberta";

- ao lançar a data de saída de oficina, também automaticamente, ela altera o Status para "Fechada" (forçando a homologação de alguém).

- se a data de saída não for lançada, isso quer dizer que o serviço ainda não finalizou, mas esse bloqueio seria individualmente por vtr, ou seja, se uma determinada OS da 2985 estiver Aberta, outra OS da 2985 (somente) não poderá ser Aberta, enquanto a primeira não for Fechada. E para as demais vtrs a mesma coisa. Sendo que o bloqueio e aparição daquele AVISO (muito bom por sinal), aconteceria para todas que estivessem no Status Aberta e alguém tentasse abrir outra.

Tomara que eu tenha ajudado e não atrapalhado mais com o texto acima!

Um abraço!!!

AMARCOS

Marcos, para que isso aconteça teremos que mexer em muitas coisas no teu formulário e na tua tabela que dá origem ao mesmo.
A tua tabela, está bem "errada".
Deixa dar uma sossegada aqui, que eu vou mexer um pouco nessa tabela manutenção.
Abraços

Fique tranquilo amigo. Para ter omelete temos que quebra os ovos.

Um abraço

AMarcos

Bom dia amigo Silivio!

Depois de alguns dias vc conseguiu vê um jeito de mudar o status da OS através da inserção da data de saída da oficina?

Me dê notícias!


ANTONIO MARCOS

Boa tarde...

Marcos, até quarta feira estou enrolado com um sistema novo para um cliente.
Quinta feira eu volto a trabalhar com o que me passou.

Tudo bem, enquanto isso eu vou tentando por aqui...

Na quinta volto a lhe contatar, um abraço!

AMarcos

Bom dia!

Consegui um código que me fez fechar a Ordem de Serviço "após
Atualizar" a Data de Saída da Oficina, porém a opção de OS Aberta ainda permanece marcada. O que eu precisava era saber somente como faz para alternar na hora de atualizar a data de saída para fechar a OS, a marcação de OS Aberta desmarcasse.

Abaixo vou deixar o código usado:

Private Sub Saida_oficina_AfterUpdate()
If Len (Me.Saida_oficina & "") > 0 Then
   If Me.Saida_oficina > Date then
         OSFechada = 1
   Else
         OSFechada = 2
   End If
End If
End Sub

Att,

AMArcos

Bom dia!

Algum mestre amigo com a disponibilidade de ajudar esse impasse?

Ok, fico no aguardo!

AMarcos

Amigo Silvio, dentro da sua disponibilidade, conseguiu verificar o que está faltando no código acima para poder efetuar com sucesso a Mudança de Status da Ordem de Serviço?

AMarcos

Boa noite;

Não sei se entendi bem o que necessita porém fiz uma pequena alteração em seu banco.

Repare que existe um comando no evento Após Atualizar do campo Ordem de serviço que marca a caixa

OS Aberta, no campo Saída da oficina é alterado para OS fechada seguindo seu código e desmarcado OS Aberta.

Aguardamos.

Caro Fernando bom dia!

O que estou precisando agora é somente alternar entre OS Aberta e OS Fechada, ou seja, ao atualizar o nome da viatura a opção OS Aberta automaticamente apareça marcada e isso eu já consegui através do código abaixo:

Private Sub comb_VtrMnt_AfterUpdate()
Me.txt_EB.Value = comb_VtrMnt.Column(2)
Me.txt_SU.Value = comb_VtrMnt.Column(4)
Me.txt_Valor.Value = comb_VtrMnt.Column(5)

Me.OSAberta = 1

End Sub

Mas quando eu fecho a OS através da atualização da data de saída da oficina, pelo código que postei, ele marca a opção OS Fechada mas não desmarca a OS Aberta, permanecendo as duas opções assinaladas, e é isso que não pode ocorrer.

Private Sub Saída_oficina_AfterUpdate()
If Len(Me.Saída_oficina & "") > 0 Then
If Me.Saída_oficina > Date Then
OSFechada = 1
Else
OSFechada = 2
End If
End If
End Sub

Manualmente o usuário não poderá fazer pois deixarei as caixas de opção bloqueadas, assim só atualizando os valores da caixa de viatura ou da data de saída que isso será possível.

Mas o objetivo é alternar os botões de OS Fechada e OS Aberta, e eu dei uma olhada nessa modificação que o amigo fez e não está acontecendo isso...

Espero ter conseguido ser menos complicado agora. Um abraço!

AMarcos

Boa tarde;

Teste assim:

Código:

Private Sub Saída_oficina_AfterUpdate()
If Len(Me.Saída_oficina & "") > 0 Then
If Me.Saída_oficina > Date Then
OSFechada = 1
OSAberta = 0
Else
OSFechada = 0
OSAberta = 1
End If
End If
End Sub

Meu amigao nada feito. Inclusive agora ela nem marca a opcao de OS Fechada.

AMarcos

Boa tarde Marcos;

Você testou o exemplo que enviei?
https://www.maximoaccess.com/t33926-mudar-status-de-ordem-de-servico#233058

Baixei novamente e fiz os testes ele faz exatamente o que descreveu na mensagem.

Aguardamos

Poxa Fernando infelizmente continua da mesma forma. Desculpe-me, estou parecendo chato, mas eu testo no seu exemplo e nada acontece, tambem quando passo para o meu BD a mesma coisa.

Deve ter alguma coisa que esta dando conflito. Nao consegue de maneira nenhuma fechar a OS

Me desculpe mesmo.

AMarcos

Bom dia Antonio, fica tranquilo estamos aqui para ajudar.

Veja:

Devo estar cometendo algum erro com certeza. Vou refazer com calma e te dou um retorno.

um abraço,

AMarcos

Ok, observe o procedimento após atualizar do campo nº OS, viatura e saída da oficina.

Aguardamos, Bons estudos!

Fernando rodei o seu banco de dados e mesmo assim não consegui vê essa mudança. E se por acaso tirarmos do grupo de opções e colocarmos isolado? Ou talvez as opções ABERTA e FECHADA mudando de cor: verde para aberta e vermelho para fechada com sinal de trânsito? Sei não seria o ideal mas talvez não precisaria nem de guardar as opções em tabela. Somente iria ficar diferenciado no formulário Ordem de Serviço...

É uma idéia!

Att,

AMARCOS

Programei a variação entre ABERTA e FECHADA mudando a cor, deu certo! Ficou como sinal de trânsito como lhe falei...
Porém como brasileiro que não desiste nunca, analisei as linhas de códigos e visualizei que o sinal de condição (> ou <) estava trocado. foi inverter que tudo funcionou como pretendia e vc fez mostrar em tela.

Está excelente!

Assim me dá a possibilidade de depois saber quantas OS estão abertas e quanta estão fechadas. E ainda se vc pudesse me ajudar, eu pretendia abrir uma Ordem de Serviço de uma determinada viatura, só depois que a Os anterior dessa mesma viatura estivesse fechada.

Nosso amigo Silvio, a quem também sou muito grato em estar também me ajudando chegou a me fornecer um código que emite até msg de aviso que a OS está aberta, mas só que esse código não deixa eu abrir nenhuma outra mais:

Private Sub comb_VtrMnt_BeforeUpdate(Cancel As Integer)
On Error Resume Next
Dim x As String
Dim y As String
x = DLookup("viaturas", "qryOSAberta")
y = DLookup("NºOS", "QryOSAberta", "Viaturas = """ & Me!comb_VtrMnt & """")
If x = comb_VtrMnt Then
MsgBox "Já existe uma Ordem de serviço aberta para:" & vbCrLf & _
Me!comb_VtrMnt & vbCrLf & _
"OS Nº:" & y & vbCrLf & _
"Fecha a ordem em aberto e inicie uma nova." & vbCrLf & _
"Essa ordem será cancelada !", vbCritical, "AVISO..."
DoCmd.CancelEvent
Me.Undo
Me!comb_VtrMnt = ""
End If
End Sub

Pra mim a independência dessa condição seria o ideal, ou seja, somente uma OS de uma determinada viatura poderia estar aberta. Para abrir uma outra OS dessa mesma viatura, seria obrigatório fechar a primeira.

Um abraço amigão,


AMarcos

Boa noite Antonio,

Fiz um teste aqui e o código postado por nosso amigo Silvio não esta funcionando

em seu banco por um simples fato basta abrir a consulta QryOSAberta e apagar a seguinte expressão

que segue na imagem em anexo, bons estudos!

Fernando ficou show de bola. Muito obg!