Vielen Dank,
ganeu das war der gesuchte Befehl, jetzt klappt es.
Pitti :devil:
Beiträge von pitti
-
-
Hallo,
ich habe folgendes Problem:
ich habe eine Feld mit einer fortlaufenden Nummer erzeugt und möchte nun in einer Ansicht nach diesem Feld aufsteigend sortieren. Nun schreibt mir Lotus immer erst
Nr: 1,10;100;11;12....2;20;21;22;....9;91;92;93
Gibt es eine Möglichkeit diese Sortierung "richtig" zu machen, also Nr: 1;2;3;4...10;....99;100?
Pitti -
Prima, jetzt klappt es!!
Danke Vielmals
:lol: -
O.K.
habe jetzt das Script wie folgt abgelegt:
Sub Initialize
Dim dc As NotesDocumentCollection
Dim lfdnr As String
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set dc = db.Search({Form="Substrate"},Nothing,0)
Set doc = session.Documentcontext
Print "Benutzer = " + doc.remote_user(0)
If doc.IsNewNote = True Then
lfdnr = Cstr(dc.count)
Call doc.ReplaceItemValue("lfdnr",LfdNr)
End If
Call doc.Save(True, False,True)
End SubIch bekomme aber weder ein Print auf den Bildschirm noch einen laufende Nummer in Notes.
-
habe einen OK-Button, mit
@Command([FileSave]);
@Command([FileCloseWindow])Habe noch ein Feld $$Return damit ich im Web nicht die Meldung "Form processed" bekomme.
Funktioniert trotzdem nicht, auch die Agenteneinstellungen helfen da nichts.
Ich bekomme praktisch nicht mal ein Print oder Messagebox auf den Bildschirm mit dem Agenten. -
habe alles ausprobiert, sogar noch ein Print mal eingefügt, aber es scheint der Agent gar nicht gestartet zu werden.
Gibt es da noch spezielle Einstellungen? Ich habe bei Eigenschaften:Agent folgendes gewählt:
Auslösen durch: Ereignis
Laufzeit: Nachdem Dokum. erstellt oder geändert wurden. -
Danke, für die schnelle Antwort, genau das habe ich ohne erfolg versucht, allerdings ist mir nicht ghanz klar wann die Agenten tatsächlich ausgeführt werden.
Ich habe folgendes programmiert:
Maske: WebQeuerySave: @Command([ToolRunMacro]"Test")
Agent "Test":
LotusScript:
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim dc As NotesDocumentCollection
Dim lfdnr As String
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set dc = db.Search({Form="Substrate"},Nothing,0)
Print "Agent Test"
If doc.IsNewNote = True Then
lfdnr = Cstr(dc.count)
Call doc.ReplaceItemValue("lfdnr",LfdNr)
End If
End Sub
Durch den Call Befehl sollte eigentlich das Feld gesetzt werden, tut es aber nicht.
Pitti -
Hallo,
ich bin noch ein ziemlich neuer Entwickler mit Lotus Notes habe aber versucht eine Datenbank zu erstellen, in der jeder Datensatz eine fortlaufende Nr. erhält. Im Notes funktioniert alles sehr schön, aber im Web habe ich es bisher nicht geschafft, ein Feld zu setzen, nicht über Agenten, nicht über @SetField, nicht über Call.doc.ReplaceItem. Hat jemand eine Idee wie ich auch im Web ein (berechntes) Feld beschreiben kann?
Pitti