Domino 9 und frühere Versionen > ND6: Entwicklung

Feldwerte per Formel kopieren(übernehmen)

(1/3) > >>

fiuman007:
Hi,

ich will Werte von einigen Feldern auf eine zweite Maske übertragen.
Ich kenne ja diese Standardfunktion "Übernehmen Werte aus aktuellem dokument".
Nun leider geht die in meinem Fall nicht, weil die Felder nicht gleich heißen.

Ich habe es schon mal mit Skript gemacht, aber da hatte ich Probleme dass er mir die neuen Dokumente nicht immer als Response gemacht hat.  Obwohl die makeresponse Methode eingebaut war. Wie auch immer....
Ich wollte fragen ob man per Formel auch die Feldwerte übertragen kann ?

Also ich habe jetzt einen Aktion-HotSpot mit der simplen ResponsFormel :

viewname := @Subset(@ViewTitle; -1);
@SetProfileField("tmpProfile"; "viewtitle"; viewname);
@PostedCommand([Compose];"Anfragen")


Ich würde jetzt da irgendwie noch was einbauen, was die Felder kopiert .....

koehlerbv:
Die Felder müssen doch dafür überhaupt nicht gleich heissen  ... Du brauchst nur die Original-Feldnamen als Wert angeben.

Bernhard

fiuman007:
Ja bei dem LS.  Also habs da auch so gemacht.

............
docNew.Form = "Anfragen"
        docNew.BezeichnungAnfrage = docCurrent.Bezeichnung1
   docNew.ZeichnungAnfrage = docCurrent.Zeichnung1
   docNew.RevisionAnfrage = docCurrent.Rev1
   docNew.SpecAnfrage = docCurrent.Spec1

............


Aber wie mache ich so was in Formel ?

Semeaphoros:
Nö, nix mit LS, jedenfalls das von Dir erwähnte Response-Doc hat mit LS gar nichts zu tun, das ist so wie Bernhard sagt: Uebernehmen der Werte passiert über die Formel, die man für einen bestimmten Feldwert einträgt und damit müssen die Feldnamen im Parentdoc und im Responsedoc nicht übereinstimmen.

fiuman007:
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 = docCurrent.Bezeichnung1
   docNew.ZeichnungAnfrage = docCurrent.Zeichnung1
   docNew.RevisionAnfrage = docCurrent.Rev1
   docNew.SpecAnfrage = docCurrent.Spec1
   
   docNew.ProjectNo = docCurrent.ProjectNo
   docNew.Customer = docCurrent.Customer
   docNew.ProjectName = docCurrent.ProjectName
   docNew.Coordinator = docCurrent.Coordinator
   docNew.SIANo = docCurrent.SIANo
   docNew.ProductType = docCurrent.ProductType
   docNew.PONum = docCurrent.PONum
   docNew.CustDwgNo = docCurrent.CustDwgNo
   docNew.ILANo = docCurrent.ILANo
   docNew.MaterNo = docCurrent.MaterNr1
   
   
   Set uidocNew = ws.EditDocument(True, docNew)  'Dokument im Frontend öffnen
   Call uidocNew.Refresh 'Dokument aktualisieren
   
End Sub


Das ist doch LS oder ?

Navigation

[0] Themen-Index

[#] Nächste Seite