[Resolvido]Distribuição linha a linha

gabrielpn06 3/3/2017, 12:06

gabrielpn06: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 180
Registrado : 17/01/2017

Mensagem nº1

[Resolvido]Distribuição linha a linha

Mensagem gabrielpn06 3/3/2017, 12:06

Bom dia a todos, tenho um projeto que realiza distribuição de processos forma automática e aleatória, funciona bem mas preciso que essa distribuição deixe de ser aleatória e seja feita linha por linha para que os processos de determinada data não fique com baixa prioridade.
Abaixo segue o código que estou usando.
Desde já agradeço!

Código:: Private Sub Distribuir_Processos_Click() Dim qtd_proc As Long Dim rs_DataNulo As Recordset Dim rs_Usuarios As Recordset Dim i If MsgBox("Deseja realizar distribuição de processos?", vbYesNo) = vbYes Then 'Divide quantidade de processos pelo número de usuários qtd_proc = DCount("*", "TbDataNulo") qtd_proc = qtd_proc / DCount("*", "TbUsuarios") Set rs_DataNulo = CurrentDb.OpenRecordset("TbDataNulo") Set rs_Usuarios = CurrentDb.OpenRecordset("TbUsuarios") 'Distribui processos Do While Not rs_Usuarios.EOF For i = 1 To qtd_proc rs_DataNulo.Edit rs_DataNulo("Profissional") = rs_Usuarios("ProfissionalID") rs_DataNulo.Update rs_DataNulo.MoveNext If rs_DataNulo.EOF Then Exit For Next i rs_Usuarios.MoveNext Loop rs_DataNulo.Close rs_Usuarios.Close MsgBox "Distribuição Realizada com Sucesso!" Else MsgBox ("Distribuição Cancelada!") End If End Sub

**Dilson** 4/3/2017, 09:28

Dilson

Dilson: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1743
Registrado : 11/11/2009

Mensagem nº2

Re: [Resolvido]Distribuição linha a linha

Mensagem Dilson 4/3/2017, 09:28

Estou entendendo que Baixa Prioridade é causada quando aquele que chegou primeiro está recebendo distribuição por último. Se esse for o caso então bastará ordenar a tabela pela data da entrada na ordem crescente, assim:

Set rs_DataNulo = CurrentDb.OpenRecordset("SELECT * FROM TbDataNulo ORDER BY DataEntrada ASC")

gabrielpn06 6/3/2017, 11:04

gabrielpn06

gabrielpn06: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 180
Registrado : 17/01/2017

Mensagem nº3

Re: [Resolvido]Distribuição linha a linha

Mensagem gabrielpn06 6/3/2017, 11:04

Bom dia Dilson, agradeço o retorno.
Então, meu problema é que a distribuição não é feita linha por linha.
Segue imagem exemplificando melhor a ideia.
Desde já agradeço pela ajuda!

**Dilson** 7/3/2017, 06:19

Dilson

Dilson: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1743
Registrado : 11/11/2009

Mensagem nº4

Re: [Resolvido]Distribuição linha a linha

Mensagem Dilson 7/3/2017, 06:19

Não fiz validação de nulos de nenhum dos recordset's. analise e faça o necessário.
Elaborei esse código para você:

Dim rs_DataNulo As DAO.Recordset
Dim rs_Usuarios As DAO.Recordset
Dim ProximoProfissional As Integer
ProximoProfissional = 0
If MsgBox("Deseja realizar distribuição de processos?", vbYesNo) = vbYes Then
        Set rs_DataNulo = CurrentDb.OpenRecordset("TbDataNulo")
        Set rs_Usuarios = CurrentDb.OpenRecordset("TbUsuarios")
        rs_Usuarios.MoveLast
        rs_Usuarios.MoveFirst
        rs_DataNulo.MoveLast
        rs_DataNulo.MoveFirst
        Do While Not rs_DataNulo.EOF
              If IsNull(rs_DataNulo("Profissional")) Then
                     ProximoProfissional = rs_Usuarios("ProfissionalID")
                     rs_Usuarios.MoveNext
                     If rs_Usuarios.BOF Or rs_Usuarios.EOF = True Then
                             rs_Usuarios.MoveFirst
                     End If
                     rs_DataNulo.Edit
                     rs_DataNulo("Profissional") = ProximoProfissional
                     rs_DataNulo.Update
              End If
        rs_DataNulo.MoveNext
        Loop
        rs_DataNulo.Close
        rs_Usuarios.Close
        MsgBox "Distribuição Realizada com Sucesso!"
 Else
        MsgBox ("Distribuição Cancelada!")
 End If

gabrielpn06 7/3/2017, 10:35

gabrielpn06

gabrielpn06: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 180
Registrado : 17/01/2017

Mensagem nº5

