Beiträge von dohne

Hallo taurec!

Ausgangspunkt ist dieses Script:

Zitat

Sub Click(Source As Button)

Dim session As NotesSession
dim ws as NotesUIWorkSpace
Dim db As NotesDatabase
dim dc as NotesDocumentCollection
dim doc as NotesDocument
dim item as NotesItem
dim doc_neu as NotesDocument
dim item_neu as NotesItem

set session = new NotesSession ' neue Instanz von Session
set ws = New NotesUIWorkSpace ' analog zu session
set db = session.CurrentDatabase ' aktuelle DB als Objekt holen
set dc = db.UnprocessedDocuments ' Objekt dc erzeugen
set doc = dc.GetFirstDocument ' erstes Dokument in der DocumentCollection als Objekt holen
set Item = doc.GetItem("FeldName") ' Feld als Objekt holen

set doc_neu = New NotesDocument(db) ' neues Dokument im Objekt db erzeugen / Dok ist nur im Speicher und nicht physikalisch da!

set item_neu = item.CopyItemToDocument(doc_neu, "NameDesFeldesImNeuenDokument") ' Feld kopieren in neues Dokument
call doc_neu.Save(true, true, true) ' neues Dokuemt speichern
call ws.EditDocument(true, doc_neu) ' neues Dokument ins UI (FrontEnd) bringen
call doc_neu.RemovePermanently(true) ' Backend-Dokument aus der DB löschen

End Sub

Alles anzeigen

Ich weiss jedoch nicht genau wo es zu platzieren ist und wie ich die Maske "Kommentar" öffne um das neue Dokument zu erzeugen.
Als Formel wäre das ja:

Zitat

@Command([Compose]; "Kommentarblatt")

Muss das Script dann aber in die Aktion "Kommentarblatt" speichern? Ich habe doch nur en Dokument, dass mit einer Maske generiere und mit einer anderen immer wieder etwas dran hänge?

Hallo

Ich komme hier glaube ich nicht weiter.
Im Netz (OpenNTF) habe ich eine Art Kommentarfunktion gefunden, jedoch recht einfach und auf einer Maske basierend.
Leider bekomme ich sie nicht zum laufen.
Könnte mir bitte jemand sagen, ob diese etwas taugt?

Sub CommentsHistory (theSource As NotesUIDocument)
Set doc = uidoc.Document
Set commentsItem = doc.GetFirstItem("CommentsHistory")
Set commentsItemA = doc.GetFirstItem("Comments")

Set Temprtitem = doc.GetFirstItem("TempComments")
If Temprtitem Is Nothing Then
Set Temprtitem = doc.CreateRichTextItem("TempComments")
End If

If commentsItem Is Nothing Then
Set commentsItem = New NotesRichTextItem(doc, "CommentsHistory")
End If

If commentsItemA Is Nothing Then
Set commentsItemA = New NotesRichTextItem(doc, "Comments")
End If

If Not doc.Comments ="" Then
User = Evaluate ("@Text(@Name([CN];@UserName))")
UserTime$ = User(0) + " @ " + Cstr (Now)

Call Temprtitem.AddNewLine(1)
Call Temprtitem.AppendText(UserTime$)
Call Temprtitem.AddNewLine(1)

If ( commentsItemA.Type = RICHTEXT) Then
Call Temprtitem.AppendRTItem(commentsItemA)
Else
Set commentsItemA = doc.CopyItem( commentsItemA, "Comments" )
End If

Call commentsItem.AppendRTItem(Temprtitem)
Call commentsItem.AddNewLine(1)
Call commentsItem.AppendText ( "---------------------------" )
Call Temprtitem.Remove
Call doc.ReplaceItemValue( "Comments", "")
Call doc.save(True,True)
End If

End Sub

Hallo nochmal!

Ich habe das Script in der Aktion "Kommentar" eingefügt und die Name der Masken angegeben. Welche Inhalte müssen denn dann noch da rein?

Der Debugger stoppt immernoch an der selben Stelle.
Muss ich noch eine Variable definieren oder ähnliches?

Hallo!

Der "Debugger" bleibt bei dieser Zeile stehen:

Set Item = doc.GetItem(Original)

Die Originalzeile von "Diali" lautet wie folgt:

set Item = doc.GetItem("FeldName") ' Feld als Objekt holen

Welcher Feldname ist denn hier gemeint, aus welchem Dokument?
Die Hauptmaske heisst "Thema", die Kommentarmaske "Kommentar". Nun wird doch die Originalmaske ein Objekt. Sollte da nicht der Name der Maske hinein oder bin ich da auf dem Holzweg?

Hallo!
Ich komme fehlerlos in die Vorschau. Wenn ich dann aber den Aktionsknopf drücke kommt der Fehler. Kann ich mir dann mit dem Debugger trotzdem anschauen, wo der Fehler liegt?
Wenn ja, wie? Danke.

Nachtrag: Ich habe ihr gefunden.

Wow, vielen Dank erstmal für die viele Mühe.
Ich habe das Script eingefügt, bekomme aber die Fehlermeldung
"Object variable not set".
Um den Fehler zu finden, versuche ich zu verstehen wie das Script funktioniert.
Wenn ich das also richtig sehe, wird ein neues Dokument im Background erzeugt, das alte als Objekt "konvertiert" und an das neue drangehangen. Dann wird das Neue Dokument über das Alte geschrieben und im Background gelöscht.
Ist das richtig?

