Discussion :

[buzz68180]

Bonjour,

Le sujet ayant déjà été évoqué mais sans suite , qq'un aurait-il une solution pour la suppression d'un événement dans Calendrier google

Voici le message d'erreur Windev :

Echec de la requête HTTP.
Code de retour HTTP : <HTTPBadRequest>
Message du serveur : <Cannot remove primary calendar moncalendrier@gmail.com>

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
14
15
16
17
18
19
20
21
 
 
Cnx est un gglConnexion
	Cnx..Email = AgendaGoogle.Utilisateur
	Cnx..MotDePasse =AgendaGoogle.MotDePasse
	Cnx..NomApplication = ProjetInfo(piNomProjet)
	SI GglConnecte(Cnx)=Faux ALORS
		Erreur(ErreurInfo())
	FIN
 
	// Récupération de l'agenda 
	TabAgenda est un tableau de 0 gglAgenda
	TabAgenda = GglListeAgenda(Cnx, gglUtilisateur)
	// Affichage du titre de chaque agenda
	Agenda est un gglAgenda
	POUR TOUT Agenda DE TabAgenda
		SI Agenda..Titre = AgendaGoogle.Nom ALORS
			// Suppression de l'agenda
			GglSupprime(Cnx, Agenda)
		FIN
	FIN

Merci pour votre aide.

[buzz68180]

j'ai trouvé en regardant sur l'exemple WD Agenda , il faut parcourir tous les événements et récupérer leur ID :

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
32
33
34
35
36
37
38
 
UnAgenda 		est un gglAgenda
nIndice				est un entier
UnEvénement 	est un gglEvénement
//sIdentifiant est une chaine =
 
// Recherche l'événement dans la base
 
	POUR TOUT AgendaGoogle 
 
		// Sauvegarde du contexte 
		nPosHF = HSauvePosition(AgendaGoogle)
 
		MaConnexion est une gglConnexion
		MaConnexion.Email 			= AgendaGoogle.Utilisateur
		MaConnexion.MotDePasse		= AgendaGoogle.MotDePasse
		MaConnexion.NomApplication	= ProjetInfo(piNomProjet)
 
 
		// Récupère l'agenda
		UnAgenda = GglRécupèreAgenda(MaConnexion, AgendaGoogle.Identifiant, "19700101")
 
		POUR TOUT UnEvénement DE UnAgenda.Evénement
 
			// Recherche l'événement
			nIndice = Cherche(UnAgenda.Evénement, tcLinéaire, "Identifiant",UnEvénement.Identifiant)
 
			SI nIndice > 0 ALORS
 
				// Supprime l'événement
				Supprime(UnAgenda.Evénement, nIndice)
 
			FIN
		FIN
 
		// Mise à jour
		GglEcrit(MaConnexion, UnAgenda)		
FIN