Copying an Item

[Jörg]

Hi Leute,

cih möchte gerne aus einer Action das geöffnete Dokument als kopie 1:1
in der Datenbank ablegen.
Hierzu nehme ich folgenden Code:

Code

Sub Click(Source As Button)
     Dim session As New NotesSession
     Dim workspace As New NotesUIWorkspace
     Dim db As NotesDatabase
     Dim uidoc As NotesUIDocument
     Dim doc As NotesDocument, doc2 As NotesDocument
     Set uidoc = workspace.CurrentDocument
     Set doc = uidoc.Document
     Set db = session.CurrentDatabase
     Set doc2 = New NotesDocument(db)
     Call doc.CopyAllItems(doc2)
     Call doc2.Save(True, False)
End Sub

Aber wenn die die Aktion ausführe erscheint mir nachher nicht das Dokument als Kopie.
Woran kann dies liegen?

Gruss Jörg

[stitze]

Wie erscheint es denn?

[Jörg]

Ich refreshe die Ansicht, aber das Dokument ist nciht zwei mal
vorhanden.


Gruss Jörg

[Driri]

Warum so kompliziert ? Benutz doch einfach die Methode CopyToDatabase der NotesDocument-Klasse.

Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set db = session.CurrentDatabase
Call doc.CopyToDatabase(db)

[Jörg]

Hi Ingo leider ohne Erfolg.
Ich bekomme keine Fehlermeldugn , aber das
Dokument wird nciht kopiert.


Kann es evt. daran liegen das ich dies bei einen
geöffneten Dokument mache.

Gruß Jörg

[Driri]

Das geöffnete Dokument ist aber kein neues, noch nicht gespeichertes Dokument, oder ?

Dann würde das nämlich in keinem Fall funktionieren, weil es kein Background-Dokument gibt.

Siehst Du denn was im Debugger ?

[Jörg]

Er hält bei folgenden Punkt immer an:

- Dim session As New NotesSession

Kann es sein , das er das bestehende Dokumetnevt. überschreibt??

Gruss Jörg

[Driri]

Sorry, aber kann es sein, daß Du noch nie mit dem Debugger gearbeitet hast ? 

Zumindest sieht die Zeile so völlig in Ordnung aus und kann mir jetzt nicht vorstellen, daß der Debugger da wirklich stehen bleibt Also mit einem Fehler.

Natürlich bleibt er da erstmal stehen, aber die weiteren Schritte muß man dann schon entweder einzeln ausführen oder das Script durchlaufen lassen.

[Jörg]

Recht haste ja      , aber da kommt sonst
kein Fehler.

[Driri]

Werden denn doc und db korrekt befüllt ?

[koehlerbv]

Sowohl der Code von Jörg als auch natürlich auch von Ingo sind korrekt, hierbei kann auch (in Hinsicht auf die Fragestellung) vernachlässigt werden, dass das Quelldokument u.U. noch nicht gespeichert ist.

Bei Jörg läuft definitiv irgendwas ganz anderes schief. Hat Jörg über die DB-Properties überhaupt schon geprüft, ob sich nach seinen Aktionen die Anzahl der Dokumente in der DB doch erhöht ? Wie sieht es mit den Rechten aus (okay, würde auch Fehlermeldungen erzeugen ...)?

Ich denke mal, dass Jörg da derzeit noch an einer sehr simplen und nicht schützenswerten DB hantiert. Das einfachste wäre dann wohl, wenn er diese DB mal hier zum Download bereitstellt. Dann würde hier jemand wohl sehr schnell den Denkfehler aufspüren.

Bernhard

[Jörg]

So wie es aussieht liegen hier einige Probleme vor , die ich
nicht lokalisieren kann, dennn auch von mir anglegte Dokumente sind
in einigen Ansichten nicht vorhanden, obwol ich sie angelegt habe.

Was müste ich den beachten wenn ich die DB jemanden poste???

GRuss Jörg

[Driri]

Mach doch mal folgendes :

Bau dir eine Ansicht, in der alle Dokumente angezeigt werden. Die kannst Du dann ja z.B. nach Erstelldatum sortieren. Dann müßtest Du die Dokumente zumindest dort irgendwie wiederfinden.

Wenn die dort zu finden sind, dann paßt vermutlich was in den SELECTs deiner anderen Ansichten nicht.

[Jörg]

In der Ansicht , in der mir die Diokumente Fehlern ist folgende
Ansichtsauswahl ausgewählt:

SELECT (@Contains(language; "deutsch")) & (@Contains(HIDE_KATEGORIE; "Regler")) | @AllDescendants


Die Ansicht , die mir die Dokumente aber anzeigt ist wie folgt definiert:

SELECT (@Contains(language; "deutsch")) & (@Contains(sub_kategorie; "Stange"))| @AllDescendants

In den Eigenschaften der Dokumente habe ich die entsprechenden Werte mal überprüft ,und
konte feststellen ,das diese korrekt gefüllt werden.

Auch in meiner TEST-Ansicht sind die Dokumente da.

Gruss Jörg

[Driri]

Dann wird wohl dies hier

@Contains(HIDE_KATEGORIE; "Regler")

nicht zutreffen.

[Jörg]

Auch wenn ich die Abfrage so ändere:

SELECT (@Contains(language; "deutsch")) & (@Contains(HIDE_KATEGORIE; "Regler")) & (@Contains(sub_kategorie; "Stange"))| @AllDescendants

erhalte ich die Dokumente nicht zur Ansicht.
Es bleibt sich hier auch egal ob ich das Feld "kategorie" an statt des Feldes "HIDE_KATEGORIE" verwende
,da es nur der Text der Kategorie ist.

Die Dokumente die mir nicht angezeigt werden gehören alle zur gleichen "HIDE_KATEGORIE"/"kategorie" und diese Felder
haben den gleich Inhalt.

In der Ansicht in der ich alle Dokumente sehe beinhaltet nur die Abfrage nach der Sprache:

SELECT (@Contains(language; "deutsch")) | @AllDescendants


Gruss Jörg

[klaussal]

Ja, da schlägt wohl wieder Klammersetzung zu.

[Jörg]

Hmm aber auch wenn ich die Klammern ändere bekomme ich nicht die
Dokumente angezeigt , die ich vermisse  .
Du hast recht, das hier sich die Ansicht je nach gesetzter Klammer ändert.
ICh werde nochmals auf die Suche gehen.

Gruss Jörg

[Jörg]

So der Fehler ist gefunden .....

In den Eigenschaften der Ansicht war die Funktion
"eindeutige Schlüssel" für ODBC angekreutz und somit wurde
nicht nach allen Dokumenten gesucht.

Auch das kopieren klappt nun , aber gibt es die Möglichkeit
den Text aus einen Feld mit z.b. "neu........" zu modifizieren??

Gruss Jörg

[koehlerbv]

Meinst Du sowas ?

NotesDocument.Feldname = "Neu: " & NotesDocument.Feldname (0)