Agent für Export

sperri1 · 20. Juni 2007

Hallo Leute,

ich habe einen Agent laufen, der eine View in eine txt-File exportiert.
Im Moment läuft er ohne Probleme nur wollte ich jetzt erreichen, dass nicht mehr alle Dokumente in der View exportiert werden sondern nur noch die Dokumente, die geändert wurden oder neu sind.
Ich hab das mit der Laufzieleinstellung im Agentmenü versucht, hat aber leider nicht funktioniert.

Habt ihr ne Idee wie es klappen könnte?

Dank euch

Der Agentscript sieht im Moment so aus:

Code

Sub Initialize
	Const textfile$ = "Speichertort der File"


	Const fldDelim% = 59 '
	Dim session As NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim doc As NotesDocument
	Dim lastCol As Integer
	Dim colCnt As Integer 
	Dim txt As String 
	Dim fileNum As Integer 
	Dim docCnt As Integer '

	Set session = New NotesSession
	Set db = session.CurrentDatabase
	Set view = db.GetView("all")
	Call view.Refresh  'Ansicht aktualisieren, damit der aktuellste Stand exportiert wird
	view.AutoUpdate = False   'damit keine eventuellen Aktualisierungen dazwischenfunken

	lastCol = Ubound(view.Columns)
	colCnt = 0
	txt = ""
	fileNum% = Freefile()

	If Dir$(textfile, 0) <> "" Then
		Kill textfile
	End If

	Open textfile For Output As fileNum%

	Set doc = view.GetFirstDocument
	docCnt = 0
	While Not (doc Is Nothing)
		txt = ""
		For colCnt = 0 To lastCol Step 1
			txt = txt + doc.ColumnValues(colCnt)
			If (colCnt <> lastCol) Then

				txt = txt + Chr$(59) 
				' Semikolon

			End If
		Next
		Print #fileNum%, txt
		docCnt = docCnt + 1
		Set doc = view.GetNextDocument(doc)	
	Wend
	Close fileNum%
End Sub

Alles anzeigen

taurec · 20. Juni 2007

Das musst du genau dann testen wenn du dir das Dokument zum Exportieren geholt hast

Diali · 20. Juni 2007

wenn Du einstellst, dass der Agent alle geänderten Dokumente verarbeiten soll, dann musst Du Dir mit NotesDatabase.UnprocessedDocuments eine NotesDocumentCollection holen.

Gruß
Dirk

sperri1 · 21. Juni 2007

Hey könnt ihr mir das vielleicht ein bissel genauer beschreiben steh da grad auf der leitung.
Muss ich da im script noch was einbauen oder ändern?

Dank euch

Diali · 21. Juni 2007

naja Du müsstest 2 Dinge ändern.

1. in den Eigenschaften des Agenten alle Dokumente, die seit dem letzten Lauf geändert wurden

2. im Script die besorgung der Dokumente (siehe oben)

als Alternative könntest Du auch nur das Script ändern und abfragen, wann der Agent zu letzt lief und dann nur die Dokumente bearbeiten, bei denen das Änderungsdatum neuer ist.

Gruß
Dirk

sperri1 · 16. August 2007

Hey Leute,

sorry das ich bis jetzt noch nicht geantwortet hab. Hab mich jetzt nochmal an die Funktion gesetzt und hab den Script angepasst.
Mit der Notes Collection habe ich bisher noch nicht gearbeitet. Könnte der folgende Script funktionieren oder seht ihr direkt einen Fehler? Hab das Agent Laufziel auf "alle neuen und geänderten Dokumente" gesetzt.

Vielen Dank

Chris

Code

Sub Initialize
	Const textfile$ = "/opt/lotus/local.......txt"

	Const fldDelim% = 59 '
	Dim session As NotesSession
	Dim db As NotesDatabase
	Dim collection As NotesDocumentCollection
	Dim dateTime As NotesDateTime
	Dim view As NotesView
	Dim doc As NotesDocument
	Dim lastCol As Integer
	Dim colCnt As Integer 
	Dim txt As String 
	Dim fileNum As Integer 
	Dim docCnt As Integer '

	Set session = New NotesSession
	Set db = session.CurrentDatabase
	Set collection = db.UnprocessedDocuments
	Set dateTime = New NotesDateTime( "Today" )
	Set view = db.GetView("all")
	Call view.Refresh  'Ansicht aktualisieren, damit der aktuellste Stand exportiert wird
	view.AutoUpdate = False   'damit keine eventuellen Aktualisierungen dazwischenfunken

	lastCol = Ubound(view.Columns)
	colCnt = 0
	txt = ""
	fileNum% = Freefile()

	If Dir$(textfile, 0) <> "" Then
		Kill textfile
	End If

	Open textfile For Output As fileNum%

	Set doc = collection.GetFirstDocument
	docCnt = 0
	While Not (doc Is Nothing)
		doc.Status = "Processed by agent on "_
		& dateTime.LocalTime
		txt = ""
		For colCnt = 0 To lastCol Step 1
			txt = txt + doc.ColumnValues(colCnt)
			If (colCnt <> lastCol) Then

				txt = txt + Chr$(59) 
				' Semikolon

			End If
		Next
		Print #fileNum%, txt
		docCnt = docCnt + 1
		Call session.UpdateProcessedDoc( doc )
		Set doc = collection.GetNextDocument(doc)

	Wend	
	Close fileNum%

End Sub

Alles anzeigen

Diali · 16. August 2007

warum Call session.UpdateProcessedDoc( doc )? mach doch ein Call collection.UpdateAll nach der While-Schleife ... ist performanter.

