Autor Thema: Feld über LS bearbeiten und Speicherstatus  (Gelesen 6009 mal)

Offline Jörg

  • Aktives Mitglied
  • ***
  • Beiträge: 175
Re: Feld über LS bearbeiten und Speicherstatus
« Antwort #20 am: 20.11.07 - 08:58:02 »
@ 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

Offline m3

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.102
  • Geschlecht: Männlich
  • Non ex transverso sed deorsum!
    • leyrers online pamphlet
Re: Feld über LS bearbeiten und Speicherstatus
« Antwort #21 am: 20.11.07 - 09:00:24 »
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).
HTH
m³ aka. Martin -- leyrers online pamphlet | LEYON - All things Lotus (IBM Collaborations Solutions)

All programs evolve until they can send email.
Except Microsoft Exchange.
    - Memorable Quotes from Alt.Sysadmin.Recovery

"Lotus Notes ist wie ein Badezimmer, geht ohne Kacheln, aber nicht so gut." -- Peter Klett

"If there isn't at least a handful of solutions for any given problem, it isn't IBM"™ - @notessensai

Offline umi

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.062
  • Geschlecht: Männlich
  • one notes to rule'em all, one notes to find'em....
    • Belsoft AG
Re: Feld über LS bearbeiten und Speicherstatus
« Antwort #22 am: 20.11.07 - 09:04:04 »
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
Gruss

Urs

<:~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Jegliche Schreibfehler sind unpeabischigt
http://www.belsoft.ch
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~:>

Offline Jörg

  • Aktives Mitglied
  • ***
  • Beiträge: 175
Re: Feld über LS bearbeiten und Speicherstatus
« Antwort #23 am: 20.11.07 - 10:21:58 »
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

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz