ok würde es klappen, wenn ich ins Queryclose den Code rein pack, so dass er bei jedem Anlegen oder Ändern von einem Dokument läuft?
Er würde doch dann von jedem Client aus gestartet, oder?
ok würde es klappen, wenn ich ins Queryclose den Code rein pack, so dass er bei jedem Anlegen oder Ändern von einem Dokument läuft?
Er würde doch dann von jedem Client aus gestartet, oder?
Würde er schon, nur je nach Laufzeit des Agenten hast du dann halt entsprechende Wartezeiten beim Schliessen.
habs mal ins Querysave vom Dokument geschrieben.
Jetzt sagt er aber Type mismatch.
Er erstellt zwar die File auf dem Netzwerklaufwerk aber die ist leer.
muss ich wieder zurück zum UI Standart?
In welcher Zeile bringt er dir diesen Fehler ?
Benutz doch mal den Debugger
Set doc = view.GetFirstDocument
docCnt = 0
While Not (doc Is Nothing)
txt = ""
For colCnt = 0 To lastCol Step 1
[color=FF3333]txt = txt + doc.ColumnValues(colCnt)[/color]
If (colCnt <> lastCol) Then
txt = txt + Chr$(fldDelim)
End If
Next
Print #fileNum%, txt
docCnt = docCnt + 1
Set doc = view.GetNextDocument(doc)
Wend
Close fileNum%
Ans was sagt der debugger steht bei doc.ColumnValues(colCnt) drin ?
Eventuell ein Array oder ein Datetime oder irgendwas anderes wie reiner Text ?
über colcnt sagt er integer 1
und über doc.ColumnValues(1) ?
Also wenn ich den Code ins Initialize von der Maske pack dann geht es aller dings exportiert er dann nur die Dokumente die schon in der DB stehen.
Das Dokument was grad erstellt wird wird erst beim nächsten mal mit exportiert.
Man müsste denk ich im Querysave sagen, dass das Dokument auch mit exportiert werden soll.
Sinnvollerweise sogar ins PostSave, damit er die Dokumente erst nach dem Speichern des aktuellen exportiert
er gibt mir immer noch einen Type mismach in der zeile
txt = txt + doc.ColumnValues(colCnt)
hier nochmal der Code.
Sub Postsave(Source As Notesuidocument)
Const textfile$ = "\\Server\Nipson_versand\huhu.txt"
Const fldDelim% = 9 '
Dim session As NotesSession
Dim db As NotesDatabase
'Dim ws As New NotesUIWorkspace
'Dim uiview As NotesUIView
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 uiview = ws.CurrentView
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$(fldDelim)
End If
Next
Print #fileNum%, txt
docCnt = docCnt + 1
Set doc = view.GetNextDocument(doc)
Wend
Close fileNum%
End Sub
Hey
passt nicht
aber trotzdem danke
Hi,
Dann stellt sich dei Frage, was fuer Werte werden in der Spalte angezeigt?
Mehfachwerte getrennt anzeigen (neue Zeile)
In diesem Fall ist doc.ColumnValues(counter) ein Array, den Du auch als solchen behandeln musst.
Andreas
Also bei Mehrfachwerte getrennt anzeigen ist in keiner Spalte ein Häkchen.
hab es jetzt auf dem server hinterlegt passt so
danke für eure Hilfe