4D Write v14

WR LIRE REFERENCE

Accueil

 
4D Write v14
WR LIRE REFERENCE

WR LIRE REFERENCE 


 

WR LIRE REFERENCE ( zone ; info1 ; info2 ; nom ; type ; formatNum ; formatDate ; formatHeure ) 
Paramètre Type   Description
zone  Entier long in 4D Write area
info1  Entier in Première information relative à la référence
info2  Entier in Deuxième information relative à la référence
nom  Chaîne in Nom de la référence
type  Entier in Type de la référence
formatNum  Chaîne in Format d’affichage numérique
formatDate  Entier in Numéro du format de la date
formatHeure  Entier in Numéro du format de l’heure

Est appelée “référence” toute commande 4D, variable 4D ou référence à un champ insérée dans une zone 4D Write.

La commande WR LIRE REFERENCE retourne dans type le type de la référence sélectionnée (voir à ce propos la description de la routine WR SELECTIONNER), et dans info1, info2 et nom diverses informations concernant la référence (ces informations dépendent de la valeur de type).
Vous pouvez également connaître le format d’affichage des références de type numérique, Date ou Heure insérées.

  • Si type est égal à 1, vous êtes en présence d’une référence de type champ.
    Dans ce cas, info1 désignera la table à laquelle appartient le champ, info2 désignera le champ et nom sera vide.
  • Si type est égal à 2, vous êtes en présence d’une référence de type variable ou d’une expression. Dans ce cas, info1 et info2 prendront pour valeur 0, et nom contiendra le nom de la variable ou de l’expression.
  • Si l’objet sélectionné n’est pas une référence, type retourne 0.

Le paramètre formatNum retourne une chaîne contenant le format numérique associé à l’expression numérique (Numérique, Entier ou Entier long) sélectionnée. Si aucun format n’est associé à l’expression ou si elle n’est pas de type numérique, une chaîne vide est retournée.

Le paramètre formatDate retourne le numéro du format de date éventuellement associé à l’expression sélectionnée, si elle est de type date. Dans le cas contraire, la valeur 0 est retournée. Sinon, vous pouvez comparer la valeur reçue aux constantes 4D suivantes, placées dans le thème "Formats d'affichage des dates" :

Constante Type Valeur Commentaire
Système date court Entier long 1 06/12/2006
Système date abrégé Entier long 2 mer. 25 déc. 2006
Système date long Entier long 3 mercredi 6 décembre 2006
Interne date court spécial Entier long 4 06/12/06 (mais 06/12/1896 ou 06/12/2096)
Interne date long Entier long 5 6 décembre 2006
Interne date abrégé Entier long 6 6 déc 1996
Interne date court Entier long 7 06/12/2006

Le paramètre formatHeure retourne le numéro du format d’heure éventuellement associé à l’expression sélectionnée, si elle est de type heure. Dans le cas contraire, la valeur 0 est retournée. Sinon, vous pouvez comparer la valeur reçue aux constantes 4D suivantes, placées dans le thème "Formats d'affichage des heures" :

Constante Type Valeur Commentaire
h mn s Entier long 1 01:02:03
h mn Entier long 2 01:02
Heures minutes secondes Entier long 3 1 heure 2 minutes 3 secondes
Heures minutes Entier long 4 1 heure 2 minutes
h mn Matin Après Midi Entier long 5 1:02 du matin

Reportez-vous à l’exemple de la routine WR SELECTIONNER.

Cette méthode indique si l’objet sélectionné par l’utilisateur est une référence, ainsi que son type :

 WR LIRE REFERENCE(Lettre;$Table;$Champ;$Nom;$Type)
 Au cas ou
    :($Type=0) `Pas de référence
       ALERTE("La sélection ne contient pas de référence.")
    :($Type=1)
       ALERTE("La sélection contient le champ "+Nom du champ($Table;$Nom))
    :($Type=2)
       ALERTE("La sélection contient l'expression nommée "+$Name)
 Fin de cas

 
PROPRIÉTÉS 

Produit : 4D Write
Thème : WR Objets dynamiques
Numéro : 89224
Nom intl. : WR GET REFERENCE

 
HISTORIQUE 

Modifié : 4D Write 6.7

 
VOIR AUSSI  

WR INSERER CHAMP
WR INSERER VARIABLE

 
UTILISATION DE L'ARTICLE

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