Domino 9 und frühere Versionen > ND7: Entwicklung

Kalender entwicklung Darstellung von Terminen zur gleichen Zeit!

<< < (2/2)

Christopher:
ja denke auch nicht das es nicht über formel & ansicht  geht  8)

WernerMo:
Hallo,

statt Kennzeichen kann ich mir nur Kategorie vorstellen, in dem man aus Anfangs- und Endzeit einen Wert baut, der dann zuerst als Kategorie angezeigt wird (entsprechend sortiert).

Gruß Werner
PS ansonsten muss ich (schon wieder) Martin recht geben.

Christopher:
In einer Kalenderansicht kann man keine Kategorien bilden :-( ja ich werde einen Agenten programmieren.

Christopher:
So schaut meine Lösung aus.

Sub Initialize
   Dim aktuellerServer As String
   Dim db As NotesDatabase
   Dim doc As NotesDocument,doc2 As NotesDocument
   Dim view As NotesView
   Dim starttime As String, endtime As String, suche As String
   Dim dc As NotesDocumentCollection
   
   Set session = New notessession 
   aktuellerServer = session.currentdatabase.server
   If aktuellerServer = "" Then Exit Sub
   
   Set db=session.currentDatabase
   Set view=db.getView("(gemeinsametermine)")
   Set doc=view.getfirstdocument
   
   While Not (doc Is Nothing)
      'ersten Wert auslesen
      
      starttime=doc.StartDateTime(0)
      endtime=doc.EndDateTime(0)
      
      suche=starttime+" - "+endtime
      Set dc = view.GetAllDocumentsByKey(suche, False)      
      
      If dc.Count > 1 Then
         Call dc.StampAll("gemeinsam", "1")
      End If
      
      
      Set doc=view.GetNextDocument(doc)
   Wend      
   
   
End Sub

thomson666:
Vielleicht hab ichs noch nicht richtig verstanden, aber wieso prüfst du nicht beim reinschreiben in den zentralen Kalender ob es nicht schon einen Termin zur selben Zeit gibt und arbeitest mit Farben?!
So wie im Kalender. Du nimmst einen neuen Appointment Type und hinterlegst für überschneidende Termine die entsprechenden Farben in der Ansicht?!

Navigation

[0] Themen-Index

[*] Vorherige Sete