Problem mit Datumsüberprüfung vorm Speichern

[Tina]

Ich hab grad erst mit Lotus Script angefangen und daher tauchen bei mir n paar Probleme auf.

Ich habe eine Raumreservieung bisher nur in Formelsparche erstellt. Nun möchte ich wenn eine neue Reservierung gespeichert werden soll (also im Querysave) nachprüfen, ob der gewählte Raum zum gewählten Datum frei ist. Wenn dies nicht der Fall ist, soll eine Fehlermeldung ausgegeben werden.

Danke schonmal für eure Mühe Tina.

[Tina]

Ich hab versucht es so zu lösen, aber es klappt nicht. Weder Fehlermeldung noch das was ich mir erhofft hatte:

Dim DatumList As notesdocumentcollection   
Dim Datum As Variant
Dim RaumDatum As Variant
Dim doc As notesdocument
   
On Error Goto ErrHandler
'rpvwRaum ist eine Ansicht sortiert und kategorisiert nach reservierten
'Räumen
'rpRaum ist das Feld in der Maske, wo der zu reservierende Raum  
'eingetragen wird
Set DatumList = rpvwRaum.Getalldocumentsbykey(rpRaum)
Set doc = DatumList.GetFirstDocument  'erstes Dokument der dc
   
'Hier wird das eingegebene Datum mit dem Datum des aktuellen
'Dokuments verglichen
While Not (doc Is Nothing)
   Datum = CurrentDocument.Document.GetItemValue("Buchungsdatum")
   RaumDatum = rpBuchDatum.value
      
   If RaumDatum(0) = Datum(0) Then
   'Datum ist gleich, also ist Raum bereits reserviert         
      Messagebox "Der Raum ist bereits reserviert!"
      Exit Sub
   End If
   'nächstes Dokument der dc
   Set doc = DatumList.GetNextDocument(doc)  
Wend
   
Ende:
   Exit Sub   
ErrHandler:
   'Vorläufige Fehlermeldung, muss noch geändert werden   
   REM Messagebox "Ein Fehler ist aufgetreten!"   
   Resume Ende
   
End Sub

[klaussal]

@tina,

das zu lösen geht nicht "mal eben so"  
ich persönlich würde die sache per script im querysave lösen. dazu würde ich mir eine ansicht bauen, in der 1. spalte nach raum sortiert. im querysave alle docs mit dem entsprechendem raum durchgehen und datum prüfen. schwierig wird m.e. die überprüfung der reservierung über mehrere tage.
vielleicht geht das auch alles viel viel einfacher, nur hab ich momentan auf die schnelle keine andere idee  
hoffe, dir aber trotzdem ein paar denkanstösse gegeben zu haben.
tipp : versuche doch mal, über die suche etwas zu finden oder in der sandbox.

[MadMetzger]

Warum nutzt du nicht die in Domino integrierte Resourcenreservierung? Wozu das Rad neu erfinden?

Ansonsten gibt es bei ata auf der Homepage eine DB mit umfangreichen Datumsfunktionen...
http://www.anton-tauscher.de

[klaussal]

... da warst du um ein paar sekunden schneller...
was sagt der debugger ?

[Tina]

Der Debugger springt schon bei
Set DatumList = rpvwRaum.Getalldocumentsbykey(rpRaum)
in den ErrorHandler.

Wahrscheinlich ist das meiste (wenn nicht sogar alles) hieran falsch, aber irgendwie muss man ja anfangen.


Wo finde ich denn diese Resourcenreservierung??

[klaussal]

das teil heisst  RESSOURCE.NSF und sollte auf dem server liegen.

[MadMetzger]

Die Ressourcereservierung ist eine Standardschablone, die bei jedem Domino-Server mit zum Lieferumfang gehörte...

[Tina]

Danke für den Tipp, aber ich fürchte, dass mir die Schablone nicht zur Verfügung steht.

[MadMetzger]

Wieso? Arbeitest du nur an einem Client, ohne einen Server?

[Tina]

Habs gefunden, darfs aber nicht öffnen! Mir fehlen die Zugriffsrechte!

[Tina]

schwierig wird m.e. die überprüfung der reservierung über mehrere tage.

Ich brauch das ganze erstmal für einen Tag. Es sind vorerst keine Reservierungen über mehrere Tage vorgesehen!

