CONV_RecListToComRecordList FirstPar,Record1 
CONV_RecListToComRecordList SecondPar,Record2
CONV_RecListToComRecordList ThirdPar,Record3


'----------------------------------------------------------------------------------
'Add for Toolbox integration 
' Get the Vault id (Toolbox integration)
VaultId = Record1.ValueAsInteger("VAULT_OBJECT_ID", 0)
Print "VaultId=" + Str(VaultId)
'-----------------------------------------------------------------------------------

'Retrieve information from GetPrivateProfileString
'Information read in SmTeam32.ini
Set SmConfig = SmSession.Config
SmConfig.IniFileName = "SMTEAM32.INI"
Key = "$Admin\CATIA\SaveWithUniqueFileName"
DefaultValue = "NO"
ValueYN = SmConfig.ReadValueAsString(Key,DefaultValue)
'------------------------------------------------------
' modifiche IBM del novembre 2005 per sopperire ad errato controllo sui ruoli nel contesto di un progetto
' nella integrazione Catia ---- livello V5 R14 SP7
 
    Dim user As String
    user = SmSession.UserMetaInfo.UserLogin
    'MsgBox user
    'MsgBox link_class.name
    'MsgBox prj_class.name

    Dim CADInterface As SmCADInterface
    Dim ProjObjId As Long
	Dim ProjClassId As Integer
    'Dim RetCode As Integer
    Set CADInterface = SmSession.GetService ("SmCad.SmCADInterface")
    RetCode = CADInterface.GetProject(ProjObjId,ProjClassId)
    'MsgBox RetCode
	'MsgBox 	ProjClassId
	'Dim Progetto As ISmObject

	Dim Secur As SmApplic.ISmSecurity
    Set Secur = SmSession.SmSecurity
    Dim AutoCon As SmApplic.ISmAuthorizationContext
    Set AutoCon = Secur.AuthorizationContextFromSmObjectById(ProjClassId,ProjObjId)
    Dim Ruoli As SmApplic.ISmRoles
    
    Dim Userid As Long
    Userid = SmSession.UserMetaInfo.UserId
	Dim AllUsers As SmApplic.ISmUsers
    Set AllUsers = Secur.GetAllUsers
    
    Dim Indice As Long
    Indice = AllUsers.IndexOfById(Userid)
    'MsgBox Indice
    Dim SmUtente As SmApplic.ISmUser
    Set SmUtente = AllUsers.Item(Indice)
    Set Ruoli = SmUtente.GetRolesInAuthorizationContext(AutoCon)
    Dim Numeroruoli As Long
	Numeroruoli = Ruoli.Count
    If Numeroruoli < 1 Then
      MsgBox "User" + " " + user + " not authorized ,having not the correct roles specific for this project "
      GoTo ErrHandler
      Exit Function
    End If