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
|
// j'ai créé des tableaux pour pourvoir remplir ma table Rdv,ces tableaux sont à une dimension ,ils sont globale et définis dans le code du projet
//gtabT_coiffeur
//gtabT_Nomcoiff
//gtabT_prest
//gtabT_MontantPrest
//gtabT_prest_Decoche
i,j,k,y,x,t,u,r sont des entiers
t =TableOccurrence(TABLE_Rdv)
k=Dimension(gtabT_prest)
SI TABLE_Coiffeurs.COL_Colonne1=Vrai ALORS
Ajoute(gtabT_coiffeur,TABLE_Coiffeurs.COL_IdCoiffeurs[TableSelect(TABLE_Coiffeurs)])
Ajoute(gtabT_Nomcoiff,TABLE_Coiffeurs.COL_Ident_Coiff[TableSelect(TABLE_Coiffeurs)])
SINON SI TABLE_Coiffeurs.COL_Colonne1=Faux ALORS
y=(TABLE_Coiffeurs.COL_IdCoiffeurs[TableSelect(TABLE_Coiffeurs)])
i = TableCherche(TABLE_Rdv.COL_IdCoiffeurs,y)
x = TableauCherche(gtabT_coiffeur,tcLinéaire,y)
SI i=-1 ET x=-1 ALORS
Info("Aucun resultant")
SINON
Avertissement("Toutes les prestations associées à cet coiffeurs seront supprimées seront supprimées")
// On compare les identifiants de la table Prestation et Rdv en les parcourant si on trouve alors on décoche les prestations
nb est un entier
nb= Dimension(gtabT_prest_Decoche)
POUR r=nb A 1 PAS -1
SI TABLE_Prestation.COL_IdPrest[r]=TABLE_Rdv.COL_IdPrest[r] ALORS
TABLE_Prestation.COL_Colonne1[r]=Faux
TableauSupprime(gtabT_prest_Decoche,r)
FIN
FIN
// Ensuite on suppression de toutes les prestations du coiffeur l'employé qui est désélectionner (décoché)
POUR u=t A 1 PAS -1
SI TABLE_Rdv.COL_IdCoiffeurs[u]=Val(y) ALORS
TableSupprime(TABLE_Rdv,u)
FIN
FIN
// je vide les tableau car si je coche sur une prestations et que je coche sur coiffeur ,il va réajouter les prestations déjà sélectionnées
TableauSupprimeTout(gtabT_coiffeur)
TableauSupprimeTout(gtabT_Nomcoiff)
TableauSupprimeTout(gtabT_prest)
TableauSupprimeTout(gtabT_MontantPrest)
FIN
FIN
// Ajout des données dans la table Rdv a partir des champs et des tableau
POUR i=1 A k
SI t=0 ALORS
TableAjouteLigne(TABLE_Rdv,SAI_Date_Traitment..Valeur,SAI_Heure_Traitment..Valeur,gtabT_prest[i],gtabT_coiffeur[1],SAI_IdClient_RDV..Valeur,gtabT_MontantPrest[i],gtabT_Nomcoiff[1])
FIN |
Partager