Domino 9 und frühere Versionen > ND7: Entwicklung

Dialogliste - mehrere Einträge - best. Eintrag austauschen

(1/3) > >>

jan2k:
Hallo alle zusammen,

ich hab ein großes Problem.
Ich habe diesen Dokumentenschutz mit eurer Hilfe realisiert.

Ein anderes Feld ist aber eine Dialogliste. Dort sind mehrere Einträge vorhanden. Unter Feldeigenschaften steht
"Vorname Nachname"
"Vorname2 Nachname2"

etc.

Habt ihr irgend einen Tipp, oder irgendwo eine Lösung, dass ich "Vorname2 Nachname2" gegen "Vorname3 Nachname3" austauschen kann?

Leider ist das total wichtig... :(

klaussal:

--- Zitat ---Unter Feldeigenschaften steht
"Vorname Nachname"
"Vorname2 Nachname2"


--- Ende Zitat ---

 ??? ??? ???

Oder meinst Du "auswahl" ?

ascabg:
Hallo,

Ich muss mich klauss anschliessen.

Welchen Dokumentenschutz?
Was willst Du erreichen?


Andreas

jan2k:
Ich hab einen Dokumentenschutz, der sich aus dem Feld der Dialogliste (Zuarbeit) ergibt (Berechnetes Feld, Leserfeld)

In der Dialogliste stehen also die zugriffberechtigten Personen drin.
Wenn ein alter Mitarbeiter geht und ein neuer kommt, müssen also die Namen vertauscht werden.

Das ist mein Problem, ich weiß nicht, wie ich das machen soll.

Ich habe ein anders Feld Namens "who", da ist nur eine Person drin, der Austausch geht dort.

Ich habe mal das Script angehangen, wie das gelöst wurde. (leider nicht von mir)

Was müsste man machen, dass man jetzt die entsprechende Person aus dem Feld ausliest und die gegen eine Person aus der "adminliste" austauscht?
Script Erfahrung = "0"...
Also bei dem Script würde man nur eine Person eintragen können, aber keine Person austauschen können.


admins := @DbLookup (""; @DbName; "($System)"; "System"; "adminliste");
wert := @Prompt ([OkCancelList]; "Wechsel des Bearbeiters"; "Wer übernimmt
die Aufgabe ?"; ""; @Name([CN]; admins));
@If (@IsError (wert); @Return (""); @Success);
ENVIRONMENT DocWho := wert;
@PostedCommand ([ToolsRunMacro]; "(SystemDokWhoanpassen)")


Sub Initialize
     Dim session As New NotesSession
     Dim db As NotesDatabase
     Dim doc As NotesDocument
     Dim collection As NotesDocumentCollection
     Dim aendern As Variant
     Dim nvParent As NotesView

     aendern = session.GetEnvironmentString ("$DocWho", True)
     Set db=session.currentdatabase
     Set collection=db.UnprocessedDocuments
     Set doc = collection.GetFirstDocument ()
     Set nvParent = doc.ParentView



     While Not doc Is Nothing
           doc.Who = aendern
           Call doc.Save (True, False)
           Set doc = collection.GetNextDocument (doc)
     Wend
End Sub

ata:
Hallole,

in deinem Script wird ein Feld mit Werten überschrieben.

Wieviel Erfahrung im Script'n hast du? Da gibt es mehrere denkbare Ansätze...

Toni

Navigation

[0] Themen-Index

[#] Nächste Seite