WR SET DOCUMENT INFO

4D Write v15


WR SET DOCUMENT INFO ( 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 :

 Case of

    :(Form event=On Load)

       WR ON COMMAND(WZone;"z65OnCmde")

 End case

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

 C_LONGINT($1;$2;$3)

 Case of

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

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

    Else

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

 End case

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 :

 Case of

    :(Form event=On Load)

       WR GET DOCUMENT INFO(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

       If(vCie="")

          vCie:="A.C.I."

          vAuteur:=Current user

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

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

       End if

    :(Form event=On Unload) `lorsque l'on quitte le formulaire

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

 End case

Voir aussi

WR GET DOCUMENT INFO