4D v13
WR FIXER INFO DOCUMENT
WR FIXER INFO DOCUMENT
| 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 | |||||
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.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 cas2. 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 cas3. 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
Produit : 4D
Thème : WR Documents
Numéro :
89488
Nom intl. : WR SET DOCUMENT INFO
Liste alphabétique des commandes
Créé : 4D Write 6.5
