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
|
IDJeux est un entier
SI HExécuteRequête(REQ_Planning_Test, hRequêteDéfaut, Date_Premier_Jour, Date_Dernier_Jour) = Vrai ALORS
POUR TOUT REQ_Planning_Test
POUR i_date = DateVersEntier(Date_Premier_Jour) _A_ DateVersEntier(Date_Dernier_Jour)
Indice_Date = TableauCherche(Tableau_Planning_Calendrier, tcLinéaire, "Date_Calendrier", EntierVersDate(i_date))
SI Indice_Date <> -1 ALORS
SI REQ_Planning_Test.Retour_Planning = 0 ALORS
// JEU NON PLANIFIE
SI (i_date >= DateVersEntier(REQ_Planning_Test.Date_Debut_Jeu)) ET (i_date <= DateVersEntier(REQ_Planning_Test.Date_Fin_Jeu)) ALORS
SI DateDifférence(EntierVersDate(i_date), Date_Actuelle) < 0 ALORS
Tableau_Planning_Calendrier[Indice_Date]:p_Type = 1
SINON
Tableau_Planning_Calendrier[Indice_Date]:p_Type = -1
FIN
FIN
SINON
SI (IDJeux <> REQ_Planning_Test.IDJeux) ALORS
SI (i_date >= DateVersEntier(REQ_Planning_Test.Date_Debut_Jeu)) ET (i_date <= DateVersEntier(REQ_Planning_Test.Date_Fin_Jeu)) ALORS
SI DateDifférence(EntierVersDate(i_date), Date_Actuelle) < 0 ALORS
Tableau_Planning_Calendrier[Indice_Date]:p_Type = 1
SINON
Tableau_Planning_Calendrier[Indice_Date]:p_Type = -1
FIN
FIN
FIN
FIN
FIN
FIN
IDJeux = REQ_Planning_Test.IDJeux
FIN
POUR TOUT REQ_Planning_Test
POUR i_date = DateVersEntier(Date_Premier_Jour) _A_ DateVersEntier(Date_Dernier_Jour)
Indice_Date = TableauCherche(Tableau_Planning_Calendrier, tcLinéaire, "Date_Calendrier", EntierVersDate(i_date))
SI Indice_Date <> -1 ALORS
SI REQ_Planning_Test.Retour_Planning <> 0 ALORS
// JEU PLANIFIE
SI REQ_Planning_Test.Date_Planning = EntierVersDate(i_date) ALORS
SI DateDifférence(EntierVersDate(i_date), Date_Actuelle) < 0 ALORS
Tableau_Planning_Calendrier[Indice_Date]:p_Type = 2
SINON
Tableau_Planning_Calendrier[Indice_Date]:p_Type = -2
FIN
FIN
FIN
FIN
FIN
FIN
FIN
HLibèreRequête(REQ_Planning_Test) |
Partager