Discussion :

[adelcrb]

salam

j'ai un programme qui me fais poussé des cheveux sur les dents
...

pour commencer je vais vous expliqué ce que je veut réalisé .

données :

- j'ai plusieurs machines.
-chaque machine je dois lui faire des maintenance (hebdomadaire, mensuel, ....annuel)

maintenant au lieu de planifier 365 jours manuellement je veut créer un programme qui le fait automatiquement .
pour ne pas brulé les étapes j'ai commencer a faire la panification des taches hebdomadaire.

voila le bous de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
procedure TForm1.BitBtn1Click(Sender: TObject);
 
 var
  s :TDateTime;
 
begin
  executiontache.Open;//la planification des tache (a remplir)
  tache_poste_detail.Open;//liste des taches par poste en détail
  s:=Now;
  tache_poste_detail.first;
 
  while not tache_poste_detail.Eof do
  begin
 
 
       s := DateTimePicker1.Date;
 
 
    if tache_poste_detail.FieldByName('Fréquance').AsString = 'Hebdomadaire'
    then
    begin
 
      while s < DateTimePicker1.Date+365  do
      begin
executiontache.insert;        executiontache.FieldByName('Nposte_tache').AsInteger:=tache_poste_detail.FieldByName('Nposte_tache').AsInteger;//poster le nom de la machine
executiontache.FieldByName('dateplan').AsDateTime:=s;//poster la date de planification de la tache
executiontache.post; 
        s := s + 7;
      end;
    end;
    tache_poste_detail.Next;
  end;
 
end;

cella fonctionne mais la planification des taches ce fais au premier jours de la semaine , donc je me retrouve toujours avec un lundi remplie de tache ensuite le reste de la semaine y'a rien a faire , moi ce que je cherche c'est de répartir les tache sur tous les jours de la semaine et la je bloc , j'ai essayer d’incrémenté la date d'une journée a chaque changement de machine mais bon sur la 8 eme machine j'aurai un problème puisque la semaine a seulement 7 jours et il y aurai une semaine ou je ferai pas ça maintenance.
voila j’espère que je trouverai une solution pour ce problème , je vous remercie d'avance.

[Ph. B.]

Bonjour,

j'ai un programme qui me fais poussé des cheveux sur les dents

Je serais curieux de voir cela...

cella fonctionne mais la planification des taches ce fais au premier jours de la semaine , donc je me retrouve toujours avec un lundi remplie de tache ensuite le reste de la semaine y'a rien a faire , moi ce que je cherche c'est de répartir les tache sur tous les jours de la semaine et la je bloc , j'ai essayer d’incrémenté la date d'une journée a chaque changement de machine mais bon sur la 8 eme machine j'aurai un problème puisque la semaine a seulement 7 jours et il y aurai une semaine ou je ferai pas ça maintenance.

Il faut appliquer un modulo 7 sur l'incrément de date donc:

• Machines 1, 8, 15, 22 => 1° jour
• Machines 2, 9, 16 => 2° jour
• ...
• Machines 7, 14, 21 => 7° jour

Ensuite, attention en ajoutant 365 à votre date de départ, vous ne tenez pas compte des années bissextiles (366 jours).
Utilisez les fonctions de l'unité DateUtils : IncYear, IncWeek, IncDay, etc.

Enfin, utilisez des variables dont le sens est plus explicite, cela permettra une meilleure maintenance future du programme...

Donc, votre code réaménagé ressemble à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Debut, Fin: TDateTime;
  s: TDateTime;
  Delta: Integer;
