4D Write v14
WR GET REFERENCE
- 4D Write Language
-
- WR Database Objects
-
- Database Objects, 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 ( area ; info1 ; info2 ; name ; type ; numFormat ; dateFormat ; timeFormat ) | ||||||||
| Parameter | Type | Description | ||||||
| area | Longint |
|
4D Write area | |||||
| info1 | Integer |
|
First information regarding the reference | |||||
| info2 | Integer |
|
Second information regarding the reference | |||||
| name | String |
|
Receives reference name | |||||
| type | Integer |
|
Receives reference type | |||||
| numFormat | String |
|
Numeric format | |||||
| dateFormat | Integer |
|
Number of the date format | |||||
| timeFormat | Integer |
|
Number of the time format | |||||
The WR GET REFERENCE command gets information about the selected reference in the 4D Write area.
Information about the selected reference is returned into the info1, info2, name and type parameters. You can also find out the display format of numeric, Date or Time inserted references.
Values returned in info1, info2, and name depend on the value in type. If the selected object is not a reference, type returns 0.
- If type=1, the reference is a field. info1 indicates the table number. info2 indicates the field number. name is empty.
- If type=2, the reference is an expression. info1 and info2 contain the value 0. name contains the name of the variable or expression.
The numFormat parameter returns a string indicating the format of the selected numeric field/expression (i.e., Real, Integer, or Longint). If no format is associated with the expression or if it is not a numeric type expression, an empty string is returned.
The dateFormat parameter returns the number of the Date format associated with the selected field/expression, if it is a date type. Should this not be the case, the value 0 is returned.
Otherwise, you can compare the value received to the following 4D constants, found in the "Date Display Formats" theme:
| Constant | Type | Value | Comment |
| System date short | Longint | 1 | 12/29/2006 |
| System date abbreviated | Longint | 2 | Sun, Dec 29, 2006 |
| System date long | Longint | 3 | Sunday, December 29, 2006 |
| Internal date short special | Longint | 4 | 12/29/06 (but 12/29/1896 or 12/29/2096) |
| Internal date long | Longint | 5 | December 29, 2006 |
| Internal date abbreviated | Longint | 6 | Dec 29, 2006 |
| Internal date short | Longint | 7 | 12/29/2006 |
The timeFormat parameter returns the number of the time format associated with the selected field/expression, if it is a time type. Should this not be the case, the value 0 is returned.
Otherwise, you can compare the value received to the following 4D constants, found in the "Time Display Formats" theme:
| Constant | Type | Value | Comment |
| HH MM SS | Longint | 1 | 01:02:03 |
| HH MM | Longint | 2 | 01:02 |
| Hour min sec | Longint | 3 | 1 hour 2 minutes 3 seconds |
| Hour min | Longint | 4 | 1 hour 2 minutes |
| HH MM AM PM | Longint | 5 | 1:02 AM |
Refer to the example of the WR SELECT command.
This example determines if the user selected an object that is a reference. It also tells the user if the selected object is a field or an expression.
WR GET REFERENCE(Letter;$Table;$Field;$Name;$Type)
Case of
:($Type=0) `Text or nothing
ALERT("Selected text or nothing")
:($Type=1)
ALERT("Selected the field "+Field name($Table;$Field))
:($Type=2)
ALERT("Selected the expression named "+$Name)
End case
Product: 4D Write
Theme: WR Database Objects
Number:
89224
Modified: 4D Write 6.7
WR INSERT EXPRESSION
WR INSERT FIELD
4D Write Language ( 4D Write v11.6)
4D Write Language ( 4D Write v12)
4D Write Language ( 4D Write v14)
4D Write Language ( 4D v13)
4D Write Language ( 4D Write v14 R2)
4D Write Language ( 4D Write v14 R3)
4D Write Language ( 4D Write v14 R4)
