Profildokument beschreiben mit Script

[Wiesel]

Hallo!

Ich lese mittels Script im PostOpen einer Maske einen Wert aus einem Profildokument aus.

Danach soll dieser Wert im Profildokument überschrieben werden.
Leider habe ich an dieser Stelle das Problem, dass ich nicht weiß wie.

Hier mal mein Script:

Sub Postopen(Source As Notesuidocument)
   Dim uiWs As NotesUIWorkspace
   Dim S As New NotesSession
   Dim pdoc As NotesDocument
   Dim uipdoc As notesuidocument
   Dim strNiederschrift As Long
   
   If Source.IsNewDoc Then
      Call Source.FieldSetText("txtStatus","in Arbeit")
      
      Set pdoc = S.CurrentDatabase.GetProfileDocument( "(DBProfil)" )
      strNiederschrift = pdoc.numNiederschrift(0) + 1
      Call Source.FieldSetText( "numNiederschrift", Cstr(strNiederschrift) )

'bis hierhin funzt es und dann kommt der Teil, bei dem ich nicht weiter weiss und auch die Designerhilfe nicht verstehe:

      Set uipdoc= uiWs.EditProfile( "(DBProfil)" )
      Call uipdoc.FieldSetText("numNiederschrift",strNiederschrift)
      
   End If
   
End Sub

Freue mich auf Antworten.
Gruß,
Wiesel

[diali]

besorge Dir das Objekt mit notesDatabase.GetProfileDocument, dann kannst Du es im Backend wie ein normales Dokument behandeln.

[botschi]

Dim profil As NotesDocument   
Set profil = db.GetProfileDocument("Profildokument")
.
.
.
   
Call profil.Save(True, False)

[koehlerbv]

Das macht sie doch schon, diali.

pdoc.numNiederschrift = strNiederschrift
Call pdoc.Save (True, False, True)

Allerdings sieht mir das sehr nach einer fortlaufenden Nummer aus. Das wird so in die Hose gehen und wurde hier im Forum hinreichend diskutiert.

Dim strNiederschrift As Long
halte ich auch für gar keine kluge Idee 

Bernhard

[diali]

Sorry - hatte ich überlesen

[Wiesel]

Vielen Dank für Eure Antworten.

Dann war ich ja doch richtig )

Zum Thema "fortlaufende Nummerierung" suche ich dann hier mal...

Gruß!