Only allow run task on approved versions

Hi,

I've found a previous thread where someone wanted to use variables on the data card in the save to FileName which I copied and modified to attempt to achieve what I need. There is a routine called LoginToVault as follows:

'********************************************

Private Sub LoginToVault()

  On Error GoTo ErrHand

  Dim strTempVaultName As String

  Dim strVaultName As String

  strTempVaultName = "<VaultPath>"

  i = Len(strTempVaultName)

  j = InStrRev(strTempVaultName, "\")

  strVaultName = Right(strTempVaultName, i - j)

  Set vault = CreateObject("ConisioLib.EdmVault")

  vault.LoginAuto strVaultName, 0

  Exit Sub

  ErrHand:

  If Not vault Is Nothing Then

  Dim errname As String

  Dim errdesc As String

  vault.GetErrorString Err.Number, errname, errdesc

  Log ("LoginToVault error" & vbCrLf & errname & vbCrLf & errdesc )

  Else

  Log "Error creating file vault interface."

  End If

End Sub

Private Function GetVariableValue(FilePath, VariableName, Configuration)

  On Error GoTo ErrHand

  Dim File As Object

  'Get the interface of the file (and its parent folder)

  Dim Folder As Object

  Set File = vault.GetFileFromPath(FilePath, Folder)

  'Obtain the variable interface

  Dim pEnumVar As Object

  Set pEnumVar = File.GetEnumeratorVariable

  Dim Value As Variant

  If pEnumVar.GetVar(VariableName, Configuration, Value) Then

  GetVariableValue = Value

  Else

  GetVariableValue = ""

  End If

  Exit Function

  ErrHand:

  Dim ename As String

  Dim edesc As String

  vault.GetErrorString Err.Number, ename, edesc

  Log "GetvariableValue error" & vbCrLf & ename & vbCrLf & errdesc

End Function

'***********************************************

In the convert routine I've added the section between asterix so it reads as follows:

Sub main()

    On Error GoTo Fail:

    Set FileSystemObj = CreateObject("Scripting.FileSystemObject")

    docFileName = "<Filepath>"

'******************************************************

  'Get the vault interface

  Call LoginToVault

  'Get Variable Values

  Dim StatusVarValue

  StatusVarValue = GetVariableValue(docFileName, "WPDM_Status", "@")

     Log "Value of StatusVarValue = " & StatusVarValue

  If StatusVarValue <> “Released” Then

            Exit Sub

End If

'*******************************************************

      ' Get SW interface object

    Set swApp = Application.SldWorks

    Convert docFileName

    Exit Sub

Fail:

    Log "Error while converting file '" & docFileName & "': " & vbCrLf & _

        "An unexpected error occurred while executing the generated script. Script syntax error?" & vbCrLf & _

        "Error number: " & Err.Number & vbCrLf & _

        "Error description: '" & Err.Description & "'" & vbCrLf

End Sub

Other than that, the Convert script is stock standard.

The intent of the additional code is it will read the data card and if the WPDM_Status is not equal to "Released" it will stop running the task before converting the file.

Running the task on a file where the data card shows "Released" in WPDM_Status results in the task ending before converting the file. The log function added above the If statement returns "Value of StatusVarValue = Released".

So it would seem it is successfully reading the data card, writing Released in the StatusVarValue, but then determining it is not equal to "Released".

Can anyone suggest what could be wrong with the additional code?

Thanks,
Paul