Domino 9 und frühere Versionen > Entwicklung

laufende nummer für doc im Web

(1/1)

Selin:
Hallo,

wie kann ich für dokumente die im Web erstellt werden, laufende nummern vergeben wie z.B.
1
2
3
4
usw

hampa:
Wir lösen das mit einem Agent, der die Aktuelle Nr. aus einem Profile-Dokument liest, diese um eins erhöht und wieder zurückschreibt. Den Agent lösen wir
im Ereignis WebQuerysave des Form aus. Beispiel:

@If(ContactNr = "";@Command([ToolsRunMacro]; "(ContactNr)");"");

Hilft Dir das vielleicht weiter?

Gruss aus der Schweiz

Hampa

Selin:
Hi,

werde das mal ausprobieren, danke dir

hampa:
Hallo

Hier habe ich noch den Code für den angesprochenen Agent:

Sub Initialize
     Dim Session As New NotesSession
     Dim ProfileDoc As NotesDocument
     Dim doc As NotesDocument
     Dim num As Double
     
     On Error Goto ErrorHandler
     
     Set db = Session.CurrentDatabase
     
     'The following line gets a handle to the current document
     Set doc = Session.DocumentContext            
     
     Set ProfileDoc = db.GetProfileDocument("ContactNr")
     
     NumStr = ProfileDoc.num(0)
     If NumStr = "" Then
           num = 1
     Else
           num = Cdbl(NumStr) + 1      
     End If
     
     ProfileDoc.num = Cstr(num)
     Call profiledoc.save(True,False)
           
     doc.ContactNr = num
     
     Exit Sub
     
ErrorHandler:
     Print "Agent: ContactNr" & "<br>"
     Print "Error " & Str(Err) & ": " & Error$ & "<br>"
     Print "Line " & Str(Erl) & "<br>"      
     
End Sub

Gruss

Hampa

Navigation

[0] Themen-Index