Re: [Resolvido]Distribuição linha a linha

Mensagem gabrielpn06 7/3/2017, 10:35

Bom dia Dilson, novamente muito obrigado pela atenção.
Usei seu código porém não obtive resultados, o código não fez alterações no meu BD. O que pode estar de errado?
outra pergunta, seu código está baseado em duas pessoas na fila de distribuição somente? Se sim, teria como ampliá-lo para contemplar mais usuários?
Novamente agradeço imensamente a dedicação em me ajudar!

**Dilson** 7/3/2017, 12:42

Dilson

Dilson: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1743
Registrado : 11/11/2009

Mensagem nº6

Re: [Resolvido]Distribuição linha a linha

Mensagem Dilson 7/3/2017, 12:42

Olhando a questão e o código não vejo falhas.

Para melhor entender farei de forma resumida a leitura do código:

=> Instancia e vai para o primeiro registros das tabelas TbDataNulo e TbUsuarios
=> Inicia laço de repetição na tabela TbDataNulo
=> A cada laço (loop) verifica se o campo Profissional está em branco (If IsNull(rs_DataNulo("Profissional")) Then).
Se estiver:
- Alimenta a variável ProximoProfissional com o valor do primeiro funcionário cadastrado na tabela TbUsuarios (lembra que no inicio falei que iria para o primeiro registro). Se o valor do Profissional do laço atual está capturado dou movenext em TbUsuarios para no próximo loop pegar o próximo profissional cadastrado na tabela. Nisso que fui pra frente (rs_Usuarios.MoveNext) verifico se cheguei ao final da tabela ou se estou em ponto cego dela (If rs_Usuarios.BOF Or rs_Usuarios.EOF = True Then) Se estiver, movo o cursor para o primeiro funcionário da tabela novamente (rs_Usuarios.MoveFirst).
=> Abro o campo Profissional da tabela TbDataNulo e edito com o valor da variável ProximoProfissional capturada no inicio do loop.
=> Vou para o próximo registro da tabela TbDataNulo, ou seja dou (rs_DataNulo.MoveNext) e o loop acontece começando tudo de novo.

Como pode ver ele percorrerá todos os nomes de funcionários cadastrados na tabela TbUsuarios e populará o id deles nos registros em branco da tabela TbDataNulo de forma ordenada assim: 1,2,3,1,2,3,1,2,3 ...

Espero que ajude.

Se não conseguir, poderá disponibilizar um exemplo com somente essa parte do projeto para que eu compreenda e tente fazer alguma coisa.

Última edição por Dilson em 7/3/2017, 12:49, editado 2 vez(es)

gabrielpn06 7/3/2017, 12:46

gabrielpn06

gabrielpn06: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 180
Registrado : 17/01/2017

Mensagem nº7

Re: [Resolvido]Distribuição linha a linha

Mensagem gabrielpn06 7/3/2017, 12:46

vou testar novamente, já dou retorno.

gabrielpn06 7/3/2017, 13:10

gabrielpn06

gabrielpn06: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 180
Registrado : 17/01/2017

Mensagem nº8

Re: [Resolvido]Distribuição linha a linha

Mensagem gabrielpn06 7/3/2017, 13:10

Caro Dilson, modifiquei um pouco o código e funcionou, só não estou conseguindo fazer o Loop funcionar, ele Distribui os nomes uma vez aí para. Pode me ajudar?

Código:: Dim TbArquivar As DAO.Database Set dbLocal = CurrentDb If MsgBox("Deseja Arquivar Processos Trabalhados?", vbYesNo) = vbYes Then DoCmd.SetWarnings False 'Desabilita mensagem padrão do Access DoCmd.OpenQuery "CsArquivaRevisados" 'Executa consulta atualização MsgBox ("Arquivado com Sucesso!") Else MsgBox ("Operação Cancelada") End If End Sub Private Sub BtAtualizaRevisão_Click() DoCmd.SetWarnings False 'Desabilita mensagem padrão do Access DoCmd.OpenQuery "CsAtualizaRevisão" 'Realiza consulta de acréscimo MsgBox ("Atualização bem sucedida!") End Sub Private Sub BtAtualizaHistórico_Click() DoCmd.SetWarnings False 'Desabilita mensagem padrão do Access DoCmd.OpenQuery "CsAtualizaHistórico" 'Realiza consulta acréscimo DoCmd.OpenQuery "CsExcluiRevisados" 'Realiza consulta exclusão MsgBox ("Atualização bem sucedida!") End Sub Private Sub BtModoRevisor_Click() DoCmd.OpenForm "FrmRevisor" End Sub Private Sub BtSepararTrabalhados_Click() DoCmd.SetWarnings False 'Desabilita mensagem padrão do Access DoCmd.OpenQuery "CsRevisãoSim" 'Realiza consulta de acréscimo DoCmd.SetWarnings False 'Desabilita mensagem padrão do Access DoCmd.OpenQuery "CsRevisãoNão" 'Realiza consulta de acréscimo DoCmd.OpenQuery "CsDuplicaCampo" DoCmd.OpenQuery "CsArquivaRevisãoNão" 'Executa consulta acréscimo DoCmd.Close DoCmd.Close MsgBox ("Operação bem sucedida!") End Sub Private Sub BtClear_Click() DoCmd.SetWarnings False 'Desabilita mensagem padrão do Access CurrentDb.Execute "DELETE * from TbHistórico" CurrentDb.Execute "DELETE * from TbArquivar" CurrentDb.Execute "DELETE * from Tbraiz" CurrentDb.Execute "DELETE * from TbRevisão" CurrentDb.Execute "DELETE * from TbDataNulo" MsgBox ("Limpeza Concluida!") End Sub Private Sub Comando23_Click() DoCmd.OpenForm "FrmFilaUser" End Sub Private Sub Distribuir_Processos_Click() Dim rs_DataNulo As DAO.Recordset Dim rs_Usuarios As DAO.Recordset Dim ProximoProfissional As String ProximoProfissional = 0 If MsgBox("Deseja realizar distribuição de processos?", vbYesNo) = vbYes Then Set rs_DataNulo = CurrentDb.OpenRecordset("TbDataNulo") Set rs_Usuarios = CurrentDb.OpenRecordset("TbUsuarios") rs_Usuarios.MoveLast rs_Usuarios.MoveFirst rs_DataNulo.MoveLast rs_DataNulo.MoveFirst Do While Not rs_DataNulo.EOF If IsEmpty(rs_DataNulo("Profissional")) Then ProximoProfissional = rs_Usuarios("ProfissionalID") rs_Usuarios.MoveNext If rs_Usuarios.BOF Or rs_Usuarios.EOF = True Then rs_Usuarios.MoveFirst End If rs_DataNulo.Edit rs_DataNulo("Profissional") = ProximoProfissional rs_DataNulo.Update End If rs_DataNulo.MoveNext Loop rs_DataNulo.Close rs_Usuarios.Close MsgBox "Distribuição Realizada com Sucesso!" Else MsgBox ("Distribuição Cancelada!") End If

**Dilson** 7/3/2017, 19:30

Dilson

Dilson: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1743
Registrado : 11/11/2009

Mensagem nº9

Re: [Resolvido]Distribuição linha a linha

Mensagem Dilson 7/3/2017, 19:30

Acho que colocou códigos para mais que não tem ligação na automação que estamos tratando. A variação não foi significativa. Como te falei, a questão e o código proposto atende perfeitamente sem dúvida. O grande problema é que não sei como os objetos do seu sistema estão interagindo. retire uma amostra do seu sistema somente com esse pedaço que quer automatizar, e poste aqui, porque infelizmente não consigo mais ajudar baseado em suspeitas.

gabrielpn06 8/3/2017, 10:36

gabrielpn06

gabrielpn06: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 180
Registrado : 17/01/2017

Mensagem nº10

Re: [Resolvido]Distribuição linha a linha

Mensagem gabrielpn06 8/3/2017, 10:36

Bom dia Dilson, segue anexo o Bd.
Agradeço pela atenção!

Anexos

App 4 forum.zip: Você não tem permissão para fazer download dos arquivos anexados.; (306 Kb) Baixado 8 vez(es)

philipp.moreira 8/3/2017, 22:55

philipp.moreira

philipp.moreira: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 257
Registrado : 05/02/2016

Mensagem nº11

Re: [Resolvido]Distribuição linha a linha

Mensagem philipp.moreira 8/3/2017, 22:55

Boa noite!

Gabriel, criei o mdTeste com uma rotina que acho que atende sua necessidade.

Obs.: A Consulta é somente para limpar os registros de atribuições para efeito de teste.

Anexos

App 4 forum 2.zip: Você não tem permissão para fazer download dos arquivos anexados.; (307 Kb) Baixado 7 vez(es)

**Dilson** 9/3/2017, 02:02

Dilson

Dilson: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1743
Registrado : 11/11/2009

Mensagem nº12

Re: [Resolvido]Distribuição linha a linha

Mensagem Dilson 9/3/2017, 02:02

O código não funcionou porque sua tabela usuário não tem id, um campo numérico que funciona como chave primária. acabei entendendo que ProfissionalID se tratava dele.

Olhei o código apresentado pelo philipp e lhe digo que é a solução adequada para a questão apresentada; Atenderá no pleno (sem precisar trabalhar com encadeamento numérico, apesar de recomendado).

