Making Our 'LotusDomino' Easy!

Display Gannt Chart in a web page using @Formula

2008-04-13T01:12:00.010+05:30

Display schedules in a gannt chart using @formula.

This formula works based on schedule start date, end date and duration values.

These values can be populated using @Dblookup from a view or using lotus script agent. This example uses @DbLookup.

Schedule information input:

- A View with name "Tasks" (you can change the view name in Input_data field formula)

- 1st column Hidden (Schedule_StartDate, Ascending order sorted)

- 2nd column : Task Name ( required)

- 3rd column : Schedule_StartDate (required)

- 4th column : Schedule_EndDate (required)

- 5th column : Duration ( required)

- 6th column : Assigned To (optional)

- 7th column : Document Unique ID (used to display URL href link)

1.Create a form named Gannt Chart or something

2.Create a computed field Input_data or anyname

This field got schedule information input and other reference fields

code:

ViewName:="Tasks";

REM {Input data, add error conditions if required};

FIELD tasknames:=@DbColumn("":"";"":"";ViewName;2);

FIELD taskstartdate:=@DbColumn("":"";"":"";ViewName;3);

FIELD taskenddate:=@DbColumn("":"";"":"";ViewName;4);

FIELD taskduration:=@DbColumn("":"";"":"";ViewName;5);

FIELD resources:=@DbColumn("":"";"":"";ViewName;6);

FIELD docids:=@DbColumn("":"";"":"";ViewName;7);

FIELD DbPath:=@ReplaceSubstring(@Subset(@DbName; -1); " " : "\\"; "+" : "/");

REM {calculate first day of the schedule start date month};

FIELD schedule_startdate:=@ToTime(@Min(taskstartdate));

FIELD schedule_startdate:=@ToTime(@Text(@Month(schedule_startdate))+"/01/"+@Text(@Year(schedule_startdate)));

REM {calculate last day of the schedule end date month};

FIELD schedule_enddate:=@Max(taskenddate);

schedule_enddate:=@ToTime(@Text(@Month(schedule_enddate))+"/01/"+@Text(@Year(schedule_enddate)));

schedule_enddate:=@Adjust(@Adjust(schedule_enddate;0;1;0;0;0;0);0;0;-1;0;0;0);

REM {Total days between firstday and last day of the schedule dates};

FIELD totaldays:=((schedule_enddate-schedule_startdate)/86400)+1;

tmpdate1:=schedule_startdate;

FIELD schedule_months:="";

@While(tmpdate1<= schedule_enddate; tmpdate1:=@Adjust(tmpdate1;0;1;0;0;0;0); @Set("schedule_months";schedule_months:@Text(@Date(@Adjust(tmpdate1;0;0;-1;0;0;0)))) ); schedule_months:=@Trim(schedule_months); FIELD schedule_months:=schedule_months; schedule_months:=@ToTime(schedule_months); schedule_months1:=@Text(@Month(schedule_months))+"/01/"+@Text(@Year(schedule_months)); FIELD fulldays:=@Explode(@ToTime("["+schedule_months1+" - "+@Text(schedule_months)+"]")); REM {Reference fields}; FIELD monthlist:="January":"February":"March":"April":"May":"June":"July":"August":"September":"October":"November":"December"; FIELD weekdays:="S":"M":"T":"W":"T":"F":"S"; ""

3.Create a computed text and enable pass thru HTML code:

schedule_bgcolor:="#FFD39B";

weekend_bgcolor:="#cccccc";

REM {Populate month names};

schedule_months:=@ToTime(schedule_months);

tmp1:="<th colspan="+@Text(@Day(schedule_months))+" align=center>"+@Transform(@Month(schedule_months);"x";monthlist[x])+", "+@Text(@Year(schedule_months))+"</th>";

month_html:="<tr><th rowspan=3 class=\"locked\">Task Name</th>"+@Implode(tmp1)+"</tr>";

REM {Populdate Weekday title};

tmp:=@Date(@ToTime(fulldays));

weekdays1:=@Transform(@Weekday(tmp);"x";weekdays[x]);

weekends:=@Replace(weekdays1;"S";"bgcolor=\""+weekend_bgcolor+"\"");

tmp1:="<th "+weekends+">"+weekdays1+"</th>";

weekday_html:="<tr>"+@Implode(tmp1)+"</tr>";

REM {Populdate days};

tmp:=@Day(@ToTime(fulldays));

tmp2:="<th "+weekends+">"+@Replace(@Text(tmp);"1":"2":"3":"4":"5":"6":"7":"8":"9";"01":"02":"03":"04":"05":"06":"07":"08":"09")+"</th>";

days_html:="<tr>"+@Implode(tmp2)+"</tr>";

REM {Populate Tasks};

html_td:="<td "+weekends+"> </td>";

task_html:=task_html;

