Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Selin am 15.08.02 - 10:55:01

Titel: laufende nummer für doc im Web
Beitrag von: Selin am 15.08.02 - 10:55:01

Hallo,

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

Titel: Re: laufende nummer für doc im Web
Beitrag von: hampa am 26.08.02 - 10:23:03

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

Titel: Re: laufende nummer für doc im Web
Beitrag von: Selin am 26.08.02 - 10:30:02

Hi,

werde das mal ausprobieren, danke dir

Titel: Re: laufende nummer für doc im Web
Beitrag von: hampa am 26.08.02 - 10:39:32

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