Neues Dokument in Dialogbox verschlüsseln klappt nicht

[Exordium]

Hallo

Notes-Noob zu sein ist schon nervig... 

Nächste Frage: Ich habe eine Maske, hinter der ich einen persönlichen Encryptionkey hinterlegt habe und in der ich 3 Felder mit diesem Key verschlüsseln möchte. Die dazugehörige Maske wird über eine Dialogbox dargestellt und ausgefüllt. Ich habe so die Vermutung, dass das zuvor erstellte leere Background-Dokument mein Problem ist... hier der Code snippet

Code

 Viele DIMs zuvor....

        Set uidoc = ws.CurrentDocument
	Set curdoc = uidoc.Document	
	Set db = session.CurrentDatabase
	Set dialogdoc = db.CreateDocument
	
	If Not uidoc.Editmode Then
		uidoc.EditMode = True
	End If
	
	dialogdoc.Form = "$pw"
	dialogdoc.ParentDocUNID = curdoc.UniversalID
	If (ws.Dialogbox("$pw",True,True,False,False,False,False,"Neues Kennwort eintragen",dialogdoc, True, False)) Then
		If Not (dialogdoc.Save( True, True, True)) Then
			Messagebox "Speichern der Kennwortinformationen fehlgeschlagen!", MB_OK, "Fehler!"
		End If
		Call uidoc.Refresh
	End If

Das funktioniert auch alles recht gut, nur das Dokument landet unverschlüsselt in der DB. Auch die für die Verschlüsselung notwendigen Systemfelder sind nicht hinzugefügt worden. Die zur Verschlüsselung vorgesehenen Felder haben aber das "SEAL" Tag. Ich könnte nachträglich über die Dokumenteigenschaften den Key eintragen und das Dokument dann verschlüsseln... aber das ist ja nicht Sinn der Sache...

HELP!

Gruß
Markus

[pram]

du musst auf jeden Fall vor dem doc.save ein doc.encrypt aufrufen.

Desweiteren musst du die Felder PublicEncryptionKeys oder SecretEncryptionKeys mit den richtigen Werten füllen (vermute das passiert in der Maske)

Gruß
Roland

[Exordium]

du musst auf jeden Fall vor dem doc.save ein doc.encrypt aufrufen.

Desweiteren musst du die Felder PublicEncryptionKeys oder SecretEncryptionKeys mit den richtigen Werten füllen (vermute das passiert in der Maske)

Gruß
Roland

OK, ich dachte es reicht, wenn in der Maskendefinition ein Key angegeben ist, damit er es beim Speichern selbstständig verschlüsselt. Das Feld SecretEncryptionKeys habe ich natürlich auch nicht definiert gehabt.
Ich versuche das gleich nachher... Muss dummerweise gerade was arbeiten *g* 

Markus

[Exordium]

So, Änderungen gemacht und getestet. Funktioniert 1a. Danke für die schnelle Hilfe.