@For(n :=1; n<=@Elements(tasknames); n:= n + 1; title:=tasknames[n]; firstday:=((@ToTime(taskstartdate[n])-@ToTime(schedule_startdate))/86400)+1; nodays:=@ToNumber(taskduration[n]); hlinktitle:=@If(@Length(title)>nodays*4;@Left(title;nodays*4)+"..";title);

hlink:="<a href=/"+DbPath+"/0/"+docids[n]+"?opendocument>"+hlinktitle+"</a>";

task_html:= task_html+"<tr><td nowrap class=\"locked\">"+" "+@If(@Length(title)>40;@Right(title;40);title)+"</td>"+@If(firstday>1;@Implode(@Subset(html_td;firstday-1));"")+"<td colspan="+@Text(nodays)+" bgcolor="+schedule_bgcolor+"><center>"+hlink+"</center></td>"+@Implode(@Subset(html_td;(firstday+nodays-1)-totaldays))+"</tr>"

);

"<table cellpadding=0 cellspacing=0>"+month_html+weekday_html+days_html+task_html+"</table>"

4. Adding style to gannt chart (optional)

- this style sheet freezes the column header (month names, days) and Task name.

4.1 Place the gannt chart computed text inside a div tag with id "ViewBody"

<div id="ViewBody">

<computed value>

</div>

4.2. Create a css style sheet page (ie:style.css)

div#ViewBody {

width: 90%;

height: 300px;

overflow: auto;

scrollbar-base-color:#999;

}

div#ViewBody table th {

width: 100px;

position:relative;

top: expression(document.getElementById("ViewBody").scrollTop-1);

z-index: 30;

}

ViewBody th.locked {

font-size: 10px;

color: black;

background-color: lightblue;

border-right: 2px solid silver;

position: relative;

cursor: default;

left: expression(parentNode.parentNode.parentNode.parentNode.scrollLeft-2);

z-index: 40;

}

div#ViewBody td.locked {

font-size: 12px;

color: black;

background-color: #efefef;

border-right: 2px solid silver;

border-bottom: 1px solid silver;

WHITE-SPACE: nowrap;

left: expression(parentNode.parentNode.parentNode.parentNode.scrollLeft-2);

position: relative;

z-index: 10;

}

div#ViewBody td {

font-size: 12px;

color: #c0c0c0;

border-top: #bbbbbb 0px solid; border-right: #bbbbbb 1px solid;

border-bottom: #bbbbbb 0px; border-left: #bbbbbb 1px;

padding: 1px;

}

div#ViewBody th {

font-size: 10px;

color: black;

padding:4px;

text-align: center;

background-color: #efefef;

border-top: #bbbbbb 0px solid; border-right: #bbbbbb 1px solid;

border-bottom: #bbbbbb 1px solid; border-left: #bbbbbb 1px;

}

div#ViewBody a {

font-size: 10px;

TEXT-DECORATION: none

}

4.3. Use this style sheet in Gannt Chart form

GANNT CHART COMPONENT DATABASE DOWNLOAD LINK

Export to Excel on Web

2007-11-12T17:41:00.000+05:30

We have seen many ways to export the notes view contents onto an Excel Sheet and this is one of the simplest ways of them. It is a 3 step process as explained below:

Step 1:
Create a hidden view on the database with all the columns included which are required for the Excel Export.