Fehler? Teste das Script, bau eine Fehlerbehandlung ein und nutze ggf. den Debugger.

Gruß
Dirk

sperri1 · 16. August 2007

ok super ich teste das mal und geb später bescheid

danke nochmal

sperri1 · 16. August 2007

Hey bekomme an der makierten Stelle die Meldung "Variant enthält keinen Container"

Habt ihr ne Idee wo das hängen könnte?

Dank euch

Code

Sub Initialize
	Const textfile$ = "C:\schertest\scher.txt"

	Const fldDelim% = 59 '
	Dim session As NotesSession
	Dim db As NotesDatabase
	Dim collection As NotesDocumentCollection
	Dim dateTime As NotesDateTime
	Dim view As NotesView
	Dim doc As NotesDocument
	Dim lastCol As Integer
	Dim colCnt As Integer 
	Dim txt As String 
	Dim fileNum As Integer 
	Dim docCnt As Integer '

	Set session = New NotesSession
	Set db = session.CurrentDatabase

	Set collection = db.UnprocessedDocuments
	Set dateTime = New NotesDateTime( "Today" )
	Set view = db.GetView("all")

	Call view.Refresh  'Ansicht aktualisieren, damit der aktuellste Stand exportiert wird
	view.AutoUpdate = False   'damit keine eventuellen Aktualisierungen dazwischenfunken

	lastCol = Ubound(view.Columns)
	colCnt = 0
	txt = ""
	fileNum% = Freefile()

	If Dir$(textfile, 0) <> "" Then
		Kill textfile
	End If

	Open textfile For Output As fileNum%

	Set doc = collection.GetFirstDocument
	docCnt = 0
	While Not (doc Is Nothing)
		doc.Status = "Processed by agent on "_
		& dateTime.LocalTime
		txt = ""
		For colCnt = 0 To lastCol Step 1
			[b][u]txt = txt + doc.ColumnValues(colCnt)[/u][/b]
			If (colCnt <> lastCol) Then

				txt = txt + Chr$(59) 
				' Semikolon

			End If
		Next
		Print #fileNum%, txt
		docCnt = docCnt + 1

		Set doc = collection.GetNextDocument(doc)

	Wend
	Call collection.UpdateAll 

	Close fileNum%

End Sub

Alles anzeigen

Diali · 16. August 2007

das Objekt doc ist nicht Nothing?
Das doc ist auch in der Ansicht?

Gruß
Dirk

RockWilder · 16. August 2007

Wenn er an die Stelle kommt, kann doc nicht Nothing sein (hab den Code mal in entsprechende Tags verpackt).
Das Problem ist eher, dass txt vom Typ String ist. Mit einem Variant sollte es tun.

Diali · 16. August 2007

oder mit einem &
txt = txt & doc.ColumnValues(colCnt)

Gruß
Dirk

sperri1 · 16. August 2007

hab beide Varianten probiert. Leider ohne Erfolg.

Mit einem & dazwischen und auch mit einem Variant bringt er noch den gleichen fehler.

RockWilder · 16. August 2007

Vllt. tut ein "doc.ColumnValues(colCnt)(0)" und sollte das immer noch nicht tun, dann ein Cstr() drum. Dann muss txt aber wieder ein String sein.

sperri1 · 16. August 2007

Wenn ich "doc.ColumnValues(colCnt)" mit (0) erweiter nimmt das notes nicht an. ein Cstr liefert den gleichen Fehler.

Ist vielleicht an der Grundstrucktur falsch?

taurec · 16. August 2007

Natürlich ist an deiner grundstruktur etwas falsch:

Ein NotesDocument hat niemals eine Eigenschaft ColumnValues, außer dein Dokument enthält ein Feld namens ColumnValues.

ColumnValues ist eine Eigenschaft eines NotesViewEntry.

Also entweder gehst du die NotesViewEntries durch oder aber du greifst über die Feldnamen auf die Inhalte zu

RockWilder · 17. August 2007

Ist das so? Sagt IBM aber anders.

Zitat

An array of values, each element of which corresponds to a column value in the document's parent view.

Code

Dim db As New NotesDatabase( server$, dbfile$ )
Set view = db.GetView( "Products" )
Set doc = view.GetFirstDocument   
While Not ( doc Is Nothing )         
 currentProduct = doc.ColumnValues( 0 )
Wend

(gekürzt aus dem Beispiel übernommen)

taurec · 17. August 2007

Hast du auch weitergelesen ?

Das funktioniert nur wenn du dir die Dokumente über eine Ansicht holst, nicht aber wenn du über UnprocessedDocuments gehst.
Deswegen ist die Grundstruktur hier falsch

sperri1 · 17. August 2007

Hallo also mein Dokument enthält kein Feld mit dem Namen ColumnValues.

Mein Grundproblem ist, dass ich mit dem Export nur Dokumente in eine txt-file exportieren möchte, die seit dem letzten Lauf des Agent erstellt oder geändert wurden. Der Agent läuft einmal am Tag.
Bist jetzt ist der agent ohne Probleme gelaufen, nur er hat halt alle Dokumente exportiert.

Und mir fehlt jetzt der ansatz, wie ich ihn ändern kann.
Die lösung mit UnprocessedDocuments sollte ja gehen oder gibt es noch eine bessere lösung?

dank euch schon mal

taurec · 17. August 2007

UnprocessedDocuments ist nicht das Problem, nur darfst du dann eben nicht auf ColumnValues zugreifen.

Auf welche Dokumente läuft denn der Agent: auf alle oder nur auf neue oder geänderte ?

Teilen