ReviseToTeamCenterUsingKeyProperties Method

Description

Create a new revision of a file using Key Properties.

Syntax

Visual Basic
Public Sub ReviseToTeamCenterUsingKeyProperties( _ ByRef pvarMFKAttrInfo As Variant, _ ByVal bstrItemRev As String, _ ByVal bstrItemType As String, _ ByVal bstrDataSetFileName As String, _ ByVal bstrRevisionRule As String, _ ByVal bstrFolderName As String, _ ByRef pvarListOldAndNewItemIDRevsFileNames As Variant _ )

Visual Basic

Public Sub ReviseToTeamCenterUsingKeyProperties( _
   ByRef pvarMFKAttrInfo As Variant, _
   ByVal bstrItemRev As String, _
   ByVal bstrItemType As String, _
   ByVal bstrDataSetFileName As String, _
   ByVal bstrRevisionRule As String, _
   ByVal bstrFolderName As String, _
   ByRef pvarListOldAndNewItemIDRevsFileNames As Variant _
)

Parameters

pvarMFKAttrInfo: It is a two-dimensional array which will take Key Properties and their values as input.
bstrItemRev: Specify the item-rev of the item.
bstrItemType: Specify the item-type of the item.
bstrDataSetFileName: Specify the dataset name of the file to be revised.
bstrRevisionRule: Specify the Revision Rule for which file is to be revised.
bstrFolderName: Specify the Folder name in which the revised file is supposed to be saved. This is optional parameter.
pvarListOldAndNewItemIDRevsFileNames: This is a list of old and new data for itemID, revision and file names of the revised file.

Example

Example (VB.NET)

Imports System.Runtime.InteropServices

Public Class Form1 

    Private Sub ReviseToTeamCenterUsingKeyProperties_Click(sender As Object, e As EventArgs) Handles ReviseToTeamCenterUsingKeyProperties.Click
        Dim objSEApplication As SolidEdgeFramework.Application = Nothing
        Dim objTCE As SolidEdgeFramework.SolidEdgeTCE = Nothing
        Dim majorVersion As Object = Nothing
        Dim completeVersion As Object = Nothing
        Dim UserName As String
        Dim Password As String
        Dim Group As String
        Dim Role As String
        Dim URL As String
        Dim bTeamCenterMode As Boolean

        Dim MFKAttributes(2, 1) As Object
        MFKAttributes(0, 0) = "item_id"
        MFKAttributes(0, 1) = "001410"
        MFKAttributes(1, 0) = "object_type"
        MFKAttributes(1, 1) = "MFK9Item12"
        MFKAttributes(2, 0) = "mfk9attribute1"
        MFKAttributes(2, 1) = "hhhh"

        Dim FileItemRevID As String = "A"
        Dim ItemTypeMFK As Object
        ItemTypeMFK = "MFK9Item12"
        Dim revRule As String = "Latest Working"
        Dim FileDataSetName As String = "001410-BE144.asm"
        Dim FolderName As String = "Newstuff"
        Dim ListOldandNewItemIDRevAndFileName As Object = Nothing

        Try
            objSEApplication = Marshal.GetActiveObject("SolidEdge.Application")
            objSEApplication.DisplayAlerts = False

            objTCE = objSEApplication.SolidEdgeTCE
            Call objTCE.GetTeamCenterMode(bTeamCenterMode)
            If bTeamCenterMode = False Then
                objTCE.SetTeamCenterMode(True)
            End If

            'Specify Server Credentials
            UserName = "abc"
            Password = "abc"
            Group = ""
            Role = ""
            URL = "http://Servername:8085/tc"

            Call objTCE.ValidateLogin(UserName, Password, Group, Role, URL)
            objTCE.ReviseToTeamCenterUsingKeyProperties(MFKAttributes, FileItemRevID, ItemTypeMFK, FileDataSetName, revRule, FolderName, ListOldandNewItemIDRevAndFileName)

        Catch ex As Exception
            MsgBox(ex.ToString)
            Clipboard.SetText(ex.ToString)
        End Try
    End Sub
End Class