Re: GroupWare

Posté par R&B le 24/6/2003 13:02:42
oui : utiliser les fonction natives du groupware.

login courant : 
gpwRecupInfoUtilisateur(gpwInfoLogin)

son groupe :
gpwRecupInfoUtilisateur(gpwInfoGroupe)



la liste des logins (mais pas ceus du groupe SUPERVISEUR )
// Retourne la liste des utilisateurs (superviseur exclus)
PROCEDURE GetUserList()
//-----------------------------------------------
EXTERNE GPWUtilisateur
pos est un entier = HSauvePosition(gpwutilisateur)
sretour est une chaîne
HLitPremier(GPWUtilisateur,Login)
TANTQUE PAS HEnDehors(gpwutilisateur)
	SI gpwutilisateur.superviseur=Faux ALORS
		SI sretour<>"" ALORS sretour+=RC
		sretour+=gpwutilisateur.login 
	FIN
	HLitSuivant(gpwutilisateur,login)
FIN
HRetourPosition(pos)
RENVOYER sretour


doublon supprimé

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=5&topic_id=135&post_id=437