Bonsoir,
Non c'est alimenté directement via le fichier des habilitations
Les interrupteurs n'ont pas d'option, ils sont vides, l'astuce c'est dans les noms :
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
les interrupteurs sont nommé INT_R_01 , INT_R_02, INT_R_03, ...
la procédure d'initialisation des interrupteurs :
Code (Windev):PROCÉDURE initialiseLesChamps()
GR_Interrupt..Visible = Faux
i est un entier = 0
POUR TOUT F_habilitation SUR IDF_habilitation
i++
SI F_habilitation.active_ ALORS
{"INT_R_"+i,indChamp}..Visible = Vrai
FIN
{"INT_R_"+i,indChamp}[1]..Libellé = F_habilitation.Libelle_
{"INT_R_"+i,indChamp} = 0
FIN
et le procédure en mode modification:
Code (Windev):PROCÉDURE MettreAjourHabilitation()
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
()
i est un entier = 0
POUR TOUT F_profil_has_habilitation AVEC id_profil = F_profil.IDF_profil
i = F_profil_has_habilitation.id_habilitation
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(F_habilitation,IDF_habilitation,i)
SI F_habilitation.active_ ALORS
{"INT_R_"+i,indChamp}..Visible = Vrai
{"INT_R_"+i,indChamp} = 1
FIN
FIN
fichier Habilitations :
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
fichier profil_has_habilitation
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
fichier profils :
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
Code du bouton Enregistrer de la fenêtre :
PS. Ce logiciel a été crée initialement sur windev 17 donc le code n'est pas forcement optimiséCode (Windev):SI SAI_Nom_du_profil_utilisateur = "" ALORS
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
("Il faut renseigner le nom du profil")
RepriseSaisie(SAI_Nom_du_profil_utilisateur)
FIN
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
()
i est un entier = 0
j est un entier = 0
SELON gnModeOuverture
CAS 1
//Création
F_profil.code_profil = SAI_Nom_du_profil_utilisateur
F_profil.profil_administrateur = INT_Profil_administrateur
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(F_profil)
POUR TOUT F_habilitation SUR IDF_habilitation
SI F_habilitation.active_ ALORS
F_profil_has_habilitation.id_profil = F_profil.IDF_profil
i = F_habilitation.IDF_habilitation
SI {"INT_R_"+i,indChamp} = 1 ALORS
F_profil_has_habilitation.id_habilitation = i
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(F_profil_has_habilitation)
FIN
FIN
FIN
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
("Profil utilisateur créé")
CAS 2
//Modification
F_profil.code_profil = SAI_Nom_du_profil_utilisateur
F_profil.profil_administrateur = INT_Profil_administrateur
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(F_profil)
POUR TOUT F_profil_has_habilitation AVEC id_profil = F_profil.IDF_profil
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(F_profil_has_habilitation)
FIN
POUR TOUT F_habilitation SUR IDF_habilitation
SI F_habilitation.active_ ALORS
F_profil_has_habilitation.id_profil = F_profil.IDF_profil
i = F_habilitation.IDF_habilitation
SI {"INT_R_"+i,indChamp} = 1 ALORS
F_profil_has_habilitation.id_habilitation = i
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(F_profil_has_habilitation)
FIN
FIN
FIN
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
("profil utilisateur modifié")
FIN
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(FEN_Principale.BAO_Administration.BTN_ModifierProfil,trtClic)Cliquez pour agrandir...
-
Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.
-
Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !Rejeter la notice
WD POUVOIR CREER SES PROPRES ACCES SANS PASSER PAR LE GROUPWARE
Discussion dans 'Windev' créé par ptrous, Déc 23, 2019.
Bonsoir,
Non c'est alimenté directement via le fichier des habilitations
Les interrupteurs n'ont pas d'option, ils sont vides, l'astuce c'est dans les noms :
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
les interrupteurs sont nommé INT_R_01 , INT_R_02, INT_R_03, ...
la procédure d'initialisation des interrupteurs :
Code (Windev):PROCÉDURE initialiseLesChamps()
GR_Interrupt..Visible = Faux
i est un entier = 0
POUR TOUT F_habilitation SUR IDF_habilitation
i++
SI F_habilitation.active_ ALORS
{"INT_R_"+i,indChamp}..Visible = Vrai
FIN
{"INT_R_"+i,indChamp}[1]..Libellé = F_habilitation.Libelle_
{"INT_R_"+i,indChamp} = 0
FIN
et le procédure en mode modification:
Code (Windev):PROCÉDURE MettreAjourHabilitation()
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
()
i est un entier = 0
POUR TOUT F_profil_has_habilitation AVEC id_profil = F_profil.IDF_profil
i = F_profil_has_habilitation.id_habilitation
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(F_habilitation,IDF_habilitation,i)
SI F_habilitation.active_ ALORS
{"INT_R_"+i,indChamp}..Visible = Vrai
{"INT_R_"+i,indChamp} = 1
FIN
FIN
fichier Habilitations :
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
fichier profil_has_habilitation
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
fichier profils :
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
Code du bouton Enregistrer de la fenêtre :
PS. Ce logiciel a été crée initialement sur windev 17 donc le code n'est pas forcement optimiséCode (Windev):SI SAI_Nom_du_profil_utilisateur = "" ALORS
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
("Il faut renseigner le nom du profil")
RepriseSaisie(SAI_Nom_du_profil_utilisateur)
FIN
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
()
i est un entier = 0
j est un entier = 0
SELON gnModeOuverture
CAS 1
//Création
F_profil.code_profil = SAI_Nom_du_profil_utilisateur
F_profil.profil_administrateur = INT_Profil_administrateur
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(F_profil)
POUR TOUT F_habilitation SUR IDF_habilitation
SI F_habilitation.active_ ALORS
F_profil_has_habilitation.id_profil = F_profil.IDF_profil
i = F_habilitation.IDF_habilitation
SI {"INT_R_"+i,indChamp} = 1 ALORS
F_profil_has_habilitation.id_habilitation = i
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(F_profil_has_habilitation)
FIN
FIN
FIN
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
("Profil utilisateur créé")
CAS 2
//Modification
F_profil.code_profil = SAI_Nom_du_profil_utilisateur
F_profil.profil_administrateur = INT_Profil_administrateur
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(F_profil)
POUR TOUT F_profil_has_habilitation AVEC id_profil = F_profil.IDF_profil
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(F_profil_has_habilitation)
FIN
POUR TOUT F_habilitation SUR IDF_habilitation
SI F_habilitation.active_ ALORS
F_profil_has_habilitation.id_profil = F_profil.IDF_profil
i = F_habilitation.IDF_habilitation
SI {"INT_R_"+i,indChamp} = 1 ALORS
F_profil_has_habilitation.id_habilitation = i
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(F_profil_has_habilitation)
FIN
FIN
FIN
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
("profil utilisateur modifié")
FIN
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(FEN_Principale.BAO_Administration.BTN_ModifierProfil,trtClic)Cliquez pour agrandir...
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
Vous pourriez nous faire partager ce projet PS. Ce logiciel a été crée initialement sur windev 17
Merci d'avance
Bonjour,
Partager le projet! t'es sérieux!?
Créer un petit projet didacticiel pour démonter la démarche.. je suis d'accord et je peux comprendre, mais que je partage tout le projet!!
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
j ai lu les différents code ce qui m amène à lire les cours sur les indirections avant de continuer .Merci vraiment pour la peine que tu prend pour résoudre ma difficulté et cela me permet de faire les recherches d avantageBonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
Bonjour @TOUS
Sans vouloir créer de polémique.
@Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
, lorsque tu demande des projets près à porter sans jamais faire d'effort ni partager quoi que ce soit.
ça démotive des gens commeBonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
et d'autres qui consacre de leur temps pour aider.
STP, évite d’être trop pesant.
Bonjour @TOUS
Sans vouloir créer de polémique.
@Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
, lorsque tu demande des projets près à porter sans jamais faire d'effort ni partager quoi que ce soit.
ça démotive des gens commeBonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
et d'autres qui consacre de leur temps pour aider.
STP, évite d’être trop pesant.Cliquez pour agrandir...
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
ton projet traite quel domaine/sujet ? je peux peut être cibler l'exemple.