Domino 9 und frühere Versionen > ND7: Entwicklung

Feld über LS bearbeiten und Speicherstatus

<< < (2/5) > >>

klaussal:
So ganz verstehe ich das nicht (Montag)...

Warum nimmst Du nicht die Mimik mit getfirst &  next Document ?

Beispiel:

--- Code: ---Set doc = view.GetFirstDocument
While Not ( doc Is Nothing )
  If doc.LastModified < Today Then
    Call doc.Send( True, doc.Authors )
  End If
  Set doc = view.GetNextDocument( doc )
Wend
--- Ende Code ---

umi:

--- Code: ---Sub Initialize
Dim wert As String 
Dim s As New NotesSession
Dim db As NotesDatabase
Dim tmpdoc As NotesDocument
Dim doc As NotesDocument
                Dim strTextArray(0) As String
Dim v As NotesView

Set db = s.CurrentDatabase

strTextArray(0) = "0"

Set v = db.GetView("German\Unread")
set doc = v.getfirstdocument()
While Not (doc Is Nothing)
Call doc.ReplaceItemValue("Doc_Freigabe", strTextArray)
Call doc.Save(True,True)
Set doc = v.GetNextDocument(doc)
Wend

End Sub


--- Ende Code ---

umi:
Oder ganz ohne Loop

--- Code: ---
Sub Initialize
Dim wert As String 
Dim s As New NotesSession
Dim db As NotesDatabase
Dim tmpdoc As NotesDocument
Dim doc As NotesDocument
                Dim strTextArray(0) As String
Dim v As NotesView

Set db = s.CurrentDatabase

strTextArray(0) = "0"

Set v = db.GetView("German\Unread")
call v.allEntries.stampAll("Doc_Freigabe",strTextArray)
End Sub


--- Ende Code ---

Jörg:
Leider zeigen alle Scripte keine Funktion..
D.h. sie werden richtig durchlaufen (ohne Fehler) , aber
das Feld wird nicht verändert.

gRuß Jörg

klaussal:
Script soeben getestet: das läuft !!


--- Zitat ---aber das Feld wird nicht verändert.
--- Ende Zitat ---

Woran siehst Du das ?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete