FileSave.nrs Properties, Methods and ContextItems?

BjoernWeber

Hi!

I want to write a NRS-File, that prevents a user to save a document to a specific location (the user should not save a document directly to a database in the worksite-exlplorer, documents should always be saved to folders).
I tried something like this:

[filesave.nrs]
--------------

Sub IManFileSaveCmd_PreOnOK(dlg)
 Dim MyLocation

 'MyLocation=dlg.??? 'which property should I use here?
 'or something like
 'MyLocation = Context.Item("???") 'is there a location ContextItem?

 If MyLocation = "MyDatabase" Then 
  dlg.CloseOnOK = False
  Context.Add "iManExt.DoOK", False
  MsgBox "Error! Save to a folder!"
 Else
  dlg.CloseOnOK = True
  Context.Add "iManExt.DoOK", True
 End if
End Sub

But unfortunately I can't find any documentation of the properties, methods and contextitems of the filesave.nrs.

Thanks,
Björn

jny

Try this:

Option Explicit

Sub IManFileSaveCmd_PreOnOK(dlg)
Dim MyLocation

Set MyLocation = dlg.DestinationObject
On Error Resume Next
If UCase(MyLocation.Name) = "" Then
dlg.CloseOnOK = False
Context.Add "iManExt.DoOK", False
MsgBox "Error! Save to a folder!"
Else
dlg.CloseOnOK = True
Context.Add "iManExt.DoOK", True
End if
End Sub