Domino 9 und frühere Versionen > ND7: Entwicklung

Räume und Ressourcen Vorgabewert ändern

<< < (2/3) > >>

gossifu:
Wie hast Du denn Deinen Wert gesetzt?

Kjeld

bikerboy:
Also habe in das Feld StartDate den Vorgabewert :

@Adjust(@Today;0;0;1;0;0;0)

gesetzt und deinen Code für das Postopen genutzt.

gossifu:
Hallo,

ich ahbe jetzt, da die Maske Quickreservation nur für das erstellen benutz wird in das Postopen folgendes reingetan:
   
--- Code: ---   
   If (source.InPreviewPane) Then Exit Sub
   Call uiresdoc.PostOpen()


   Dim currentdate As NotesDateTime
   Set Currentdate = New NotesDateTime(Source.FieldGetText("StartDate"))
   Call currentDate.AdjustDay(1)
   Call Source.FieldSetText("StartDate", currentDate.DateOnly)
   Call Source.refresh


--- Ende Code ---
Ich habe zuerst nur auf das template geachtet und jetzt mit einer vollen DB probiert,
sollte klappen.

Kjeld

bikerboy:
Habe noch nen schöneren Ansatzpunkt gefunden.

Die Schaltfläche "Schnellreservierung" selbst



--- Code: --- Dim tomorow As New NotesDateTime(Cstr(Today))
Call tomorow.AdjustDay(1)

Set db = s.CurrentDatabase
Set siteView = db.GetView("($Sites)")
Set rrView = db.GetView("($RLookup)")

Dim newDoc As New NotesDocument(db)

errMsg1= "Sie müssen einen Standort sowie einen Raum bzw. eine Ressource erstellen, bevor Reservierungen erstellt werden können"
errMsg2 = "Sie müssen einen Raum bzw. eine Ressource erstellen, bevor Reservierungen erstellt werden können"

If siteView.Entrycount = 0 Then
Messagebox(errMsg1)
Elseif rrView.EntryCount = 0 Then
Messagebox(errMsg2)
Else
Set dbc = db.UnprocessedDocuments
If dbc.count = 1 Then

Set seldoc = dbc.GetFirstDocument
Call newDoc.ReplaceItemValue("Form", "QuickRes")

If selDoc.HasItem("ResourceName") Then Call newDoc.ReplaceItemValue("SelectedRR", selDoc.GetItemValue("ResourceName")(0))
If selDoc.HasItem("StartDateTime") Then Call newDoc.ReplaceItemValue("SDT", tomorow.DateOnly)
If selDoc.HasItem("EndDateTime") Then Call newDoc.ReplaceItemValue("EDT", selDoc.GetItemValue("EndDateTime")(0))
If selDoc.HasItem("$Ref") Then Call newDoc.ReplaceItemValue("$PreR7Repeat", "1")
If selDoc.HasItem("ResourceType") Then Call newDoc.ReplaceItemValue("ResourceType", selDoc.GetItemValue("ResourceType")(0))

Call ws.EditDocument(True, newDoc)
Else
Call newDoc.ReplaceItemValue("Form", "QuickRes")
Call newDoc.ReplaceItemValue("SDT",tomorow.DateOnly)
Call ws.EditDocument(True, newDoc)

End If
End If
--- Ende Code ---

gossifu:
Da hast du aber das Problem, dass, wenn Du auf einer bestehenden Reservierung in der Zukunft stehst, oder im Kalender auf einem Tag, trotzdem immer der morgige Tag genommen wird.
Ich hatte das eigentlich so verstanden, das immer ein Tag weiter genommen werden soll.
Wenn das aber nur für leere Dokumente zutreffen soll, dann muss das tomorrow.DateOnly bei if dbc.Count = 1 raus.
Weil Du sonst nie eine Quickreservation in der Zukunft erstellen kannst, sondern immer das Datum eintragen mußt.

Kjeld

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete