[Resolvido]Ordenacao de Prioridade

Bom dia Estimados amigo.
Preciso de uma maozinha de vocês.
Antecipo agradecimentos por lerem esse tópico.

Estou com o seguinte problema:
tenho uma tabela onde guardo nelas prioridade para execulcao de serviços na ordem de prioridade (Numérica sequencial)
porém acontece de entrar uma solicitacao no meio de outras ... daí esta o problema , tenho que recorrer todas elas individualmente
e alterá-la ....
exemplificando

Código:


ordem de prioridade    descricao                          empresa Solicitante          lote
 
      1              comprar maquina X                              1                    10
      2              Arrumar portao                                1                    10
      2              Compra maquina de solda                        2                    25 
      3              Contratar servico terceirizado                1                    10
      1              Contratar faxineira                            2                    25
      4              Construir Galpao                              1                    10
      etc              etc ...


Entrou uma nova requisicao , e tenho que colocar na prioridade 2 da empresa 1 lote 10
ou seja o que é 2 vai subir para 3 , o tres para 4 , o quatro para 5. e assim sucessivamente se houver + prioridade.
observacao: tenho que obdecer o numero da empresa e numero do lote.

Poderiam por favor me ajudar nesse SQL

Acho que é isso amigos.
se puderem me ajudar ficarei imensamente agradecido.
Obrigado.

segue anexo banco (Senha abertura 123)

Está meio confuso amigo. Não consegui ver a ordenação pretendida, pois ambas colunas envolvidas parecem estar desordenadas.

Boa tarde amigo Criquio
no arquivo em anexo esta sim na ordem correta ... a questao é quando adicionar um novo item no meio desse ordem .
exemplo
tenho numeros de 1 a 10
entrou uma nova requisicao e tenho que colocar na posicao 3
nao posso ter 02 prioridade 3 ... a tres vai virar 4 , a 4 vai virar 5 , a 5 vai virar 6 e assim vai até 10 ... no final a posicao 10 será 11

entendeu ? veja se consegui me expressar.

Mas no esquema que você postou na primeira mensagem está em ordem? Está meio complicado entender essa ordem.

mesmo assim agradeco imensamente sua disposicao.
Vou tentar explicar.
vc entra no banco para ser atendido.

a fila tem 15 pessoas na sua frente.
vc seria a 16 pessoa a ser atendida.

porém vc veja um amigo na posicao 5 da fila e deixa vc entrar na frente dele(furou a fila por assim dizer) ,
o seu amigo que estava na posicao 5 , agora é vc essa posicao , ele automaticamente passa a ser a 6 pessoa.
quem era a 6 , agora é a 7 , quem era a 7 é a 8 e assim vai..... o ultimo que era o 15 passa a ser o 16 .

o que preciso é de um sql que ao entrar um numero já existente , que ele encaixe na fila por assim dizer alterando os numeros já existentes.

Amigo agora acho que explique melhor .... agradeço mensamente.

Isso eu entendi. O que está confuso é que na coluna "ordem de prioridade" que você postou na primeira mensagem está assim:

1
2
2
3
1
4

Você disse que isso já está na ordem pretendida mas o que entendi até agora é que deveria ficar assim:

1
2
3
4
5
6

Ou seja, o segundo 2 viraria 3, o 3 viraria 4, o segundo 1 viraria 5 e o 4 viraria 6.

Concordo contigo , porém no exemplo Primeiro veja que tenho empresas diferentes e Lote diferentes.
tenho que fazer essa alteracao levando em conta essas variáveis.

se for inserir uma prioridade na posicao 3 da empresa 1 lote 10

tenho que pegar o registro atual Prioridade 3 da empresa 1 lote 10 e passar para posicao prioridade 4
pegar a que era 4 da empresa 1 lote 10 e passar para 5 e assim vai ...

eu nao quero ordenar a coluna .... mas tenho que alterar as numeracoes das prioridades...

Obrigado mais uma vez

Posso sugerir que as prioridades sejam atríbuidas de 5 em 5 ou de 10 em 10.
Se não forem números sequenciais pode sempre encaixar um no meio.

O que acha ?

Bom dia Luis.
Obrigado pela sugestao ... mas esse nao seria viável para atender essa necessidade.
Prontamente agradeço a você.

Amigão, está realmente difícil entender a lógica da coisa. Tente fazer umas simulações aí tipo o esquema da sua primeira mensagem. Tipo coloque um esquema na ordem que você precisa e depois adicione um registro hipotético na posição que ele deve ficar e alterando os outros registros do jeito que devem ser alterados e explique o quê e por quê foi alterado dessa forma para ver se clareia o entendimento.

Bom dia amigos , desculpe-me em estar dando trabalho a vcs ...

Estou enviando uma simulacao .... veja se atingi o objetivo da explicacao.

obrigado novamente.

Boas MFrigério vamos la a sua questao
1 - Joao
2 - Itamar
3 - Marcio
4 - Aderbal
5 - Maria
6 - Carolina

Carolina entra na feente de Itamar.... A reorganização da fila:


1 - Joao
2 - Carolina
3 - Itamar
4 - Marcio
5 - Aderbal
6 - Maria

é isso?

Cumprimentos.

Acho que entendi a questão. Se for isso mesmo que me parece ser, o amigo pode fazer um SELECT dos registros cujos "Empresa solicitante" e "lote" sejam iguais aos que quer alterar e dentro desse SELECT utilizar o UPDATE para alterar a ordem de prioridade igual ou maior à que está inserindo, aumentando 1 à ela.

Boas Tardes a todos...

É isso mesmo piloto que estou me referindo ...
lembrando que deverá obdecer a empresa e lote...

mas o raciocínio é esse mesmo.
a idéia do Amigo críquio é a teórica ... o problema é que não sei fazer na prática.... se puderem me ajudar agradeceria.

Obrigado a todos.

A consulta 1 está filtrada para emprsa 1 e lote 10, abra e observe

Abra o form, va em novo registro, crie um registro para empresa 1, Lote 10,

Clique no botão, abra a consulta 1 novamente e observe

Private Sub Comando10_Click()

Dim Rs As DAO.Recordset
Dim N As Long
Dim Atualiza As Boolean
Dim RegNovo As Integer
DoCmd.RunCommand acCmdSaveRecord

Set Rs = CurrentDb.OpenRecordset("SELECT  * From TblExemplo Where Empresa = " & Me.Empresa & " And Lote = " & Me.Lote & " Order By Código;")
N = 1
Rs.MoveFirst
Do While Not Rs.EOF
    If Atualiza = False Then
            Rs.MoveLast
            MsgBox Rs(0)
        Rs.Edit
            Rs(1) = N
        Rs.Update
        RegNovo = Rs(0)
        Rs.Move Last
        Rs.MoveFirst
    Atualiza = True
    End If
    If Rs(0) = RegNovo Then GoTo Continuar
        Rs.Edit
            MsgBox Rs(0)
             N = N + 1
             Rs(1) = N
            MsgBox Rs(1)
        Rs.Update
           
Continuar:
Rs.MoveNext
Loop
Me.Requery
End Sub

Cumprimentos.

Podes depois retirar as msgBox.

Cumprimentos.

Obrigado Piloto

era isso mesmo que estava precisando ....

Obrigado pela sua atençao e ajuda...

Obrigado a todos pela atencao e por ler este tópico.

Fique a vontade para postar sempre que houver necessidade, sempre procure ser claro, mas não se preocupe se as vezes não conseguir explicar com clareza.. na evolução do tópico certamente entenderemos. E asim como você comecei aqui sem nada saber. e com a juda dos companheiros fora evoluindo..

Sucesso e bom trabalho.

O Fórum agradece o retorno.

A título de conhecimento, tambem pode ser feito de forma levemente diferente mas praticamente igual:

Código:

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("SELECT * FROM Prioridades WHERE LOTE=" & Me.txtLote & " And EMPRESA=" & Me.txtEmpresa & "")

If rs.RecordCount > 0 Then
    Do While Not rs.EOF
        rs.Edit
            If rs!PRIORIDADE >= " & Me.txtPrioridade & " Then
                rs!PRIORIDADE = rs!PRIORIDADE + 1
            End If
        rs.Update
        rs.MoveNext
    Loop
End If

rs.AddNew

rs!DESCRICAO = Me.txtDescrição
rs!PRIORIDADE = Me.txtPrioridade
rs!LOTE = Me.txtLote
rs!EMPRESA = Me.txtEmpresa

MsgBox "Dados incluídos com sucesso", vbInformation, "Status"

rs.Update

rs.Close
Set rs = Nothing

Boa tarde.
Agradeço também Criquio por esse outro exemplo ... vou estudá-lo e colocar na minha agenda de aprendizagem.
Obrigado a todos.

Esse é o Mestre dos Magos!!! hehehe

A propósito Mestre Ja baixei o 18...tudo ok. Obrigado pela Ajuda. Podes deletá-los do drop.


Abraços.