WR FIXER INFO DOCUMENT

4D Write v16


WR FIXER INFO DOCUMENT ( zone ; titre ; sujet ; auteur ; société ; commentaire )

Paramètre	Type	Description
zone	Entier long	Zone 4D Write
titre	Chaîne	Titre du document
sujet	Chaîne	Sujet du document
auteur	Chaîne	Auteur du document
société	Chaîne	Nom de la société
commentaire	Texte	Commentaires

Description

La commande WR FIXER INFO DOCUMENT stocke dans le document les informations passées en paramètres. Ces informations sont aussi visibles et modifiables dans la boîte de dialogue ouverte par le menu Outils, ligne Informations...

Le verrouillage du document s'effectue à l'aide de la commande WR VERROUILLER DOCUMENT.

Exemple

Vous voulez que seules les informations Titre, Sujet et Notes soient modifiables par l'utilisateur. Vous allez donc installer une méthode d'appel sur commande de façon à afficher votre propre formulaire lorsque l'utilisateur choisira la commande Informations... dans le menu Outils.

1. Dans la méthode du formulaire contenant la zone 4D Write, installez la méthode d'appel sur commande de la manière suivante :

 Au cas ou

    :(Evenement formulaire=Sur chargement)

       WR APPELER SUR COMMANDE(WZone;"z65OnCmde")

 Fin de cas

2. La méthode 'z65OnCmde' contient le code suivant :

 C_ENTIER LONG($1;$2;$3)

 Au cas ou

    :($2=wr cmd informations) `=801, si l'utilisateur a appelé la ligne Outils>Informations...

       DIALOGUE([LaTable];"InfosZone") `Formulaire d'informations personnalisé

    Sinon

       WR EXECUTER COMMANDE($1;$2) `Lorsque l'utilisateur appelle les autres lignes de menus

 Fin de cas

3. Vous créez ensuite un formulaire d'informations intitulé "InfosZone". Seules les variables vTitre, vSujet et vNotes seront saisissables. La méthode associée à ce formulaire est la suivante :

 Au cas ou

    :(Evenement formulaire=Sur chargement)

       WR LIRE INFO DOCUMENT(WZone;vTitre;vSujet;vAuteur;vCie;vNotes;DCreat;HCreat;DModif;

       HModif;Verrou)

  `Si les éléments que vous gérez ne sont pas encore remplis, vous les affectez

       Si(vCie="")

          vCie:="A.C.I."

          vAuteur:=Utilisateur courant

          vCreation:=Chaine(DCreat)+" à "+Chaine heure(HCreat)

          vModification:=Chaine(DModif)+" à "+Chaine heure(HModif)

       Fin de si

    :(Evenement formulaire=Sur libération) `lorsque l'on quitte le formulaire

       WR FIXER INFO DOCUMENT(WZone;vTitre;vSujet;vAuteur;vCie;vNotes)

 Fin de cas

Voir aussi

WR LIRE INFO DOCUMENT