begin
  executiontache.Open;//la planification des tache (a remplir)
  tache_poste_detail.Open;//liste des taches par poste en détail
  {s := Now;}
  Debut := Now;
  Fin := IncYear(Debut, 1);
  Delta := 0;
 
  tache_poste_detail.first;
 
  while not tache_poste_detail.Eof do
  begin
    {s := DateTimePicker1.Date;}
    if tache_poste_detail.FieldByName('Fréquance').AsString = 'Hebdomadaire' then
    begin
      s := IncDay(Debut, Delta);;
      {while s < DateTimePicker1.Date+365  do}
      while s < Fin  do
      begin
        executiontache.insert;
        //poster le nom de la machine
        executiontache.FieldByName('Nposte_tache').AsInteger := tache_poste_detail.FieldByName('Nposte_tache').AsInteger;
        //poster la date de planification de la tache
        executiontache.FieldByName('dateplan').AsDateTime := s;
        executiontache.post;
        {s := s + 7;}
        s := IncWeek(s, 1);
        // ou
        // s := IncDay(s, 7);
      end;
      // Décalage de 1 jour pour la machine suivante
      // avec retour en début de semaine
      Delta := (Delta + 1) mod 7;
    end;
    tache_poste_detail.Next;
  end;
end;

[adelcrb]

merciiiii philipe ça marche voila le code final pour tous les fréquence

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Debut, Fin: TDateTime;
  s: TDateTime;
  Delta: Integer;
begin
  executiontache.Open;
  tache_poste_detail.Open;
  Debut := DateTimePicker1.Date;
  Fin := IncYear(Debut, 1);
  Delta := 0;
 
  tache_poste_detail.first;
 
  while not tache_poste_detail.Eof do
  begin
    if tache_poste_detail.FieldByName('Fréquance').AsString = 'Hebdomadaire' then
    begin
      s := IncDay(Debut, Delta);
      while s < Fin  do
      begin
        executiontache.insert;
        executiontache.FieldByName('Nposte_tache').AsInteger := tache_poste_detail.FieldByName('Nposte_tache').AsInteger;
        executiontache.FieldByName('dateplan').AsDateTime := s;
        executiontache.post;
        s := IncWeek(s, 1);
      end;
      Delta := (Delta + 1) mod 7;
    end;
    if tache_poste_detail.FieldByName('Fréquance').AsString = 'Mensuel' then
    begin
      s := IncDay(Debut, Delta);
      while s < Fin  do
      begin
        executiontache.insert;
        executiontache.FieldByName('Nposte_tache').AsInteger := tache_poste_detail.FieldByName('Nposte_tache').AsInteger;
        executiontache.FieldByName('dateplan').AsDateTime := s;
        executiontache.post;
        s := IncMonth(s, 1);
      end;
      Delta := (Delta + 1) mod 7;
    end;
     if tache_poste_detail.FieldByName('Fréquance').AsString = 'Trimestriel' then
     begin
       s := IncDay(Debut, Delta);
       while s < Fin do
       begin
          executiontache.insert;
          executiontache.FieldByName('Nposte_tache').AsInteger := tache_poste_detail.FieldByName('Nposte_tache').AsInteger;
          executiontache.FieldByName('dateplan').AsDateTime := s;
          executiontache.post;
         s := IncMonth(s, 3);
       end;
       Delta := (Delta + 1) mod 7;
     end;
     if tache_poste_detail.FieldByName('Fréquance').AsString = 'Semestriel' then
    begin
      s := IncDay(Debut, Delta);
      while s < Fin  do
      begin
        executiontache.insert;
        executiontache.FieldByName('Nposte_tache').AsInteger := tache_poste_detail.FieldByName('Nposte_tache').AsInteger;
        executiontache.FieldByName('dateplan').AsDateTime := s;
        executiontache.post;
        s := IncMonth(s, 6);
      end;
      Delta := (Delta + 1) mod 7;
    end;
         if tache_poste_detail.FieldByName('Fréquance').AsString = 'Annuel' then
    begin
      s := IncDay(Debut, Delta);
      while s < Fin  do
      begin
        executiontache.insert;
        executiontache.FieldByName('Nposte_tache').AsInteger := tache_poste_detail.FieldByName('Nposte_tache').AsInteger;
        executiontache.FieldByName('dateplan').AsDateTime := s;
        executiontache.post;
        s := IncYear(s, 1);
      end;
      Delta := (Delta + 1) mod 7;
    end;
    tache_poste_detail.Next;
  end;
end;