Hallo Leute,
bin das ganze jetzt so angegangen, dass ich mir eine ExportView erstellt habe, wo nur die Dokumente angezeigt werden, die an einem Tag neu erstellt oder geändert wurden.
Ich lasse dann um 23:59 Uhr den Agent laufen. So das für jeden Tag nur die Dokumente exportiert werden, die an diesem auch bearbeitet wurden. Bin jetzt noch am testen ob es so ohne probleme läuft.
Sollte aber passen.
So scheut es aus also in diesem sinne schönes we an alle.
Gruß christian
dank euch schonmal für die tolle mithilfe!
ich versuch mal euere vorschläge umzusetzen und schau mal was bei rauskommt.
ich würde euch am montag bescheid geben.
dank nochmal
der agent hat das laufziel nur geänderte oder neue dokumente anzufassen.
nur diese sollen exportiert werden.
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
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?
hab beide Varianten probiert. Leider ohne Erfolg.
Mit einem & dazwischen und auch mit einem Variant bringt er noch den gleichen fehler.
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
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 Subok super ich teste das mal und geb später bescheid
danke nochmal
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
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 SubHey 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
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:
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 SubDanke Jungs hat geklappt hab es mit der @Command( [ViewRefreshFields] ) Funktion gelöst.
Hey Leute,
wie kann ich denn ein Dokument, das ich aktuell bearbeite mit einem Button aktualisieren? Mit @Command( [ToolsRefreshDoc] ) klappt es nicht.
Hab ihr eine Idee?
Gruß Christian
Hallo Leute,
ich hab grad folgendes Problem. Ich hab zwei verschiedene Masken, "Test1" und "Test2".
In der Maske "Test1" können Profile erstellt werden, dort gibt es ein Feld "Urlaubsanspruch".
In der Maske "Test2" soll jetzt das Feld "Urlaubsanspruch" mit den Daten aus Maske "Test2" gefüllt werden, in Abhängigkeit vom Namen.
Weiß jetzt nicht wie ich das am Besten angehen kann.
Könnt ihr mir dabei helfen?
Vielen Dank
Gruß Christian
Hi ich hab mit folgenden Script gelöst:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim replica As NotesDatabase
Dim db As New NotesDatabase( "mein server", "directory" )
Set replica = db.CreateReplica( "", "directory_lokal.nsf" )
Messagebox _
( "The replication is ready." )
End Sub
Hallo,
ich hab vor in eine Email einen Button einzubinden, der eine lokale Replikation vom Notes Directory herstellt.
Mir fehlt leider im Moment der Ansatz, wie ich das machen könnte.
Hab ihr vielleicht eine Idee?
Dank euch
Gruß Chris
Super Danke hat funktioniert.
super geht danke!!
Noch eine Frage vielleicht, wisst ihr vielleicht, was ich ändern müsste um nur die Dokumente zu exportieren, die auch ausgewählt sind?
Dank euch
ok ich probiers mal