Domino 9 und frühere Versionen > Entwicklung

Name in die Gruppe hinzufügen

<< < (6/7) > >>

Selin:
Hallo Bernhard,

hast Recht.


--- Zitat ---Da ich hier mittlerweile überhaupt nicht mehr durchsehe: In welches Dokument willst Du die Gruppenmitglieder hinzufügen - In doc oder in docGroup ?
--- Ende Zitat ---

Die Gruppenmitglieder sollen in docGroup.Members rein


Gruß
Selin

koehlerbv:
Ändere mal das Hinzufügen wie folgt:

For idx = 0 To Ubound(doc.Liste1)
      Set docGroup = view.GetDocumentByKey("#ABC_" & doc.Liste1(idx), True)
     
      subj = docGroup.GetItemValue( "Members" )
      Set item = docGroup.GetFirstItem( "Members" )
      If docGroup.Members (0) = "" then
            docGroup.Members = doc.Name_Gruppe
      Else
            If (subj(0) <> doc.Name_Gruppe(0)) Then         
               Call item.AppendToTextList( doc.Name_Gruppe)
               Call docGroup.Save(True, False)
            Else
               Msgbox("Name vorhanden")
            End If
      End If
   Next

Da Du in Entfernen nicht einfach das Item rausklatschen kannst, machst Du statt item.Remove ein docGroup.Members = ""

Das wäre eine Möglichkeit, aus dem Gewurschtel noch was Lauffähiges hinzubiegen.

Bernhard

Selin:
Hallo Bernhard,

das hat nicht funktioniert. Der schreibt den Namen nicht in die Gruppe rein.


--- Zitat ---For idx = 0 To Ubound(doc.Liste1)
      Set docGroup = view.GetDocumentByKey("#ABC_" & doc.Liste1(idx), True)
     
      subj = docGroup.GetItemValue( "Members" )
      Set item = docGroup.GetFirstItem( "Members" )
      If docGroup.Members (0) = "" then
            docGroup.Members = doc.Name_Gruppe
      Else
            If (subj(0) <> doc.Name_Gruppe(0)) Then         
               Call item.AppendToTextList( doc.Name_Gruppe)
               Call docGroup.Save(True, False)
            Else
               Msgbox("Name vorhanden")
            End If
      End If
   Next
--- Ende Zitat ---



Wenn ich das hier anwende fürs Hinzufügen:

For idx = 0 To Ubound(doc.Liste1)
      Set docGroup = view.GetDocumentByKey("#ABC_" & doc.Liste1(idx), True)
      
      subj = docGroup.GetItemValue( "Members" )
      Set item = docGroup.GetFirstItem( "Members" )
      If (subj(0) <> doc.Name_Gruppe(0)) Then         
         Call item.AppendToTextList( doc.Name_Gruppe)
         Call docGroup.Save(True, False)
      Else
         Msgbox("Name vorhanden")
      End If         
   Next 

und das hier fürs Löschen:

For idx = 0 To Ubound(doc.Liste2)
      Set docGroup = view.GetDocumentByKey("#ABC_" & doc.Liste2(idx), True)
      
      subj = docGroup.GetItemValue( "Members" )
      Set item = docGroup.GetFirstItem( "Members" )
      If (subj(0) = doc.Name_Gruppe(0)) Then         
         docGroup.Members = ""         Call docGroup.Save(True, False)
      Else
         Msgbox("Name vorhanden")
      End If         
   Next 

klappt es erst einmal.
Wie kann ich denn die Häckchen nach dem Löschen auch wegnehmen aus der Liste1?

Danke+Viele Grüße
Selin

koehlerbv:
Der schreibt das schon rein, nur speichern tut er nicht. Das muss für den ersten If-Zweig auch noch mit rein.

Selin:
Stimmt!
Vielen Danke noch mal Bernhard.

Habe jetzt mal beide Scripte jeweils in einen Agenten kopiert und versuche beim Speichern zuerst den Löschen Agent und dann das Hinzufügen Agent zu starten.
Hier wird der Name nicht in die Gruppe geschrieben.
Was mache ich falsch?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete