4D Write v14

WR FIXER INFO DOCUMENT

Accueil

 
4D Write v14
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 in Zone 4D Write
titre  Chaîne in Titre du document
sujet  Chaîne in Sujet du document
auteur  Chaîne in Auteur du document
société  Chaîne in Nom de la société
commentaire  Texte in 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.

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

 
PROPRIÉTÉS 

Produit : 4D Write
Thème : WR Documents
Numéro : 89488
Nom intl. : WR SET DOCUMENT INFO

 
HISTORIQUE 

Créé : 4D Write 6.5

 
VOIR AUSSI  

WR LIRE INFO DOCUMENT

 
UTILISATION DE L'ARTICLE

4D Write - Langage ( 4D Write v11.6)
4D Write - Langage ( 4D Write v12)
4D Write - Langage ( 4D v13)
4D Write - Langage ( 4D Write v14 R2)
4D Write - Langage ( 4D Write v14)
4D Write - Langage ( 4D Write v14 R3)
4D Write - Langage ( 4D Write v14 R4)