Domino 9 und frühere Versionen > Entwicklung

Wert eines Autorenfeldes übernehmen

<< < (3/5) > >>

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
--- Ende Code ---

und die DB:

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete