Liste mit Datum speichern

[Hatschi]

Guten Morgen,

ich habe ein Dokument das versendet wird. Jedesmal wenn es versendet wird, soll der Zeitpunkt vermerkt werden. Die Sendetermine sollen in einem Mehrfachfeld Datum/Zeitwert abgespeichert werden.

Mit folgendem Code bekomme ich das nicht hin, weil er beim zweiten Aufruf die Fehlermeldung "NotesItem cannot be set to an array of mixed data types" bringt.

Sub SendeterminMerken (Doc As notesdocument)
   Dim jetzt As NotesDateTime
   Dim item As notesitem
   Dim termine As Variant
   
   Set jetzt =New notesdatetime("")
   Call jetzt.setnow ()
   
   If doc.HasItem("WVGesendetAm") Then
      'ein weiteres Sendedatum an die Liste anhängen
      termine=doc.WVGesendetAm
      Redim Preserve termine (Ubound(termine) +1) As Variant
      Set termine(Ubound(termine))=jetzt
      Call doc.Replaceitemvalue( "WVGesendetAm", termine)            
   Else
      'Das Item gab es noch nicht, deshalb anlegen
      Redim Termine (0) As notesdatetime
      Set Termine(0)=jetzt
      Set item=New notesitem(doc, "WVGesendetAm", termine)
   End If
End Sub


Einen Screenshot aus dem Debugger habe ich beigefügt. Dort sieht man das beim zweiten Aufruf die Inhalte des Arrays nicht vom gleichen Typ sind. Das Array scheint sich nicht daran zu stören, das Item schon. Hat jemand eine Idee wie man das lösen kann, ohne das Sendedatum in Text zu wandeln?

Vielen Dank,

Bernd

[ascabg]

Hallo,

Versuchs doch mal mit jetzt.localtime.

Du kannst nicht dein "gesamtes" Objekt vom Type "NotesDateTime" als Array-Item einfuegen.


Andreas

[DerAndre]

Such auch mal nach History.

[Hatschi]

Hallo Andreas,

wenn ich localtime verwende, dann ist es ja kein Notesdatetime mehr, sondern ein String. Dann könnte ich auch mit Appendtotextlist arbeiten. Ich wollte die Liste aber als Notesdatetime für spätere Verwendung führen.

Du kannst nicht dein "gesamtes" Objekt vom Type "NotesDateTime" als Array-Item einfuegen.

Die Hilfe zu Replaceitemvalue habe ich aber so verstanden, dass man auch ein Array of Date zuweisen kann. Und das meine ich in dem Variant Termine zusammengebaut zu haben.

Bernd

[ascabg]

Die Hilfe zu Replaceitemvalue habe ich aber so verstanden, dass man auch ein Array of Date zuweisen kann. Und das meine ich in dem Variant Termine zusammengebaut zu haben.

Nein, kannst Du nicht.
Und ein "Objekt" der Klasse "NotesDateTime" beinhaltet ja nun nicht nur Datums- und Zeitwerte, sondern auch (siehe Dein Screenshot) Werte vom Type Variant, Integer.

Desweiteren hast Willst Du in diesem Fall ja nicht einen "eindimensionalen" Array (hierauf bezieht sich die Hilfe) in das Feld schreiben, sondern einen mindestens "zweidimensionalen" Array.

Andreas

[Hatschi]

Hallo André,

Such auch mal nach History.

In einer History-Library habe ich einmal reingeschaut, aber die haben auch alles als Text gespeichert und nicht als Notes/Datetime.

Bernd

[ascabg]

Noch eine Verstaendnisfrage.

Warum muessen es denn unbedingt Datums- und Zeitwerte sein?


Andreas

[MadMetzger]

Weil man Datentypen mit dem richtigen Datentyp speichern sollte und nicht ein Datum als Text abspeichern sollte.

[Hatschi]

Warum muessen es denn unbedingt Datums- und Zeitwerte sein?

Auslöser ist das ich ungern hin- und herkonvertiere. Im Moment wurmt mich das jetzt aber eher weil ich eine scheinbar einfache Sache nicht hinbekomme.

Vielleicht ist aber dein Hinweis mit dem mehrdimensionalen Array ein Ansatz. Muß ich das vielleicht anders deklarieren, bzw. Redimen?
Das schaue ich mir noch einmal im Debugger an.

Bernd

[ascabg]

Weil man Datentypen mit dem richtigen Datentyp speichern sollte und nicht ein Datum als Text abspeichern sollte.

Schon richtig.

