[Resolvido]Escala de Serviço de Domingos e Feriados

Boa noite,

Preciso de ajuda na criação de uma escala de serviço aos domingos e feriados (todos os nacionais e um municipal).
Existem 8 grupos com 10 pessoas cada e são complementados por um 11º que tem a função de ser o Chefe de Serviço.
Dessas 10 pessoas, 3 têm funções especificas (Chefe de Piquete, TAS, Motorista de Pesados), sendo que os restantes são elementos subalternos e podem ser designados por SUB e ordenados por um número interno ou por 1ºSUB, 2ºSUB, 3º SUB, etc. conforme for melhor.

Julgo que vou necessitar de 3 tabelas TabFuncionarios, TabFeriados e TabEscalas. Destas, já tenho as duas primeiras, mas as dos feriados ainda não está pronta, pois tenho noutro projeto e tenho de adaptar a este. A TabEsclas teria a estrutura desta IMAGEM e organizada por trimestres.

À medida vá tendo ajuda vou dando mais especificações para não complicar.

A ideia é ter um formulário onde insiro a data de inicio e data de fim (da escala) e são inseridos os domingos e feriados numa consulta, também vou ter de indicar o número do grupo que inicia a escala (pelo menos da 1ª vez) e o Chefe de Serviço visto que existem 8 grupos e 13 pessoas que desempenham essa função.

Isto deverá ser em coluna, mas dps tem de se passar para linha, mais uma vez, conforme imagem.

Agradeço a ajuda e deixo aqui a  Base de Dados

Ricardo

Esses grupos já estão trabalhando?


Se sim,  então a primeira coisa a se fazer é ir na empresa e conversar com quem faz a escala na mão (manualmente).

Eu seja, conversar e APRENDER com quem já está trabalhando e sabe qual é a melhor maneira de se fazer o trabalho.

Minha política como programador sempre foi "fazer o computador trabalhar como o operador dele deseja, e não ao contrario."

Digo isso, porque trabalhei numa grande empresa e quando precisávamos de algum equipamento pra facilitar nosso serviço,

e muitas vezes ele tinha que ser fabricado na empresa, fazíamos a solicitação.

O engenheiro responsável em fazer o projeto e a execução da construção desse equipamento, fazia o projeto sem nos consultar.

Conclusão; Faziam um equipamento que não servia para nada, ficava encostado num canto.

Elas achavam que estariam se humilhando ao vir nos consultar.

Levou tempo, mas conseguimos mudar esse pensamento deles.

Portanto, converse com o responsável em fazer a escala, peça a ele pra te ensinar como ele faz a escala, já que tem prática.

Te garanto que vai ser meio caminho andado.

[ ]'s

Boa noite,

A escala já está a funcionar neste moldes há uns 10 anos... Fazer manualmente a escala não tem nada que saber, onde vou precisar de ajuda é na inserção de dados de forma automática.

Já estive a ver alguma coisas na base de dados para fazer a escala de serviço.
Já tenho algumas consultas (nomeadamente as dos feriados)

O grande salto que dei foi ter conseguido adaptar uma função que encontrei num forum, que me devolvesse as datas de todos os domingos ue ocorrem num período de tempo (indicado no FrmGeraEscala nos campos DataInicio e DataFim). Podem ver o código está l´
a explicada  uma coisa ou outra.

Agora tenho de arranjar maneira de atribuir um grupo a cada uma das datas, até consegui, mas dps faltam os feriados...

Vejam se me podem ajudar nesta fase, dps vamos tentar evoluir nas coisas e eu vou procurando mais coisas

Obrigado

Aqui está a base de dados EscalaServico

Boa noite,

Continuo a precisar de ajuda na automatização de algumas coisas para gerar a escala de serviço aos domingos.

Esta é a versão mais recente e já consegui fazer com que a escala seja toda preenchida, à excepção do chefe de serviço.

Escala Serviço Domingos

Acho que o código é simples de perceber, mas poderá ser simplificado (por quem souber )

