Domino 9 und frühere Versionen > ND6: Entwicklung

Profile-Document

<< < (2/3) > >>

Ralf_M_Petter:
Hier der Code um den Hidden Feldern die neuen werte anzuhängen.

Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim doc As NotesDocument
   Dim item As NotesItem
   Set doc=ws.CurrentDocument.Document
   Set item=doc.GetFirstItem("Test1hidden")
   item.AppendToTextList(doc.Test1(0))
   Set item=doc.GetFirstItem("Test2hidden")
   item.AppendToTextList(doc.Test2(0))
   Set item=doc.GetFirstItem("Test3hidden")
   item.AppendToTextList(doc.Test3(0))
End Sub

Ich hoffe das nützt dir etwas. Bezüglich der ACL Geschichte musst du die Klasse NotesAcl verwenden.

Grüße

Ralf

chris2212:
...soweit funktioniert es.

Aber,
ich habe ja noch einen / zwei Agenten die tägl.
in der DB laufen sollen.

Wenn ich z.B. den Agenten für das hinzufügen von Stellvertretern
in der ACL nehme... Der Agent muss prüfen ob es für ihn einen neuen
Eintrag gibt, wenn ja muss er den Namen aus der Liste auslesen und in die ACL eintragen. Das Eintragen von Namen in der ACL hab ich schon.. da nach Ablauf der Vertretung die Einträge aus der Liste wieder gelöscht werden sollen, muss dem Agent irgendwie "erklären" das es sich um einen neuen Eintrag handelt oder um einen Eintrag der bereits zur ACL hinzugefügt wurde.

Beim Agent der die ACL Einträge wieder löscht habe ich auch noch ein Problem,
der Agent muss z.B. wenn eine Vertretung ab 30.06.2003 ungültig ist den richtigen Namen aus der Liste auslesen und anschl. aus der ACL löschen....

Wie gesagt der Code zum hinzufügen von Werten funktioniert !! DANKE !!

Kannst Du mir beim erstellen bzw. beim "richtigen" auslesen der List-Werte noch helfen?

Danke & Gruß
Chris

Meff:
Wenn ich den Thread bis hierher richtig gelesen habe, dann brauchst Du folgendes :

forall a in doc.Feldname
--> Hier kannst Du jetzt mit dem Wert a (=jeweils ein Eintrag aus dem Array des Feldes) irgendetwas nach Deinem Gutdünken machen
end forall

Meff

chris2212:
Ja, soweit hab ich es, aber mein Problem ist
ich prüfe mit IF ob im Feld2(Datum von) ein Wert gleich
Today() vorhanden ist, wenn ja dann muss/soll der Agent
den passenden Eintrag aus Feld1(Name) auslesen.

Mein "Problem" ist wie bekomme ich den richtigen Eintrag aus dem ersten Feld.

Gruß
Christian

Meff:
Hi Christian,

wie ich schon sagten


--- Zitat ---forall a in doc.Feldname
--> Hier kannst Du jetzt mit dem Wert a (=jeweils ein Eintrag aus dem Array des Feldes) irgendetwas nach Deinem Gutdünken machen
end forall

--- Ende Zitat ---

Du läufst über die Liste aus dem Feld "Name", a gibt Dir immer den jeweiligen Listeneintrag wieder. Wenn a = der Name den Du suchst, dann machst Du einfach weiter (z.B. diesen Namen aus der ACL löschen) und verlässt anschliessend die Forall Schleife.

Meff

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete