Terminüberschneidungen bei Raumbuchungen.

[eknori]

@All.

Ich baue gerade an einer Datenbank für eine Raumbelegung.
Ich will nicht die Resourcenreservierung verwenden, da die zu fehleranfällig ist.

In meiner Maske habe ich neben dem Namen der Ressource noch 4 Felder

StartDate  --  StartTime
EndDate   --   EndTime

Wie kann ich nun beim Erstellen einer neuen Buchung feststellen, ob es zu einer Terminüberschneidung kommt. ?

Hab euch die Datenbank mal beigefügt  

Ich habe den Link aktualisiert. Die DB enthält jetzt alle Routinen für den Availability - Check

[klaussal]

hi,
das wird wohl aufwendig.
- fällt der neue start-termin in einen zeitraum der anderen doc's
   wenn ja, ist die neue startzeit >= startzeit des gefundenen docs UND <= endzeit des gefunden docs? wenn ja, termin belegt.

so ungefähr jedenfalls . . . .  

[ata]

... in meiner Lib zum DateHandling habe ich eine Klasse drin, die ein Array für einen Zeitraum initialisiert. Wenn die beiden Array's in einem Element Deckung haben, dann findet eine Überschneidung statt - ich denke damit könntest du es bekommen.

ArrayGetIndex(...) ist die Entsprechung zu @Member

... wenn dir die ganz Lib zu groß ist, kannst du zumindest Teile daraus verwenden...

ata

[eknori]

hmm, ja, ich denke   damit komme ich weiter.  

[MartinG]

Hallo Eknori,

kann Dir leider nicht helfen... - aber ich habe gerade Deine Datenbank angeschaut und frage mich nun wie Du Wunderknabe das geschafft hast das das JAVA Applet perfekt lauft ohne das der NotesClient danach hängt? Ich weiss nicht wieviele Notesprogrammierer sich damit bisher rumgekämpft haben - auf jeden Fall schon superviele die ich kenne...

Gruss
Martin

[wflamme]

Wie kann ich nun beim Erstellen einer neuen Buchung feststellen, ob es zu einer Terminüberschneidung kommt. ?

Ich habe das bei einem Eventkalender so gelöst, daß ich den Datumsbereich des Ereignisses in einer Ansicht expandiert (exploded) habe und beim Vergleich nur diese Schlüssel der Ansicht prüfe. Damit beschränke ich die Zahl der zu prüfenden Termine auf alle die Ereignisse, die nach Datum potentiell überschneiden könnten und muß nicht alle Ereignisse der DB prüfen.
Aber ich denke mal, diesen logischen Weg dürftest Du schon vorgesehen haben.

[eknori]

Habe diese Formel hier

@Explode(@Date(@TextToTime(@Text(co_StartDate) + " " + @Text(@Time(0;0;0)) + " - " + @Text(@If(co_EndDate > co_StartDate; @Adjust(co_EndDate; 0; 0; -1; 0; 0; 0); co_EndDate)) +  " " + @Text(@Time(0;0;0)))))

um den Datumsbereich zwischen Start- und Enddatum zu "exploden"

Ich kriege das einfach nicht für ZEITFELDER umgesetzt.

Wer kann helfen ??

In Script kriege ich das hin.... Aber ich und Formeln  

[ata]

... das sieht schlecht aus mit Zeitangaben , ich denke das funzt nur mit Datum - nicht mit Zeitwerten

dateRange
Time-date range or time-date range list. The range of dates whose individual days you want to make into a text list.

ata

[wflamme]

um den Datumsbereich zwischen Start- und Enddatum zu "exploden"

Ich kriege das einfach nicht für ZEITFELDER umgesetzt.

Geht auch nicht, steht irgendwo versteckt bei @Explode in der Doku, momang...

"The range of dates whose individual days you want to make into a text list."

Gemein.

Aber besser so, als tausende von Terminen zu vergleichen, die wild über's ganze Jahr verstreut liegen.

[forrest g]

hi eknori,

ich hab da einen lösungsvorschlag in script(bist da wahrscheinlich schon selber draufgekommen...):

- programmatische view: 1.spalte=ressource, 2.spalte=zeitangabe(vorzugsweise KW, weil ja wohl bei den räumen keine übergriffe in die nächste woche vorkommen; ich hab das in einer db mit 3 spalten(jahr, tag,monat) gelöst); 3.spalte=dein feld DaysOutOS mit der zeitspanne in tagen
- im querysave der maske dann eine schleife einbauen:

dim keyarray(1) as string
KeyArr( 0 ) = ...Ressource...
KeyArr( 1 ) = ...Zeitangabe(KW)...
Set datecol = view.getalldocumentsbykey ( KeyArr, True )
datecolnr = datecol.count
Set resdoc = datecol.getfirstdocument
   
For i = 0 To datecolnr-1         
 While Not ( resdoc Is Nothing )
  Set ListeVonBis = resdoc.getfirstitem( "DaysOutOS" )
    Forall x In ListeVonBis.values
     'VERGLEICH eingabe- reservierungen
      If x = Von Or x = Bis Then
       'wenn überschneidungen bei den tagen, dann zeitwertevergleic
      End If         
    End Forall
   Set doc = datecol.getnextdocument(doc)
 Wend