Quanto ao chefe de serviço, o campo está pré-preenchido e o objectivo é que o campo correspondente na TabEscala seja preenchido com esse valor (no caso 023) e que a partir dele pesquise os registos existentes na consulta ConsChefesAtivos, que contém apenas elementos que desempenhem a função de chefe de serviço e que estejam aptos, não estejam de férias, etc

A ideia é ter um loop que pesquise o valor 023 na consulta ConsChefesAtivos  e a seguir vá para o registo seguinte (normalmente o 024, mas que pode estar doente) quando chegar ao último volta ao primeiro registo da mesma consulta.

Se houver alguma ajuda, poderei explicar melhor, obrigado

Boa noite,
Estive a ver mas não entendi bem a mecânica. Explique tudo tim-tim por tim-tim

Boa noite Alexandre,

Se calhar vou escrever demais, mas fica a ideia passo a passo para cada ponto de interesse.
Para começar, o objetivo é obter uma escala de serviço que é composta apenas por domingos e feriados, sendo que o layout da escala é o que está na imagem constante da mensagem 1. A escala é lançada para 3 meses, apesar de conseguir fazer para um ano inteiro.

As variáveis da escala são as datas dos próprios domingos e feriados, o Chefe de Serviço e o Grupo. Os restantes elementos são fixos num determinado grupo, ou seja, no grupo 3 são sempre os mesmos elementos à excepção do Chefe de Serviço, daí ser mais fácil preencher todas as funções, tirando a do Chefe de Serviço.

As funções de cada um e a sua disponibilidade serão editáveis na TabFuncionarios, mas isso será a gestão e aí estou mais à vontade.

O que consegui fazer até agora:

Através da função ObterDomingos, consigo obter todos os domingos que ocorrem entre as datas indicadas em [TxtDataInicio] e [TxtDataFim], da seguinte forma:
 
  1º - É encontrado o primeiro domingo que ocorre entre o dia 01JUL2017 e 30SET2017, no caso é o dia 02 e esse valor fica registado em [TxtProximoDomingo]
  2º - Antes de inserir a data na TabEscala, verifica se já existe algum registo com aquela data, se existir, não faz nada, se não insere a data
  3º - Soma 7 dias ao valor constante em [TxtProximoDomingo] e repete o 2º passo, até a data em [TxtProximoDomingo] ser maior que a data em [TxtDataFim]
  4º - Executa a consulta de acrescentar ConsFeriados_AddFeriadosIntervalo. Esta consulta visa introduzir os feriados que ocorrem entre as datas indicadas em [TxtDataInicio] e [TxtDataFim], no caso das datas de exemplo, só ocorre o dia 15 de agosto. A consulta está filtrada para apresentar apenas os valores indicados em [TxtDataInicio] e [TxtDataFim]

Desta forma tenho todas as datas que me interessam na tabela, falta definir os Grupos que vão estar de serviço e para isso vou fazer um Update à TabEscala.

Criei então a função AtualizarGrupo. Esta função vai abrir os registos existentes na TabEscala, um a um, e vai atualizar o campo [Grupo] para o valor que estiver introduzido na [TxtGrupo], depois disso vai para o registo seguinte (no formulário, que é alimentado pela consulta ConsEscala) e soma um ao grupo (São 8, por isso se a soma der 9, fica 1).

A função PreencheEscala basicamente faz um DLookUp na consulta ConsFuncionariosAtivos e corresponde a função de cada elemento em relação ao indicado no cabeçalho da escala (no subformulário sFrmGeraEscala) e o grupo a que a pessoa pertence.
Por exemplo, Chefe de Piquete do Grupo 3:
Procura na  consulta ConsFuncionariosAtivos o Numero interno do funcionário que pertence ao grupo 3 e que tem a função de "Ch Piquete", no caso é o 108. Repete isso para todos, consoante a função.

Agora o mais difícil. Obter o Chefe de Serviço para determinado dia.

