[Resolvido]Escala de Serviço

Boas Alexandre
É a partir deste formulario que eu defino as datas e o numero de turnos, e queria também definir o numero de operadores por turno.
Este formulário tem o nome "rotina".

Esta que está em baixo dá para o quarto.
Se copiar para mais abaixo e mudar o numero 4 para 5, faz a rotina para 5 operadores. Certo ?

RstTurnos(Turno + 1) = RstTurnos(Turno + 1) & "," & RstOperadores("Letra")
RstOperadores.MoveNext
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica4:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
RstTurnos("Ausencia") = RstTurnos("Ausencia") & RstOperadores("Letra") & ","
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
GoTo Verifica4
End If

ASSIS
já testei a tua versão em 6 PCs e em todos da o mesmo ao abrir o frmcalendar( bloqueio)

Todos 2010

Teste este ... no 2010

este sim, funciona

Boas Alexandre
em relaçãoa rotatividade a unica logica que vejo é fazer uma tabela ou consulta com todas as duplas de operadores possiveis ex.(AB, CD, AD, ETC....) e depois obrigar essas parelhas a fazer 3 turnos seguidos do tipo Tarde, manha e noite e a seguir um, dois ou tres dias de folga conforme as duplas que sobrarem.
Diz se assim é possivel.
Abraço

Boa noite, dteixa
E algum deles (ou os dois) estiverem de folga? As parelhas fazem-se dia-a-dia. Se algum estiver de folga, só entra no giro seguinte?
Tenho pensado em várias possibilidades e sempre encontro falta de lógica

espera 5 minutos, vou ver aki as parelhas

Bem, pelas minhas contas há 45 possibilidades de fazer parelhas, agora é uma questão do codigo verificar a parelha seguinte e se uma letra estiver na ausencia, ele passa automaticamente a parelha seguinte ate encontrar duas letras que não estejão nas ausencias.
axas que assim dá?

AB-AC-AD-AF-AG-AH-AJ-AK-AL-BC-BD-BF-BG-BH-BJ-BK-BL-CD-CF-CG-CH-CJ-CK-CL-DF-DG-DH-DJ-DK-DL-FG-FH-FJ-FK-FL-GH-GJ-GK-GL-HJ-HK-HL-JK-JL-KL

Observa a escala de dezembro
sublinhei os turnos do "K" e do "B" para perceberes a logica atual.

Ver imagem grande

Bom dia,
Qual a lógica a implementar? Fazendo o fluxograma, implementar-se-á em código

Boas
estamos de volta depois de umas curtas ferias para o natal,

Alexandre não sei mesmo que tipo de logica se pode por aqui porque a logica vai ser quebrada quando houver ausencias,
se não for muita maçada para ti tenta por os turnos nesta sequencia dia 1-Tarde, dia 2-Manha e dia 3-Noite de seguida as folgas de acordo com os operadores restantens.
obrigado

Ainda não vi lógica para a situação.
Porque não é fácil fazer escalas, existem especialistas no assunto: http://www.escalafacil.com.br/index.php

Boa noite Alexandre

Como corrigir o que se vê na imagem que está n mensagem Nº 50

Obrigado

Boa noite, Assis
Disponibiliza bd com dados em concrecto para ver

Boa noite Alexandre

Aqui está... Obrigado

Assis,
Esta escala está subvertida, pois o mesmo trabalhador pode ser incluído em mais que 1 turno no mesmo dia.
Mesmo assim, será:
Option Compare Database
Option Explicit
'código criado por Alexandre Neves
'em 2012-12-15
'para dteixa
'do fórum MaximoAccess

'If DCount("*", "Feriados", "DataFeriado=#" & Format(dtData, "mm-dd-yyyy") & "#") = 0 _
'And Weekday(dtData) <> 1 And Weekday(dtData) <> 7 Then
'For Turno = 1 To Forms!Rotina!NTurnos

Sub CriaTurnos()
On Error Resume Next
Dim RstOperadores As DAO.Recordset, RstTurnos As DAO.Recordset
Dim dtData As Date, Inicio As Date, Fim As Date, Turno As Byte

Set RstOperadores = CurrentDb.OpenRecordset("SELECT * FROM Operadores;")
Set RstTurnos = CurrentDb.OpenRecordset("SELECT * FROM Turnos;")
Inicio = Forms!Rotina!Inicio
Fim = Forms!Rotina!Fim

