Domino 9 und frühere Versionen > ND6: Entwicklung

Von einer Maske in eine andere

(1/3) > >>

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
--- Ende Code ---

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

Navigation

[0] Themen-Index

[#] Nächste Seite