doc.UniversalID = unid erstellt eine Kopie

[TMC]

Hi,

folgender Code

Sub Click(Source As Button)
   
   Dim uiws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument    
   Dim doc As NotesDocument
   Dim unid As String   
   Set uidoc = uiws.CurrentDocument
   Set doc = uidoc.Document    
   
   
   unid =    "123456789123456789123456789ABCDE"
'...set value of doc...
   doc.UniversalID = unid
   Call doc.save(False, False)   
End Sub

wird in einem Button ausgeführt wenn das Dok geöffnet ist.

Allerdings wird eine Kopie des Doks mit der neuen UNID erzeugt.
Ich möchte aber keine Kopie, sondern dass die UNID direkt geändert wird.

Meine Fragen:
1) Warum erzeugt das Script eine Kopie?
2) Wie kann ich das umgehen?

bye,
TMC

[koehlerbv]

Die Bedeutung der UNID und der gesamte Background dahinter ist Dir schon bewußt, oder ? Risken und Nebenwirkungen ebenso ?

Wenn Du mit der UNID spielst, sollte Dir auch vollkommen klar sein, warum das Dokument jetzt doppelt da ist.

Kopfschüttelnd,
Bernhard

[Glombi]

Hi,
Auszug aus der Designer Hilfe:
If you modify the UNID of an existing document, it becomes a new document.

Da kann man nix machen. Warum soll denn die UNID geändert werden?

Andreas

[TMC]

Hi Bernhard,

keine Sorge, ist nur ein Test meinerseits   Da bin ich schon ein Weichei und mache das nicht auf einer produktiven DB auf dem Server  

Wenn Du mit der UNID spielst, sollte Dir auch vollkommen klar sein, warum das Dokument jetzt doppelt da ist.

Eigentlich nicht ganz, wobei: Ich vermute mal weil ich das Doc im Frontend "behandle", d.h. da einfach die ID zu ändern wäre wohl extrem (bis hin zum Client-Absturz?), daher ist Notes so schlau und macht mir eine Kopie?

Na ja, nur eine Idee.

Wie würdest Du denn die UNID eines Doks ändern, komplett im Backend, ohne das Dok hervorzuholen?

Über Tipps bin ich dankbar

bye,
TMC

[TMC]

@Andreas:
den Passus in der Hilfe hab ich leider nicht gesehen (obwohl eigentlich genau geschaut?, hab extra nach Einschränkungen gesucht....).

However:
Ich will einem bestehenden Doc eine ID eines anderen Docs "drüberbügeln", um Doc-Links entsprechend umzubiegen, die etwa 20-30mal in einer DB vorkommen.
Das ganze ist kein Einzelfall sondern kommt öfters vor....

Notfalls kann ich mit einer Kopie natürlich auch leben, dann lösch ich dann einfach das andere Doc per Script.

TMC

[koehlerbv]

Hi, TMC,

das war ja eine erfrischende Antwort von Dir - bei der Frage hätte ich erstmal was anderes erwartet (auch dieses Forum ist leider nicht frei von Deppen, die dann erstmal hunderte Fragezeichen austeilen und ohne jede Ahnung irgendwelche Belehrungen).
Entschuldige bitte daher meinen "bösen Verdacht".

Wenn Du die UNID eines bestehenden Docs wechselst, dann erzeugt dies auf jeden Fall ein neues Doc beim Speichern - die UNIDs sind der "Kitt, der eine Notes-DB zusammenhält".
Sich eine neue ID auszudenken, ist (mehr als) kritisch. Wenn Du aber eine UNID eines bestehenden Docs übernehmen willst, dann hol' Dir diese, knall' das alte Doc weg und versehe dann das Doc mit der bestehenden ID.
Worüber ich mir jetzt aber nicht ganz im Klaren bin, ist das Replikationsverhalten: Welches Doc wird dann gelöscht / erzeugt / geupdated ?

