Von einer Maske in eine andere

[C_T]

Hi@all

Ich habe mal wieder nen kleines Problem und ich hoffe Ihr könnt mir mal wieder so gut helfen wie sonst auch.

Ich habe eine Maske(A) in der sich ein Button befindet, und mit diesem Button möchte ich einen leere Maske(B) erstellen. Die neu erstelle Maske(B) soll nun einige Werte aus der ersten Maske(A) bekommen.

Nachdem die Maske(B) einige Werte aus der ersten Maske(A) geholt hat soll diese sich schließen, und die zweite Maske(B) soll man nun auf dem Bildschirm haben zum eventuellen bearbeiten.

Ich hoffe Ihr könnt mir helfen.

Vorzugsweise in Script

CU
C_T

[MadMetzger]

Wenn du in Maske B die Option "Formeln übernehmen Werte des gewählten Dokuments", kannst du rein mit Formelsprache arbeiten, in dem du über den Button nur ein @Command([Compose];"MaskeB") ein Dokument erzeugst und in Maske B in den Feldern mit Formeln zum Übernehmen der Werte arbeitest. Dafür ist kein Stück Script erforderlich.

[Sabine]

Hallo,

hatte mal eine ähnliches Problem wie Du! Habe mir folgendes Script in eine Aktion gepackt... vielleicht kannst Du es als Basis nehmen und durch ein paar Modifikationen auf Deinen Fall anpassen?!? Falls Du Fragen dazu haben solltest stehe ich gerne zur Verfügung!

Code

Sub Click(Source As Button)
	Dim session As New NotesSession 
	Dim db As New NotesDatabase("", "")
	Dim wks As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument	
	Dim dlgflag As Variant
	
	Set db = session.CurrentDatabase
	Set uidoc = wks.CurrentDocument
	Set doc = uidoc.Document   
	
	On Error Resume Next
	
	'Feldwerte aus dem aktuellen Dokument Beanstandungen_neu auslesen
	auftragva = uidoc.FieldGetText("VSTR")
	thema = uidoc.FieldGetText("Subject")
	aenr = uidoc.FieldGetText("PMAENr")
	bearbeiter = uidoc.FieldGetText("Bearbeiter")
	
	'Prüfung der Maske Beanstandungen, ob das Feld Programmänderungsnummer gefüllt ist
	If aenr = ""  Then
		Messagebox ("Die Programmänderungsnummer für den Übernahmeauftrag fehlt!")
		If uidoc.EditMode = False Then
			uidoc.EditMode = True
			Call uidoc.GotoField( "PMAENr" )
		End If
		Exit Sub		
	Else
		Call uidoc.Save
	End If
	
	'Neuen Übernahmeauftrag erstellen
	Dim uidoc2 As NotesUIDocument
	Set uidoc2 = wks.ComposeDocument("","", "aenderungen")
	
	Call uidoc2.FieldSetText ( "Form", aenderungen)
	Call uidoc2.FieldSetText ( "Status", "In Erfassung")
	Call uidoc2.FieldSetText ( "AuftragVA", auftragva)
	Call uidoc2.FieldSetText ( "Subject", thema)
	Call uidoc2.FieldSetText ( "Programmnr", aenr)
	Call uidoc2.FieldSetText ( "AnsprechpartnerDV", bearbeiter)
	Call uidoc2.FieldSetText ( "Autor", session.CommonUserName)
	
	'Call uidoc2.Save
	
	Messagebox ("Der Übernahmeauftrag wurde erfolgreich erstellt!")
	
End Sub

[horus]

hallo

du kannst auch @UpdateFormulaContext versuchen. wichtig dabei ist nur das du dir die werte die du übernehmen willst vorher in variablen ablegst und dann den context updatest. eine andere möglichkeit als die wertübernahme und trotzdem formelsprache

[C_T]

VIELEN DANK DIE ERSTE MÖGLICHKEIT HAT SCHON GEHILFEN VIELEN DANK


GRUß CT

[dpeters]

Hallo, habe zur Zeit das selbe Problem, komme aber nicht wirklich weiter:
Ich möchte in Maske B das Feld "Vorname" aus Maske A übernehmen.

Habe in entsprechendes Textfeld in Maske B (berechnet zur Anzeige) folgenden Wert eingegeben:

@GetDocField(@Text(@DocumentUniqueID);"Vorname")

Wo liegt hier der Fehler???

Vielen Dank schon mal im Voraus

Gruß
Dietmar Peters

[klaussal]

... weil in DocumentUniqueID der falsche Wert drin steht 

Edit: warum nimmst Du nicht die Lösung aus Antwort # 1 ?

[dpeters]

Ja wie bekomme ich den den Wert des entsprechenden Dokuments in die Formel mit rein?

[klaussal]

Nochmals:

Warum nimmst Du nicht die Lösung aus Antwort # 1 ?

[dpeters]

Sorry Klauss. Ich möchte die Lösung aus Antwort #1 ja nehmen.

Ich weiss aber nicht wie ich folgendes umsetzten soll:
"..... und in Maske B in den Feldern mit Formeln zum Übernehmen der Werte arbeitest."

Ich dachte das würde mit @getdocfield funktionieren.
Und da weiss ich eben nicht wie ich die UNID in die Formel mit einbaue.
ODer bin ich bereits mit @getdocfield auf dem Holzweg???

[klaussal]

Holzweg.

Lies doch einfach mal in Designer-Hilfe 

Stichwort: Werte übernehmen

[ghost]

Hallo Dietmar,

Du musst in der Maske, die die Werte übernehmen soll in den Maskeneigenschaften die Option "Formulas inherit values from selected document" aktivieren (zweiter Reiter, der mit dem Propellerhut).

Dann schreibst Du in der Zielmaske in die entsprechenden Felder, die die Werte aus der Quellmaske übernehmen sollen den Feldnamen der Felder die übernommen werden sollen als Default value.

Viele Grüße
ghost

[dpeters]

Dankeschön an alle.
Habe mal wieder zu kompliziert gedacht. 

Habs jetzt.