1) EmpName field, which is Text, Editable;
2) EmpLastName field, which is Text, Editable;
3) SaveOptions field, which is Text, Computed with Value: "0";
4) Save&Close button with formulas:
@Command([FileSave]);
@Command([FileCloseWindow])
5) WebQuerySave object contains the agent run formula:
@Command([ToolsRunMacro]; "Agent5")
The Agent5 code is given below:
|----------------------------------------------------------------------|
| Sub Initialize |
| Dim session As New NotesSession |
| Dim doc As NotesDocument |
| Dim person As String |
| Dim person1 As String |
| Dim path As String |
| Set doc = session.DocumentContext |
| |
| person = doc.EmpName(0)+"%20"+doc.EmpLastName(0) |
| person1 = doc.EmpLastName(0)+"%20"+","+"%20"+doc.EmpName(0) |
| |
| link = "<a href = ""http://www.desl.lv/names.nsf/People/" |
| +person1+"?OpenDocument"">" |
| path = "<IMG SRC = ""/TipsByPavels.nsf/" |
| +person+".jpg?OpenImageResource"">" |
| |
| Print"<body bgcolor=""#C0C0C0"">" |
| Print "<center>" |
| Print "<h1>Query Results</h1>" |
| Print "<table border=1 bordercolor=""#800080"">" |
| Print "<tr>" |
| Print "<td align=""center"" bgcolor=""#800080"">" & link & path |
| &"</a></td>" |
| Print "</tr>" |
| Print "<tr>" |
| Print "<td align=""center"" bgcolor=""yellow"">" & person & |
| "</td>" |
| Print "</tr>" |
| Print "</table>" |
| Print "<p> </p>" |
| Print "Click on photo to open document in People view." |
| Print "</center>" |
| End Sub |
|----------------------------------------------------------------------|
6) All the employees photos must be saved in Resources/Images of the same
database with names as First Last.jpg.
When opened the form in web will look like this:
(Embedded image moved to file: pic09836.pcx)
Entering the employees First and Last names and clicking on the Save&Close
button the next code-generated form is presented:
(Embedded image moved to file: pic18756.pcx)
Click on the photo to link to the Person form of this employee in NAB
database:
(Embedded image moved to file: pic22317.pcx)
This was first published in November 2000