Step 2:
Create a new notes form and key in the information following the syntax below:
Line 1: Type of the query
Line 2: Version
Line 3: URL (http://Server_Name/Database/Excel Export View Name)
Line 4: POST parameters

Optionally, you can include the formatting parameters following these 4 lines as shown in the example below.
Eg:
WEB
1
http://SERVER_NAME/DATABASE/ExportToExcel
Selection=AllTables
Formatting=All
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=True
DisableDateRecognition=True

Save the form as a web query form. (Extension : ".iqy")

For more information on "web query" concept, Click here.

Step 3:
Create a $$ViewTemplate for the export view to preview the view on web. Also, include an action button called "Export to Excel" which has this code beneath:
"Export.iqy?ReadForm"

Preview on web and Excel Export works like a charm!
Screendumps below gives you an idea:

Screen 1: View on web with "Export to Excel" link

Screen 2: On clicking "Export to Excel" link, an excel file opens up with the following message. Click "Open" to proceed.

Screen 3: Excel retrieves data from the database.

Screen 4: Final Report

IBM Lotus Domino : Composite Applications

2007-10-16T20:40:00.002+05:30

The Lead Manager application in IBM Lotus Notes V8: An overview
Learn how to combine multiple Lotus Notes applications and other technologies to produce a unified interface in which users can conduct their business more effectively and supply innovative business solutions.

Designing composite applications: Component design
This article charts some basic approaches for designing components for composite application development that have maximum reuse. You can use many different strategies to provide the optimum components.

IBM Blog site for Composite applications
Bring information and collaboration into the context of your daily business processes using composite applications
This web log is a joint effort by the key technical architects and user experience professionals to open a direct line of communication with developers about the capabilities of user facing composite applications. The primary focus will be on Lotus Notes/Domino, WebSphere Portal, Lotus Expeditor, and future Lotus products to be named later. We will also be commenting on composite application trends that we see in the broader market. It's important to note that none of us speak officially for IBM, nor can we make product commitments or discuss products that have not been announced.

Two simple tutorials to build NSF based apps with NSF and Eclipse components
Build NSF based composite application Tutorial 1 (PDF)
The first tutorial shows a very simple NSF based composite application with one NSF component and two component views that communicate via property broker between each other.

Build NSF based composite application Tutorial 2 (PDF)
The second tutorial adds another component to the same application. The tutorial shows how this Eclipse component can be built with the Eclipse IDE.

Lotus Enterprise Integrator (LEI) - Articles

2007-09-25T23:23:00.001+05:30

Moving Domino attachments to your RDBMS with LEI, without writing script
Lotus Enterprise Integrator (LEI) 6.x can move attachments from a Domino database into an RDBMS table, making them readable from within the RDBMS itself. Best of all, you can do this quickly without writing a single line of script code!

Working with file attachments in the LCLSX
This article describes how you can work with file attachments in Lotus Connectors LotusScript Extension (LCLSX). We show how LCLSX handles file attachments and present a sample application to demonstrate file attachment processing.

Integrating IBM Lotus Domino and SAP
Learn how to build an application that reads data out of SAP and places it into a Domino database, using powerful tools such as Lotus Enterprise Integrator, Domino Enterprise Connection Services, and Lotus Connectors LotusScript Extension.

What is new in Lotus Enterprise Integrator (LEI) 7
IBM Lotus Enterprise Integrator for Domino (LEI) allows users to access data across multiple platforms. With LEI, users can work with corporate data, irrespective of where the data actually resides. This lets you leverage your existing store of company knowledge, without having to port this information to a common platform or application.
IBM recently released Lotus Enterprise Integrator 7, the latest version of LEI. This article gives you a short tour of the enhancements made in LEI 7.

IBM Lotus Connections - Articles

2007-09-19T20:34:00.001+05:30

Enhancing productivity with social computing
Get an overview of IBM Lotus Connections and its five features: Profiles, Communities, Blogs, Dogear, and Activities. The technical requirements for the product are included along with simple ways to extend the services outside the product.

Deploying IBM Lotus Connections series:

Part1: Planning and architecture considerations
Focuses on planning and architecture considerations to ensure that your deployment is built properly. Learn from an expert on recommended planning and architecture practices.

Part2: Post-installation tuning
Focuses on post-installation tuning tips to ensure that your deployment does not suffer from common performance pitfalls. Learn from an expert on recommended practices to perform after the initial installation of Lotus Connections is complete.

Part3: Maintenance
Focuses on system maintenance, backup and recovery strategies, and tips to protect your environment from unexpected data loss or corruption. This article also covers practices for policing your Lotus Connections content.

Part4: Troubleshooting
Focuses on tips for troubleshooting during installation. It describes how to diagnose an installation problem, how to recognize which components cause the problem, and how to solve the most common problems.

Part5: Branding and customization
Demonstrates how to brand and how to customize the IBM Lotus Connections user interface. Learn how to make changes to ensure that Lotus Connections has the right look and feel for your enterprise.

Part6: Integrating with other systems
Focuses on integrating IBM Lotus Connections with other systems using the Atom API. This article is intended for I/T specialists and developers and is helpful when exploring options to integrate Lotus Connections into your applications.

Part7: Application programming interface
Covers working with the Lotus Connections APIs. This article is intended for I/T specialists and developers and is helpful when building programs that use Lotus Connections data and services.

LOTUSSCRIPT CODE FOR FILE OPEN DIALOG BOX

2007-08-31T07:19:00.001+05:30

Lotus script code to show file open dialog box to browse and select files in windows.

Sample Agent code with settings "Manually from the Actions menu" and "Run Once (@Commands may be used)"

Declarations event:
-----------------------
Declare Function NEMGetFile Lib "nnotesws" ( wUnk As Integer, Byval FileName As String, Byval Filter As String, Byval Title As String ) As Integer

Initialize event:
-----------------------

Sub Initialize

Dim strFileName As String*256
Dim strTitle As String
Dim strFilter As String

strFileName = ""
strTitle = "Please select the Excel file to be imported"
strFilter = "MS Excel Files*.xls" 'Filter is set to show only .xls files

' Show file dialog box till a Excel file is selected
Do
ErrorStatus=False
If NEMGetFile( 0, strFileName, strFilter, strTitle) = 0 Then
retval=Msgbox( "You have not selected an Excel file for processing. Do you want to exit ?",4+256,"Abort")
If retval=7 Then
ErrorStatus=True
Else
Exit Sub
End If
End If
Loop Until ErrorStatus=False

Msgbox strFileName

End Sub

DIALOG LIST DESIGN FOR WEB

2007-08-21T07:39:00.001+05:30

A Javascript popup window design to simulate Notes Dialog list component.
Sample database design:

Screenshot1:
Parent form with PickSingle and PickMultiple fields

Screenshot2:
Single field selection dialog list.

Screenshot3:
Multiple field selection dialog list.

DIALOG LIST COMPONENT DATABASE DOWNLOAD LINK

Javascript Folder Tree design

2007-08-16T08:17:00.001+05:30

Folder tree design using javascript and DHTML. Lotus Notes view with parent child reporting id columns can be used as input parameter to build the tree.

Screenshot:

Design synapsis for the Sample database:

tree.js (page): Javascript to build the javascript
tree.css (page) : CSS for the folder tree design
JSDeptOrder (View) : Input view with 'Tree view contents as HTML' property enabled
TreeView (form) : Displays the folder tree

JS TREE DATABASE DOWNLOAD LINK

Domino View design Part4: View Navigation using UP and DOWN arrow keys

2007-08-03T23:08:00.001+05:30

A Javascript technique enables domino view document(s) navigation using UP and DOWN arrow keys and ENTER key to open a document. You don't need to use mouse to browse documents and click event to open the document.

JS Functions:
1. view_onloadfunction() - This function called from form 'onLoad()' event, this sets the keypressHandler() function for the contents of View body div tag also sets border and header colors. You can avoid this function by calling the keypressHander() directly from onload event.

2. view_keypressHandler() - This function operates whenever there is a key pressed. For KeyUp, KeyDown events, this will increment or decrement the rowid and call the highlight row function.

3.highlightrow() - This function loops through all the TR tags and hightlight the selected row and changes the first column image to arrow image.

Follow these steps to implement this tip.

1.Create a $$ViewTemplateDefault form

2.Create a DIV tag with name "ViewBody"

3.Embed a view or create a $$ViewBody field

4.End the DIV tag

5.In the 'JSHeader' event copy paste the javascript below

var rowid = 1;
var totalrows = 0;
var keypress_scroll_limit = 20;
var viewdivid = "ViewBody";
var columnheadercolor = 'lightblue';
var rowhighlightcolor = '#efefef';
var rowhighlightimage = "/icons/expand.gif";

//function to set the keypress event and some table color, border setting
//this function called from 'onload()' event
function view_onloadfunction() {
var viewdivobj = document.getElementsByName(viewdivid).item(0);
var tableElements = viewdivobj.getElementsByTagName('table');
var table = tableElements[tableElements.length - 1] ;
table.border=1;
headers = table.getElementsByTagName("th") ;
rows = table.getElementsByTagName("tr") ;
totalrows = rows.length;

for( i = 0; i < headers.length; i++) {
headers[i].bgColor = columnheadercolor ;
}

//hightlight the first row
highlightrow(rowid);
// view key press handler function
viewdivobj.onkeydown = view_keypressHandler;
}

// VIEW KEY PRESS HANDLER
function view_keypressHandler (evt)
{

if(!evt && window.event) {
evt = window.event;
}
var key = evt.keyCode;

var KEYUP = 38;
var KEYDOWN = 40;
var KEYENTER = 13;
var KEYTAB = 9;
// act only for these key press events
if ((key != KEYUP) && (key != KEYDOWN) && (key != KEYENTER) && (key != KEYTAB))
return true;

if (key == KEYUP) {
if(rowid != 1) {
rowid = rowid -1; }
highlightrow(rowid);
if(rowid >= totalrows - keypress_scroll_limit) {
// control the scrollbar movement while KEYUP
return false;
}
}
if (key == KEYDOWN) {
if(rowid>=totalrows-1) {
rowid = rowid; }
else {
rowid = rowid + 1; }
highlightrow(rowid);
if(rowid<=keypress_scroll_limit) {
// control the scrollbar movement while KEYDOWN
return false;
}
}
return true;
}

//function to hightlight the current row
function highlightrow(rownum)
{
var viewdivobj = document.getElementsByName(viewdivid).item(0);
var tableElements = viewdivobj.getElementsByTagName('table');
var table = tableElements[tableElements.length - 1] ;
rows = table.getElementsByTagName("tr") ;
for( i = 1; i < rows.length; i++) {
if( i == rownum) {
rows[i].bgColor = rowhighlightcolor; // The row background color used for highlighting
Atag = rows[i].getElementsByTagName("A");
if(Atag.length > 0) {
Ahref = Atag[0].href;
Atag[0].focus();
// By default domino create a blankimage in the first column,
// we change the image src to our custom arrow image
AImage = rows[i].cells[0].getElementsByTagName("IMG");
AImage[0].height = 10;
AImage[0].src = rowhighlightimage; // You can also use custom arrow image
}

}
else {
rows[i].bgColor = '#ffffff';
AImage = rows[i].cells[0].getElementsByTagName("IMG");
AImage[0].height = 0
AImage[0].src = "";
}
}
}

6.Call 'view_onloadfunction()' javascript function in the 'onLoad()' event
7. Open the view in web browser

You can see the first row highlighted with color and a blue arrow key image on the left side. Now you can use UP and DOWN arrow keys to navigate the document.Press the ENTER key to open the document.

Note: The script will start work only when the cursor is inside the view body. If you are moving the cursor manually into some other page and pressing the UP and DOWN buttons will not trigger the view body key press event. In that case you have click any where inside the view body to start the event handler again.

Other Domino View Design Tips:
Domino View design Part1: Alternate row color
Domino View design Part2: Freezing Column Headers
Domino View design Part3: Freezing first column

Domino View design Part3: Freezing first column

2007-08-03T02:32:00.001+05:30

Column locking using CSS and Javascript.
In web, multiple columns views are displayed with horizontal scroll bar. When you move the scroll bar to the right, the left side columns will start disappear and most of the times the first column will be a key column and you want to see other column values with respective to the key column. In Microsoft excel sheet you can use the 'freeze pane' feature to lock a column. Similarly this design tip will help you to freeze the first column.

Steps:

1.Create a $$ViewTemplateDefault form

2.Create a DIV tag with name "ViewBody"

3.Embed a view or create a $$ViewBody field

4.End the DIV tag

5.In the 'JSHeader' event copy paste the javascript below

var columnlengthmax = 5; // Maximum column length configuration.

function freezecolumn()
{
var tableElements = document.all.ViewBody.getElementsByTagName('table');
var table = tableElements[tableElements.length - 1] ;
table.cellSpacing = '0' ;
table.border=1
headers = table.getElementsByTagName("th") ;
columnlength = headers.length; // Number of columns in the view
for( i = 0; i < headers.length; i++) {
headers[i].bgColor = '#cccccc' ;
}
rows = table.getElementsByTagName("tr") ;
var counter = 0
for( i = 0; i < rows.length; i++) {
//LOCK THE FIRST COLUMN IF THE COLUMN WIDTH EXCEEDS
if(columnlength >= columnlengthmax) {
var tr = rows.item(i);
// SET THE FIRST COLUMN CLASS NAME as 'locked'
tr.cells[0].className = 'locked';
}
}
}

6.Call 'freezecolumn()' javascript function in the 'onLoad()' event.

7.Link to style.css in the Head event
(Refer the screenshot of blog entry 'Domino View design Part2: Freezing Column Headers')

8. Create a page with name "style.css" and paste the the css style tags

div#ViewBody {
width: 100%;
height: 200px;
overflow: auto;
scrollbar-base-color:#ffeaff;
}

div#ViewBody table th {
width: 100px;
background-color: lightblue;
position:relative;
top: expression(document.getElementById("ViewBody").scrollTop-1);
z-index: 30;
}

div#ViewBody th.locked {
background-color: lightblue;
border-right: 2px solid silver;
position:relative;
cursor: default;
left: expression(parentNode.parentNode.parentNode.parentNode.scrollLeft);
z-index: 40;
}

div#ViewBody td.locked {
background-color: #efefef;
border-right: 2px solid silver;
left: expression(parentNode.parentNode.parentNode.parentNode.scrollLeft);
position: relative;
z-index: 10;
}

Note: by changing height parameter, you can control the height of the view display,
Also by changing the z-index, you can the change the column header starting position.

7. Open the view in web browser
If you scroll the view using horizontal scroll bar, you can see the first column is in freeze mode.

Domino View design Part2: Freezing Column Headers

2007-07-31T21:41:00.000+05:30

Views with more documents requires vertical scrolling to see the documents. When you scroll down, the column headers will disappear from the window view. Using CSS we can apply style to 'TH' tag to appear in the same position even when you scroll.

Steps:

1.Create a $$ViewTemplateDefault form

2.Create a DIV tag with name "ViewBody"

3.Embed a view or create a $$ViewBody field

4.End the DIV tag

