Hallo Leute,
folgende Sache:
ich habe eine Tabelle mit mehreren Zeilen und Spalten.
In einer Zeile sind mehrere Felder und 3 Hot-Spot Velinkungen.
1. Hotspot: Anfragen
2. Hotspot: Bestellen
3. Hotspot: Arbeitsplan

Also ich will dass wenn ich auf diese Hotspots klicke, mir die Werte von der aktuellen Zeile, auf die neue (Hotspot) Verlinkte Maske/Form
kopiert oder einfach angezeigt werden.

Geht so was überhaupt?

Vielen Dank  

Hi Axel,

die Eigenschaft "Formulas inherit values from selected document" ist schon ausgewählt.
Default Value ist auch als Feldname, aus dem der Wert übertragen werden sollte., definiert.
Wenn ich aus einer Ansicht irgendwelchen Eintrag markiere/aufmache dann funktioniert die Wertübernahme auf die andere Maske.

Nur, bei mir ist das Problem dass ich mehrere Zeilen habe. 20 Artikel insgesamt. Und in jeder Zeile sind 5 Felder und 3 Hotspots-Links.
Die Hotspotfelder verweisen/verlinken auf 3 andere Masken.
Und in die wird beim Aufruf,  nicht der Wert reingeschrieben.  

Also ich denke dass man bei den Hotspot-Eigenschaften das irgendwie reinschreiben muss dass die  übernommen werden sollten. Weil so macht er immer eine blanke Seite auf .......

 

Uiiii,

weiss du vielleicht wie das ungefähr gehen könnte ?

@axel:  

Vielen Dank für Deine Mühe. Aber leider verstehe ich mich da garnicht oder nur sehr wenig in die Formelsprache. Also...
Keine Ahnung wo ich was einsetzen soll.  

@Semeaphoros

Hallo,

ja klar. Ich wollte auch keine fertige Lösung haben. Ich wollte einfach nur wissen ob es überhaupt geht, und dann möglichst ohne Formel. Aber das ist leider nicht der Fall.
Ich bin gerade dabei mich mit der Formelsprache auseinander- zusetzen.  Hoffenlich wirs noch was.
Also nicht böse sein, wenn es jetzt vorher so rübergekommen ist, dass ich nix mache und ein fertiges Ergebnis erwarte., Is nich so

Hm. Also LotusScript. Da kenn ich mich ja noch weniger aus ....  

Hat schon jemand was ähnliches gemacht oder gibt es hier im Forum ein ähnliches Thema?

Ich habe bisschen rumgesucht, aber bis jetzt leider noch nichts gefunden ...

Hi,

du erstellst dir einen Hotspot, entweder über einer Grafik oder einen Aktionshotspot.  In der Titelzeile des unteren Fenster des Designers wählst du Lostusscript aus und kopiert das Script hinein. Dann musst du das Script noch an deine Maskennamen und Feldnamen anpassen.

...
docNew.Form = "Name der Maske"  'Hier kommt der Maskenname´hin
docNew.Feld1 = docCurrent.Feld1    'Feld1 musst du durch deine Feldnamen ersetzen
docNew.Feld2 = docCurrent.Feld2    'Feld2 musst du durch deine Feldnamen ersetzen
...

docNew ist das neue Document und docCurrent ist das aktuelle Dokument mit den Feldern aus denen die Werte geholt werden sollen.

Ich hoffe ich einigermaßen verständlich erklärt.


Axel
 

Hi,

dir fehlt noch einiges von meinem obigen Script.

Das ganze Script muss so aussehen.

Sub Click(Source As Button)

Dim session As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim docCurrent As NotesDocument
Dim docNew As Notesdocument  

Set uidoc = ws.CurrentDocument
Set docCurrent = uidoc.Document
Set db = session.CurrentDatabase  
Set docNew = New NotesDocument(db)  'Neues Dokument anlegen

docNew.Form = "Anfragen"
docNew.BezeichnungAnfrage = "Bezeichnung1"  
docNew.ZeichnungAnfrage = "Zeichnung1"  

Call docNew.Save(True, False)  'Sichern des Dokumentes

End Sub


Axel

Hi,

sorry, so kommts wenn man nur copy und paste macht.  

So sollte es nun aber funktionieren:

Sub Click(Source As Button)

Dim session As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim uidocNew As NotesUIDocument
Dim docCurrent As NotesDocument
Dim docNew As Notesdocument  

Set uidoc = ws.CurrentDocument
Set docCurrent = uidoc.Document
Set db = session.CurrentDatabase  
Set docNew = New NotesDocument(db)  'Neues Dokument anlegen

docNew.Form = "Anfragen"
docNew.BezeichnungAnfrage = doc.Current.Bezeichnung1  
docNew.ZeichnungAnfrage = docCurrent.Zeichnung1  

Set uidocNew = ws.EditDocument(True, docNew)  'Dokument im Frontend öffnen
Call uidocNew.Refresh 'Dokument aktualisieren

End Sub

Axel
 

Hi,

prima.

Setzt du den Thread bitte noch auf "Erledigt".  Danke.


Axel