Change description in file save form

Juanki

Hi all,
We're developing a new skill for FILESITE in a client and we need to change the file description programatically in the saving files form.
We're trying to do this with a nrs file. We're using the filesave.nrs and the nrDescription variable in the OnInitDialog event but we get an empty value.
So, can anyone tell us how can we do this change?
Thank you in advance.

This is our script:

Option Explicit

' AttributeID


Private Const imProfileAuthor = 5
Private Const nrClass = 8
Private Const nrSubClass = 9
Private Const nrDescription = 3


Private Sub IManFileSaveDlg_OnInitDialog(pMyInterface)

pMyInterface.SetAttributeValueByID imProfileAuthor, getUserName(), True
pMyInterface.SetAttributeValueByID nrDescription, FormatDescription(obj.GetAttributeByID(nrDescription)), True


End Sub

Private Sub IManFileSaveDlg_OnChange(dlg, id)

End Sub


Private Function getUserName()
Dim oNet
Dim userName

On Error Resume Next

Set oNet = CreateObject("WScript.NetWork")

If Err.number = 0 Then
userName = oNet.UserName
End If

Set oNet = Nothing

getUserName = userName
End Function

Private Function FormatDescription(Description)

Dim Description1
Dim Longitud
Dim Posicion1
Dim Posicion2
Dim Posicion3

Longitud=Len(Description)
Posicion1=Instr(1,Description,")(")
Description1=Right(Description,(Longitud-(Posicion1)-1))
Posicion2=Instr(1,Description1,")")
Posicion3=Instr(1,Description1,".")
Longitud=Len(Description1)
If (Posicion1<>0) and (Posicion2=Longitud) and (Posicion3=(Longitud-4)) Then
FormatDescription = Left(Description1,(Longitud-5))
Else
FormatDescription = Description
End If

End Function

guido1

In your script, try capturing the events of the ICommand itself, rather than the dialog

interface. Your code might then read something like:

Option Explicit

' AttributeID


Private Const imProfileAuthor = 5
Private Const nrClass = 8
Private Const nrSubClass = 9
Private Const nrDescription = 3


Sub IManFileSaveCmd_OnInitDialog(pMyInterface)

pMyInterface.SetAttributeValueByID imProfileAuthor, getUserName(), True
pMyInterface.SetAttributeValueByID nrDescription, FormatDescription(obj.GetAttributeByID(nrDescripti on)), True


End Sub

Private Function getUserName()
Dim oNet
Dim userName

On Error Resume Next 

Set oNet = CreateObject("WScript.NetWork")

If Err.number = 0 Then
userName = oNet.UserName
End If

Set oNet = Nothing

getUserName = userName
End Function

Private Function FormatDescription(Description)

Dim Description1
Dim Longitud
Dim Posicion1
Dim Posicion2
Dim Posicion3

Longitud=Len(Description)
Posicion1=Instr(1,Description,")(") 
Description1=Right(Description,(Longitud-(Posicion1)-1))
Posicion2=Instr(1,Description1,")")
Posicion3=Instr(1,Description1,".")
Longitud=Len(Description1)
If (Posicion1<>0) and (Posicion2=Longitud) and (Posicion3=(Longitud-4)) Then
FormatDescription = Left(Description1,(Longitud-5))
Else
FormatDescription = Description
End If

End Function