Feldwerte mit Button aus Dialogbox übergeben

[Gruenkohl]

Morgen,

habe ein Problem (was auch sonst ).
Ich möchte aus einer Dialogbox Feldwerte übergeben. Normal passiert das ja automatisch, wenn man auf den "OK" Button klickt.
Da ich aber einen eigenen Button eingebaut habe, werden die Werte nicht übergeben.

Hat jemand ne Ahnung, wie ich das hin bekomme???

THX

Andreas

[hampa]

Hallo

Wenn ich mich recht erinnere haben wir soetwas schon einmal gemacht und zwar folgendermassen.

Wir haben die Werte beim auslösen des Buttons in ein Profile-Dokument geschrieben und auf dem Parent-Form wieder ausgelesen und die Felder gefüllt. (Notes-Client)

Gruss Hampa

[pipsxx]

hi !

wie rufst du die dialogbox denn auf? ueber eine aktion oder schaltflaeche in einem dokument?

wenn das so ist, kannst du das feld fuellen mit:

// abfangen des rueckgabewertes der box
temp := @Prompt( -> oder so? aufruf deiner dialogbox)

// feld fuellen
FIELD feldname := feldname
@SetField("feldname"; temp)

oder weniger umstaendlich. kommt ganz drauf an, was du bezweckst und wie du das aufruft.
oder lieg ich damit voellig daneben?  

[Gruenkohl]

Hi,

also ich rufe die Box per Button in einem Dokument auf.

Call w.DialogBox( "SendTo", True, True, False, False, False, False, "Bitte wählen Sie den neuen Empfänger aus:", , True, False)

Wenn man nun auf Speichern klickt, sollten Felder berechnet werden und in das Dokument übergeben werden.

[pipsxx]

aha...

und wenn du zuerst das dokument deklarierst und dann den rueckgabewert in eine var einliest?

so ala:

...

dim empfaenger as string
empfaenger = w.DialogBox( ... )
doc.Feldname = empfaenger

funzt das vielleicht?

[Glombi]

@Gruenkohl:
Folgendes kann Du machen:

...
dim dialogdoc as NotesDocument
dim doc as NotesDocument

'settings von session, db und doc (das Dokument, in das die Werte aus der Dialogbox geschrieben werden sollen)

set dialogdoc = db.CreateDocument
ret = w.Dialogbox(...,dialogdoc)

'Übertragen Werte aus Dialogbox in Dokument

doc.Feld1 = dialogdoc.Feld1
doc.Feld2 = dialogdoc.Feld2
...

Gruß
Andreas