Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Wiesel am 18.10.06 - 11:40:33
-
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
-
besorge Dir das Objekt mit notesDatabase.GetProfileDocument, dann kannst Du es im Backend wie ein normales Dokument behandeln.
-
Dim profil As NotesDocument
Set profil = db.GetProfileDocument("Profildokument")
.
.
.
Call profil.Save(True, False)
-
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 ;D
Bernhard
-
Sorry - hatte ich überlesen
-
Vielen Dank für Eure Antworten.
Dann war ich ja doch richtig :o)
Zum Thema "fortlaufende Nummerierung" suche ich dann hier mal...
Gruß!