Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: mgeidl am 18.08.03 - 11:33:32
-
Hallo Notesgemeinde!
Ich hab vor einiger Zeit die Schablone des NAB mit eurer Hilfe dahingehend geändert, dass bei klick auf die Schaltfläche "in pers. Adressbuch kopieren" nach einer Kategorie abgefragt wird. Das funzt bei einem Dok ja hervorragend, wenn ich aber mehrere Doks markiere und draufklicke, wird bei jedem nach der Kategorie gefragt. Kann mir jemand helfen, dass er sich die Kategorie für alle markierten Doks merkt?????
Sub ProcessDocument
Dim strCategorie As String
Set destnote = destview.GetDocumentByKey(Cstr(KeyValue(0)))
If destnote Is Nothing Then
Set destnote= sourcenote.CopyToDatabase(destdb)
Call destnote.RemoveItem("MessageStorage")
DocsCopied = DocsCopied + 1
strCategorie = Inputbox$("Bitte geben Sie die Kategorie ein.")
destnote.Categories = strCategorie 'Setze die Kategorie
Call destnote.Save(True,True,True)
Else
Select Case Messagebox(DisplayKey(0) & " besteht bereits, möchten Sie den Eintrag ersetzen?", _
4 + 32, "Copy")
Case 6
destnote.Remove(True)
Set destnote= sourcenote.CopyToDatabase(destdb)
Call destnote.RemoveItem("MessageStorage")
DocsCopied = DocsCopied + 1
strCategorie = Inputbox$("Bitte geben Sie die Kategorie ein.")
destnote.Categories = strCategorie 'Setze die Kategorie
Call destnote.Save(True,True,True)
Case 2
StopProcessing = True
Exit Sub
Case Else
If Not ProcessingGroup Then
Exit Sub
End If
End Select
End If
If FormType(0) = "Group" Then
g = Ubound(PendingGroups) + 1
Redim Preserve PendingGroups(g)
ListName = sourcenote.ListName
PendingGroups(g) = ListName(0)
End If
If ProcessingGroup Then destview.Refresh
End Sub
-
... ich habe mir den Agenten nicht angeschaut, aber ich vermute er geht auf alle markierten Dokumente...
... wenn dem so ist, dann solltest du einen "RunOnce" schreiben...
... dort ermittelst du die gewünschte Kategorie (Inputbox oder Dialogbox )...
... mit db.UnprocessedDocuments holst du dir dann die markierten Docs...
... und arbeitest sie dann wie der bereits bestehende Agent ab...
ata
-
Hallo
Hab leider keine Ahnung, wo ich angreifen soll. Kann man da nicht irgendeine Schleife einbauen, damit alle markierten Doks mit der Kategorie gefüttert werden???
-
... der Agent als solches ist bereits die Schleife - er wird auf jedes markierte Dokument einmal angewendet...
ata