NewProf.nrs

appguy

Does anyone know what context item I can add to stop the Newprof process? I'm trying to prevent the dragging and dropping of a file from one database to the database icon of another database in Filesite(8.2 SP1 P4) . Currently, this is allowed--the newprof dialog will appear and allow the file to be saved as an orphan. To try to prevent this, I'm currently getting the Destination folder context item to check for the database name, however, I need to know how to stop the process and what context item to pass to accomplish this if I find the destintation folder is a database.

Many thanks in advance.

jny

Does anyone know what context item I can add to stop the Newprof process? I'm trying to prevent the dragging and dropping of a file from one database to the database icon of another database in Filesite(8.2 SP1 P4) . Currently, this is allowed--the newprof dialog will appear and allow the file to be saved as an orphan. To try to prevent this, I'm currently getting the Destination folder context item to check for the database name, however, I need to know how to stop the process and what context item to pass to accomplish this if I find the destintation folder is a database. Many thanks in advance.

You can do this inside the newprof.nrs script:

Option Explicit

dim srcdbname

Sub NewProfileDlg_OnInitDialog(obj)
dim doc
on error resume next
set doc = obj.NRTDocument
if not doc is nothing then
srcdbname = doc.Database.Name
end if
End Sub

Sub NewProfileCmd_PreOnOK(obj)
dim dest
on error resume next
set dest = Context("DestinationObject")
if not dest is nothing then
if dest.Name <> srcdbname then
Context.Add "IManExt.DoOK", false
MsgBox "Documents cannot be moved to a different database."
end if
end if
End Sub

new_report_1.rptdesign