Next


tschö

[eknori]

Danke für den Tip.
Ich habe das bereits selbst per Script gelöst. Der Link im ersten Posting enthält nun die aktuelle version der DB.
In den ScriptLibs und Agenten ist im prinzip schon alles drin , was man braucht.

Ein paar Bugs gibt es noch:

-Wenn ich einen bestehenden termin ändere checkt der Code auch den eigenen Zeitbereich und meldet den Raum als belegt.
-Wenn ein termin im chart durch ziehen des slot verändert wird, ändert sich nicht die Werteliste im Feld "TimeSlots"
- der availability - check ist noch nicht in der Aktion "Speichern und in Kalender eintragen" vorhanden.
- Wiederholungstermine checken nicht auf Kollision mit bereits bestehenden Terminen.

Vielleicht kann mir ja der eine oder  andere helfen, die Bugs zu beseitigen  

So ein paar funktionen möcht ich noch einbauen:

- Auswahl möglicher Resourcen anhand der Personenzahl
- Anzeige freier Resourcen anhand Datum und Uhrzeit.

Ich weiß, ich weiß, "das hat Notes doch alles schon".
Aber die C&S Geschichte arbeitet solange ich Notes kenne nicht halbwegs fehlerfrei.
Bei uns kommt es ständig zu Terminüberschneidungen. Gerade, wenn dann auch noch ein Kundenbesuch ansteht und sog. repräsentative Räume durch Doppelbuchungen belegt sind, könnt ihr euch sicher vorstellen, wie groß die Begeisterung bei den Beteiligten ist.

Daher möchte ich gerne ein System aufbauen, in dem ich die Kontrolle über die Abläufe habe.

eknori

[bob]

Hi eknori,

ich hab da eine Lösung  

Wie schaut dies aus Sicht des Anwenders aus:
Man gibt die Daten ein (Anfangszeit, Endzeit, Datum), und klickt auf "Speichern".
Wenn es dann in dem Zeitraum bereits ein Dok gibt kommt eine Fehlermeldung inkl. des Datums und der Uhrzeit, bei der es die Fehlermeldung gibt.


Leider ist mir vorhin die CPU + Motherboard meines Hauptrechner abgeschmiert, auf der die DB liegt. Ich arbeite aktuell mit einem Notebook, auf dem bis auf einen Browser keine Daten drauf sind :-(

D.h. es wird noch ein paar Tage dauern, bis ich überhaupt weiß was für ein Motherboard und CPU ich mir besorge und dann erst bestelle......

Aber wenn Du Dich 1-2 Wochen geduldest kommt die Lösung! (kein Fake!)

Afaik holt sich das Skript die Daten aus einer Ansicht, in der sich die Spalten "Jahr" "Monat" "Tag" "Stunden" und "Minuten" befinden.

Das Teil hat aber etliche Zeilen (ist nicht von mir!) aber arbeitet 1a.

Bob

[Luki]

Ich habe in ATNOTES.de den Beitrag über die Datenbank 'reservierung' gelesen.

Ich habe ein ähnliches Problem und wäre sehr an der DB interessiert.
Leider kann ich bei uns das eingestellte ZIP-Format nicht downloaden.

Könnte man die DB evtl. als .nsf in das Forum stellen

[eknori]

hier die DB im nsf - Format

[Rob Green]

hm..eknori, ich werde mich jetzt am WE an Deine Ressourcen Kiste dranmachen und versuchen einzubauen, daß man

- gleichzeitig Raum und Ressource bebuchen kann
- dabei bei allen Ressourcen die Freie Zeit checkt (aber nicht mit der R5 Busytime Systematik wahrscheinlich - da zu unzuverlässig - , werds aber parallel unter R6 mit dem Planer und der Busytime dann machen)
- öhm..ja , halt ein bißerl die Ansichten verändern
- Formeln würde ich eher weniger zum Überschneidungscheck verwenden (weil Du irgendwas damit machen wolltest, weiß zwar nicht warum, aber egal... )
- und die Wiederholungsproblematik natürlich auch berücksichtigen

Wenn Du magst, call mich mal am WE an (Abends).

[eknori]

So, der guten Ordnung halber hier der Code für den CHECK

Sub Click(Source As Button)
   Dim session As New NotesSession      
   Dim db As NotesDatabase              
   Dim view As NotesView         
   Dim doc As NotesDocument            
   Dim workspace As New NotesUIWorkspace
   Dim dc As NotesDocumentCollection
   Set db = session.CurrentDatabase   
   Set View = db.GetView ( "($BUSYTIME)" )
   Dim uidoc As NotesUIDocument   
   Set uidoc = workspace.CurrentDocument 'Look at the current document on the screen
   Dim dtimefromNEU As New NotesDateTime ( Cstr ( uidoc.FieldGetText ( "StartDatumZeit" ) ) )
   Dim dtimetoNEU As New NotesDateTime ( Cstr ( uidoc.FieldGetText ( "EndDatumZeit" ) ) )
   DOCUID$ = uidoc.FieldGetText ( "ID" )
   
   Set dc = view.GetAllDocumentsByKey( uidoc.FieldGetText( "co_Resource" ) )
   
   For i% = 1 To dc.Count ' Alle docs in der collection durchlaufen
      Set doc = dc.GetNthDocument ( i% )   ' erstes doc aus collection holen
      If doc.ID(0) <> DOCUID$Then ' gefundenes doc ist nicht uidoc
         Dim dtimefromALT As New NotesDateTime ( Cstr ( doc.StartDatumZeit(0) ) )
         Dim dtimetoALT As New NotesDateTime ( Cstr ( doc.EndDatumZeit(0) ) )
         
         If dtimefromNEU.TimeDifference ( dtimetoALT ) > 0 Or dtimetoNEU.TimeDifference ( dtimefromALT ) < 0 Then
            flag% = 0 ' keine überschneidung
         Else
            flag% = 1
            Goto NotAvailable
         End If
         
      End If
   Next
   Exit Sub
NotAvailable:
   Msgbox "NotAvailable"
End Sub

Die Ansicht ($BUSYTIME) enthält in der ersten Spalte aufsteigend sortiert den Namen der Resource.

[Rob Green]

habe es nahezu ebenso gelöst..

bei mir kommt noch dazu, daß ich mittlerweile widerholende Termine verarbeite und dabei mehrfach vorhandene, zu reservierende Ressourcen/Räume im aktuellen Termindoc auf mögliche Terminüberschneidungen gechecked und einzeln reported werden müssen. Daher ist mein Code noch etwas länger geworden. Wenn ich das Teil fertig habe, werde ich es hier posten...momentan ist er noch sehr unsauber (keine explizite Deklaration, keine vernünftigen Variablen Namen, etc...unnötige, doppelte Intialisierungen von Objekten, etc...).

Erschwerend kommt hinzu, daß man tagesüberschreitend ganztägige Termine eingeben kann, wobei die EndZeit kleiner der Startzeit sein kann (klar, heute Auto um 12:00 Uhr bis übermorgen ausgeliehen, Rückgabe um 09:00 Uhr)...dabei werden repetierende Einzeltermine angelegt beim Abspeichern und der letzte Tag mit der EndZeit 09:00 Uhr in dem Beispiel.

Und, um es noch etwas einfacher zu machen ...*grins....gut schwarzen Humor zu haben* dass man Serientermine verändern kann - natürlich muß dann erneut ein Terminkollisionscheck ausgeführt werden - und das System den User fragt "wollen sie den Termin löschen, alle löschen, alle Serien Termine in der Zukunft entsprechend anpassen, alle Serien Termine in der Vergangenheit..., oder nur diesen anpassen?"  

*bin schon am Singen:

Mein Lotus Notes fährt 210, schwupp, IBM hat's nicht geseh'n,
das macht Spaß! Ich geb' Gas, ich geb' Gas!
Will nicht spar'n, will nicht vernünftig sein,
bau nur das beste rein, ich mach' Spaß!
Ich geb' Gas ich geb' Gas! - Ich will Spaß, ich will Spaß!
Ich will Spaß ich will Spaß! Ich geb' Gas, ich geb' Gas!
Ich will Spaß, ich will Spaß!
Ich schubs die Templates aus dem Verkehr, ich jag'die Formeln vor mir her,
ich mach' Spaß! Ich mach' Spaß, ich mach' Spaß!

Und kost'der Mist auch viele Müh, scheiß egal, es wird schon
geh'n,
ich will coden! Ich will jodln, ich will johln.
Ich will Spaß, ich will Spaß! Ich will Spaß, ich will Spaß!
Ich geb' Gas, ich geb' Gas! Ich will Spaß, ich will Spaß!

IBM, Microsoft, spürst du mich?
Heut'nacht komm ich über dich - das macht Spaß!
Das macht Spaß, das macht Spaß ~
Der Ozzie ist mein bester Freund, hui wenn ich komm', wie der
sich freut
er braucht Spaß! Er hat Spaß, er hat Spaß

Wir wollh Spaß, wollen Spaß! Wir woll'n Spaß, wollen Spaß!
Wir geb'n Gas, geben Gas! Wir woll'n Spaß, wollen Spaß!
Wir mach'n Spaß, machen Spaß! Wir geb'n Gas, geben Gas! . . .  *

macht Notes eigentlich plemplem?  

[eknori]

in Anlehnung eines "Hits von einem gewissen Dieter B. aus H:

Take Notes today
everything is possible

 

[Rob Green]

yep...

[Axel]

@Rob

Ich wußte gar nicht, dass du so toll texten und singen kannst.  

Wenn kommt denn deine erste Platte ?
Und wann der Auftritt beim Grand Prix ?
 


Aber Spaß beiseite:

Klingt gut mit den tagesüberschreitenden Terminen. Bin sehr am Code interessiert.

Axel