Dokumente in Datenbank suchen und Werte ändern

[Blitz]

Hallo,

habe noch ein Problem bei meiner Berechtigungsverwaltung.

Wenn ein User gelöscht wird, ändere ich das Feld Status von 7 auf 8.
Dies funktioniert auch. Jetzt muss ich aber noch alle Dokumente mit diesem User in der Datenbank finden und auch das Feld Status von 7 auf 8 ändern.

Als Such kann ich die USER-ID verwenden, da diese bei allen Dokumenten eines Mitarbeiters gleich ist.

Macht man so was am besten über einen Agenten? Wie ist die Formel hierfür?

[klaussal]

Du möchtest in der Designer-Hilfe unter dem Stichwort "NotesDocumentCollection" nachlesen....

[Blitz]

Vielen Dank!

Werde es damit mal Probieren. Muss nur noch die genaue Formel damit erstellen!

[klaussal]

Muss nur noch die genaue Formel damit erstellen!

 

[Speedy]

Ich habe für solche Fälle eine Ansicht in der ich nach diversen Dingen kategorisiere.
In Deinem Fall also User-ID
Dann kann ich relativ simpel mit GetAllDokumentsByKey alle zugehörigen Dokumente finden, ohne das ich eine Suche durchführen muss (ist ja ohne Volltextindex u.U. ziemlich langsam!).
Ich erhalte eine NotesDocumentCollection.

Solong
speedy

[Blitz]

Hallo,

vielen Dank für die Hilfe.

Eine Ansicht nach User-ID habe ich mir jetzt gemacht.

Mit Lotus Script kenne ich mich leider nicht sehr gut aus.

Wie muss ich mit getalldokumentsbykey machen?

Ein kurzes Beispiel wäre Hilfreich.

Danke

[koehlerbv]

Kurze und gute Beispiele findet man in der DesignerHelp. Wir können da kaum etwas "besseres" posten.

Bernhard

[Blitz]

Hallo,

habe jetzt mal ein Script angefangen. Funktioniert aber leider noch nicht. Fehlt glaube noch ein paar Zeilen.

Zur Situation:
Ich stehe in einer Ansicht (A1) auf einem Dokument und löse eine Aktion aus.

In der Ansicht S1 sind alle Dokument nach dem Mitatbeitername (A_User) sortiert.

Nun soll bei allen Dokumenten, die den Mitarbeiternamen des gewählten Dokumentes (A_User) haben, das Feld Status auf 7 geändert werden.

Sub Exiting(Source As Field)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument   
   Dim Mitarbeiter As String
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Set uidoc = workspace.CurrentDocument   
   Mitarbeiter = uidoc.FieldGetText( "A_User" )
   Set doc = view.GetDocumentByKey( Mitarbeiter )
   Call doc.ReplaceItemValue("Status", "7")
   Call doc.Save(True,True)
End Sub

Muss ich da noch eine Schleife einbauen?

[koehlerbv]

Ich stehe in einer Ansicht (A1) auf einem Dokument und löse eine Aktion aus.
...
Sub Exiting(Source As Field)

Das ist ein Widerspruch in sich!

Ausserdem war die Rede von GetAllDocumentsByKey und nicht von GetDocumentByKey.

Bernhard

[WildVirus]

Hallo Blitz (oder wie auch immer Du heißt),

schalte mal Option Declare ein, baue ein

Code

Set View = .....

ein. Danach siehst Du im Debugger, woran es scheitert.

Schönen Tag noch
Axel

[Blitz]

Hallo,

bin jetzt wieder aus den Urlaub zurück und probire es noch mal:

Habe jetzt folgenden Code:

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim dc As NotesDocumentCollection
   Set db = session.CurrentDatabase
   Dim A_USER As String
   Set view = db.GetView( "A_User" )
   Set dc = view.GetAllDocumentsByKey("A_USER")
   While Not(doc Is Nothing)
      Call doc.ReplaceItemValue("Status", "7")
      Call doc.Save( True, False )
      Set doc = collection.GetNextDocument(doc)   
   Wend      
End Sub

Leider kommt der Fehlerhinweis: Object Variable not set.

Welche wird da gemeint? Stehe voll auf der Leitung. Mit Lotus Script tue ich mir noch echt schwer!

Vielen Dank im Voraus.

[klaussal]

Sollte da ein "Dim doc as.... " fehlen ?

Was sagt der Debugger ?

schalte mal Option Declare ein

Hast Du das getan ?

[Klafu]

Du hast z.B.: "doc" nicht deklariert und willst dann damit arbeiten

Code

Dim doc as NotesDokument

und

Code

Set doc = view.GetAllDocumentsByKey("A_USER")

würd ich sagen


Chris

[klaussal]

Set doc = view.GetAllDocumentsByKey("A_USER")

Nein: so war schon richtig !

Set dc = view.GetAllDocumentsByKey("Spanish leather", False)

[Klafu]

Hm, dann ist das aber nicht der ganze Code, oder ?
Weil er nach Set dc = view.GetAllDocumentsByKey("A_USER") nicht mehr mit dc arbeitet und auch doc nirgends setzt.

[DAU-in]

Dim A_USER As String
Set view = db.GetView( "A_User" )
Set dc = view.GetAllDocumentsByKey("A_USER")


Ich verstehe diese Zeilen nicht.
Du deklarierst eine Stringvariable mit Namen A_User
Du setzt eine Ansicht mit dem Namen (nicht dem Wert) der Stringvariablen.
Dann erstellst du eine Collection aller Dokumente dieser Ansicht, die in der ersten Spalte den Namen der Ansicht in Grossbuchstaben enthalten.
Wozu?
Ist es das, was du wirklich willst?

Grüsse

Dau-in

[DAU-in]

Set doc = collection.GetNextDocument(doc)

Woher kommt collection?

[klaussal]

Und in der Hilfe gibt es dieses schöne Beispiel:

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim dc As NotesDocumentCollection
  Dim keyString As String
  keyString = Inputbox("Subject starts with?")
  Set db = session.CurrentDatabase
  Set view = db.GetView("By Category")
  Set dc = view.GetAllDocumentsByKey(keyString, False)
  Set doc = dc.GetFirstDocument()
  If dc Is Nothing Then
     Messagebox keyString,, "Not found"
     Exit Sub
  End If
  While Not(doc Is Nothing)
     Messagebox doc.Subject(0)
     Set doc = dc.GetNextDocument(doc)
  Wend
End Sub

[Blitz]

Danke für die vielen schnellen Antworten! Brauche nur immer etwas zeit zum Probieren, da ich nur nebenher programmieren kann.

Habe es jetzt eingefügt.

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim dc As NotesDocumentCollection
   Set db = session.CurrentDatabase
   Set view = db.GetView( "A1" )
   Set dc = view.GetAllDocumentsByKey("A_USER")
   While Not(doc Is Nothing)
      Call doc.ReplaceItemValue("Status", "7")
      Call doc.Save( True, False )
      Set doc = collection.GetNextDocument(doc)   
   Wend      
End Sub

Die Ansicht heißt A1

Wenn ich "Dim doc as NotesDokument" einfüge lässt sich das Script nicht mehr speichern.

Es kommt Class or Type not found - Notesdocument

Ich möchte im Prinzip nur, dass in alle Dokumenten in der Ansicht A1 das Feld Status in 7 geändert wird, bei denen die Variable A_User gleich mit dem ausgewählten Dokument ist.

Danke schon im Voraus.

[m3]

Ahem. Du solltest doc auch einen initalen Wert zuweisen, ansonsten kommst Du nie in die While-Schleife.