Domino 9 und frühere Versionen > ND6: Entwicklung

Notes-Kalender überschreibt Datum/Zeit auf aktuell...

(1/4) > >>

sja:
Hallo Zusammen,

werde unendlich dankbar, wenn jemand beim folgenden Problem mir helfen würde. Wir hatten auf  Domino V. 5 (Kalender-Template  StdR50Mail)eine Anwendung,, wo unter anderen wird ein Termin-Dokument erstellt. Aus dem Termin-Dokument mit  einem Aktions-Schalter kann man einen Termin in ausgewähltem Kalender erstellen mit der Übernahme entsprechenden Daten. Nach dem Umzug auf V. 6 (Kalender-Template  iNotes6) funktioniert diese nicht mehr richtig. D. h. alle Daten werden richtig übernommen, ausser Datum und Uhrzeit, die werden nach aktuellen Datum und Uhrzeit überschrieben. Man kann das sogar kurz sehen beim Erstellen des Termins-Dokumentes im Kalender wie in den Datum- und Zeitfelder wird erst ausgewählten Datum und Zeit eingetragen und dann auf aktuelle überschrieben.
Hier ist das Source von dem Aktions-Schalter:

Sub Click(Source As Button)
   Dim ws As NotesUIWorkspace   
   Dim s As NotesSession
   Dim db As NotesDatabase
   Dim uidb As NotesDatabase
   Dim uiDocA As NotesUIDocument
   Dim docA As NotesDocument
   Dim uiDocM As NotesUIDocument
   Dim docM As NotesDocument
   Dim tmpSRV As String
   Dim tmpMAIL As String
   Dim AnfangD As Variant
   Dim EndeD As Variant
   Dim AnfangZ As String
   Dim EndeZ As String
   Dim Einlad As Variant
   Dim Text As Variant
   Dim tmpOrt As String
   Dim tmpSubject As String
   Dim tmpDokuTitel As String
   Dim tmpKundenName As String
   Dim rtitem As NotesRichTextItem
   
   Set s = New NotesSession
   Set ws = New NotesUIWorkspace
   Set uidb = s.CurrentDatabase
   Set uiDocA = ws.CurrentDocument   
   Call uiDocA.Refresh
   Call uiDocA.Save
   Set docA = uiDocA.Document
   
   Einlad = uiDocA.FieldGetText("SendTo")
   AnfangD = uiDocA.FieldGetText("StartDate")
   EndeD = uiDocA.FieldGetText("StartDate")
   AnfangZ = Strleft(uiDocA.FieldGetText("TimeRange"), "-")
   EndeZ = Strright(uiDocA.FieldGetText("TimeRange"), "-")
   tmpOrt = uiDocA.FieldGetText("Ort")
   tmpBody = uiDocA.FieldGetText("DokuBeschreibung")
   tmpDokuTitel = uiDocA.FieldGetText("DokuTitel")
   tmpKundenName = uiDocA.FieldGetText("KundenName")   
   tmpSubject = tmpKundenName & " -> " & tmpDokuTitel
   
   tmpSRV = uiDocA.FieldGetText("srv_1")
   tmpMAIL = uiDocA.FieldGetText("MailDatei")
   
   Set uiDocM = ws.composeDocument(tmpSRV, tmpMAIL, "Appointment",4,4)
   Set docM = uiDocM.Document
   
   Call uiDocM.FieldSetText("AppointmentType", "3")
   Call uiDocM.FieldSetText("EnterSendTo",  Einlad)
   Call uiDocM.FieldSetText("StartDate", AnfangD)
   Call uiDocM.FieldSetText("EndDate", EndeD)
   Call uiDocM.FieldSetText("StartTime", AnfangZ)
   Call uiDocM.FieldSetText("EndTime", EndeZ)
   Call uiDocM.FieldSetText("Subject", tmpSubject)
   Call uiDocM.FieldSetText("Location", tmpOrt)
   Call uiDocM.FieldSetText("Body", tmpBody)
   
   Set rtitem = New NotesRichTextItem( docM, "Body" )
   Call rtitem.AppendText( tmpBody )
   Call rtitem.AddNewLine( 2 )
   Call rtitem.AppendText( "Dokumentverknüpfung:  " )
   Call rtitem.AppendDocLink ( docA, tmpSubject )
   Call docM.Save( True, True )
   Call uiDocM.Save
   Call uiDocM.Close   
   
   
End Sub


Vielen Dank im Voraus
Sofia

sja:
Hallo,

vielleicht habe ich meine Frage nicht klar formuliert (wegen meiner Sprachschwierigkeiten), versuche ich noch mal.
Also, es sollte einen Termin von einer Anwendung per Aktions-Schaltfläche in der Notes-Kalender übernommen werden.
Auf Domino 5 (Kalender-Template  StdR50Mail) funktionierte das ohne Problem.
Auf Domino 6 (Kalender-Template  iNotes6) werden alle gewünschte Daten richtig übernommen ausser Datum und Zeit.

Ich habe das Feld „StartDate“ ( Form „Appointment“) in der beiden Template verglichen und festgestellt, dass Vorgabewertformel, Eingabeumsetzungsformel, Eingabevalidierungsformel, und Scripts sind absolut gleich, trotzdem die Datum und Zeit in der V. 6 auf aktuelle überschrieben werden.

Vielen Dank für jeder Hilfe
Sofia

Glombi:
In der Maske Appointment ist unter R6 eine Menge Scriptcode. Du solltest versuchen, die Felder auch im Backend zu setzen, auch noch die Felder StartDateTime und EndDateTime.

Andreas

sja:
Vielen Dank Andreas, ich versuche’s.

sja:
volgendes habe ich gemacht, leider ohne Erfolg:
   ...
                Call uiDocM.FieldSetText("AppointmentType", "3")
   Call uiDocM.FieldSetText("EnterSendTo",  Einlad)
   Call uiDocM.FieldSetText("Subject", tmpSubject)
   Call uiDocM.FieldSetText("Location", tmpOrt)
   Call uiDocM.FieldSetText("Body", tmpBody)
   
   Set rtitem = New NotesRichTextItem( docM, "Body" )
   Call rtitem.AppendText( tmpBody )
   Call rtitem.AddNewLine( 2 )
   Call rtitem.AppendText( "Dokumentverknüpfung:  " )
   Call rtitem.AppendDocLink ( docA, tmpSubject )
   
   docM.StartDateTime =AnfangD & " " & AnfangZ
   docM.EndDateTime =EndeD & " " & EndeZ
   docM.StartDate = AnfangD
   docM.EndDate = EndeD
   docM.StartTime =AnfangZ
   docM.EndTime = EndeZ
   Call docM.Save( True, True )
   Call uiDocM.Save
   Call uiDocM.Close
                ...   

alles wird richtig übernommen ausser Datum und Zeit -> es wurde aktuelle Datum und Zeit genommen.
Oder habe ich das falsch gemacht ???

Vielen Dank für Hilfe
Sofia

Navigation

[0] Themen-Index

[#] Nächste Seite