Feld über LS bearbeiten und Speicherstatus

[Jörg]

@ axel

die Definition des Optionsschaltfläche sieht so aus:

Doc_Freigabe|0
No_Doc_Freigabe|1

@all
Die Aktuallisierung des Feldes ist aktiv, aber  für die Ansicht konnte ich nichts finden.

@umi
Es ist ein Template

GRuß Jörg

[m3]

Jörg, wenn der Agent in dem ntf-File (der Schablone/Template) läuft, dann kann er die Dokumente nicht ändern, da sich diese in der Datenbank befinden (.nsf).

[umi]

1. Es gibt in LS einen Debugger
2. Evtl. mal  Errorhandling / Debug ausgaben einbauen

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) = "1"
	
	Set v = db.GetView("German\Unread")

                print db.server & " " & db.filepath
              
	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

[Jörg]

Ich habe den Fehler gefunden.....

Danke euch erstmal für aufopfernde Hilfe (super klasse)


Der Fehler lag in der Ansicht hier wurde auf ein falsches Feld selektiert und somit
konnte kein dokument gefunden werden.
Schnell abgeändert und nun läuft er alle div. Dokumente durch.


Tausend Dank Jörg