NotesItem mit Type Datum

[robertpp]

Mit diesem Befehl erstelle ich mir zb ein Authorenfeld mit dem Usernamen!
Dim item As New NotesItem(persdoc,"CreatedBy",s.UserName,AUTHORS)

Wie kann ich mir ein Datumsfeld erstellen?
Ich hab es mal so probiert:
Dim item As New NotesItem(doc,"ArchEndDate",Today)
aber da bekomme ich immer nur ein Textfeld!!

robertpp

[lrzwkle]

Servus,

probier es einmal mit

    notesItem.DateTimeValue = notesDateTime

fG Siegi

[enny]

probier es doch mal mit:

Set notesitem = notesdocument.ReplaceItemValue(itemName,Value)

MfG

Enny

[ata]

... es geht auch damit das Datum über NotesDateTime zu erzeugen und dann mit NotesDateTime.LSLocalTime dem Feld zuweisen...

ata

[robertpp]

Ich habs so probiert:

   Dim ws As New NotesUIWorkspace
   Dim item1 As NotesItem   
   Dim doc As NotesDocument
   Dim uidoc As NotesUIDocument
   Set uidoc=ws.CurrentDocument   
   Set doc= uidoc.Document   
   

      
      Dim dateTime As NotesDateTime
      
      If doc.Status(0)= "4.) finished" Then
         
         Set datetime= New NotesDateTime( doc.ArchEndTime(0) )
         Set item1 = doc.GetFirstItem("ArchEndTime")
         
         If Not Isdate (item1) Then
            Call item1.Remove
            Set dateItem =  New NotesItem ( doc, "ArchEndTime",Today)
            

            dateItem= dateTime.DateOnly
Hier hab ich aber einen Fehler!! Sicher falsch gemacht aber ich weiß nicht wie es richtig geht
            doc.ArchEndTime= dateItem
            Call doc.Save(True, False)
         End If
         
      End If

Aber der fettgedrucken Zeile wir dann aus dem Feld ArchEndTime Type 1024 (Datumsfeld) ein Textfeld (1280)
Ich möchte dann im Feld auch nicht das: "17.04.2003 00:00:00 CEDT" drinnen stehen haben sondern nur "17.04.2003".
robertpp

[ata]

dateItem= dateTime.DateOnly

... du weist einem Feld den String zu - das geht nicht - mach das raus

doc.ArchEndTime = dateItem.LSLocalTime

ata

[enny]

Wenn du New NotesItem  zum erzeugen verwendest kann leider nur ein Textfeld erzeugt werden! Hab das vorhin auch mal ausprobiert direkt den Typ sprich 1024 zu übergeben und dabei ist nämlich die Fehlermeldung gekommen das er nur mit dem Text umgehen kann. Probiers doch mal mit meiner Variante (siehe oben)

[robertpp]

Ich hab s jetzt so einfach gelöst jetzt passt es!

   Dim ws As New NotesUIWorkspace
   Dim item1 As NotesItem  
   Dim doc As NotesDocument
   Dim uidoc As NotesUIDocument
   Set uidoc=ws.CurrentDocument  
   Set doc= uidoc.Document  
   

     
      Dim dateTime As NotesDateTime
     
      If doc.Status(0)= "4.) finished" Then
         
         Set datetime= New NotesDateTime( doc.ArchEndTime(0) )
         Set item1 = doc.GetFirstItem("ArchEndTime")
         
         If Not Isdate (item1) Then
            Call item1.Remove
            Set dateItem =  New NotesItem ( doc, "ArchEndTime",datetime)
            Call doc.Save(True, False)
         End If
         
      End If
robertpp