WDForge.org - Forums

Re: GroupWare

Sujet: Re: GroupWare
par R&B sur 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é