Wegen "Weichei": Erstens Respekt, zweitens: Ich meß' auch lieber dreimal, bevor ich abschneide. "Kamikaze" verdient keinen Respekt, und wer mich wegen der zweiten Sicherheitskopie oder Test-DB anzählt, dem zeig' ich einen Vogel. Lieber eine "unnötige" Absicherung als die grosse Katastrophe.

Und wenn Du auf weitere Fragen stößt - sag' an ;-)

Farvel (das war dänisch ;-)
Bernhard

[TMC]

Hi Bernhard,

kommst Du aus Dänemark? Will ich nächstes Jahr mal für 2-3 Wochen hin....

Ich hab jedenfalls kein Problem wegen Deines "Verdachts" :-)
Und Nein: Du hast schon Recht, ohne Background-Know-how irgendwelche Hardcore-Geschichten zu machen, das sollte man sich vorher genau überlegen. (und dazu zähle ich auch die UNID-Sache, wie Du schön schreibst vom "Kit"...  

However: Ich teste das jetzt mal lokal, und dann die Tage auf einer Test-DB auf einem Testserver. In der Tat ist das Arbeiten mit Repliken dabei interessant.....

Melde mich wieder mit dem ersten Script.....

bye,
TMC

[koehlerbv]

Nein, ich komme (noch;-) nicht aus Dänemark, aber ich verbringe jeden Sommer den August dort (Sallingsund kommune).
Wenn Du Tipps braucht für einen geplanten DK-Urlaub, laß es mich (off-list) wissen ;-)
Siegsdorf (Chiemgauer Alpen) -> Sallingsund sind ca. 1.300 km - da muß man also wirklich dahin wollen ;-)

Sallinsunds "amtskommune" ist Viborg amt, und dann schau Dir mal die Website der "Hauptstadt" an: www.viborg.dk. Das *.nsf sagt uns doch was ;-)

Herzliche Grüsse- und meld' Dich auch wegen Deines UNID-Problems,
Bernhard

PS: Vi ses pa Sallingsund og pa Vesterhavet
PSS: Wobei ich mir jetzt doch nicht so sicher bin mit meinem "dänisch", aber ich geb mir Mühe ;-)

[TMC]

Vielleicht ist es schon zu spät für mich  

Jedenfalls stoße ich hier auf Object Variable not set:

Sub Click(Source As Button)
   
   Dim uiws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument    
   Dim db As NotesDatabase   
   Dim doc As NotesDocument
   Dim unid As String   
   Dim docZuErsetzen As NotesDocument   
   Set uidoc = uiws.CurrentDocument
   Set doc = uidoc.Document    
   'die UNID des freigegebenen Doc holen....   
   unid = uidoc.FieldGetText("IDAPPROVED")
   Messagebox unid, MB_OK, "Field Get Text"
   'jetzt mal das alte Doc herholen welches ich ersetzen will und dann wegwerfen - die UNID hab ich ja bereits :-)
   Set docZuErsetzen = db.GetDocumentByUNID( unid )
   Messagebox "Set doc zu Ersetzen", MB_OK, "Test"      
   docZuErsetzen.remove (True)
   Messagebox "Remove doc zu Erstetzen", MB_OK, "Test"         
   'und nun die ID setzen....
   doc.UniversalID = unid
   Messagebox "Setze ID", MB_OK, "Test"         
   Call doc.save(False, False)   
End Sub

Nach diversen Tests hat er bei folgender Zeile das "Variable not set" - Problem:
Set docZuErsetzen = db.GetDocumentByUNID( unid )

Aber warum nur? Ich übergebe die Variable (unid) wohl sauber als String. Also sollte er doch auch das Doc finden?
Oder ein Denkfehler?


TMC

[Thomas Schulte]

Irgendwie begreife ich die Logik die hinter dem Ganzen stecken soll nicht. Du willst ein neues Dokument an die Stelle eine bereits bestehenden Dokumentes setzen? Und dafür verbiegst du die Internen Mechanismen von Domino was die Vergabe von UNID's angeht?
Tschuldigung aber das ist doch von hinten durch das Knie in die Brust geschossen.

Warum kopierst du nicht einfach den Kontent des neuen Dokumentes in das alte Dokument nachdem der entsprechende Status erreicht wurde? Und löscht anschließend das neue Dokument!
Benefit 1: Die Change History geht nicht verloren
Benefit 2: Du bekommst keinen Ärger mit der Replikation, naja, zumindest nicht zuviel Ärger
Wenn du willst kannst du ja dann auch die entsprechenden Teile des neuen Dokumentes die sich geändert haben kopieren.

Thomas

[TMC]

@Thomas:
Na ja, wäre auch eine Möglichkeit.
Hat aber da dann u.U. die Problematik bei z.B. 5 Richttextfeldern, 17 Anhängen etc....

TMC

[Thomas Schulte]

Wo siehst du da ein Problem. Kopieren ist immer eins zu eins möglich. Wenn du also einen oder mehrere Feldwerte ersetzt dann ist das immer eins zu eins. Egal ob Anhänge, Richttext oder Schlüsselwortfelder.

Thomas

[koehlerbv]

Zur Fehlermeldung: Logischerweise hat das nix mit der UNID zu tun - Notes meckert ja eine nicht gesetzte Variable an.
1. Dir fehlt Option Declare - ein absolutes MUSS
2. Dann wäre auch gleich aufgefallen, daß "db" weder deklariert noch instantiiert wurde (falls da nix global gemacht wurde)

Ansonsten: Thomas' Vorschlag ist sicher die sauberste Lösung. Eine Schleife, um alle items zu löschen, eine CopyAllItems - und der Fisch ist geputzt.

Bernhard

[Glombi]

Der Code wird nicht das gewünschte liefern: Du löscht erst das Dokument und setzt dann die UniversalID neu. Dabei wird er wieder ein neues Dokument erstellen.

Ich kann mich den anderen nur anschließen: Besser wäre es, alle Items zu kopieren.

Andreas

[TMC]

ich dank Euch allen!

Werde es jetzt mit CopyAllItems machen, das klappt prima  

@Bernhard:

Eine Schleife, um alle items zu löschen,

Braucht's das wirklich, wenn ich den Parameter "true" verwende?

Zitat Designerhilfe:

replace
Boolean. If True, the items in the destination document are replaced.

Und das klappt bei mir auch prima. Oder hast Du da schlechte Erfahrungen gemacht?

TMC

[koehlerbv]

Das Rauswerfen aller bestehenden Items würde nur dem Zweck dienen, evtl. vorhandene und nicht mehr gewünschte Items zu entfernen - nicht mehr und nicht weniger.
Wenn das nicht erforderlich sein sollte, kannst Du es nach meiner Erfahrung durchaus auch weglassen, das "Replace" funktioniert schon.

HTH,
Bernhard

[TMC]

Stimmt, Bernhard :-) Hat auch mein Test so ergeben.

OK, nun zur Schleife.....


Set item = doc.GetFirstItem(".....")
......
Call doc.RemoveItem( "...." )

Er will ja unbedingt den Namen der Items, wie bringe ich Notes dazu, dass er mir alle rausschmeißt?

Hab bisher nur Schleifen mit DocCollections gemacht.....
Ich vermisse sowas wie
While not (Item is nothing)
Call doc.RemoveItem
Set item = collection.GetNextItem(doc)
Wend


TMC

[koehlerbv]

Schau mal in die NotesDocument.Items property. Darüber machst Du dann eine ForAll-Schleife - Du kannst das Beispiel der Designer-Help fast 1:1 übernehmen.

HTH,
Bernhard

PS: Aber wie schon gesagt: Items rausschmeissen nur wenn notwendig.

[TMC]

Forall i In doczuErsetzen.Items
        Call i.Remove
End Forall

danke, war ja wirklich easy  

Nun endlich ist es vollbracht und klappt 1a  

also merci nochmal an die Helfer, besonders Bernhard.

Da geb ich mal 'nen virtuellen Sekt aus: Y Y Y Y

Prost

TMC