4D v13
WR SET DOCUMENT INFO
- 4D Write Language
-
- WR Documents
-
- Documents, Introduction
- WR GET DOCUMENT INFO
- WR LOCK DOCUMENT
- WR OPEN DOCUMENT
- WR SAVE DOCUMENT
- WR SET DOCUMENT INFO
WR SET DOCUMENT INFO
| WR SET DOCUMENT INFO ( area ; title ; subject ; author ; company ; comment ) | ||||||||
| Parameter | Type | Description | ||||||
| area | Longint |
|
4D Write area | |||||
| title | String |
|
Title of the document | |||||
| subject | String |
|
Document subject | |||||
| author | String |
|
Author of the document | |||||
| company | String |
|
Company name | |||||
| comment | Text |
|
Comment | |||||
The WR SET DOCUMENT INFO command stores in the document the information that is passed in the parameters. From a user standpoint, the information is displayed in the Document information dialog box. You can access that dialog by selecting Document information in the Tools menu.
To manage the document lock status, refer to WR LOCK DOCUMENT.
You want users to be able to modify only the Title, Subject and Comment of the document information. You need to implement a method that intercepts the selection of menu commands and display your own customized form when users select Document information from the Tools menu.
1. In the form method of the form that contains the 4D Write area, place the following code to intercept the menu command:
Case of
:(Form event=On Load)
WR ON COMMAND(WArea;"z65OnCmd")
End case2. The method 'z65OnCmd' is the following:
C_LONGINT($1;$2;$3)
Case of
:($2=wr cmd doc information) `=801, if the user selects Tools>Document Information...
DIALOG([TheTable];"InfoArea") `Custom Information form
Else
WR EXECUTE COMMAND($1;$2) `If the user selects any other menu command
End case3. In the customized Information form, named "InfoArea", only the variables vTitle, vSubject and vComments are editable. Here is the method attached to this form:
Case of
:(Form event=On Load)
WR GET DOCUMENT INFO(WArea;vTitle;vSubject;vAuthor;vCy;vComments;DCreat;HCreat;DModif;
HModif;Lock)
`You assign the empty elements if necessary
If(vCy="")
vCy:="A.C.I."
vAuthor:=Current user
vCreation:=String(DCreat)+" at "+Time string(HCreat)
vModification:=String(DModif)+" at "+Time string(HModif)
End if
:(Form event=On Unload) `When the form is closed
WR SET DOCUMENT INFO(WArea;vTitle;vSubject;vAuthor;vCy;vComments)
End case
Product: 4D
Theme: WR Documents
Number:
89488
Created: 4D Write 6.5
