LotusScript for Visual Basic Programmers - IBM Redbooks

hgstatus = HTDocumentSetProperty(hgdocument,
HTDOCUMENT_STRICT_BIND, False)
Then we close each document. If the document cannot be closed
successfully, an error code is returned to hgstatus.
hgstatus = HTDocumentClose(hgdocument, 0&)
Creating a Document
FTDocumentCreate function: Creates and opens a new document in the
database. Once created, the document behaves like any other document.
The new document will not have a valid document ID until written to disk
with HTDocumentSave or HTDocumentClose. If the DELAY_COMMIT
property is used when closing, a valid document ID will not be assigned
until the containing database is closed.
Example
Creates a new empty document.
Dim hgdatabase As Long
Dim FormID As Long
Dim hgdocument As Long
Dim hgstatus As Long
hgstatus = HTInit(0)
hgstatus = HTDatabaseOpen("", "test.nsf", 0, hgdatabase)
FormID = HTFormLocateByName(hgdatabase, "Main Topic")
hgstatus = HTDocumentCreate(hgdatabase, FormID, hgdocument)
hgstatus = HTDocumentClose(hgdocument, 0&)
hgstatus = HTDatabaseClose(hgdatabase, HTDBCLOSEF_SAVE_DOCS)
hgstatus = HTTerm(0)
Following is an explanation of the code.
We need to specify a form when we create a new document in the database.
The form can be specified by the form ID. In HiTest, we present the form ID
as long.
Dim FormID As Long
After opening a database, we specify the form ID by the form name. Here
we use the Main Topic form of the TEST database.
FormID = HTFormLocateByName(hgdatabase, "Main Topic")
148 LotusScript for Visual Basic Programmers