Domino 9 und frühere Versionen > Entwicklung

Laufende-Nummer

<< < (3/3)

Raimund:
Hi Entwickler,

und jetzt eine perfekte Lösung:


Sub Postopen(Source As Notesuidocument)
     
     Dim session As New NotesSession
     Dim WebDB As NotesDatabase
     Dim View As NotesView
     Dim WebDoc As NotesDocument
     Dim uidoc As NotesUiDocument
     Dim workspace As New NotesUIWorkspace
     Dim i As Variant
     Dim Count As String
     Set uidoc = workspace.CurrentDocument
     Set WebDB = session.CurrentDatabase
     Set view = WebDB.GetView( "Rank" )
     Set WebDoc = view.GetLastDocument
     If WebDoc Is Nothing Then
           Goto Label
     Else
           i = WebDoc.GetItemValue("OrderCat")(0)
           
           
           count = i +1
           If  uidoc.FieldGetText("headline") = "" Then
                 Call uidoc.FieldSetText("ordercat",count)
           End If
     End If

End Sub


Gruß
Raimund

Rob Green:
gewagte Lösung...

wenn das Doc nicht im Editmode geöffnet wird, was dann? Denn fieldsettext geht nur im Editmode.

Zumal der Counter ganz fix zu Speicherkonflikten führen kann.

Nun denn, viel Glück
*oi oi oi*  ;D

Navigation

[0] Themen-Index

[*] Vorherige Sete