Modification nomenclature selon statut et droits utilisateurs

SOLVED

Bonjour à toutes et tous,
Je suis en V12.
J'ai créé un spécifique afin que selon le statut de la nomenclature et selon un code d'accès certains utilisateurs puissent modifier ou non celles-ci.

Mais aujourd'hui, on me demande ces 3 possibilités

1) Utilisateurs ayant accès uniquement en consultation
2) Utilisateurs pouvant modifier uniquement les nomenclatures en statut "Elaboration" ou uniquement changer le statut dans le sens Exploitation vers Elaboration
3) Utilisateurs ayant tous les droits quelque soit le statut

Je joins le spécifique réalisé au départ pour juste : 

Utilisateurs pouvant modifier les nomenclatures en élaboration

Utilisateurs pouvant modifier toutes les nomenclatures quelque soit le statut

 

J'ai essayé un nouveau spécifique (voir ci-dessous). J'ai réussi en partie mais par contre le champ statut des nomenclatures en "Elaboration" ne s'affiche plus (que ce soit n'importe quel utilisateur).
J'ai pu faire en sorte que celles en "Exploitation" soient modifiables complètement par les utilisateurs ayant tous les droits et seulement le statut par les utilisateurs ayant un autre code d'accès.
Merci par avance pour vos retours éventuels.
Bonne journée.

$ACTION
Case ACTION
When "LIENS" : Gosub LIENS
When Default
Endcase
Return
$LIENS

If [M:BOH0]USESTA=2 and func AFNC.MODIF("MODIFBODP1")and func AFNC.MODIF ("VALBOM") #Elaboration et utilisateur avec code accès
Actzo [M:BOH0]USESTA
Diszo [M:BOD1]
Elsif [M:BOH0]USESTA=2 and func AFNC.MODIF("MODIFBODP2")and func AFNC.MODIF ("VALBOM")
Actzo [M:BOH0]
Actzo [M:BOD1]
Elsif [M:BOH0]USESTA=1 and func AFNC.MODIF("MODIFBOD1")and func AFNC.MODIF("VALBOM")
Actzo [M:BOD1]
Grizo [M:BOH0]USESTA
Else [M:BOH0]USESTA=1 and func AFNC.MODIF("MODIFBOD2") and func AFNC.MODIF("VALBOM")
Actzo [M:BOH0]
Actzo [M:BOD1]
Endif
Return

Parents
  • 0

    Bonjour  ,

    Merci beaucoup pour le retour mais par contre je ne sais pas comment rédiger mon spécifique dans mon cas ?

    Bonne fin de journée.

    Bien cordialement

  • 0 in reply to DELON

    Bonjour,

    Je voulais dire remplacer l'action LIENS par SETBOUT : 

    $ACTION
        Case ACTION
            When "SETBOUT" : Gosub SETBOUT
            When Default
        Endcase
    Return

    $SETBOUT
    If [M:BOH0]USESTA=2 and func AFNC.MODIF("MODIFBODP1")and func AFNC.MODIF ("VALBOM") #Elaboration et utilisateur avec code accès
        Actzo [M:BOH0]USESTA
        Diszo [M:BOD1]
    Elsif [M:BOH0]USESTA=2 and func AFNC.MODIF("MODIFBODP2")and func AFNC.MODIF ("VALBOM")
        Actzo [M:BOH0]
        Actzo [M:BOD1]
    Elsif [M:BOH0]USESTA=1 and func AFNC.MODIF("MODIFBOD1")and func AFNC.MODIF("VALBOM")
        Actzo [M:BOD1]
        Grizo [M:BOH0]USESTA
    Else [M:BOH0]USESTA=1 and func AFNC.MODIF("MODIFBOD2") and func AFNC.MODIF("VALBOM")
        Actzo [M:BOH0]
        Actzo [M:BOD1]
    Endif
    Return

    Cordialement,

  • Bonjour   

    N'hésitez pas à nous faire savoir si les réponses de Billy vous ont été utiles, en les marquant comme vérifiées White check mark

    Pour cela, il vous suffit de cliquer sur "Vérifier la réponse" juste en dessous de la réponse concernée.

    Point right Cela permettra de mettre en valeur la solution apportée (elle apparaîtra en vert) et d'aider d’autres membres ayant la même question à s’y retrouver plus facilement.

    Et si vous avez d'autres précisions ou compléments d'information, n’hésitez pas à les partager avec la communauté !

    Merci pour votre participation,

    Yannick

  • +1 in reply to Community Hub France - Yannick
    verified answer

    Bonjour  ,

    Merci beaucoup pour votre aide mais par contre j'ai refait mon code en utilisant bien l'action SETBOUT (comme suggéré).

    Par contre, le code que j'avais posté ne fonctionnait pas comme voulu.

    Si besoin voici le code validé : 

    Par contre, il faut bien mettre les bons codes d'accès avec les autorisations selon les profils utilisateurs.

    Bonne fin de journée 

Reply Children
No Data