Bonjour,
voici du code qui doit me permettre de calculer une date à partir d'une autre date en otant 1 jour et en tenant compte des weekend et jours fériés.
Mais je n'obtient pas le résultat escompter.

Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
WhileReadingRecords;
DateVar Array ListeJoursChome;
Local DatetimeVar DateDecoupe:= {ENTREPOT_COMMANDE_TEMP.STK_DATECONG}; 
Local NumberVar Delai:= 1;
Local NumberVar i := 0;
 
WHILE i < Delai 
Do (DateDecoupe := DateDecoupe -1;
    if dayofweek (DateDecoupe,CrMonday) in 1 to 5 and not (DateDecoupe in ListeJoursChome) 
        then i:=i+1
        else i:=i);
 
DateDecoupe
Et la liste des jours chomés :

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
BeforeReadingRecords;
DateVar Array ListeJourFerie := [
Date (2019,07,14),
Date (2019,08,15),
Date (2019,11,01),
Date (2019,11,11),
Date (2019,12,25),
Date (2020,01,01),
Date (2020,04,13),
Date (2020,05,01),
Date (2020,05,08),
Date (2020,05,21),
Date (2020,06,01),
Date (2020,07,14),
Date (2020,08,15),
Date (2020,11,01),
Date (2020,11,11), 
Date (2020,12,25),
Date (2021,01,01),
Date (2021,04,05),
Date (2021,05,01),
Date (2021,05,08),
Date (2021,05,13),
Date (2021,05,24),
Date (2021,07,14),
Date (2021,08,15),
Date (2021,11,01),
Date (2021,11,11),
Date (2021,12,25)
];
0
Les dates renvoyées on bien un jour de moins et tiennent compte des weekend, mais pas des jours fériées.
Exemple :

Nom : Capture.PNG Affichages : 288 Taille : 5,6 Ko

Merci d'avance pour votre aide.