Hallo,
ich hänge gerade an einem Problem.
Ich habe ein Dokument, per Schaltfläche öffnet ein Dialogfenster in das ein Kommentar inkl. Anhänge (RT) erfasst werden kann.
Beim Speichern wird der Inhalt des Dialogbox-Kommentarfeldes in ein RT des Dokuments angehängt.
Set rtitema = ddoc.Getfirstitem("dlg_kommentar")
Call rtitema.update
If Not rtitemA Is Nothing Then
If (rtitemA.Type = RICHTEXT ) Then
Set copyto = pdoc.GetFirstItem(ddoc.dlg_parentfield(0))
If copyto Is Nothing Then
Set copyto = New NotesRichTextItem(pdoc,ddoc.dlg_parentfield(0))
End If
Call copyto.AppendText(Cstr(Now()) & " - " & Cstr(session.CommonUserName) & ": ")
Call copyto.AddNewline(1)
Call copyto.appendrtitem(rtitema)
Call copyto.addnewline(1)
End If
Call uidoc.Close
Else
Messagebox "Keinen Kommentar eingegeben"
End If
DDOC ist das Dialogbox-Dokument, PDOC ist das eigentliche Dokument. DDOC.dlg_parentfield beinhaltet den Namen des RT-Feldes im PDOC.
In dem RT-Feld erscheint auch wie im Code oben programmiert Datum & Verfasser und in der nächsten Zeile dann der Inhalt des Kommentarfeldes aus der Dialogbox inkl. des eingehängten Attachments.
Aber am Ende des Dokuments erscheint das Attachment nochmal. Sieht unschön aus. Was mach ich hier falsch?
Weiteres Problem, ich habe das RT-Feld in einem zugriffsgesteuerten Abschnitt, das Feld steht in einer Zelle einer Tabelle. Über dem ganzen Abschnitt liegt eine Verbergen-Wenn Formel. Für den Fall wenn diese wahr ist, soll der komplette Abschnitt nicht sichtbar sein.
Das trifft auf alle Elemente innerhalb des Abschnitts zu, aber nicht auf dieses RT-Feld. Dieses bleibt weiterhin sichtbar. Die Formel ist aber definitiv korrekt und ist mit den anderen Elementen identisch.
Bye,
Markus