Access to the design document source in lotusscript

HCL Domino Domino Forum
1

Hi

i have found one time a guide to access to the source document of design element (form, view, library,…) in lotusscript.

I don remember where i cannot found it again, is someone know how i can access to the form, view and library source code document in lotusscript ?

2

Subject: Access to the design document source in lotusscript

SOurce?

Dbdesign script library from damian katz?

DXL?

JYR

3

Subject: RE: Access to the design document source in lotusscript

Thanks that’s great but in fact i want to access to the source code in lotusscript because i have read somewhere (but i don’t remember where) that the design element are save as document in a database LN and it’s possible in lotusscript to access it and remove the source code (the application using compiled code to run. So anyother designer can see the source code and modify it.

If i understand well DBDesign is to see the source code me i want to remove source code as when you open some library in a designer it’s look like empty but it’s works.

I want to remove source code on lotusscript library, form and some view action but not see it.

4

Subject: RE: Access to the design document source in lotusscript

Hi,

http://www-10.lotus.com/ldd/nd6forum.nsf/DateAllThreadedweb/21e413c1d9922fa08525725d005432ee?OpenDocument

JYR

5

Subject: RE: Access to the design document source in lotusscript

Exact that’s a thing like this…

Did you know how i can find the original article ?

I’m going to test Notesnotecollection.

Many thank’s

6

Subject: RE: Access to the design document source in lotusscript

http://www.hadsl.com/hadsl.nsf/iLUG-2006-DevBlast.pdf

7

Subject: RE: Access to the design document source in lotusscript

Thanks a lot.

I have found this link to to display design element document in a view :

http://www.dominopower.com/issues/issue199908/design001.html

You must create a view, for example name’s VIEWDESIGN with a slection formulas : SELECT @ALL; and one colomn order with formulas $Title

You must create an agent with the code :

Sub Initialize

Dim session As New NotesSession

Dim db As NotesDatabase

Dim view As NotesView

Dim doc As NotesDocument

Set db = session.CurrentDatabase

Set view= db.GetView(“VIEWDESIGN”)

Set doc = db.GetDocumentByUNID(view.UniversalID)

Call doc.ReplaceItemValue(“$FormulaClass”, “XXX”)

doc.Save True, True

End Sub

Replace XXX with the value :

1 : to display Documents

2 : Unknown

4 : to display Forms and Subforms

8 : to display Views, Folders and Navigators

16 : Database Title

32 : Design Collection (overall information)

64 : ACL Note (in compiled format)

128 : Unknown

256 : Unknown

512 : Agents (Shared)

1024 : Shared Fields

1548 : Forms, Sub-forms, Views, Folders, Navigators, Agents (Shared), Shared Fields

You can add values, for example if you want to see forms and views replace XXX by 12 (4+8)

Execute the agent, open the view, press shift+F9 to refresh the view index and it’s all…