Help needed in LotusScript

HCL Domino Domino Forum
1

Hi,

i would like to add the outline entry through lotusscript under Admin main outline

my requirement is that i m creating view programatically thru lotusscript, i need to tag this view entry under admin outline main entry, firstly it adds to first child in Admin entry but when it creates second view then it would creates second child entry under Admin section…

here is the my code, please help me with this code as this is not working as expected.

selectformula = |(select Form=“ServerRec” ) & (Domain =“|+DomainName$+|”)|

Call dbCurrent.CreateView(viewTitle,selectformula)

Set outline = dbcurrent.GetOutline(“View Outline”)

Set entryA = outline.GetFirst

Set entryB = outline.Createentry(newviewname, entryA, 1)

Call entryB.SetNamedElement(dbcurrent, newviewname, OUTLINE_CLASS_VIEW)

Call outline.AddEntry(entryB)

Call outline.save()

thanks for help…

dev

2

Subject: help needed in LotusScript

Can you precise what’s not expected? What is it doing?

3

Subject: help needed in LotusScript

this code creates the blank entry and it creates the individual entry…

dev

4

Subject: RE: help needed in LotusScript

Your description of the problem is unclear. Can you state in more detail what the code is actually doing when you run it, and how this is different from what you expected?

5

Subject: RE: help needed in LotusScript

actually my agent creates the view, the thing is that whenever i am creating the view programatically the view should tag under Admin entry in main outline.

like

Admin

view1

view2.

likewise… wheever the agent creates new view it should come under last child entry under “Admin”…

here is the code

If vwTry Is Nothing Then

selectformula = |(select Form=“ServerRec” ) & (Domain =“|+DomainName$+|”) & (Enabled =“|+Enabled$+|”) |

Call dbCurrent.CreateView(viewTitle,selectformula)

Set NewvwDomain = dbcurrent.CreateView (viewTitle,selectformula,templateview)

set outline = dbcurrent.GetOutline(“View Outline”)

Set entryA = outline.GetLast

Set entryB = outlineCreateEntry(viewTitle,EntryA,3)

Set entryB = outline.Createentry(“viewTitle”,“Admin”,2,1)

Call entryB.SetNamedElement(dbcurrent, viewTitle, OUTLINE_CLASS_VIEW)

Call outline.AddEntry(entryB)

Call outline.save()

End If

6

Subject: RE: help needed in LotusScript

When you create a new outline, and click the ‘Generate Default Outline’ button (), Designer will build an outline that contains additional outline entries after all of the views. Amongst these is the ‘Other Views’ entry, which will display other views that do not have specific outline entries.

Copy this ‘Other Views’ outline entry into your outline under the Admin outline entry, and any new views you create should display there with no need to add anything programatically (you may need to call uiworkspace.reloadwindow to get them to display immediately though).

7

Subject: RE: help needed in LotusScript

Your description of the problem is unclear. Can you state in more detail what the code is actually doing when you run it, and how this is different from what you expected?