ich habe viel ausprobiert, bin jedoch keinen schritt weiter gekommen. das ist mir zu hoch!
vielmehr als:

Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase

NotesDatabase.UnprocessedDocuments
New NotesDocument
NotesItem.CopyItemToDocument
NotesDocument.Save
NotesUIWorkSpace.EditDocument
NotesDocument.RemovePermanently

End Sub

habe ich leider noch nicht.

vielen dank, funktioniert blendend.
ich habe nach einem befehl gesucht, womit ich den feldinhalt ansprechen kann, an lenght habe ich natürlich nicht gedacht.
danke nochmal!

Ich habe das Feld gefunen.
Nur meine Formel stimmt nicht.

@If (beschreibung>40; @Failure (">40") ;@Success)

Das Problem ist, dass ich nicht weiß, wie ich den Vergleich anstellen sollte. Vielleicht eine Art Umformatierung?

Hallo!

Ich habe ein Formular, das ausgefüllt und ausgedruckt werden soll. Hierbei ist es wichtig, dass alles auf eine A4 Seite passt.
Nun die Frage: Wie begrenze ich die eingegebenen Zeichen in einem Textfeld und wie begrenze ich die größe von eingefügten Bilddateien.
Bei den Textfelder habe ich zwar optionen gefunden, jedoch wird die eingabe dadurch nicht beschränkt.

gruß

Ja richtig, der neue kommentar wird über eine aktion gesteuert.

im moment habe ich dort:

@Command ([FileSave]);
@Command([Compose]; "Kommentar")

Eigentlich wurde mir gesagt, dass es ganz einfach ist.
Ich habe noch nie mit solchen Scripten gearbeitet, aber ich versuche es mal. Die Methoden habe ich alle bereits gefunden.

Das Problem ist, dass ich die Verwaltung dieser Datenbank quasi geerbt habe. Aus dem Grund muss ich das hier einarbeiten.
Aber im Wesentlichen ist es nichts anderes als ein Forum oder Gästebuch. Diese Woche muss ich dazu irgendeine Lösung haben.
Das Problem bei RT ist, dass ich ihm, da ich die selbe Maske benutze, nicht sagen kann, dass er den nächsten "kommentar" unter den ersten legen soll. er wird ihn immer wieder in das selbe feld legen.

PS: ich habe mit dem du kein natürlich kein problem

halten sie mich bitte nicht für albern,
aber ich habe einmal versucht das ganze zu skizzieren.
ist es so auch bei ihnen angekommen?
Die grüne und rote maske ist die selbe.
die farbliche änderung soll lediglich einen unterschiedlichen inhalt suggerieren.

Vielen Dank!
Jetzt habe ich auch die Funktionsweise verstanden und es funktioniert auch. Leider Gottes hilft mir das irgendwie nicht weiter.
Es tut mir sehr leid ihre Zeit hier zu vergeuden.
Die Funktionsweise von Lotus Notes ist mir noch nicht ganz geläufig.
Mit der Maske "Empfänger" möchte ich ein Dokument erstellen.
Das bekomme ich auch ohne weiteres hin.
Die dazugehörige Maske Sender soll nun ihre Werte an das erstellte Dokument anhängen oder übergeben.
So dass ich dann ein Dokument mit einer Art "Antwort" darauf habe.

Ich habe es nicht geschafft.
Sieht jemand von ihnen einen Fehler in meiner Vorgehensweise?

1. Erstellung einer Maske "empfänger"
2. Anklicken der Funktion "Formeln übernehmen Werte aus gewähltem Dokument"
3. Anlegen von einem Feld "E_feld"
4. Speicherung der Maske

5. Erstellen einer weiteren Maske "sender"
6. Anlegen von einem Feld "S_feld"
7. Speichern

8. In Maske "Empfänger" gebe ich unter

"E_Feld (Feld) Vorgabewert
Starten Client Formel"

"S_Feld"

ein.

9. Speichern

sind sie sicher, dass es auch über zwei verschiedene Masken funktioniert?

ja diese option habe ich schon in der hilfe gefunden.
lediglich mein englisch ist nicht besonders gut.
die option "inherit values" habe ich gefunden.
Nun erstelle ich auf die herkömmliche weise ein feld
und will das programm dazu bringen, den wert, den ich in dieses feld eingegeben habe zu vererben?

tut mir leid.
also eigentlich sollte es ein forum werden.
Ich bereits habe in Maske Überblick eine Struktur angelegt worin ich die Beiträge speichern möchte. Als Aktion habe ich die Erstellung einer Antwort. Drücke ich nun auf Antwort erstellen wird Maske "Antwort" geöffnet. Hier habe ich 6 Felder und einen Knopf.
Nun soll der Knopf den Inhalt der 6 Felder in die Maske Überblick überführen und dort speichern.

Hallo Forummitglieder
Ich bin bereits im fortgeschrittenen Alter und muss erst seit kurzem mit dem Dominodesigner arbeiten. Während der ersten Aufgabe bin ich auf ein Problem gestoßen, dass ich mit meinem Wissen nicht zu lösen vermag. Vielleicht kann mir jemand von ihnen helfen.
Ich möchte durch Betätigen eines Knopfes "erstellen", den Inhalt von mehreren Feldern verschieben, ähnlich wie in diesem Forum auch. Verstehen sie worauf ich hinaus möchte?

Mit freundlichen Grüßen