Atualmente existem 13 funcionários com a função de Chefe de Serviço, apenas 12 estão disponíveis, visto que um deles está dispensado clinicamente. Por isso não consta na consulta ConsChefesAtivos.
No entanto só existem 8 grupos, o que quer dizer que tenho de criar uma rotina que vá indicando o Chefe enquanto houver registos de grupos e que se chegar ao fim dos chefes e ainda houver grupos para preencher o Chefe volta ao primeiro chefe.

A imagem da escala da mensagem 1 é elucidativa.
No caso a escala é do 2º trimestre, de abril a junho, e começa no 012, que por acaso é o primeiro registo da consulta ConsChefesAtivos e está de serviço com o grupo 8, mas quando dá a volta aos grupos e volta ao 8 o chefe é o 027, face a haver mais chefes do que grupos, quando chega ao ultimo chefe, o 030, volta novamente ao 012 e essa é a rotina que eu queria criar. O primeiro chefe é definido pelo valor em [TxtChServico].

No caso exposto do formulário, estou a usar valores pre-preenchidos para ser mais fácil.
Neste caso o Chefe de Serviço que vai fazer o primeiro serviço da escala é o 023, no dia 02JUL2017 co o Grupo 3. A seguir seria o 024 no dia 09JUL2017 com o Grupo 4 e por aí fora. Quando chegar ao 030 volta ao 012, ou até chegar ao ultimo registo que tem a data de 24SET2017.

Espero que seja perceptivel

Não me interessa muito se isto é feito antes ou depois de preencher a escala, ou mesmo os grupos, mas tem sempre de ser depois das datas definidas.

Fica aqui uma versão que faz as coisas uma de cada vez em vez de ter tudo no mesmo botão. tem de ser seguida a ordem dos botoes da esquerda para a direita
Escala Serviço Domingos 1.1

Obrigado

Bom dia,
Pelo que entendi, basta utilizar este código onde pretender

Código:

Sub PreencheChefe()
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' código criado por Alexandre Neves, do Fórum MaximoAccess  '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim RstChefes As DAO.Recordset, RstEscala As DAO.Recordset
    Set RstChefes = CurrentDb.OpenRecordset("SELECT NumInterno FROM TabFuncionarios WHERE Funcao='Ch Serviço' And Grupo=0 And Disponivel=True And Exonerado=False ORDER BY NumInterno;")
    Set RstEscala = CurrentDb.OpenRecordset("SELECT * FROM TabEscala ORDER BY Data")
    Do While Not RstEscala.EOF
        RstEscala.Edit
        RstEscala("ChefeServ") = RstChefes("NumInterno")
        RstEscala.Update
        RstChefes.MoveNext
        If RstChefes.EOF Then RstChefes.MoveFirst
        RstEscala.MoveNext
    Loop
    Set RstEscala = Nothing
    Set RstChefes = Nothing
End Sub


Só não entendi como calcular o primeiro chefe a entrar nesse periodo

Bom dia Alexandre,

É quase isso, para funcionar na perfeição o primeiro Chefe de Serviço será aquele que está indicado na [TxtChServico] e a partir daí é que vai preencher o resto.
No caso o valor que pré-definido é o 023, logo começaria por aí em vez do 012.

Espero que tenha conseguido explicar.

Por exemplo, na escala do 3º trimestre quem começa é o 026
Escala 3º trimestre

- nomeie de forma normalizada
- respeite nomes reservados do Access, evitando erros mais dificeis de corrigir mais tarde
- crie comando no form, denomine-o CmdDefinirChefes
- no acontecimento AoClicar, coloque

Código:

Private Sub CmdDefinirChefes_Click()
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' código criado por Alexandre Neves, do Fórum MaximoAccess  '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim RstChefes As DAO.Recordset, RstEscala As DAO.Recordset
    Set RstChefes = CurrentDb.OpenRecordset("SELECT NumInterno FROM TabFuncionarios WHERE Funcao='Ch Serviço' And Grupo=0 And Disponivel=True And Exonerado=False ORDER BY NumInterno;")
    Set RstEscala = CurrentDb.OpenRecordset("SELECT * FROM TabEscala ORDER BY Data")
    Do While Not RstChefes.EOF
        If Format(RstChefes("NumInterno"), "000") = TxtChServico Then Exit Do Else RstChefes.MoveNext
        RstChefes.MoveNext
    Loop
    Do While Not RstEscala.EOF
        RstEscala.Edit
        RstEscala("ChefeServ") = RstChefes("NumInterno")
        RstEscala.Update
        RstChefes.MoveNext
        If RstChefes.EOF Then RstChefes.MoveFirst
        RstEscala.MoveNext
    Loop
    Set RstEscala = Nothing
    Set RstChefes = Nothing
    Me.Refresh
End Sub

Ficou perfeito. Era isto mesmo
Vou aproveitar o seu código para definir o Chefe de Piquete e as outras funções fixas (9º Sub e TAS). e até tive outra
Vou tentar voltar à minha ideia original de que os restantes elementos têm a função de Sub em vez de 1º Sub, 2º Sub, etc., o que facilitará a gestão da escala. Parece-me que o seu código permitirá fazer o que quero.

Não vou dar como RESOLVIDO só para testar esta parte, mas darei se ficar tudo bem.

Quanto aos nomes e "limpeza do código" fique descansado, só está assim porque ainda está em bruto, irei dar os devidos nomes

Depois dou feedback, até lá obrigado.

Por lapso, repeti a instrução RstChefes.MoveNext
o código certo será

Código:

Private Sub CmdDefinirChefes_Click()
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' código criado por Alexandre Neves, do Fórum MaximoAccess  '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim RstChefes As DAO.Recordset, RstEscala As DAO.Recordset
    Set RstChefes = CurrentDb.OpenRecordset("SELECT NumInterno FROM TabFuncionarios WHERE Funcao='Ch Serviço' And Grupo=0 And Disponivel=True And Exonerado=False ORDER BY NumInterno;")
    Set RstEscala = CurrentDb.OpenRecordset("SELECT * FROM TabEscala ORDER BY Data")
    Do While Not RstChefes.EOF
        If Format(RstChefes("NumInterno"), "000") = TxtChServico Then Exit Do Else RstChefes.MoveNext
    Loop
    Do While Not RstEscala.EOF
        RstEscala.Edit
        RstEscala("ChefeServ") = RstChefes("NumInterno")
        RstEscala.Update
        RstChefes.MoveNext
        If RstChefes.EOF Then RstChefes.MoveFirst
        RstEscala.MoveNext
    Loop
    Set RstEscala = Nothing
    Set RstChefes = Nothing
    Me.Refresh
End Sub

Boa tarde Alexandre,

Não tinha dado conta de algum erro no preenchimento, mas obrigado.
No entanto detetei outra coisa. Para facilitar, tinha colocado o 023 como sendo o chefe de serviço que inicia funções na nova escala, mas esse campo deverá ser preenchido na altura. Quando eu preencho com outro numero o campo fica 000. Tenho formatado o campo para "000";(000) e acho que bastaria escrever 26 para ele assumir 026 e procurar por esse numero na TabFuncionarios.

Mas diz que não existe esse registo, já tentei sem a formatação da caixa de texto e escrever 026, mas acontece o mesmo.

Já resolvi!
No inicio da função escrevi
Me.TxtChServico = Format(Me.TxtChServico, "000") e já funciona bem

boa tarde se nao for pedir muito poderia disponibinizar um exemplo dessa escala sempre quiz ter um exemplo de escala de serviço.

Boa noite jntrindade,

Ainda está muito em bruto, não sei se conseguirá compreender, mas deixo aqui o exemplo com as ultimas alterações.

Para funcionar é necessário indicar, no formulário, a data de inicio da escala, a data de fim, o chefe de serviço que inicia funções e o grupo que inicia. Ainda não tem tratamento de erros.

Escala serviço Domingos 1.2

valeu vou estudar essa escla obrigado por ter disponibilizado o arquivo.

abraços

Bom dia.

Em relação ao solicitado neste tópico, fiquei muito satisfeito com o resultado. Já disponibilizei um exemplo, que tentarei atualizar, que tem lá o que é preciso.
Dou como resolvido
Muito obrigado ao Alexandre Neves