Feld über LS bearbeiten und Speicherstatus

[Jörg]

Hallo,

ich habe in meinen Template nun eine neue Funktion hinzugefügt,das Feld möchte
ich nun ein Script in allen meinen Dokumenten setzen.

Um das Feld handelt es sich um ein Optionfeld, das vorher nicht
im Dokument vorhanden war.

Hier der Code:

Code

Sub Initialize
	Dim wert As String  
	Dim s As New NotesSession
	Dim db As NotesDatabase
	Dim tmpdoc As NotesDocument
	
	Set db = s.CurrentDatabase
	
	Dim strTextArray(0) As String
	strTextArray(0) = "0"
	Dim item As NotesItem
	
	Dim v As NotesView
	Set v = db.GetView("German\Unread")
	Dim doc As NotesDocument
	Set doc = v.GetLastDocument()
	Do While Not (doc Is Nothing)
		Set item =  doc.GetFirstItem( "Doc_freigabe" )
		item.IsAuthors = True
		Call doc.ReplaceItemValue("Doc_Freigabe", strTextArray)
		item.IsAuthors = False		
		Call doc.Save(True,True)		
		Set doc = v.GetLastDocument()
	Loop
End Sub

In einer Ansicht schaue ich nun nach ob das Feld geändert wurde, aber dies
ist nicht der fall. Ich frage mich nun warum??


Ein weiters Problem ist....  :
Da ich in der Datenbank nun aber ca. 2.8gb an Dokumenten habe ,
suche ich nach eine Möglichkeit, das bei der nächsten Replikation nur dieses
Feld geändert wird und nicht gleich die komplette DB als neu angesehen wird.


Gruß Jörg

[WernerMo]

Hallo

Da ich in der Datenbank nun aber ca. 2.8gb an Dokumenten habe ,
suche ich nach eine Möglichkeit, das bei der nächsten Replikation nur dieses
Feld geändert wird und nicht gleich die komplette DB als neu angesehen wird.

das macht doch die Replikation automatisch so, da sich nur das Feld (pro betroffenem Dokument) ändert, wird auch nur die Feldänderung repliziert. Also ist nur die Frage wie viele Dokument mit wieviel Feldinhalt betroffen sind.

Gruß Werner

[klaussal]

Code

Set item =  doc.GetFirstItem( "Doc_freigabe" )
		item.IsAuthors = True
		Call doc.ReplaceItemValue("Doc_Freigabe", strTextArray)
		item.IsAuthors = False		
		Call doc.Save(True,True)		
		Set doc = v.GetLastDocument()

Heisst das Feld jetzt Doc_freigabe oder Doc_Freigabe ?
Warum einmal IsAuthors = true und dann IsAuthors = False ?
Warum 2 x GetLastDocument ?

[Jörg]

@Werner

nun ja dann bin ja mal beruhigt, da es so ca. 1500 Dokumente sind... 

@Klauss

ein Problem vorher war , das ich das Feld nicht bearbeiten konnte da bei
Author des items false zu lesen war. DAher dachte ich mir so dann setzen wir
die Rechte und nach setzen ich sie wieder so wie es war.

Wenn ich im Script das letzte GetLastDocument entferne , dann
läuft das ganze in einer Endlos-Schleife.
Den Code-Teil hatte ich hier im Forum gefunden und dort wurde
dies als Lösung kundgetan.

Auch mit diesen Code bekomme ich nicht die gewünschte
Änderungen in den Dokumenten. D.h. meine Abfrage beliebt
leer.

Code

Sub Initialize
	Dim wert As String  
	Dim s As New NotesSession
	Dim db As NotesDatabase
	Dim tmpdoc As NotesDocument
	
	Set db = s.CurrentDatabase
	
	Dim strTextArray(0) As String
	strTextArray(0) = "0"
	Dim item As NotesItem
	
	Dim v As NotesView
	Set v = db.GetView("German\Unread")
	Dim doc As NotesDocument
	
	Do While Not (doc Is Nothing)
		Set item =  doc.GetFirstItem( "Doc_Freigabe" )
		item.IsAuthors = True
		Call doc.ReplaceItemValue("Doc_Freigabe", strTextArray)
		Call doc.Save(True,True)		
		Set doc = v.GetLastDocument()
	Loop
	
End Sub

GRuß Jörg

[m3]

Wie wärs mit GetNextDocument anstelle von GetLastDocument ?

[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

[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

[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

[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 !!

aber das Feld wird nicht verändert.

Woran siehst Du das ?

[umi]

Hast Du überhaupt die Rechte, das Dokument zu editieren?

[Jörg]

@ klauss

in den Eigenschaften des Dokumentes,
sowie ein einer Ansicht welche auf das Feld schaut.

@ umi
ich stehe im Feld Authors drin und habe die  Rechte dort
Änderungen vorzunehmen.

Komisch ist nur wenn ich das Dokument von Hand öffne
und gleich wieder schliesse dann werde ich sofort nach dem
Speichern gefragt obwohl ich nichts geändert habe.

Speicher ich dann , so ist das Dokument in der Ansicht da.

Jörg

[klaussal]

 
Jetzt bin auch mit meinem Latein am Ende....

[koehlerbv]

Aktueller Code wäre auch nicht schlecht. Ohne dem kann man gar nichts sagen.

Bernhard

[Jörg]

Morgen,

ein aktuelle Code kein Problem:

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")
	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

Kann dies aber auch an der Definition des Feldes liegen??
Der Wert welcher geändert werden soll ist eine Optionsschaltfläche.

Gruss Jörg

[Axel]

Versuch das Ganze mal so:

Sub Initialize

   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim v As NotesView
   
   Set db = s.CurrentDatabase
   
   Set v = db.GetView("German\Unread")
   Set doc = v.getfirstdocument()
   While Not (doc Is Nothing)
      doc.Doc_Freigabe = "1"
      Call doc.Save(True,True)      
      Set doc = v.GetNextDocument(doc)
   Wend
   
   
End Sub


Wie sieht denn die Definition deines Optionsfeldes genau aus, insbesondere Werte bzw. Werteformel.


Axel

[klaussal]

Die Haken bei "Felder bei.. aktualisieren" und "Auswahl bei ... aktualisieren" sind gesetzt ?

[Axel]

Die Haken bei "Felder bei.. aktualisieren" und "Auswahl bei ... aktualisieren" sind gesetzt ?

Das sollte aber in diesem Fall unerheblich sein, da das Setzen des Feldwertes im Backend passiert.


Axel

[klaussal]

Stimmt auch wieder.

[umi]

Läuft der Agent in der richtigen Datenbank? oder nur im Template?