Aliás philipp, ótima sua contribuição (já dei um like na #mensagem). Show esse código!

philipp.moreira 9/3/2017, 02:20

philipp.moreira

philipp.moreira: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 257
Registrado : 05/02/2016

Mensagem nº13

Re: [Resolvido]Distribuição linha a linha

Mensagem philipp.moreira 9/3/2017, 02:20

Obrigado mestre!

gabrielpn06 9/3/2017, 10:55

gabrielpn06

gabrielpn06: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 180
Registrado : 17/01/2017

Mensagem nº14

Re: [Resolvido]Distribuição linha a linha

Mensagem gabrielpn06 9/3/2017, 10:55

Bom dia mestres, muito obrigado novamente pela grande ajuda.
philip, ainda não conheço sobre módulos, como faço para acioná-lo?

philipp.moreira 9/3/2017, 14:53

philipp.moreira

philipp.moreira: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 257
Registrado : 05/02/2016

Mensagem nº15

Re: [Resolvido]Distribuição linha a linha

Mensagem philipp.moreira 9/3/2017, 14:53

Você pode adicionar a "chamada" de um módulo (rotina sem retorno) ou function (função que retorna valor. Booleanno, inteiro, string, etc)
em um evento. Por exemplo click de um botão, ao carregar um fórmulário, quando um campo textbox perder o foco.

Crie ou utilize um botão no seu formulário;
Selecione ele e na bandeija de propriedades na aba evento escolha em qual evento deseja fazer a chamada;
Click nos tres ponto e escolha a opção construtor de código;
Ao abrir o editor VBA basta incluir o(s) nome(s) da(s) função(ões) que deseja que sejam executadas;

**Dilson** 9/3/2017, 15:18

Dilson

Dilson: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1743
Registrado : 11/11/2009

Mensagem nº16

Re: [Resolvido]Distribuição linha a linha

Mensagem Dilson 9/3/2017, 15:18

Movido para sala mais adequado ao assunto.

Complementando as orientações do philipp: Substitua o código que te forneci e faça a chamada para o nova função que está no módulo, assim:
Call NomeDaFuncao()

gabrielpn06 9/3/2017, 16:00

gabrielpn06

gabrielpn06: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 180
Registrado : 17/01/2017

Mensagem nº17

Re: [Resolvido]Distribuição linha a linha

Mensagem gabrielpn06 9/3/2017, 16:00

Então tentei mas não obtive sucesso, podem me ajudar apontando onde estou errando?
Vinculei o botão mas ainsa assim não consegui.
Segue anexo o bd para me ajudarem se possível.
Desde já agradeço!

philipp.moreira 9/3/2017, 16:02

philipp.moreira

philipp.moreira: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 257
Registrado : 05/02/2016

Mensagem nº18

Re: [Resolvido]Distribuição linha a linha

Mensagem philipp.moreira 9/3/2017, 16:02

Sem anexo.

gabrielpn06 9/3/2017, 16:06

gabrielpn06

gabrielpn06: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 180
Registrado : 17/01/2017

Mensagem nº19

Re: [Resolvido]Distribuição linha a linha

Mensagem gabrielpn06 9/3/2017, 16:06

Perdão, segue.

Anexos

App 4 forum.zip: Você não tem permissão para fazer download dos arquivos anexados.; (307 Kb) Baixado 4 vez(es)

philipp.moreira 9/3/2017, 16:19

philipp.moreira

philipp.moreira: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 257
Registrado : 05/02/2016

Mensagem nº20

Re: [Resolvido]Distribuição linha a linha

Mensagem philipp.moreira 9/3/2017, 16:19

Gabriel,

Um módulo tem como valor semântico agrupar rotinas e/ou funções que sirvam para fazer acontecer determinada funcionalidade de um sistema; Ou seja, dentro dele se cria uma sub ou uma function; Tendo que uma sub é uma rotina, ela não necessita retornar nenhum valor após sua execução já uma function tem como objetivo retornar um valor após seu processamento.

No seu caso você havia criado o módulo e dentro dentro dele não havia definido se o código estava contido em uma sub ou uma function.

Efetuei um reparo, veja se atende.

Anexos

App 4 forum 3.zip: Você não tem permissão para fazer download dos arquivos anexados.; (306 Kb) Baixado 6 vez(es)

gabrielpn06 9/3/2017, 18:08

gabrielpn06

gabrielpn06: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 180
Registrado : 17/01/2017

Mensagem nº21

Re: [Resolvido]Distribuição linha a linha

Mensagem gabrielpn06 9/3/2017, 18:08

Mestres, só tenho a lhes agradecer! Muito obrigado por me ajudar novamente!

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº22

Re: [Resolvido]Distribuição linha a linha

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Distribuição linha a linha

[Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Re: [Resolvido]Distribuição linha a linha

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada