Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: dottore am 25.09.03 - 10:40:39
-
Hallo,
ich arbeite gerade an einer Meeting-Datenbank.
Die TOPs sollen als Antwortdokumente angelegt werden, allerdings soll die Möglichkeit bestehen, über das Haupdokument via Doclink auf die einzelnen Antwortdokumente zuzugreifen. Hie ist der Code, den ich mir ausgedacht habe:
Function TOPReiterAktualisieren ( uidoc As NotesUIDocument )
Dim s As New NotesSession 'Session
Dim db As NotesDatabase 'Aktuelle Datenbank
Dim doc As NotesDocument 'Aktuelles Dokument
Dim unid As Variant 'Array von UniqueIDs, das alle Antwortdokumente enthält
Dim topdoc As NotesDocument 'AntwortDokument
Dim topnr() As Integer 'Array von Nummern
Dim tthema() As String 'Array von Themen
Dim tlink As Variant 'Hier wird das RT-Feld für die Doclinks gespeichert
Dim i As Integer 'Zählvariable
Set db = s.currentDatabase
Set doc = uidoc.Document
'Nicht bei Entwürfen
If doc.MStatus(0) > 10 Then
'Editiermodus für Feldänderungen erforderlich
If Not uidoc.EditMode Then
uidoc.EditMode = True
End If
'Array der Unid der TOPs einlesen
unid = doc.getItemValue( "TopListe" )
'Arraylängen = Anzahl Einträge im Feld TopListe
Redim topnr( Ubound( unid ) ) As Integer
Redim tthema( Ubound( unid ) ) As String
doc.RemoveItem( "TLinks" )
Set tlink = doc.CreateRichTextItem( "TLinks" )
For i = Lbound( unid ) To Ubound( unid )
topnr(i) = i + 1
Set topdoc = db.GetDocumentByUNID( unid( i ) )
tthema(i) = topdoc.TThema(0)
If ( tlink.Type = RICHTEXT ) Then
Call tlink.AddNewLine( 1 )
Call tlink.AppendText( "--> " )
Call tlink.AppendDocLink( topdoc, "Klicken Sie hier, um den TOP einzusehen." )
End If
Next
Call doc.ReplaceItemValue( "TopNr", topnr )
Call doc.ReplaceItemValue( "TopThema", tthema )
'Call doc.ReplaceItemValue( "TLinks", tlink ) 'macht keinen Unterschied...
Call doc.save( False, False )
End If
End Function
Das Problem dabei ist, das alles Funktioniert, nur das RT-Feld wird nicht übertragen. Im Debugger zeigt er Text an, aber im Dokument nicht. ( Auch nach schliessen und wieder öffnen nicht)
Ich freue mich über jede Idee.
-
a) was spricht gegen einen embedded View? Das leistet doch genau diese Arbeit (allerdings nicht via Doclink aber dafür mit einer Liste, die soviel Angaben haben kann, dass das Oeffnen des Docs vielleicht nicht einmal mehr nötig ist)
b) sollte das im Fuss nicht "in ventum" in 2 Wörtern heissen?
-
@Semaphoros:
"Gegen den Wind" sollte lateinisch wirklich "in ventum" heissen, also in zwei Wörtern stehen.
Das ist für mich als ehemaligem Sprachlehrer und einer, der sich fast sein Leben lang mit Sprachtheorie und ähnlichem beschäftigt hat, nicht wirklich überraschend.
Von der Ausbildung bin ich zwar auch Lehrer wie Jörg (aber Physik und Astronomie), und ich habe im Gymnasium verstärkten Fremdsprachenunterricht genossen (wirklich genossen !), aber da war kein Latein dabei (man lernt aber trotzdem einiges, was dann sogar Latein erschliessen hilft). "In ventum" in zwei Wörtern erschien mir logischer, aber ich habe sicherheitshalber mal nachgefragt: Der Präsident der Thüringer Akademie der Wissenschaften (mein Vater ;-) hat mir bestätigt: "in ventum" ("in den Wind", übertragen sicher auch "gegen den Wind") ist richtig, inventum hiesse Erfindung. Spaß am Rande: Auf russisch hiesse das "protiv wetera" ;-))
Ciao,
Bernhard
-
Mensch Bernhard, gute Forschungsarbeit :-), würde einem Philologen alle Ehre machen.
War allerdings ein Eigentor, hab ich doch Lat und Griechisch unterrichtet. Uebrigens lat. "in" mit Akkusativ kann "in, an, auf, nach, gegen" heissen, also "in ventum" ist generisch gegen den Wind, nicht "nur" übertragen. Ja, "inventum" würde "das Erfundene" oder eben "die Erfindung" heissen und das passt so überhaupt nicht zum Rest des Satzes.
-
@Semaphoros
He, ich hab's doch nur geahnt, der "Herr Präsident" hat's dann auf meine Nachfrage gelöst - war also nicht gerade mein Verdienst ;-)
Aber gegen den Wind pinkelt halt eben wirklich kein vernünftiger Mensch ;-)
Ciao,
Bernhard
-
Bei dem ganzen Off-Topic-Geraffel sollten wir jetzt nicht die eigentliche Frage vergessen:
Was mich stutzig macht: Es wird ein NotesUIDocument and ie Function übergeben und dann im BackEnd an einem RTF gebastelt. Was passiert den weiter (ausserhalb der Function) im NotesUIDocument ? Wird da eventuell das BackEnd-Document gleich wieder überschrieben ? Sieht irgendwie danach aus ...
HTH,
Bernhard
-
Ok, nachdem Bernhard mich "enttarnt" hat, an die Arbeit, bevor er noch meinen Nick knackt :-)
Was heisst "nach Schliessen und wieder öffnen?" das Backend Dock oder das UI Doc? Meiner Meinung nach müsste man das UI-Doc schliessen und wieder öffnen, um das RT zu refreshen.
Ist es möglich, dass wir es mit diesem Problem zu tun haben? Das ist aus dem NotesUIDocument.Reload Help ausgeschnitten, steht aber auch anderweitig zu lesen:
Modifications made to rich-text items on the back-end document do not appear on the current document until it is closed and reopened.
Closed und Reopened meint hier ganz klar dasi UIDocument. Normalerweise sieht der Code etwa so aus:
Call doc.save(False,False)
'Set save options to zero so that user does not get prompted to save after closing uidoc
doc.saveoptions = "0"
Call uidoc.close
'Use handle to the back end document to open it in the front end
Set uidoc = w.EditDocument(True, doc, False)
'Reset doc and set saveoptions back to "1"
Set doc = uidoc.document
doc.saveoptions = "1"
-
Jau Prima,
das Problem ist gelöst! Tatsächlich habe ich im Backend editiert und dann beim schliessen des FrontEnds die Änderungen wieder überschrieben. Und dann natürlich nix mehr gesehen von meinen Änderungen.
Wieder was dazugelernt!
Auch über Latein und meine Signatur. Vielen Dank für die Korrektur. Ich habe diesen Satz nur von einem Latein-LKler gehört, selber hatte ich nie Latein.
-
Jetzt ändere mal Romanus in Romani, sonst ist es nämlich nur ein Römer .......... :-) .... sorry, konnte nicht widerstehen ...