''''
CurrentDb.Execute "DELETE * FROM Turnos"
''''
For dtData = Inicio To Fim
RstTurnos.AddNew
RstTurnos(1) = dtData
For Turno = 1 To Forms!Rotina!NTurnos
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica1:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
If InStr(1, RstTurnos("Ausencia"), RstOperadores("Letra")) = 0 Then RstTurnos("Ausencia") = RstTurnos("Ausencia") & RstOperadores("Letra") & ","
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
GoTo Verifica1
End If

RstTurnos(Turno + 1) = RstOperadores("Letra")
RstOperadores.MoveNext
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica2:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
If InStr(1, RstTurnos("Ausencia"), RstOperadores("Letra")) = 0 Then RstTurnos("Ausencia") = RstTurnos("Ausencia") & RstOperadores("Letra") & ","
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
GoTo Verifica2
End If

RstTurnos(Turno + 1) = RstTurnos(Turno + 1) & "," & RstOperadores("Letra")
RstOperadores.MoveNext
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica3:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
If InStr(1, RstTurnos("Ausencia"), RstOperadores("Letra")) = 0 Then RstTurnos("Ausencia") = RstTurnos("Ausencia") & RstOperadores("Letra") & ","
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
GoTo Verifica3
End If

RstTurnos(Turno + 1) = RstTurnos(Turno + 1) & "," & RstOperadores("Letra")
RstOperadores.MoveNext
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica4:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
If InStr(1, RstTurnos("Ausencia"), RstOperadores("Letra")) = 0 Then RstTurnos("Ausencia") = RstTurnos("Ausencia") & RstOperadores("Letra") & ","
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
GoTo Verifica4
End If

'Ausencia
RstTurnos(Turno + 1) = RstTurnos(Turno + 1) & "," & RstOperadores("Letra")
If Len(RstTurnos("Ausencia")) > 0 And right(RstTurnos("Ausencia"), 1) = "," Then RstTurnos("Ausencia") = Mid(RstTurnos("Ausencia"), 1, Len(RstTurnos("Ausencia")) - 1)
RstOperadores.MoveNext

Next

RstTurnos.Update

Next

RstTurnos.MoveFirst
Do While Not RstTurnos.EOF
RstOperadores.MoveFirst
RstTurnos.Edit
Do While Not RstOperadores.EOF

If InStr(1, RstTurnos(2) & RstTurnos(3) & RstTurnos(4) & RstTurnos("Ausencia"), RstOperadores("Letra")) = 0 Then
RstTurnos("Descanso") = RstTurnos("Descanso") & RstOperadores("Letra") & ","
End If

If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
Loop
RstTurnos("Descanso") = Mid(RstTurnos("Descanso"), 1, Len(RstTurnos("Descanso")) - 1)
RstTurnos.Update
RstTurnos.MoveNext
Loop
Set RstTurnos = Nothing: Set RstOperadores = Nothing

End Sub
Function Trabalha(Operador As String, dtData As Date) As Boolean
If DCount("*", "Ausencias", "Operador='" & Operador & "' and #" & Format(dtData, "m-d-yyyy") & "# BETWEEN Inicio and Fim") = 0 Then Trabalha = True
End Function

Alexandre

Então as ausencias estão a aparecer na "Tabela Turnos" no campo "Descanso".

Mas o campo da mesma tabela "Ausencias para que é ? Pois fica sempre em branco.

O BD de exemplo já está actualizada na mensagem Nº 65

Obrigado

Só dei uma vista de olhos e parece que está certo.
Todos os operadores ou estão ao serviço ou estão em descanso. Só estariam de ausência (por férias, por recessos(?), etc) se nem estivessem ao serviço nem de descanso

Alexandre

O ideal seria os que estão na tabela Ausencias iam para a coluna "Ausencia" na tabela Turnos.
Os que não estiverem escalados vão para a coluna "Descanso"

Pode ser ?

isto está complicado

Boa noite, Assis
Penso que pode ser, mas precisa deste trabalho ou é para enriquecimento? É que, compreenderá, o tempo de planear e fazer/refazer o código é à custa de outros trabalhos que vou adiando.

Boa noite Alexandre

Não, não tenho pressa. Então quando tiver um tempinho livre agradeço.
Obrigado
Boas entradas em 2013.

Assis,
Penso ser isto:
Option Compare Database
Option Explicit
'código criado por Alexandre Neves
'em 2012-12-15
'para dteixa
'do fórum MaximoAccess

