Lotus heeft vanaf versie 6.0 versie informatie opgenomen in de database properties. Een voorbeeld van deze informatie is zichtbaar in onderstaande illustratie. Deze bevat de versie informatie van mijn mail database.
Ik was erg benieuwd hoe deze informatie gezet wordt. Na een blik geworpen te hebben in de mail template zag ik dat er een shared field genaamd $TemplateBuild aanwezig is. Echter dit veld bevat geen waarde of enige code. De helpfile hielp me ook niet verder op dit vlak. Een zoekactie in het Notes/Domino 6 forum leverde me een door Andrew Tetlaw geschreven stuk LotusScript code op waarmee je deze versie informatie kan zetten. De code is als volgt:
Dim session As NotesSession
Dim db As NotesDatabase
Dim nc As NotesNoteCollection
Dim doc As NotesDocument
Dim iCount As Integer
Dim sNoteID As String
Const ITEM_BUILD = "$TemplateBuild"
Const ITEM_BUILD_NAME = "$TemplateBuildName"
Const ITEM_BUILD_DATE = "$TemplateBuildDate"
Set session = New NotesSession
Set db = session.CurrentDatabase
Set nc = db.CreateNoteCollection(False)
If Not nc Is Nothing Then
nc.SelectSharedFields = True
Call nc.BuildCollection
sNoteID = nc.GetFirstNoteId
For iCount = 1 To nc.Count
Set doc = db.GetDocumentByID(sNoteID)
If Not doc Is Nothing Then
If doc.HasItem(ITEM_BUILD) Then
Call doc.ReplaceItemValue(ITEM_BUILD_NAME, Inputbox$ ("Enter the template name...", "Template Name", doc.GetItemValue(ITEM_BUILD_NAME)(0)))
Call doc.ReplaceItemValue(ITEM_BUILD, Inputbox$ ("Enter the version number...", "Template Version", doc.GetItemValue(ITEM_BUILD)(0)))
Call doc.ReplaceItemValue(ITEM_BUILD_DATE, Cdat(Inputbox$ ("Enter the version date...", "Template Date", doc.GetItemValue(ITEM_BUILD_DATE)(0))))
Call doc.Save(True, False)
Exit For
End If
End If
sNoteID = nc.GetNextNoteID(sNoteID)
Next iCount
End If
Via enkele simpele dialoog vragen kunnen we de versie informatie opnemen in onze eigen database. De aanwezigheid van het shared field $TemplateBuild is essentieel. Halen we dit veld weg dan is ook de template informatie niet meer zichtbaar / aanwezig.
Reacties