CMCN1982

MSP 2007 Integration

Discussion created by CMCN1982 on Dec 10, 2013
Latest reply on Dec 13, 2013 by Chris_Hackett

I guys,

I am having a bit of trouble with MS Project 2007 Integration in Clarity v13.1.

I have done some research and I basically performed the steps described in this article to perform an uninstall/reinstall.

https://support.ca.com/irj/portal/kbtech?docid=481070&searchID=TEC481070&fromKBResultsScreen=T

Everything goes fine up until I double click the MSPAdd2K.mpp file. When I do this Project 2007 opens, but then a Global.MPT - This Project launches with the following information:

Compile Error: Sub or Function not defined

Sub Project_Open(ByVal pj As Project)
   Dim nikuPath As String
   On Error GoTo EndEvent
   If StrComp(pj.Name, "MSPAdd2K.mpp") <> 0 Then
      ' push current directory
      Niku_General.sCurDir = CurDir
      ' get to our DLL location
      rc = Niku_Utility.fReadValue("HKLM", "Software\Niku\Schedulers\", "installDir", "S", "", nikuPath)
      Niku_General.SetCurrentDirectory (nikuPath)
      Niku_Api.mspEvent 2, pj.path & "\" & pj.Name
      ' pop current directory
      SetCurrentDirectory (Niku_General.sCurDir)
   End If
 
EndEvent:
End Sub
Sub Project_BeforeSave(ByVal pj As Project)
   Dim nikuPath As String
   On Error GoTo EndEvent
   If StrComp(pj.Name, "MSPAdd2K.mpp") <> 0 Then
      ' push current directory
      Niku_General.sCurDir = CurDir
      ' get to our DLL location
      rc = Niku_Utility.fReadValue("HKLM", "Software\Niku\Schedulers\", "installDir", "S", "", nikuPath)
      Niku_General.SetCurrentDirectory (nikuPath)
      Niku_Api.mspEvent 3, pj.path & "\" & pj.Name
      ' pop current directory
      Niku_General.SetCurrentDirectory (Niku_General.sCurDir)
   End If
 
EndEvent:
End Sub
Sub Project_BeforeClose(ByVal pj As Project)
   Dim nikuPath As String
   On Error GoTo EndEvent
   If StrComp(pj.Name, "MSPAdd2K.mpp") <> 0 Then
      ' push current directory
      Niku_General.sCurDir = CurDir
      ' get to our DLL location
      rc = Niku_Utility.fReadValue("HKLM", "Software\Niku\Schedulers\", "installDir", "S", "", nikuPath)
      Niku_General.SetCurrentDirectory (nikuPath)
      Niku_Api.mspEvent 1, pj.path & "\" & pj.Name
      ' pop current directory
      Niku_General.SetCurrentDirectory (Niku_General.sCurDir)
   End If
 
EndEvent:
End Sub
Sub Project_Activate(ByVal pj As Project)
  Dim nikuPath As String
  If StrComp(pj.Name, "MSPAdd2K.mpp") <> 0 Then
    Niku_Utility.fReadValue "HKLM", "Software\Niku\Schedulers\", "installDir", "S", "", nikuPath
    ' update dynamic menu
    Niku_IntegrationMenu.UpdateDynamicMenu
  End If
End Sub
 
 
I also get similar for the niku_general, niku_utility, niku_api etc
 
Eventually, if I close out of the compile errors I get a screen with the following:
 
The command is not available in this situation.
 
Does anyone have any ideas as to how I can get around this?
 

 

Outcomes