Domino 9 und frühere Versionen > ND6: Entwicklung

per Script Schablonen erstellen

<< < (3/6) > >>

bikerboy:
so ich habe nun den teil fertig mit dem ich das Template stempeln lassen sollte:


--- Code: ---
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim dbTarget As NotesDatabase
Dim notesColl As NotesNoteCollection
Dim sharedFieldDoc As NotesDocument
Dim currentDoc As NotesDocument
Dim noteID As String

Set currentDoc  = ws.CurrentDocument.Document
Set dbTarget = session.GetDatabase(Cstr(currentDoc.GetItemValue("serverPath")(0)),Cstr(currentDoc.GetItemValue("filePath")(0)),False)

Set notesColl = dbTarget.CreateNoteCollection(False)
notesColl.SelectSharedFields = True
Call notesColl.BuildCollection

noteID = notesColl.GetFirstNoteId

Do Until noteID = ""
Set sharedFieldDoc = dbTarget.GetDocumentByID(noteID)
If sharedFieldDoc.HasItem("$TemplateBuild") Then
Exit Do
End If

Loop

If Not sharedFieldDoc Is Nothing Then

Dim releaseDate As New NotesDateTime(Cstr(currentDoc.GetItemValue("tmpBuildDate")(0)))

Call sharedFieldDoc.ReplaceItemValue("$TemplateBuildName",currentDoc.GetItemValue("tmpBuildName")(0))
Call sharedFieldDoc.ReplaceItemValue("$TemplateBuild", currentDoc.GetItemValue("tmpBuild")(0))
Call sharedFieldDoc.ReplaceItemValue("$TemplateBuild", releaseDate )
Call sharedFieldDoc.Save(True,True)
End If

--- Ende Code ---

aber warum, setze ich das dokument am ende auf mark to reponse. das stand so bei dem notesgott aus Paderborn auf der Seite ?

Glombi:
Auf welcher Seite?

bikerboy:
http://gcc.uni-paderborn.de/www/WI/WI2/wi2_lit.nsf/L3KEY/C1DD32F4632FCA3AC1256CF90064DB88?OpenDocument

koehlerbv:

--- Zitat ---If the force parameter is True, the createResponse parameter has no effect.
--- Ende Zitat ---

Da könnte also auch "Dauerregen" stehen, wenn es syntaktisch okay wäre - es hat keinen Effekt.

Bernhard

bikerboy:
gut aber warum nimmt notes oder die DB das nun nicht an ?  :-:

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete