Domino 9 und frühere Versionen > ND7: Entwicklung

Wochenende ausschließen

<< < (3/4) > >>

Lurchi:
Sodele, wir haben es nun geschaft. Hier das Ergebnis:

----------------------------------------
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
   Dim doc As NotesDocument
   Set doc = Source.Document
   
   Dim item As NotesItem
   Set item = doc.GetFirstItem( "Datum" )
   
   Dim x As Variant
   Dim wochentag As Integer
   
   
   x = Datenumber (Year(Today), Month(Today), Day(Today))
   wochentag = Weekday(x)
   
   
   
   Dim DatumEssen As NotesDateTime
   Set DatumEssen = item.DateTimeValue
   
   DatumEssen.LocalTime = DatumEssen.LocalTime + " 13:00:00"
   
   Dim AktuelleZeit As New NotesDateTime( "" )
   Call AktuelleZeit.SetNow
   
   Dim DifferenzSekunden As Long
   DifferenzSekunden = DatumEssen.TimeDifference( AktuelleZeit )
   
   Msgbox (wochentag)
   
   Select Case wochentag
   Case 6 To 7
      
      If DifferenzSekunden < 259200 Then
         Msgbox "Bestellungen für nächsten Montag sind nur bis Freitag 13:00 Uhr möglich." , 48, "Firma"
         Continue = False
      End If
   Case Else
      If DifferenzSekunden < 86400 Then
         Msgbox "Bestellungen sind nur bis 13 Uhr des Vortags möglich." , 48, "Firma"
         Continue = False
      End If
      
   End Select
   
End Sub

----------------------------------------


@ ALL
Wir bedanken uns für alle Antworten. Ihr wart uns eine große Hilfe!!!!


@ LN4ever:
Viele Grüße vom Ralf


Besonderen Dank geht an cebolina, der uns telefonisch tatkräftig unterstützt hat.


Schönen Tag noch,
der Lurchi

koehlerbv:
Wenn ich Freitags die Bestellung vergessen habe, mache ich es dann eben am Sonntag  ;D

LN4ever:
Hallo Ralf,

in dem jetzigen Konstrukt kann man Freitagmittag bis Samstag-Mittag das Essen für Dienstag bestellen, Samstag nach 13 Uhr dann aber nur noch für Mittwoch, dafür aber am Sonntag bis 13 Uhr wieder direkt für Montag.

Naja - und leise trollt sich Hopps, der Frosch vom Kampffeld der Essensvorbestellung bei Lurchi.

Gruß

Norbert

Lurchi:
@if (
           firma = sonntags geschlossen;
           "keine bestellung möglich";
             "")



 ;D ;D ;D ;D ;D ;D ;D ;D


Bei uns arbeitet keiner sonntags!

Nachtrag:

Samstags auch !  O0

klaussal:

--- Zitat ---Bei uns arbeitet keiner sonntags!
--- Ende Zitat ---

Noch nicht....

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete