Wert eines Autorenfeldes übernehmen

[hmarco]

Hallo,

ich habe ein Problem:

Ich habe ein Hauptdokument, in dem ein Autorenfeld names "Kundenbetreuer" existiert. Die Werte dieses Feldes sollen, wenn eine Antwort dieses Hauptdokumentes angezeigt werden soll, in das Autorenfeld "Systemtechniker" übernommen werden.

Noch eine zusätzliche Frage, kann man mehrere Autorenfelder in einem Dokument anlegen, die zusammengenommen sich als ein Autorenfeld darstellen?

Wäre für jede Hilfe dankbar.

Mfg Marco

[Axel]

Hi

Die Werte dieses Feldes sollen, wenn eine Antwort dieses Hauptdokumentes angezeigt werden soll, in das Autorenfeld "Systemtechniker" übernommen werden.

Ist hier anzeigen oder erstellen gemeint ? Kannst du das mal ein bisschen näher erklären ?

Noch eine zusätzliche Frage, kann man mehrere Autorenfelder in einem Dokument anlegen, die zusammengenommen sich als ein Autorenfeld darstellen?

Ja das geht.

Axel

[hmarco]

Jo hi,

ich habe ein paar Antworten auf das Haptdokument erstellt,
nun sollen alle Personen, die im Autorenfeld "Kundenbetreuer" stehen, Autorenzugriff auf das Antwortwortdokument bekommen.

Ob derjenige zu den Autoren gehört,  soll sich beim Anzeigen des Dokumentes entscheiden werden, indem beim Anzeigen des Antwortdokumentes, die Werte des Autorenfeldes des Hauptdokuments in das Autorenfeld "Kundenbetreuer" des Antwortdokumentes kopiert wird.

Ich hoffe meine Erklärung ist einigermaßen verständlich.  

Mfg Marco

[ata]

... sorry, geht das nochmal einfacher formuliert...

ata

[Axel]

Hi,

mir fällt da nur der folgende Weg ein:

Im QueryOpen-Event des Antwortdokuments müsste folgender Code rein:

Dim doc As NotesDocument
Dim parentdoc As NotesDocument

If Not Source.IsNewDoc Then
  Set doc = Source.Document  'aktuelles Antwortdokument
  Set parentdoc = db.GetDocumentByUNID(doc.ParentDocumentUNID) 'Hauptdokument

  doc.Systemtechniker = parentdoc.Kundendienst
  Call doc.Save(True,False)
End If

Ist nur eine Idee, ich habs nicht getestet. Könnte aber so funktionieren.

Axel

[Rob Green]

er meint folgendes ata (wenn Du mir erlaubst, den "Rest" überlasse ich Dir):

Hauptdoc A, hat Autorenfeld "Aut", Inhalt "Ray Ozzie"
nun wird
Response B erstellt, hat Autorenfeld "Autsch", Inhalt "leer"

Erst beim Öffnen des Docs zum Editieren soll Autsch befüllt werden.

edit: eine Lösung ist auch schon da...ata, Du wirst alt, muß ich feststellen  

[ata]

... du hast recht, morgens bin ich jünger - ich hol mir nen Kaffee...

ata  

[hmarco]

Hallo,

also ich habe mal den Code eingefügt.

Sieht genauso wie vorher aus.

Ich trage im Hauptdokument Feld "Kundenbetreuer" Marco Horstmann/Ar-Hannover und Maik Jahnke/Ar-Hannover ein.

Wenn ich jetzt das Antwortobjekt öffne oder erstelle steht nur mein Name dort. Woran kann das liegen?

Ich muss gestehen was Lotus Notes angeht habe ich kaum Ahnung.

Kann heute leider nicht mehr wiederarbeiten an dem Problem, da ich jetzt nochmal schnell zu einem Kunden rausfahren muss.

Die besten Ideen habe ich sowieso gegen Mitternacht.  

Mfg Marco

[Axel]

Hi,

sind in beiden Autorenfeldern (Haupt- und Antwortdokument) Mehrfachwerte zugelassen ?


Axel

[hmarco]

Hallo,

sind richtig eingestellt.

Mehrfachwerte sind erlaubt.

Mfg Marco

[Rob Green]

weitere Frage:
hast Du eine Formel in diesem Autorenfeld? Weil die berechnet natürlich den Inhalt neu! Mögl. steht daher nur Dein Name drin.

Sonst mach mal folgendes /(etwas abgewandeltes Script):

Dim doc As NotesDocument
Dim parentdoc As NotesDocument

If Not Source.IsNewDoc Then
  Set doc = Source.Document  'aktuelles Antwortdokument
  Set parentdoc = db.GetDocumentByUNID(doc.ParentDocumentUNID) 'Hauptdokument

  doc.Systemtechniker = parentdoc.GetItemValue("Kundendienst")
  Call doc.Save(True,False)
End If

[hmarco]

Moin,

die Autorenfelder sind nicht berechnet.

Außerdem funktioniert den Skript leider auch nicht.
Das seltsame ist auch noch, dass es keine Fehlermeldung gibt.

Mfg Marco

[Rob Green]

ok

also ich streiche die


