Pastovenskyi Dmytro

'Input Enabled' formula does not export in DXL using native exporter

dpastov@gmail.com (Dmytro Pastovenskyi) — Tue, 09 Jun 2009 16:02:00 +0000

Today we faced with funny problem in LN 6.5.4 (I'm sure the same behavior in any another version of 6.5.X)

We do export of some LN elements and when we import it back we discovered that Input Enabled formula disappear. I checked our DXL file and found that formula was non there. Then I used simple way to check where was the problem, I create simple form, put there 1 field with Input Enabled formula and using Tools\DXL Utilities\Exporter export it to file. There was no Input Enabled formula at all. Funny issues but now we have to rewrite some places.

FYI: This works correct in R7 and ++

JavaScript libraries and reference sites

dpastov@gmail.com (Dmytro Pastovenskyi) — Mon, 08 Jun 2009 08:47:00 +0000

Got it from BestPracticesWebAppDevDomino8.pdf

Ajaxian.com
a site dedicated to improving Web development

devguru.com - A another site for Web development information

Dojo
http://www.dojotoolkit.org/

jQuery
http://jquery.com
A fast, concise, JavaScript Library that simplifies working with HTML documents

JSON.org
http://json.org
The home page for JSON information

MooTools
http://mootools.net
A compact, modular, OO JavaScript framework that is designed for the intermediate to advanced JavaScript developer

Prototype
http://www.prototypejs.org/

script.aculo.us
script.aculo.us
Provides an easy-to-use, cross-browser user interface

Yahoo UI
http://developer.yahoo.com/yui
Provides a set of utilities and controls, written in JavaScript

EXT
http://extjs.com
Provides for a cross-browser UI libraries

Some useful links:

Web development tools
http://www.ibm.com/developerworks/wikis/display/dominoappdev/Web+development+tools

Web development resources
http://www.ibm.com/developerworks/wikis/display/dominoappdev/Web+development+resources

Domino resources
http://www.ibm.com/developerworks/wikis/display/dominoappdev/Domino+resources

isNumeric for web

dpastov@gmail.com (Dmytro Pastovenskyi) — Mon, 08 Jun 2009 08:30:00 +0000

as I think the best approach to check value in web for IsNumeric is:

function IsNumeric(inputVal,sErrorMsg) {
if (isNaN(parseFloat(inputVal))) {
     alert(sErrorMsg)
     return false;
}
return true
}

I also used such approach, but I don't like it anymore
function IsNumeric(expression) {
var nums = "0123456789";
if (expression.length==0)return(false);
for (var n=0; n <>
if(nums.indexOf(expression.charAt(n))==-1)return(false);
}
return(true);
}

overload of methods/functions in Lotus Script

dpastov@gmail.com (Dmytro Pastovenskyi) — Thu, 12 Feb 2009 13:15:00 +0000

I make overload for any methods/functions using next approach. It is quite simple and useful from my point of view

Sub new(key As Variant)
Select Case Typename(key)
Case "STRING":
call newForString(key) or do code
Case "NOTESDOCUMENT
call newForNotesDocument(key) or do code
Case "EMPTY
call newForEmpty(key) or do code
End Select

EncryptOnSend, how can we send encrypted email even if "aim-user" does not have a key to read it?

dpastov@gmail.com (Dmytro Pastovenskyi) — Thu, 12 Feb 2009 08:10:00 +0000

I was facing with interesting problem, have to send encrypted email to user even if user does not have a key to open/read encrypted email. Let's say in case if I user does not have the key to read/open encrypted email I would like to send him just a message with confirmation that he received an email that was encrypted by userA. So, my main point is to catch users which do not have key to read/open encrypted emails in moment when I send these emails.
Right now Domino automatically UNencrypt emails for users which do not have a key to read/open them.
From help: EncryptOnSend property
To encrypt a document when mailed, this method looks for the public key of each recipient in the Domino Directory. If it cannot find a recipient's public key, the method sends an unencrypted copy of the document to that recipient. All other recipients receive an encrypted copy of the document.

how we can check LIST for empty

dpastov@gmail.com (Dmytro Pastovenskyi) — Wed, 11 Feb 2009 09:30:00 +0000

Today I was faced with small issue, I realised that I don't know how to check LIST variable for empty. Really, I was so confused. I've done it using next approach, but to be honest I don't like it. If anybody knows better approch, please share it here!

...
isValid = False
Forall x In myList
isValid = True
Exit Forall
End Forall
...

How to disable autorunning SameTime in 8.5

dpastov@gmail.com (Dmytro Pastovenskyi) — Wed, 04 Feb 2009 09:06:00 +0000

After I installed LN 8.5 each time when I run LN8.5 the sametime run also. I don't like this because I don't use it. So if you want to disable it you should add/change variable in notes.ini:

IM_ENABLE_SSO=0

0 - means it will not run (or perhaps will not show icon in system tray)

1 - means it will run together with LN (or perhaps will show icon in system tray).

What I also did

Create file setup.txt and put next content there

IM.Server=fakeservername

IM.Port=80

IM.Protocol=1

then in notes.ini add line:

ConfigFile=SETUP.TXT

Transfer file to WebService and Encode/Decode base64 string

dpastov@gmail.com (Dmytro Pastovenskyi) — Tue, 20 Jan 2009 06:58:00 +0000

I had a task where I should give opportunity to user send file to WebService written on Java. File always should come as decode base64 string, and in WebService I should decode string to normal (it should be DXL content as result) and then import it in a special database, so I had small problem with decode/encod (dont know why but it was happen). So here this simple exmplae how to do it

public class Base64Test {
public static void main(String[] args) throws IOException {
String str = "my string";

String s = new BASE64Encoder().encode(str.getBytes("UTF-8"));
byte[] bytes = new BASE64Decoder().decodeBuffer(s);
String result = new String(bytes, "UTF-8");
System.out.println(result);
}
}

Debug Lotus Notes applications

dpastov@gmail.com (Dmytro Pastovenskyi) — Sat, 20 Dec 2008 10:00:00 +0000

I would like to present which approaches I use during debugging LN applications. I would be happy if anybody add new interesting approaches.

[@Formula]
- @Prompt and @StatusBar – the easiest way to debug code written on @Formula
- Field Debug_Fld := value_debug
- @MailSend – for code that runs on server (sch. agents)
- notes.ini - I don't like this approach because of size of variables

Example
strA := "ABC"; strB := "DEF";
strC := strA + strB;
@Prompt([ok]; "strC";"strC = " + strC);
@StatusBar("strC = " + strC);
Field Debug_FieldName := strC;
@MailSend("username";"";""; "debug strC"; ""; "strC = " + strC);

[Lotus Script]
- Lotus Script Debugger as tool for debugging
- Print, MsgBox, NotesLog, Stop, on erorr goto errh

Example
Dim strA As String
Dim strB As String
Dim strC As String
strA = "ABC"
strB = "DEF"
strC = strA & strB
Print "strC = " & strC
Msgbox "strC = " & strC
Stop 'enable debugger require
Dim currentLog As New NotesLog( “debug log 1" )
Call currentLog.OpenFileLog( "c:\log.txt" )
Call currentLog.LogAction( "strC = " & strC)
Call currentLog.Close

[Schedule Agents]
- remote debugger (it is easy to enable it if you read help)
- send an email, msgbox (log.nsf), noteslog

[JavaScript]
- alert(value);
- try – catch();
- Microsoft script debugger \ Mozilla firebug \ Chrom debugger

Lets catch the next simple error

Example
code on the button use call function add, the body of function below
function add(frm){
var i1 = frm.Number1.value;
var i2 = frm.Number2.value;
var fld = frm.total;
fld.value = i1 + i2;
}
when we call function we will see next error:
what it could be? it does not provide us enough information (I think so). Now enable ie debugger
click Yes
Now we see where is error, but still could not understand "why?"
Now we are definitely close to solve the problem, we see that we did not take "number" field. Why we did not take number field? yes because of small first letter. We should wrote Number but not number.

[Java]
- Java debug console (System.out.println(“text”);
- Try / catch with NotesError and NotesException classes
- Remote java debugging with Eclipse

also I would like to recomend you external LN application openlog.nsf

How we can copy ReplicaID to clipboard

dpastov@gmail.com (Dmytro Pastovenskyi) — Thu, 18 Dec 2008 11:09:00 +0000

Approach #1. Just make double click on triangle of Address bar, and you will get ReplicaID of database.

Approach #2. Open properties on document and look on "Meta" tab.

Difference between call of Sub/Functional

dpastov@gmail.com (Dmytro Pastovenskyi) — Wed, 10 Dec 2008 20:39:00 +0000

Actually I was surprised today when I saw this, please check both scenarios:
In one scenario Call addone(i) it transmit I as reference in another one addone(i) - ByVal

Sub Click(Source As Button)
Dim i As Integer
Dim j As Integer
i = 1
For j = 0 To 10
Call addone(i) | addone(i)
Next

Print "i = " & i
End Sub

Sub addone(i As Integer)
i = i + 1
End Sub

MS ListView Control in LN

dpastov@gmail.com (Dmytro Pastovenskyi) — Mon, 01 Dec 2008 08:22:00 +0000

In one of our project we used MS ListView Control to show the data in one table. So here what we did. If you want try this approach also, you should do next steps:
Go to designer, create new form
click on menu: Create\Object and choose MS ListView Control.
Set name to this object and then you can do what you wish with this control, some code:

Dim control As Variant

Dim lwItem As Variant

Set control = source.getObject("ListView")

Set lwItem = control.ListItems.add(1, "a1", "fio2", 0)

Set lwItem = control.ListItems.add(2, "a2", "fio3", 0)

Set lwItem = control.ListItems.add(3, "a3", "fio4", 0)

Set lwItem = control.ListItems.add(4, "a4", "fio5", 0)

Call control.refresh()

Full Text message: Work area overflown due to many hits

dpastov@gmail.com (Dmytro Pastovenskyi) — Tue, 11 Nov 2008 10:00:00 +0000

I was facing with strange error.

11.11.2008 00:37:34 Full Text message: Work area overflown due to many hits. Error-Number = 130

11.11.2008 00:37:34 GTR search error for "D:\Lotus\Domino\Data\Referent\DD\ddagr.ft\UNDX\ftgi0000": Work area overflown due to many hits. Error-Number = 130: Full text error; see log for more information

The error happened each time at line with NotesDatabase.FTSearch(query, 0)

query = (([Form]="AgrAddon") & ( ([AgrDate]=08.07.2005 & [AgrAddonDate]=25.06.2008 & !([AgrAddonNum]=("-" | "/")) )))

What I found in the internet (especially at IBM forum) that this problem could be because of this part of query [AgrAddonNum]=("-" | "/").

Actually sometimes(?) symbols - , ; : \ return this error. So I changed query and it worked well (I hope it will not repeat anymore)

Defer index creation until first use + ENABLE_ON_DEMAND_COLLATIONS=1

dpastov@gmail.com (Dmytro Pastovenskyi) — Wed, 05 Nov 2008 11:12:00 +0000

In case if we would like to use "Defer index creation until first use" option in columns, we have to remember that it works only in case if Administrator set ENABLE_ON_DEMAND_COLLATIONS=1 in notes.

Just found the test-exams for Lotus Notes R7

dpastov@gmail.com (Dmytro Pastovenskyi) — Thu, 23 Oct 2008 13:58:00 +0000

download tests

btw, does somebody have free tests for Lotus Notes R8 ? :-)

NotesDocumentCollection.IsSorted where I can use it?

dpastov@gmail.com (Dmytro Pastovenskyi) — Thu, 23 Oct 2008 10:03:00 +0000

I looked on this method many times and still don't understand where/how I can use it.
I really expected that new method NotesDocumentCollection.Sort(...) would in Lotus Notes later, but it did not happen. So how can I cook it? Can anybody explain me? What I see that we really can't sort collection at all...

Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Set db = session.CurrentDatabase
Set collection = db.FTSearch( "white wine", 0 )
If collection.IsSorted Then
Messagebox( "This collection is sorted" )
Else
Messagebox( "This collection is unsorted" )
End If
End Sub

edit attachment via LS

dpastov@gmail.com (Dmytro Pastovenskyi) — Wed, 22 Oct 2008 14:02:00 +0000

I don't know good solution for this task, so it would be cool if somebody share better way then this one.
So if you want to emulate editing of attachments via backend you can do next:
1. make edit button,.
- this button "Open attachment" should export attachment to disk and remember/save the path to the file somewhere.
Dim w As New NotesUIWorkspace
Dim s As New NotesSession
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim filename As String

Set doc = w.CurrentDocument.Document
Set rtitem = doc.GetFirstItem("Body")

If doc.HasEmbedded Then
Forall o In rtitem.EmbeddedObjects
filename = "c:\" & o.name
Call o.ExtractFile (filename)
Call doc.ReplaceItemValue("filename", filename)

Call ShellExecute(0, "Open", fileName,"", "C:\", 1)
End Forall
End If

than step #2
you should make some changes and save attachments

step #3
now we have to click on Import button, this button should remove old attachment and import new one. Something like this
Dim w As New NotesUIWorkspace
Dim s As New NotesSession
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim filename As String

Set doc = w.CurrentDocument.Document
Set rtitem = doc.GetFirstItem("Body")

If doc.HasEmbedded Then
Forall o In rtitem.EmbeddedObjects
filename = "c:\" & o.name
Call o.Remove()
Call rtitem.EmbedObject(EMBED_ATTACHMENT, "", doc.GetItemValue("filename")(0))
End Forall
End If
Call doc.ReplaceItemValue("filename", "")
Call doc.Save(True, True)

But if you read comments you will see much better solution, I should say that it is really good way to solve this task.

FTSearch on empty field

dpastov@gmail.com (Dmytro Pastovenskyi) — Mon, 06 Oct 2008 11:40:00 +0000

I'm facing with problem where I should get collection of documents with empty field. It means that query should look like this

set col = db.FTSearch({[myField] = ""}, 0)

but we know that it does not work at all. So I found the solution here

set col = db.FTSearch({not [myField] = is present}, 0)

Upgrade Design Folder in Lotus Notes 8

dpastov@gmail.com (Dmytro Pastovenskyi) — Sat, 27 Sep 2008 08:14:00 +0000

Just changed my home Lotus Client to 8.02 version. Finally they (IBM) added this function which can replace design folder. I guess a lot of people already know about it, but hopefully somebody not :) . So look on the sreen.

get user name from id file

dpastov@gmail.com (Dmytro Pastovenskyi) — Thu, 25 Sep 2008 14:26:00 +0000

Lets think, if you should receive a name from user.id. Which approach did you choose? I made it using next function. Would be great if somebody share another approach. I think it is possible to use Notes API approach...

Dim s As New NotesSession
Dim stream As NotesStream

Dim body As Variant
Dim pathname As String
Dim strBody As String

pathname = "c:\user.id"

Set stream = s.CreateStream

If Not stream.Open(pathname, "ASCII") Then
Messagebox pathname,, "Open failed"
Exit Sub
End If
If stream.Bytes = 0 Then
Messagebox pathname,, "File has no content"
Exit Sub
End If

body = stream.Read(stream.Bytes)
Call stream.Close

Forall x In body
If x <> 0 Then
strBody = strBody & Chr(x)
End If
End Forall

Msgbox Strleft(Strrightback(strBody, "CN="), "/")

easy way to debug schedule agents

dpastov@gmail.com (Dmytro Pastovenskyi) — Sun, 21 Sep 2008 11:33:00 +0000

If you have problems with debugging formula's schedule agents (they run on server) you can send an email to yourself directly in this agent with debugging data.

Look at this simple code in schedule agent. Would you like to check which value contain strC ? no problem, send an email yourself...

strA := "ABC";
strB := "DEF";
strC := strA + strB;

@MailSend("your are";"";""; "debug strC"; ""; "strC = " + strC)

Platform Stats: Unable to obtain performance data. Please check Microsoft MSDN on how to enable performance data collection

dpastov@gmail.com (Dmytro Pastovenskyi) — Sat, 20 Sep 2008 11:22:00 +0000

I had this alarm on my home server (OS - XP, Domino 6.5.1IF1) where I made some testing. If somebody has the same thing then here you will find why it is so and how to disable this alarm.

why is it?
because you are running Domino on an unsupported OS (as clearly stated in the Platform requirements in the documentation/release notes).

XP is not supported, and there are known issues with it.
Supported Windows-based OSes for the Server are NT, 2000 and 2003. Not XP.

How to disable this alarm / notification?
Put this line in notes.ini platform_statistics_disabled=1 on Lotus Domino server.

File - Tools : Additional options

dpastov@gmail.com (Dmytro Pastovenskyi) — Wed, 17 Sep 2008 07:37:00 +0000

Today I found one trick, during loading View "This view is being update... and so on" if we click at menu File and then Tools, we will see two additional options: [Cleanup Separators] and [Debugging Dashboard]. I don't know if it useful, but at least something new :)
Here is a screen with two additional options.

how we can remove temporary fields from document

dpastov@gmail.com (Dmytro Pastovenskyi) — Tue, 16 Sep 2008 06:53:00 +0000

Set a computed field in the bottom of the form with next formula:

@If(@IsDocBeingSaved; @Success; @Return(""));
@SetField("Field1"; @DeleteField);
@SetField("Field2"; @Unavailable);
@DeleteField

It is very simple and useful solutions as for me and to be honest I did not find any better way

Redirect in WebQueryOpen

dpastov@gmail.com (Dmytro Pastovenskyi) — Thu, 28 Aug 2008 15:44:00 +0000

It looks like very simple task - redirect to another element in WebQueryOpen , but when I tried to do it it did not work ! I mean in WQO JavaScript does not work well (or probably at all).
So I found good solution for me, and I would like to share it:

We have to take current document and then change the value in $$HTMLHeader.