4D Write v16
WR GET REFERENCE
- 4D Write - Langage
-
- WR Objets dynamiques
-
- Objets dynamiques, Introduction
- WR GET DATE AND TIME FORMAT
- WR Get HTML expression
- WR GET HYPERLINK
- WR GET PAGE NUMBER FORMAT
- WR GET REFERENCE
- WR Get RTF expression
- WR INSERT DATE AND TIME
- WR INSERT EXPRESSION
- WR INSERT FIELD
- WR INSERT HTML EXPRESSION
- WR INSERT HYPERLINK
- WR INSERT PAGE NUMBER
- WR Insert picture area
- WR INSERT RTF EXPRESSION
WR GET REFERENCE
| WR GET REFERENCE ( zone ; info1 ; info2 ; nom ; type ; formatNum ; formatDate ; formatHeure ) | ||||||||
| Paramètre | Type | Description | ||||||
| zone | Entier long |
|
4D Write area | |||||
| info1 | Entier |
|
Première information relative à la référence | |||||
| info2 | Entier |
|
Deuxième information relative à la référence | |||||
| nom | Chaîne |
|
Nom de la référence | |||||
| type | Entier |
|
Type de la référence | |||||
| formatNum | Chaîne |
|
Format d’affichage numérique | |||||
| formatDate | Entier |
|
Numéro du format de la date | |||||
| formatHeure | Entier |
|
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 GET REFERENCE retourne dans type le type de la référence sélectionnée (voir à ce propos la description de la routine WR SELECT), 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 | Comment |
| 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 | Comment |
| 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 SELECT.
Cette méthode indique si l’objet sélectionné par l’utilisateur est une référence, ainsi que son type :
WR GET REFERENCE(Lettre;$Table;$Champ;$Nom;$Type)
Case of
:($Type=0) `Pas de référence
ALERT("La sélection ne contient pas de référence.")
:($Type=1)
ALERT("La sélection contient le champ "+Field name($Table;$Nom))
:($Type=2)
ALERT("La sélection contient l'expression nommée "+$Name)
End case
Produit : 4D Write
Thème : WR Objets dynamiques
Numéro :
89224
Modifié : 4D Write 6.7
4D Write - Langage ( 4D Write v16)
