Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Jörg am 17.11.05 - 15:27:43

Titel: Copying an Item
Beitrag von: Jörg am 17.11.05 - 15:27:43

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

Titel: Re: Copying an Item
Beitrag von: stitze am 17.11.05 - 15:31:27

Wie erscheint es denn?

Titel: Re: Copying an Item
Beitrag von: Jörg am 17.11.05 - 15:38:01

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


Gruss Jörg

Titel: Re: Copying an Item
Beitrag von: Driri am 17.11.05 - 15:38:42

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)

Titel: Re: Copying an Item
Beitrag von: Jörg am 17.11.05 - 15:47:00

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

Titel: Re: Copying an Item
Beitrag von: Driri am 17.11.05 - 15:48:42

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 ?

Titel: Re: Copying an Item
Beitrag von: Jörg am 17.11.05 - 16:10:53

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

Titel: Re: Copying an Item
Beitrag von: Driri am 17.11.05 - 16:36:01

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.

Titel: Re: Copying an Item
Beitrag von: Jörg am 17.11.05 - 16:38:51

Recht haste ja  ::)   :-[ , aber da kommt sonst
kein Fehler.

Titel: Re: Copying an Item
Beitrag von: Driri am 17.11.05 - 16:43:19

Werden denn doc und db korrekt befüllt ?

Titel: Re: Copying an Item
Beitrag von: koehlerbv am 18.11.05 - 00:44:16

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

Titel: Re: Copying an Item
Beitrag von: Jörg am 18.11.05 - 09:16:05

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

Titel: Re: Copying an Item
Beitrag von: Driri am 18.11.05 - 09:25:00

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.

Titel: Re: Copying an Item
Beitrag von: Jörg am 18.11.05 - 10:44:50

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

Titel: Re: Copying an Item
Beitrag von: Driri am 18.11.05 - 10:54:21

Dann wird wohl dies hier

@Contains(HIDE_KATEGORIE; "Regler")

nicht zutreffen.

Titel: Re: Copying an Item
Beitrag von: Jörg am 18.11.05 - 11:08:10

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

Titel: Re: Copying an Item
Beitrag von: klaussal am 18.11.05 - 11:46:02

Ja, da schlägt wohl wieder Klammersetzung zu.

Titel: Re: Copying an Item
Beitrag von: Jörg am 18.11.05 - 13:27:56

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

Titel: Re: Copying an Item
Beitrag von: Jörg am 24.11.05 - 15:21:40

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

Titel: Re: Copying an Item
Beitrag von: koehlerbv am 24.11.05 - 15:26:48

Meinst Du sowas ?

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

Titel: Re: Copying an Item
Beitrag von: Jörg am 24.11.05 - 15:34:07

Genau ....

Ich probiere es mal einzubinden...

Gruss Jörg

Titel: Re: Copying an Item
Beitrag von: Jörg am 24.11.05 - 16:10:10

Super klappt, Thank.

So sieht der Code nun aus

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)
	doc2.titel = "Copy: " & doc.titel (0)
	Call doc2.Save(True, False)
End Sub

Gruss Jörg