Domino 9 und frühere Versionen > ND8: Entwicklung

Body Feld wird nicht gespeichert

(1/2) > >>

ringelnatz66:
Hallo zusammen,

ich erstelle mit dem Code unten aus einer Mail einen Termin. das klappt auch wunderbar. Der termin wird eingetragen und alle Felder sind schön gefüllt. Auch das Feld "body" (Richtext in der appointmentmaske). Da das ganze ja im Frontend stattfindet kann ich den Inhalt am Bildschirm sehen. Danachwird das Domument geschlossen. Rufe ich nun diesen termin neu über den Kalender auf ist alles da bis auf den Inhalt des Feldes "Body".

Warum ? Ich habs gesehen und gespeichert wirds im Code doch auch!




Sub Click(Source As Button)
   Dim Beschreibung As String
   Dim sdatum As String
   Dim szeit As String
   Dim edatum As String
   Dim ezeit As String
   Dim h_raum As String
   Dim h_beschreibung As String
   Dim dbmail As New NotesDatabase("","")
   Dim uiws As New notesuiworkspace
   Dim uidoc As NotesuiDocument   
   Dim h_body As String
   Set uidoc = uiws.CurrentDocument
   h_raum=uidoc.FieldGetText("mf_raum")
   h_beschreibung=uidoc.FieldGetText("mf_besprechungspunkt")
   h_body=uidoc.FieldGetText("mf_anm_besprechungspunkt")
   sdatum= uidoc.Fieldgettext(Cstr("mf_sitzungsdatum"))
   szeit= uidoc.FieldGetText(Cstr("mf_uhr_von"))
   edatum= uidoc.FieldGetText(Cstr("mf_sitzungsdatum"))
   ezeit= uidoc.FieldGetText(Cstr("mf_uhr_bis"))
   Call dbmail.OpenMail()
   Set uidoc=  uiws.composedocument(dbmail.Server,dbmail.FilePath,"Appointment")
   Call uidoc.FieldSetText("appointmenttype","0")
   Call uidoc.FieldSetText("tmpappointmenttype","0")   
   Call uidoc.Refresh
   Call uidoc.reload
   Call uidoc.fieldsettext("subject","Vorstandssitzung am " + sdatum + " " + h_beschreibung)
   Call uidoc.FieldSetText("location",h_raum)
   Call uidoc.fieldAppendText("body",h_body)
   Call uidoc.save
   Call uidoc.FieldSetText("startdate",sdatum)
   Call uidoc.fieldsettext("starttime",szeit)
   Call uidoc.FieldSetText("enddate",edatum)
   Call uidoc.FieldSetText("endtime",ezeit)
   Call uidoc.Refresh
   Call uidoc.reload
   Call uidoc.save
   Call uidoc.close
   Msgbox"Der Kalendereintrag wurde erzeugt"
   
   
End Sub

ascabg:
Hallo,

Fuer mich sieht es aber so aus, als ob Dein Code nicht das Body-Feld der betreffenden Maske verwendet.
Wenn dem so waere, wuerde der Text

"<Geben Sie eine Beschreibung ein>"

nicht mehr sichtbar sein.


Andreas

ringelnatz66:
Der Text ""<Geben Sie eine Beschreibung ein>"

" ist definitiv der Feldhinweistext des RichTextFeldes "Body". Ein anderes Feld gibt es da auch in der Maske "Appointment" nicht.

ascabg:
Das ist richtig.

Nur hast Du schon mal gesehen, was passiert, wenn Du manuell in dieses Feld gehst, um etwas eintzutragen?

Richtig.
Der Hinweistext verschwindet.


Andreas

ringelnatz66:
Das ist auch richtig. der text verschwindet dann. Schon 1000mal gemacht. Aber was mache ich bzw. das Scrpit denn falsch das der Wert sichtbar wird aber nicht gespeichert wird?

Navigation

[0] Themen-Index

[#] Nächste Seite