Agent

[Dragon]

Hallo, wie würde ein Agend aussehen, der Dokumente von einer Datenbank in eine andere kopiert?
Das Feld würde anders heißen, der Dokumentenname aber gleich bleiben.
Die Dokumente sind schon angelegt.

Danke

[klaussal]

Die Dokumente sind schon angelegt.

Wofür dann noch einen Agenten ?

klaus

[animate]

Der Agent würde über alle gewünschten Dokumente in der Quelldatenbank laufen. Er würde jedes Dokument in die Zieldatenbank kopieren und so ein neues Dokument in der Zieldatenbank erstellen. In jedem neuen Dokument würde er ein neues Feld anlegen und dort den Inhalt des alten Felds eintragen. Dann würde er das alte Feld löschen und das Dokument speichern.

Zumindest würde ich das tun wenn ich ein Agent wäre.

[Semeaphoros]

..... und den Agenten würde man in Würde "würde" nennen ........ 



Klar, dieser Sprachstil, der so zu Thomas nicht passt, ist schon durch die schwammige Fragestellung des Fragestellers provoziert. Würde man mehr über die wirkliche Aufgabe wissen, würde man einen konziseren Vorschlag machen .....

[klaussal]

... und deshalb bin ich auch nicht näher darauf eingegangen...

klaus

[animate]

Zur Klarstellung:
mein Vorschlag ist ernst gemeint, weil ich denke, dass ich verstehe, was Dragon vorhat. Und er beschreibt in meinen Augen auch präzise, was Dragon bzw. sein Agent machen muss, um sein Ziel zu erreichen. Mein Schreibstil (der übrigens gut zu mir passt) ist nicht durch eine schwammige Fragestellung provoziert, sondern durch den Konjunktiv II, den Dragon verwendet hat.

[Christopher]

Dieses Script kopiert nur die Dokumente die man Anschließend in der Ziel unter "alle Dokumente" wieder findet. Ordner werden erst mal nicht berücksichtigt. Evtl. folgt eine Fortsetzung, wenn ich mal die Zeit finde.

Sub Initialize
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As Notesdocument
Dim collection As NotesDocumentCollection
Dim files As Variant

Set session = New notessession
Set db=session.currentdatabase
Set collection=db.UnprocessedDocuments


files = workspace.OpenFileDialog(False, "Bitte wählen Sie die Archiv Datenbank aus",, "C:\")


Dim db2 As New NotesDatabase ("", files(0))

If Not db2.isopen Then
Msgbox "Die Archiv-DB läßt sich nicht öffnen!"
Exit Sub
End If


docCount = collection.count
current = 0
Print Cstr(Round(current / docCount * 100, 0)) + "% kopiert"

For i=1 To collection.count
current = current + 1
Set doc=collection.GetNthDocument (i)
Call doc.CopyToDatabase( db2 )
Print "Dokument " + i + " wird nach " + files(0) +" kopiert!"
Call doc.Remove(True)
Print "Dokument " + i + " wurde in Quell Datenbank gelöscht!"
Print Cstr(Round(current / docCount * 100, 0)) + "% kopiert"
Next i
Messagebox "Fertig !!!" & Chr(13) & "s. Statusleiste"
End Sub 

[Semeaphoros]

Thomas: Der Konjunktiv bezeichnet inhärent eine diffuse Situation (ohne da jetzt näher drauf einzugehen, die Sache ist derart komplex, dass es 2 Seiten problemlos füllen würde). Ausserdem: Du verstehst, was Dragon meint, er sagt aber, die Dokumente existieren bereits, Du legst aber neue Dokumente an ---> Widerspruch ......

[Glombi]

@Dragon:
Hallo, wie würde ein Agend aussehen, der Dokumente von einer Datenbank in eine andere kopiert?
>>> Script oder Formelsprache oder egal

Das Feld würde anders heißen, der Dokumentenname aber gleich bleiben.
>>> Was ist denn ein Dokumentname? Der Name der Maske? Ist dann Dokument = Maske ?

Die Dokumente sind schon angelegt.
>>> Falls Dokument = Maske: Meinst Du die Maske gibt es schon?

Ich würde an Deiner Stelle mal etwas präzisere Informationen geben.

Andreas

[Dragon]

Hallo,
danke schon einmal für die Hilfe.
Die Dokumente wurden als "Dummy" Dokumente angelegt. Das heißt, es wäre keine Sache, wenn diese neu angelegt werden würden. Es besteht das Problem, dass in den Dokumenten jeweils Anhänge in ein Rich-Text Feld eingefügt sind.
Werden diese mitkopiert?
Noch eine Frage. In der Datenbank gibt es viele unterkategorien. Kann man jeweils die einzelnen Unterkategorien festlegen, in die die Dokumente exportiert werden, oder werden alle Dokumente verschoben und dann nachträglich in die Kategorien manuell verschoben?

Danke nochmal, Dragon

[klaussal]

Wenn alle Dokumente kopiert werden, dann werden natürlich auch alle Felder mitkopiert.
Die Kategorie befindet sich ja wohl in einem Feld der Maske. Beim reinen Koperen ändert sich da also nix.
Dafür müsste der Agent die neuen Dokumente erstellen und neue Kategorien vergeben.

klaus

PS: Könnte es sein, dass du von LoNo nur ein rudimentäres Grundwissen besitzt ? Wenn ja, dann heuere einen Externen an oder
erarbeite dir erst einaml die Grundlagen.