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
|
HExécuteRequête(REQ_arr_corr_union)
HExécuteRequête(REQ_arr_corr_sum)
HExécuteRequête(REQ_arr_panne_union)
HExécuteRequête(REQ_arr_panne_sum)
HExécuteRequête(REQ_arr_arret_union)
HExécuteRequête(REQ_arr_arret_sum)
i est entier =0
j est entier =0
k est entier =0
POUR TOUT machine
// Initialisation des compteurs entre chaque appareil
i = 0
j = 0
k = 0
// Mise en place d'un filtre pour la machine sur la requête retournant le nombre d'arrêt (je suppose)
HFiltre(REQ_arr_arret_sum,début_prob_jour,REQ_arr_arret_sum.début_prob_jour=SAI_Saisie1 ET REQ_arr_arret_sum.des_mach=machine.des_mach)
// Lecture du premier enregistrement
SI HLitPremier(REQ_arr_arret_sum) ALORS
// Enregistrement trouvé : on stocke la valeur
i =REQ_arr_arret_sum.la_somme_Formule1
SINON
// pour éviter les plantages
HErreur()
FIN
// Mise en place d'un filtre pour la machine sur la requête retournant le nombre de pannes (je suppose)
HFiltre(REQ_arr_panne_sum,début_prob_jour,REQ_arr_panne_sum.début_prob_jour=SAI_Saisie1 ET REQ_arr_panne_sum.des_mach=machine.des_mach)
SI HLitPremier(REQ_arr_panne_sum) ALORS
j =REQ_arr_panne_sum.la_somme_Formule1
SINON
HErreur()
FIN
// Mise en place d'un filtre pour la machine sur la requête retournant le nombre de maintenance (je suppose)
HFiltre(REQ_arr_corr_sum,début_prob_jour,REQ_arr_corr_sum.début_prob_jour=SAI_Saisie1 ET REQ_arr_corr_sum.des_mach=machine.des_mach)
SI HLitPremier(REQ_arr_corr_sum) ALORS
k=REQ_arr_corr_sum.la_somme_Formule1
SINON
HErreur()
FIN
TableAjoute(TABLE_Table2,machine.des_mach+TAB+i+TAB+j+TAB+k)
FIN |
Partager