Domino 9 und frühere Versionen > Entwicklung

Problem mit Datumsüberprüfung vorm Speichern

<< < (5/6) > >>

Tina:
Danke! Werd mal schauen, ob ich das auch noch für mehrere Tage hinbekomme!

Tina:
Hallöchen!

Jetzt hänge ich bei dem Problem mit Buchungen über mehrere Tage fest!  :'(
Könnt ihr mir vielleicht helfen?  ???

Tina:
Habs mal so versucht, aber es klappt nicht.  :'( Hab ich da irgendwo nen Denkfehler drin  ??? ??? ??? ???
Dies Stück steht im ELSE-Teil einer IF-Abfrage:

'Reservierung über mehrere Tage
    temp = Source.fieldgettext("rpRaum")
    temp2 =  Source.fieldgettext("rpBuchDatum")
    temp3 = Source.fieldgettext("rpBuchDatumBis")   
    searchFormula$ = "Form = ""rpfrmBuchung"" & rpRaum= """& temp &""" & rpBuchDatum >= """ & temp2 & """ & rpBuchDatum <= """ & temp3 & """ | rpBuchDatumBis >= """ & temp2 & """ & rpBuchDatumBis <= """ & temp3 & """"

   Set dc = db.Search(searchFormula$,dateTime,0)   
   Do      
     Set dctemp = db.Search(searchFormula$,dateTime,0)
     Set aktdoc = dctemp.getfirstdocument      
     If aktdoc Is Nothing Then
   Exit Do
     End If
     Call dc.addDocument(aktdoc)
   Loop   
'Ü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 Zeitraum an mindestens einem Tag bereits reserviert."
      Continue = False  'Verhindert das Speichern
   End If
    End If

klaussal:
@tina,

häng doch mal die db ran. dann geht's leichter  ;)

Tina:
Kann ich nicht! Geht hier leider nicht sorry! Kann ich sonst irgendwas machen??

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete