Hallo zusammen!
Ich bin neu hier im Forum und hab über die Suche nichts zu meinem Problem gefunden. Also starte
ich mal eine eigene Anfrage:
Ich öffne über eine Aktion in einer View ein Dialogfenster, in dem ich per Script Felder im Profil
ändere. Im Postopen des Formulars, das für das Dialogfenster verwendet wird, wird der aktuelle
Wert aus dem Profil ausgelesen und in ein Felder eingetragen.
Das Problem ist: Das Felde (Kombinationsfeld) zeigt den Wert nicht an! Erst wenn ich mit der Maus
in das Feld klicke, taucht der Wert plötzlich auf.
Hier mal der Code aus dem Postopen:
Sub Postopen(Source As Notesuidocument)
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim pdoc As NotesDocument
Dim profileSubstitute As String
Dim profileStatus As String
Set doc = Source.Document
Set db = session.CurrentDatabase
Set pdoc = db.GetProfileDocument("Profil")
profileSubstitute = pdoc.GetItemValue("f_Subst_" & doc.GetItemValue("f_Department")(0))(0)
profileStatus = pdoc.GetItemValue("Subst_" & doc.GetItemValue("f_Department")(0) & "_act")(0)
Call doc.ReplaceItemValue("f_Vertretung",profileSubstitute)
Call doc.ReplaceItemValue("f_Aktiviert",profileStatus)
Call Source.RefreshHideFormulas
End Sub
Das Feld f_Department ist bearbeitbar und enthält einen Vorgabewert.
Das Feld f_Vertretung soll die aktuell eingestellte Vertretung der in f_Department gewählten
Abteilung anzeigen. Tut es aber erst, nach dem man reinklickt!
Der gleiche Code ist auch im Onchange des Feldes f_Department hinterlegt. Da klappt es auch nicht.
Seltsamerweise funtioniert es im Template, aber nicht in der Datenbank, obwohl in beiden doch
der selbe Code drin steckt.
Zur Info:
Notes Client: 6.5.5
Notes Server: 6.5.4
Bitte helft mir, ich weiß hier nicht mehr weiter!
Gruß
Sascha