oder Du attached hier diese beknackte DB...der Fehler muß schlicht und einfach billig sein.

[hmarco]

Moin,

also hier ist die beknackte DB.

Mfg Marco

[Rob Green]

look im Anhang, habs getestet mit dem Code.
Einzigste Unterschied ist zum obigen Code, daß das zu lesende Autorenfeld nicht Kundendienst sondern Kundenbetreuer heißt eigentlich. Funktioniert einwandfrei.

Und was auch klar ist: beim ersten Erstellen des Password Docs wird nur der Ersteller selbst ins Feld eingetragen, was für später völlig wurscht ist, da das vom QueryOpen drübergebügelt wird.
Da mitunter der Code im QueryOpen checked, ob Doc neu ist oder nicht.

hier der Code, aus der Maske Password und dem Event der Maske QueryOpen:

Code

If Not Source.IsNewDoc Then
      Dim session As New notessession
      Dim Db As notesdatabase
      Set Db=session.currentdatabase
      
      Dim doc As NotesDocument
      Dim parentdoc As NotesDocument      
      
      Set doc = Source.Document  'aktuelles Antwortdokument
      Set parentdoc = db.GetDocumentByUNID(doc.ParentDocumentUNID) 'Hauptdokument
      
      doc.Systemtechniker = parentdoc.GetItemValue("Kundenbetreuer")
      Call doc.Save(True,False)
   End If

und die DB:

[hmarco]

Hallo,

super es funktioniert.

Können wir irgendwie das Skript noch abändern, dass er noch ein weiteres Feld "Systemtechniker" (Autorenfeld) , dass auch im Parentdokument ist, mit dem Feld "Kundenbetreuer" zusammen in ein Feld zu übernehmen.

Mfg Marco

[Rob Green]

warum fasst Du nicht einfach im Quelldoc beide Feldinhalte in ein drittes FeldC mit der Formel FeldA:FeldB zusammen, wobei FeldC auch Multivalue ist?

Dann mußt Du das obige Script nur nach dem Namen díeses neuen Feldes ändern.


Wenn Du es nicht tun willst, dann Code ergänzen um
dim LISTE As Variant
LISTE = Evaluate( "FELDA:FELDB", doc )
und Zielfeld wird mit Inhalt von LISTE befüllt

[hmarco]

Genial,

es funktioniert wunderbar.

Jedoch habe ich mit der Feld "Uebertrag", das die Felder "Systemtechniker" und "Kundenbetreuer" enthält noch ein kleines Problem. Ich versuche grade aus einer Antwort auf eine Antwort auf dieses Feld zuzugreifen, jedoch zeigt er nichts dort an.

Das ist dann auch in der Hinsicht das letzte Problem, sodass ich, wenn ihr mir noch bei dem kleinen Problem helft, mit der Datenbank fertig bin.

Mfg Marco

[Rob Green]

mal eine Frage, da Du Dich nunmehr von Problemchen zu Problemchen hangelst: beim Kopieren von Code mag es ja sein, daß der klappt, doch im Gesamtkontext zu einem Problem führt, wenn man sich keine Gedanken um die Gesamtlösung gemacht hat. Die Gefahr sehe ich momentan mE. Sprich: der jetzige Code sorgt dafür, daß ein Doc bei jedem Aufruf gespeichert wird. Bei ausnahmslos jedem Aufruf. Was wird eigentlich passieren, wenn zB ein Leser auf das Doc zugreift? Oder ein Autor, der n.n. als Autor im Autorenfeld des Antwortdocs/Originaldocs gelistet ist? Das sind zunächst Fragen, die nix direkt mit dem o.g. Code und auch prinzipiell mit jedem kopierten Code nix zu tun haben.

Ist Dir das bewußt oder hast Du Dir keine Gedanken um die Abläufe gemacht?

[hmarco]

Hallo,

ich habe mir so grob einen Plan zurechtgelegt, jedoch bin
ich so ein Typ der meistens Learning-by-Doing macht.

Um ehrlich zu sein habe ich in Hinsicht auf Autoren und Lesern
überhaupt keine Ahnung was ich da eingentlich tue.

Im Endefekt habe ich mir das so überlegt, dass wer keine Autorenrechte auf ein Dokument hat, dieses auch nicht sehen kann.
Dies würde ich einfach mit einem Leserfeld machen, in dem ein Leerzeichen steht, machen.

So mal 'ne Frage, wie würdest du denn überhaupt anfangen eine DB zu erstellen. Gibt es da irgendeinen Leitfaden?

Mein Chef hat nru ein paar Anforderungen gestellt.

Er möchte ein Dokument wo er den Kunden anlegt, dann möchte er wie in einer Baumstruktur die Projekte haben und wieder alla Baumstruktur die Passwörter. Die Kundendokumente sollen alle Lesen können. Die Projektdokumente sollen nur von den Autoren des Kundendokumentes gelesen und geschrieben werden. Genauso ist das mit den Passwortdokumenten, diese sollen nur von den Autoren des Projektes bearbeitet und gelesen werden können.

Mir ist keine andere Möglichkeit wie diese eingefallen, jedoch hast
du auf alle Fälle mehr Ahnung als ich.

Mfg Marco