Sub CriaTurnos()
On Error Resume Next
Dim RstOperadores As DAO.Recordset, RstTurnos As DAO.Recordset, RstAusencias As DAO.Recordset
Dim dtData As Date, Inicio As Date, Fim As Date, Turno As Byte

Set RstOperadores = CurrentDb.OpenRecordset("SELECT * FROM Operadores;")
Set RstTurnos = CurrentDb.OpenRecordset("SELECT * FROM Turnos;")
Set RstAusencias = CurrentDb.OpenRecordset("SELECT Letra,Inicio,Fim FROM Ausencias LEFT JOIN Operadores ON Ausencias.Operador=Operadores.Nome;")
Inicio = Forms!Rotina!Inicio
Fim = Forms!Rotina!Fim

''''
CurrentDb.Execute "DELETE * FROM Turnos"
''''
For dtData = Inicio To Fim
RstTurnos.AddNew
RstTurnos(1) = dtData

RstAusencias.MoveFirst
Do While Not RstAusencias.EOF
If dtData >= RstAusencias("Inicio") And dtData <= RstAusencias("Fim") Then RstTurnos("Ausencia") = RstTurnos("Ausencia") & RstAusencias("Letra") & ","
RstAusencias.MoveNext
Loop
If Not IsNull(RstTurnos("Ausencia")) Then RstTurnos("Ausencia") = Mid(RstTurnos("Ausencia"), 1, Len(RstTurnos("Ausencia")) - 1)
For Turno = 1 To Forms!Rotina!NTurnos
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica1:
If InStr(1, RstTurnos("Ausencia"), RstOperadores("Letra")) > 0 Then
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
GoTo Verifica1
End If

RstTurnos(Turno + 1) = RstOperadores("Letra")
RstOperadores.MoveNext
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica2:
If InStr(1, RstTurnos("Ausencia"), RstOperadores("Letra")) > 0 Then
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
GoTo Verifica2
End If

RstTurnos(Turno + 1) = RstTurnos(Turno + 1) & "," & RstOperadores("Letra")
RstOperadores.MoveNext
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica3:
If InStr(1, RstTurnos("Ausencia"), RstOperadores("Letra")) > 0 Then
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
GoTo Verifica3
End If

RstTurnos(Turno + 1) = RstTurnos(Turno + 1) & "," & RstOperadores("Letra")
RstOperadores.MoveNext
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica4:
If InStr(1, RstTurnos("Ausencia"), RstOperadores("Letra")) > 0 Then
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
GoTo Verifica4
End If

RstTurnos(Turno + 1) = RstTurnos(Turno + 1) & "," & RstOperadores("Letra")
RstOperadores.MoveNext

Next

RstTurnos.Update

Next

RstTurnos.MoveFirst
Do While Not RstTurnos.EOF
RstOperadores.MoveFirst
RstTurnos.Edit
Do While Not RstOperadores.EOF

If InStr(1, RstTurnos(2) & RstTurnos(3) & RstTurnos(4) & RstTurnos("Ausencia"), RstOperadores("Letra")) = 0 Then
RstTurnos("Descanso") = RstTurnos("Descanso") & RstOperadores("Letra") & ","
End If

If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
Loop
If right(RstTurnos("Descanso"), 1) = "," Then RstTurnos("Descanso") = Mid(RstTurnos("Descanso"), 1, Len(RstTurnos("Descanso")) - 1)
RstTurnos.Update
RstTurnos.MoveNext
Loop
Set RstTurnos = Nothing: Set RstOperadores = Nothing

End Sub

Grande Alexandre, mesmo sem tempo sempre a ajudar.

Obrigado Alexandre
Perfeito
Tudo de bom para si, agora e sempre.
Abraço

Ainda bem que resolveram. Marquei Resolvido.
Abraço também para si.
Continuação de Santo Natal e Feliz Ano de 2013.

Obrigao Alexandre
Bom ano para ti tambem.

Boas
voltando a questão da logica acho que assim será mais fácil,
então o código faz a pesquisa a tabela Operadores e a tabela ausências,
no dia 01, turno da tarde, mete os dois primeiros operadores disponíveis esses mesmos dois operadores devem ir para o tuno da manha no dia 02 e no dia 03 os mesmo dois vão para o turno da noite. depois os dias de folga serão os possíveis em função dos operadores disponíveis
seguindo esta sequencia é possível?

01 | 02 | 03
Turno Tarde- AB
Tuno Manha - AB
Turno Noite- AB

obrigado

Olá Alexandre Neves,