5.Link to style.css in the Head event

6. Create a page with name "style.css" and paste the the css style tags

div#ViewBody {
width: 100%;
height: 200px;
overflow: auto;
scrollbar-base-color:#ffeaff;
}

div#ViewBody table th {
width: 100px;
background-color: lightblue;
position:relative;
top: expression(document.getElementById("ViewBody").scrollTop-1);
z-index: 10;
}

Note: by changing height parameter, you can control the height of the view display,
Also by changing the z-index, you can the change the column header starting position.

7. Open the view in web browser
If you scroll the view, you can see the column header is in static position.

Domino View design Part1: Alternate row color

2007-07-30T18:45:00.001+05:30

Simple javascript technique to control view display on web. This script executes after the view loaded on the page, this script make use of table, th, td, row objects to manipulate the style. Works well with standard view.

1.Create a $$ViewTemplateDefault form

2.Create a DIV tag with name "ViewBody"

3.Embed a view or create a $$ViewBody field

4.End the DIV tag

5.Copy paste the following javascript to the 'JSHeader' event of the form

// ALTERNATE ROW COLOR BUILDING

function transformView() {
var tableElements = document.all.ViewBody.getElementsByTagName('table');

var table = tableElements[tableElements.length - 1] ;

table.cellSpacing = '0' ;

table.border=1

headers = table.getElementsByTagName("th") ;

for( i = 0; i

headers[i].bgColor = '#cccccc' ;

}

rows = table.getElementsByTagName("tr") ;

var counter = 0

for( i = 0; i <>

rows[i].bgColor = (i % 2 ? '#efefef' : '') ;

}

6.Call the 'transformView()' function in the 'onLoad()' event of the form.

Domino view in browser:

LotusScript to create a dynamic tabular report from a Lotus Notes document collection

2007-07-17T20:23:00.000+05:30

Tip from: Blessan V Philip
Source: http://searchdomino.techtarget.com

This LotusScript code enables the creation of a dynamic tabular report from a Lotus Notes document collection, which offers similar results to copying a table from a view. The function 'CreateTable' uses the following parameters:

FldTitles: This is an array of the titles required in the tabular report.

FldNames: These are the field names/item names existing in the Lotus Notes document, corresponding against field titles.

doccoll: This is a notesdocumentcollection command that needs to be displayed in a formatted way.

rtitem: This is a NotesRichTextItem , which will save the tabular report.

msgTitle: This is a report heading displayed in the rich-text item.

msgBody: This is the message body following the message header.

The following example is LotusScript code in a scheduled agent which collates a document collection from a Lotus Notes view and calls the function. The returned rich-text item is mailed to the Lotus Notes user as mail body to a set of recipients.

'=============================
'Use it in the global declaration
Dim session As notessession
Dim db As NotesDatabase
'===========================
Sub Initialize
Dim VwDocCreated As NotesView
Dim doccoll As
NotesDocumentCollection
Dim maildoc As NotesDocument
Dim ritem As notesrichtextitem
Dim FldTitles(4) As String
Dim FldNames(4) As String
Dim msgTitle As String
Dim msgBody As String
Dim Recep(1) As String

Set session=New NotesSession
Set db=session.CurrentDatabase
' view to be used
Set VwDocCreated=db.GetView
("(DocsCreatedToday)")
'document collection generated
from the specified view
Set doccoll=VwDocCreated.
GetAllDocumentsByKey("Y",True)

' Field titles/ Report headings to be set
FldTitles(0)="Category"
FldTitles(1)="Sub Category"
FldTitles(2)="Title"
FldTitles(3)="Content Date"
FldTitles(4)="Document Link"

' Field names/ item names in the
documents corresponding to the field titles
FldNames(0)="Categories"
FldNames(1)="SubCaty"
FldNames(2)="Subject"
FldNames(3)="DocContentsDate"
FldNames(4)="Doc_Link"
' For using a document link
use the field name as 'Doc_Link'

'Recepients mailing address
Recep(0)="XXX@abcom"

'Message title
msgTitle="This is an auto generated mail.
Please do not reply"

'Message body
msgBody="Following describes the
documents created on "+Format
(Now,"DD-MMM-YYYY")

If doccoll.Count>0 Then
Set maildoc=db.CreateDocument
maildoc.form="memo"
maildoc.subject=db.Title+":
Documents created on "+Format
(Now,"DD-MMM-YYYY")
maildoc.sendto=Recep
Set ritem=New NotesRichTextItem
(maildoc,"body")
' passing the rich text item & other
relevant details
Set ritem=CreateTable(FldTitles,
FldNames,doccoll,ritem,msgTitle,msgBody)

ritem.AddNewline(2)
ritem.AppendText("--------------------
------------------------------------------------
------------------------------------------------------")

maildoc.Send(False)
End If

End Sub

'**Function starts 'from here***
Function CreateTable(FldTitles
As Variant ,FldNames As Variant,
doccoll As notesdocumentcollection ,
rtitem As NotesRichTextItem,msgTitle
As String,msgBody As String ) As
NotesRichTextItem
'Takes Documentcollection & creates
tabular information on to the passed
rtitem (rich text item)

Dim TempNitem As NotesItem
Dim TempNm As NotesName

Set ritem=rtitem
Set rtnav = ritem.CreateNavigator
Set rstyle=session.CreateRichTextStyle

'===================================================
'heading in the body section of the mail
rstyle.Bold=True
rstyle.NotesColor=COLOR_RED
rstyle.Underline=True
rstyle.NotesFont=FONT_COURIER
rstyle.FontSize=12
Call ritem.AppendStyle(rstyle)
ritem.AppendText(msgTitle)

rstyle.Underline=False
rstyle.NotesColor=COLOR_BLACK
ritem.AddNewline(2)

rstyle.FontSize=10
rstyle.Bold=False
rstyle.NotesColor=COLOR_BLACK
Call ritem.AppendStyle(rstyle)
ritem.AppendText(msgBody)
ritem.AddNewline(1)

'===================================================
rows=doccoll.Count +1
cols=Cint(Ubound(FldTitles)+1)

Call ritem.AppendTable(rows,cols)
Call rtnav.FindFirstElement
(RTELEM_TYPE_TABLECELL)
'=================================================
'heading of the table
rstyle.Bold=True
rstyle.NotesColor=COLOR_BLUE
rstyle.FontSize=10
Call ritem.AppendStyle(rstyle)

For i=0 To Ubound(FldTitles)
Call ritem.BeginInsert(rtnav)
Call ritem.AppendText(FldTitles(i))
Call ritem.EndInsert
Call rtnav.FindNextElement
(RTELEM_TYPE_TABLECELL)
Next

'=================================================
rstyle.FontSize=10
rstyle.Bold=False
rstyle.NotesColor=COLOR_BLACK
Call ritem.AppendStyle(rstyle)

Set doc=doccoll.GetFirstDocument

While Not (doc Is Nothing)

For i=0 To Ubound(FldNames)
'check for date/ names document link
Call ritem.BeginInsert(rtnav)

If FldNames(i)="Doc_Link" Then
Call ritem.AppendDocLink
(doc,doc.Created)
Else
Set TempNitem=doc.GetFirstItem
(FldNames(i))
If TempNitem.IsNames Then
Set TempNm=Nothing
Set TempNm=New NotesName
(TempNitem.Values(0))
Call ritem.AppendText(TempNm.Common)
Elseif Isdate(TempNitem.Values(0)) Then
Call ritem.AppendText(Format
(TempNitem.Values(0),"DD-MMM-YYYY"))

Else
Call ritem.AppendText
(TempNitem.Values(0))
End If

End If

Call ritem.EndInsert
Call rtnav.FindNextElement
(RTELEM_TYPE_TABLECELL)
Next

Set doc=doccoll.GetNextDocument(doc)

Wend

Set CreateTable=ritem

End Function

SIMPLE AUDIT TRAIL USING @FORMULA

2007-07-17T01:44:00.000+05:30

Formula based design to capture audit trail for notes field values. No lotus script program required and no need to modify the save event programs.

Create the following fields and add the formulas

Audit_CurrentValue - Hidden field to store field name configuration
var1:="Employee Name":"Employee Number":"Department":"Designation";
var2:=EmpName:@Text(EmpNumber):EmpDept:EmpDesg;
var1+"="+var2

Audit_ChangedValue - Hidden field to identify changed values
tChanges := @If(@IsNewDoc;"";@Replace(Audit_OldValue;Audit_CurrentValue;""));
@Trim(tChanges)

Audit_OldValue - Hidden field to store old field values
@If(@IsDocBeingSaved;Audit_CurrentValue;Audit_OldValue)

Audit_History - Field to display audit history
hisDateTime:=@Text(@Now) + " (" + @Text(@Name([CN]; @V3UserName)) + ")";
@If(@IsDocBeingSaved;Audit_History:@If(Audit_ChangedValue!="";hisDateTime;""):@Implode(Audit_ChangedValue;",");Audit_History)

Sample Output:
07/16/2007 03:46:47 PM (User name)
Employee Number=2000,Designation=Consultant
07/16/2007 04:01:46 PM (User name)
Employee Number=3000,Department=Lotus Notes Development,Designation=Programmer

You can also display both new value and old value
Change the formula of Audid_ChangedValue to

tChanges:= @Trim(@If(@IsNewDoc;"";@Replace(Audit_OldValue;Audit_CurrentValue;"")));
@If(tChanges="";"";@Transform(tChanges;"X1";X1+"->"+@Right(Audit_CurrentValue[@Member(X1;Audit_OldValue)];"=")))

Sample output:
07/16/2007 04:07:21 PM (User name)
Department=Lotus Notes->Lotus Domino,Designation=Programmer->Developer
07/16/2007 04:07:40 PM (User name)
Employee Name=Manny->Manikandan

VIEW PICKLIST DESIGN FOR WEB

2007-07-15T09:05:00.000+05:30

Here is the simple design technique for creating view picklist for web interface similar to Notes Client view picklist component

1. Design the picklist selection view

Design the column of the view to display radio button (Single document selection) or checkbox (Multiple document selection)

You can design the radio button/checkbox to return more then one value,

In this example the radio button is designed to return two field values with the seperator "$~$"

2. Embed this Picklist view to a Picklist Selection Popup form.

- Create a form and embed the picklist view and select display using "View display property"
- Query_String CGI Variable field to receive the parameters sent by the opening form
- retFieldName, retFieldColumns fields to store the quesry string parameters parsed from Query_String field
- In OK button copy/paste the javascript code

var sField1 = document.forms[0].retFieldName.value;
var nColumn1 = document.forms[0].retFieldColumn.value;
frm = document.forms[0];

for ( var i = 0; i <>if ( frm.selectdoc[i].checked ) vals = frm.selectdoc[i].value.split( '$~$' );

}

if (typeof vals == "undefined") {

rField2=document.forms[0].selectdoc;

if(rField2.checked) {

vals = frm.selectdocs.value.split( ',' );

}

if (typeof vals == "undefined") return alert('Pleas select a document.');

//get a handle the backend form field that the value is going to

obj = eval( "window.opener.document.forms[0]." + sField1 );

//set the value in the field and then close this window.

obj.value = vals[ nColumn1-1 ];

window.close();

- In Close button copy/paste the javascript code

window.close();

3.Create a image or button to call the ViewPickList form

- Create a field to receive the picklist values
- Create a image/button hotspot and copy/paste the below javascript code

var formname='ViewPicklist1';
var height = 350;
var width = 600;
var returnfieldname = "PickSingle";
var returncolumnnumber ="1";
popupWin = windowOpener('/'+webpath + '/'+formname+'?openform&RET_FIELD='+returnfieldname+'&RET_COLUMN='+returncolumnnumber+'&' ,
'Address','width='+width+', height='+height+', status=no, resize, scrollbars=no' );

4. The Output

Wonder Button

2007-07-13T00:13:00.000+05:30

Hi,
Here is a small piece of code which goes under a button placed on the Toolbar Menu within Notes Workspace.
[You can add a personalised button on the toolbar by accessing 'File Menu->Preferences->Toolbar Preference->Customize->New Button']
Once you are through with adding the button on to the Toolbar, Copy&Paste the below code and Save the button. Now, you are all set to use this new 'Wonder Button'.

'Wonder Button' helps you in tweaking field values of a document on the view without opening the document.Here's how it works:

STEP 1: Select a document from the view and Click on the the 'Wonder Button' icon. You will get an Option to Set or Delete fields of the selected document.

STEP 2: Choose the option as 'Set', you will be asked to choose the field you want to tweak from the list of available fields.

STEP 3: Choose the correct type of the field before proceeding.

STEP 4: Enter the new value for the field.

VOILA....your document has got the new value on the modified field and saved.
Go on and use this Wonder Button and let me know your thoughts on this.

Cheers
-Susheel

CODE :
actionSelect := @Prompt([OkCancelList]:[NoSort];"Select Action";"";"Set Field";"Set Field":"Delete Field");
List := @DocFields;
DataTypes := "Text" : "Date" : "Integer" : "Password" : "Name" : "Common Name" : "Remove Field" : "Text Multi Value" : "Date Multi Value" : "Integer Multi Value" : "Name Multi Value" : "Common Name Multi Value";
EditField := @Prompt( [OkCancelList] ; "Select a field to alter" ; "Select the field:" ; "CustomerReply" ; List ) ;

@If( actionSelect = "Delete Field"; @Return( @SetField( EditField; @DeleteField ) ) ; "" );
DataType := @Prompt( [OkCancelList] : [NoSort] ; "data type or action for field: " + EditField ; "Please Select the correct data type or action for field: " + EditField ; "Text" ; DataTypes );

RawValue := @If(
@Contains( DataType ; "Name Multi Value" ); @PickList( [Name] );
@Contains( DataType ; "Name" ) ; @PickList( [Name] : [Single] );
DataType = "Remove Field" ; "" ;
@Contains( DataType ; "Multi Value" ); @Prompt( [OkCancelEdit] ; "New Value for field: " + EditField ; "Please enter the new desired value for: " + EditField + " seperated with : for each value." ; @Abstract([TextOnly] ; 254 ; "" ; @Text( EditField ) ) );
@Prompt( [OkCancelEdit] ; "New Value for field: " + EditField ; "Please enter the new desired value for: " + EditField + "." ; @Abstract([TextOnly] ; 254 ; "" ; @Text( EditField) ) ) );

@If(
DataType = "Date" ; @If( @SetField( EditField ; @TextToTime( RawValue ) ) );
DataType = "Integer" ; @If( @IsError( @TextToNumber( RawValue ) ) ; "" ; @SetField( EditField ; @TextToNumber( RawValue ) ) ) ;
DataType = "Common Name" ; @SetField( EditField ; @Name( [CN]; RawValue ) ) ;
DataType = "Password" ; @SetField( EditField ; @Password( RawValue ) ) ;
DataType = "Remove Field" ; @SetField( EditField ; @DeleteField ) ;
DataType = "Text Multi Value" ; @SetField( EditField ; @Explode( RawValue ; ":" ) ) ;
DataType = "Date Multi Value" ; @SetField( EditField ; @TextToTime( @Explode( RawValue ; ":" ) ) ) ;
DataType = "Integer Multi Value" ; @If( @IsError( @TextToNumber( @Explode( RawValue ; ":" ) ) ) ; "" ; @SetField( EditField ; @TextToNumber( @Explode( RawValue ; ":" ) ) ) ) ;
DataType = "Name Multi Value" ; @SetField( EditField ; @Explode( RawValue ; ":" ) ) ;
DataType = "Common Name Multi Value" ; @SetField( EditField ; @Name( [CN]; @Explode( RawValue ; ":" ) ) );
@SetField( EditField ; RawValue )
);
""

DISCLAIMER : All the due credits goes to the original author of this piece of code.
Im just sharing this here to help fellow Notes Developers.