|
|
|
|
|
|
|
|
|
|
version 6.5
WR FIXER INFO DOCUMENT (zone; titre; sujet; auteur; compagnie; notes)
| Paramètre | Type | Description | |
| zone | Entier long |  | Zone 4D Write |
| titre | Alpha | | Titre du document |
| sujet | Alpha | | Sujet du document |
| auteur | Alpha | | Auteur du document |
| compagnie | Alpha | | Nom de la société |
| notes | 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
Référence
|
|
|
|
|
|
|
|
|
|