Domino 9 und frühere Versionen > ND8: Entwicklung

Beim Speichern ein Feld in eine andere Maske/Dokument übertragen

<< < (2/2)

koehlerbv:
Und was heisst überhaupt "ohne Zeit"? Das ist Quatsch und das gibt es real gar nicht.
Zum Datumswechsel ist der Datumswert eine ganze Zahl, bis zum nächsten Datumswechsel wird das Datum durch reelle Zahlen dargestellt.

Bernhard

pram:

--- Zitat von: koehlerbv am 27.01.14 - 21:24:18 ---Und was heisst überhaupt "ohne Zeit"? Das ist Quatsch und das gibt es real gar nicht.

--- Ende Zitat ---
Jein. Ohne "Zeit" heißt m.E. "NotesDateTime.setAnyTime" und hat durchaus seine Berechtigung.

Denk z.B. mal an Fest/Feiertage. Es wäre ja blöd, wenn man den 31.12.2013 mit Zeitkomponente 00:00 Uhr abspeichert, da Notes in einer anderen Zeitzone dann den 30.12.2013/23:00 zurückgibt. (SetAnyTime entfernt auch die Zeitzone)

Oder an ganztägige Termine.
(wobei sich hier Notes auch eine Sonderlösung einfallen lassen hat, und diese von 04:00-20:00 Uhr anlegt, vermutlich weil die Zeitdifferenz von Ostküste zur Westküste der USA 4h beträgt)

Man muss sich halt immer Gedanken machen, was würde passieren, wenn ich den Zeitpunkt mit abspeichere und die Zeitzone ändere und dann entscheiden, was ist richtig(er)


Gruß
Roland

snore:
...ich hab's nun so gelöst:
Grund: Damit mein zweiter Agent w/ Hinweismails die Dokumente der Stammdaten mit diesem Datumsfeld älter 30 Tage ermitteln kann....


Sub Initialize
   Dim session As New NotesSession
   Dim uiws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim Key As String
   Dim Datum As New NotesDateTime(Today)
   Set db = session.CurrentDatabase
   Set view = db.GetView ("(Ansicht für Hinweismailversand)" )
   Set uidoc = uiws.CurrentDocument
   Key = uidoc.FieldGetText( "KontrolleFiliale" )
   Set doc = view.GetDocumentByKey (Key)
   
   Print {"START: Speichern des Kontrolldatums in der Datenbank...."}
   
   Print "Das heutige Datum ermitteln: " & Datum.DateOnly
   
   If Not (doc Is Nothing) Then
      Print "Filiale >> " & CStr(key) &_
      " << in der Suchansicht gefunden - Wert kann geschrieben werden"
   Else
      MessageBox "Achtung: Der Eintrag konnte nicht ordnungsgemäß" & Chr$ (10) &_
      "gespeichert werden, Bitte wenden Sie sich an ...."
      
      Print {"Logeintrag: Die Filiale konnte nicht aus den
      Stammdaten zugeordnet werden - das Datum wurde nicht gespeichert - ENDE"}
      GoTo p_ende
   End If
   
   Print "Das Datum als Text an das Stamm-Daten-Dokument übergeben ...."
   doc.DatumderletztenKontrolle =Datum.DateOnly

   Print "Das gewählte Dokument aktualisieren und den Datumswert als DATUM ohne Gänsefüsschen speichern"
      If doc.ComputeWithForm(True, True) Then
         Call doc.Save(True, False)
         Print "Datum erfolgreich aktualisiert - ENDE"
      Else
         Print "Fehler beim Aktualisieren des Stamm-Dokuments - ENDE"
      End If
p_ende:
End Sub


Gruß
snore

Navigation

[0] Themen-Index

[*] Vorherige Sete