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
|
// lors de la selection d'une ligne de Combo_DRA
AgendaSupprimeTout(AGD_SansNom1)
HExécuteRequête(REQ_Planning_majeur,hRequêteDéfaut,COMBO_DR1)
HExécuteRequête(REQ_Planning_bloquant,hRequêteDéfaut,COMBO_DR1)
HLitPremier(REQ_Planning_majeur,ID_OT)
TANTQUE PAS HEnDehors(REQ_Planning_majeur)
gMajeur..JournéeEntière = Vrai
gMajeur..DateDébut = REQ_Planning_majeur.DateCreationOT
gMajeur..DateDébut..Heure = REQ_Planning_majeur.HeureCreationOT..Heure
gMajeur..CouleurFond = RVB(202,34,129)
gMajeur..DateFin = (gMajeur..DateDébut..Jour + EntierVersDate(00000002))
gMajeur..Titre = "N° OT : "+REQ_Planning_majeur.ID_OT+" (Majeur)"
gMajeur..Importance = 1
gMajeur..Contenu = "a faire : "+REQ_Planning_majeur.Commentaires +RC+"Agence : "+REQ_Planning_majeur.NomAgence+RC+REQ_Planning_majeur.DateCreationOT
// ici je veux affichier plusieurs techniciens dans ce Contenu
gMajeur..Contenu = "Par : "+REQ_Planning_majeur.NomTechnicien+RC
//
FIN
AgendaAjouteRendezVous(AGD_SansNom1,gMajeur)
HLitSuivant(REQ_Planning_majeur) |
Partager