Autor Thema: Problem mit Datumsüberprüfung vorm Speichern (Gelesen 10312 mal)

Tina · « **am:** 13.01.04 - 11:06:45 »

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 · « **Antwort #1 am:** 13.01.04 - 13:43:56 »

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 · « **Antwort #2 am:** 13.01.04 - 13:46:15 »

@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 · « **Antwort #3 am:** 13.01.04 - 13:48:36 »

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 · « **Antwort #4 am:** 13.01.04 - 13:49:39 »

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

Tina · « **Antwort #5 am:** 13.01.04 - 14:07:17 »

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 · « **Antwort #6 am:** 13.01.04 - 14:41:16 »

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

MadMetzger · « **Antwort #7 am:** 13.01.04 - 14:42:18 »

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

Tina · « **Antwort #8 am:** 13.01.04 - 14:48:50 »

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

MadMetzger · « **Antwort #9 am:** 13.01.04 - 14:55:58 »

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

Tina · « **Antwort #10 am:** 13.01.04 - 15:01:12 »

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

Tina · « **Antwort #11 am:** 13.01.04 - 15:07:38 »

Zitat von: klaussal am 13.01.04 - 13:46:15

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 · « **Antwort #12 am:** 13.01.04 - 17:47:03 »

Zitat von: Tina am 13.01.04 - 15:01:12

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

Dann solltest du dir die erstmal besorgen!

Tina · « **Antwort #13 am:** 14.01.04 - 07:16:38 »

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

Werds wohl so versuchen müssen!

eknori · « **Antwort #14 am:** 14.01.04 - 07:25:45 »

schau mal hier rein:

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

Tina · « **Antwort #15 am:** 14.01.04 - 07:54:00 »

Danke!

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

klaussal · « **Antwort #16 am:** 14.01.04 - 08:34:38 »

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

Tina · « **Antwort #17 am:** 14.01.04 - 08:43:24 »

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 · « **Antwort #18 am:** 16.01.04 - 11:55:05 »

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 · « **Antwort #19 am:** 16.01.04 - 12:08:40 »

gut gemacht