[g202e]

Habs gefunden, darfs aber nicht öffnen! Mir fehlen die Zugriffsrechte!

Dann solltest du dir die erstmal besorgen!

[Tina]

Das geht nicht so einfach! Is alles ziemlich kompliziert hier.

Werds wohl so versuchen müssen!

[eknori]

schau mal hier rein:

http://www.atnotes.de/index.php?board=7;action=display;threadid=6094;start=0

[Tina]

Danke!  
Werd mir das aber leider erst heute abend zu Hause anschauen können. Komm von der Firma aus nicht dran.

[klaussal]

... was ist das denn für eine firma, wo mann/frau nix darf  

[Tina]

Gut ne?!   Erleichtert das Arbeiten ungemein!

Muss mal schauen, ob es nich doch noch nen Weg gibt da dran zu kommen!

14.01.04  13:15:
Hab jetzt da noch n bisschen rumgewurstelt und bekommen jetzt zumindest raus, wenn ein Raum zu nem Datum besetzt ist. Und zwar so:
Dim db As notesdatabase   
Dim session As New notessession   
Dim dc As notesdocumentcollection   
Dim Datum As Variant
Dim RaumDatum As Variant
Dim doc As notesdocument
Dim view As notesview
   
On Error Goto ErrHandler
   
Set db = session.currentdatabase
Set view = db.getView("rpvwRaum")
Set dc = view.Getalldocumentsbykey(rpRaum,True)
'Überprüfung, ob der Raum überhaupt schonmal gebucht wurde   
   If dc.count = 0 Then
   'Der Raum ist an dem Datum auf jeden Fall frei
   Goto Ende
   End If

'Reduzierung der NotesDocumentCollection auf den gewählten Raum mit dem angegebenen Datum   
   Call dc.ftsearch(rpBuchDatum, 0)
   
'Prüfung, ob das angegebene Datum in der Collection vorhanden ist   
   If dc.count > 0 Then
   'Dies ist der Fall, also ist der Raum an dem Datum bereits reserviert
   Messagebox "Der gewählte Raum ist zu dem angegebenen Datum bereits reserviert."
   End If

Ende:
   Exit Sub   

ErrHandler:
   'Vorläufige Fehlermeldung, muss noch geändert werden   
   Messagebox "Ein Fehler ist aufgetreten!"   
   Resume Ende
End Sub

[Tina]

Ich habs geschafft!

Hier meine Lösung (dachte euch interessierts veilleicht  ):

Sub Querysave(Source As Notesuidocument, Continue As Variant)
%REM
Überprüfen, ob der ausgewählte Raum zum gewählten Zeitraum noch zur Verfügung steht
%END REM
   Dim session As New notessession   
   Dim db As notesdatabase   
   Dim dc As notesdocumentcollection   
   Dim view As notesview
   Dim doc As notesdocument   
   
   On Error Goto ErrHandler
   
   Set dateTime = New NotesDateTime( "05/20/95" )
   Set db = session.currentdatabase
   temp = Source.fieldgettext("rpRaum")
   temp2 =  Source.fieldgettext("rpBuchDatum")
   searchFormula$ = "Form = ""rpfrmBuchung"" & rpRaum= """& temp &""" & rpBuchDatum = """ & temp2 & """"
   Set dc = db.Search(searchFormula$,dateTime,0)
   
'Überprüfung, ob der Raum überhaupt schonmal gebucht wurde   
   If dc.count = 0 Then
   'Der Raum ist auf jeden Fall frei
   Else
      'Reduzierung der NotesDocumentCollection auf den gewählten Raum mit dem angegebenen Datum   
      Call dc.ftsearch(rpBuchDatum, 0)
      
      'Prüfung, ob das angegebene Datum in der Collection vorhanden ist   
      If dc.count > 0 Then
         'Der Raum ist an dem Datum bereits reserviert
         Messagebox "Der gewählte Raum ist zu dem angegebenen Datum bereits reserviert."
         Continue = False  'Verhindert das Speichern
      End If
   End If
   
Ende:
   Exit Sub   
ErrHandler:
   'Vorläufige Fehlermeldung, muss noch geändert werden   
   Messagebox "Ein Fehler ist aufgetreten!"   
   Resume Ende
End Sub

[klaussal]

gut gemacht