Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: robertpp am 17.04.03 - 09:46:32

Titel: NotesItem mit Type Datum
Beitrag von: robertpp am 17.04.03 - 09:46:32

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

Titel: Re:NotesItem mit Type Datum
Beitrag von: lrzwkle am 17.04.03 - 10:02:23

Servus,

probier es einmal mit

    notesItem.DateTimeValue = notesDateTime

fG Siegi

Titel: Re:NotesItem mit Type Datum
Beitrag von: enny am 17.04.03 - 10:35:30

probier es doch mal mit:

Set notesitem = notesdocument.ReplaceItemValue(itemName,Value)

MfG

Enny

Titel: Re:NotesItem mit Type Datum
Beitrag von: ata am 17.04.03 - 11:12:26

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

ata

Titel: Re:NotesItem mit Type Datum
Beitrag von: robertpp am 17.04.03 - 11:30:09

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

Titel: Re:NotesItem mit Type Datum
Beitrag von: ata am 17.04.03 - 11:56:47

dateItem= dateTime.DateOnly

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

doc.ArchEndTime = dateItem.LSLocalTime

ata

Titel: Re:NotesItem mit Type Datum
Beitrag von: enny am 17.04.03 - 12:00:04

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)

Titel: Re:NotesItem mit Type Datum
Beitrag von: robertpp am 17.04.03 - 12:12:06

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