Nur um eine History zu haben, wer hat wann was geaendert, ist es aus meiner Sicht absolut nebensaechlich, ob das Datum nun als Datum oder als Text abgespeichert wird.


Andreas

[Hatschi]

Hallo Andreas,

ja, du hast Recht für eine Protokollfunktion würde Text auch reichen. Aber wer weiss für was das Feld noch benötigt wird.
Und wie eben schon angedeutet, möchte ich jetzt ums Prinzip wissen wo der Fehler liegt, bzw. wie ich Notes dazu bewegen kann eine Liste mit Datum in einem Item zu speichern.

Bernd

[ascabg]

Kurz und buendig.

Du moechtest in Deinem Beispiel nicht einen einzelnen Datumswert speichern, sondern eine gesamte Instanz einer Klasse eines NotesObjektes (mit all seinen Properties).

Und das geht nun mal nicht.


Andreas

[DerAndre]

Notes.net

Es scheint lustiger zu sein als man glaubt...

A-Bär
Klappt das bei Dir?

[Hatschi]

Hallo André,

ist ja toll was für Wiedersprüche du dort ausgegraben hast. Danke dafür!


Deinem unteren Link bin ich gefolgt, und der dort gepostete Code unterscheidet sich eigentlich nur in der Weise wie das Array erweitert wird von meinem. (Der Befehl Arrayappend war mir bisher nicht bekannt!)
Trotzdem habe ich es ausprobiert, und es wird die gleiche Fehlermeldung ausgegeben wie bei meinem Versuch.

Sub SendeterminMerken (Doc As notesdocument)
   Dim jetzt As NotesDateTime
   Dim termine As Variant
   Dim dings As Variant
   
   Set jetzt =New notesdatetime("")
   Call jetzt.setnow ()
   
   termine = doc.GetItemValue ("WVGesendetAm")
   If Isdate(termine(0)) Then
      dings = Arrayappend(termine, jetzt)
   Else
      Set dings = jetzt
   End If
   doc.ReplaceItemValue "WVGesendetAm", dings
   Exit Sub


Warum das in dem Post funktioniert hat frage ich mich allerdings auch.


Bernd

[ascabg]

Code

Dim doc As NotesDocument
Dim dtNew As New NotesDateTime("")
Dim varOld As Variant, varNew As Variant

Set doc = Source.Document
Call dtNew.SetNow

varOld = doc.GetItemValue("DateList")
varNew = Fulltrim(Arrayappend(varOld, dtNew.LSLocalTime))

Call doc.ReplaceItemValue("DateList", varNew)

Also dieser Code (aus einem QuerySave einer Maske) macht bei mir genau das, was Du (nach meinem Verstaendnis) erreichen moechtest.


Andreas

[Hatschi]

Hallo André,

du hast recht. Dein Code macht genau das was ich will. Vielen Dank für deine Geduld.

Warum ich da jetzt so herumgeirrt bin, kann ich ich vor lauter probiererei nicht mehr nachvollziehen. Denn mit dem LSLocalTime habe ich ja auch versucht zum Ziel zu kommen.

Auf jeden Fall habt ihr mir geholfen. Mein Problem ist gelöst und ich habe noch den "neuen" Befehl ArrayAppend kennengelernt.

Bernd


P.S: Wie wird das Thema auf erledigt gesetzt?

[ascabg]

Ich glaube, in dem Du Deinen 1. Post nochmal oeffnest. Hier muesste das einstellbar sein.


Andreas

P.S.:
Schade, dass ich die Lorbeeren nun doch nicht bekomme 

[Hatschi]

Ohhhh Entschuldigung Andreas (ascabg),

ich habe Dein Codebespiel als funktionierende Vorlage genommen!

Code

Dim doc As NotesDocument
Dim dtNew As New NotesDateTime("")
Dim varOld As Variant, varNew As Variant

Set doc = Source.Document
Call dtNew.SetNow

varOld = doc.GetItemValue("DateList")
varNew = Fulltrim(Arrayappend(varOld, dtNew.LSLocalTime))

Call doc.ReplaceItemValue("DateList", varNew)

Demnach gehören die Lorbeeren natürlich dir!
Nochmals vielen Dank.

Bernd

[koehlerbv]

Warum das ganze so verkompliziert?

doc.DateList = Fulltrim (Arrayappend (doc.DateList, Now))

Bernhard

[Hatschi]

Hallo Bernhard,

auf die Idee das so einfach zusammenzufassen bin ich noch nicht gekommen. 


Bernd