Após uma pesquisa intensa pelo forum, fui encontrar este código desenvolvido por si no dia 15-12-2012 para o utilizador "dteixa", que se refere a uma escala de serviço anual para alguns trabalhadores (operadores).

Como não percebo quase nada de programação, tentei adaptar o que conseguia, mas sem sucesso.

Neste momento, o seu código dá-me quase tudo o que necessito faltando apenas implementar algumas regras lógicas, que não consigo de todo implementar pelo motivo anteriormente descrito.

Assim, lembrei-me de lhe solicitar, se conseguia me ajudar por forma a ultrapassar um grave problema que tenho no meu trabalho, onde efetuamos trabalho por turnos, 12 horas por turno.

A regra mais importante que necessito de implementar é, por cada 4 turnos efetuados (48 horas) o trabalhador tem 2 folgas (48 horas), caso na rotação normal não se verifique, o código deve forçar essa folga.

Junto envio o código para a sua eventual análise.

Desde Já agradeço atenção dispensada.

Muito Obrigado!
---------------

Option Compare Database
Option Explicit
'código criado por Alexandre Neves
'em 2012-12-15
'para dteixa
'do fórum MaximoAccess

Sub CriaTurnos()
Dim RstOperadores As DAO.Recordset, RstTurnos As DAO.Recordset
Dim dtData As Date, Inicio As Date, Fim As Date, Turno As Byte

Set RstOperadores = CurrentDb.OpenRecordset("SELECT * FROM Operadores;")
Set RstTurnos = CurrentDb.OpenRecordset("SELECT * FROM Turnos;")
Inicio = #1/1/2015#
Fim = #3/31/2015#

For dtData = Inicio To Fim
RstTurnos.AddNew
RstTurnos(1) = dtData
For Turno = 1 To 2
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica1:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
GoTo Verifica1
End If
RstTurnos(Turno + 1) = RstOperadores("Letra")
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica2:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
GoTo Verifica2
End If
RstTurnos(Turno + 1) = RstTurnos(Turno + 1) & "," & RstOperadores("Letra")
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
Next
RstTurnos.Update
Next

RstTurnos.MoveFirst
Do While Not RstTurnos.EOF
RstOperadores.MoveFirst
RstTurnos.Edit
Do While Not RstOperadores.EOF
If InStr(1, RstTurnos(2) & RstTurnos(3) & RstTurnos(4), RstOperadores("Letra")) = 0 Then
RstTurnos("Descanso") = RstTurnos("Descanso") & RstOperadores("Letra") & ","
End If
RstOperadores.MoveNext
Loop
RstTurnos("Descanso") = Mid(RstTurnos("Descanso"), 1, Len(RstTurnos("Descanso")) - 1)
RstTurnos.Update
RstTurnos.MoveNext
Loop
Set RstTurnos = Nothing: Set RstOperadores = Nothing
End Sub

Function Trabalha(Operador As String, dtData As Date) As Boolean
If DCount("*", "Ausencias", "Operador='" & Operador & "' and #" & Format(dtData, "m-d-yyyy") & "# BETWEEN Inicio and Fim") = 0 Then Trabalha = True
End Function

Boa noite,
Desmarquei o Resolvido, já que a dúvida continua, mesmo não sendo pelo membro que abriu o tema.
Disponibilize dados para se trabalhar.

Boa tarde,

O que pretendia seria:

- Quando existe pessoas de férias, a rotatividade entre funcionários é maior, não garantindo o descanso semanal. Esse descanso é de 48 horas, depois de ser efetuado 40 horas semanais. Como no meu caso cada turno é de 12 horas, só após 4 turnos (48 horas) é que pode ser concedido e esse descanso semanal.

- Outra situação, era tentar que todos os funcionários fossem escalados sempre, no mínimo com, com 13 turnos, o que corresponde a uma média anual de 160 horas.

Junto envio a bd para análise, agradecendo a disponibilidade.

Boa noite mestres!

Estive lendo aqui no forum e vi com voces realmente da para contar!

Tambem preciso montar um banco de dados com opcao de relatorios para escala de servicos de 56 funcionarios, mas com regrinhas muito especificas.

Como posso fazer para obter ajuda?

Desde ja obrigada!

Olá,

Já iniciou o banco de dados?
Para obter ajuda, é só postar as dúvidas!

Ainda existem interessados na continuidade da dúvida?
Ou fecha-se o assunto?
Aguardamos...

Como não se manifestaram na continuidade da dúvida, dou o tema por encerrado