ReviseToTeamCenter Method

Description

Create a new revision of a file

Syntax

Visual Basic
Public Sub ReviseToTeamCenter( _ ByVal bstrItemId As String, _ ByVal bstrItemRev As String, _ ByVal bstrDataSetFileName As String, _ ByVal bstrRevisionRule As String, _ ByVal bstrFolderName As String, _ ByRef pvarListOldAndNewItemIDRevsFileNames As Variant _ )

Visual Basic

Public Sub ReviseToTeamCenter( _
   ByVal bstrItemId As String, _
   ByVal bstrItemRev As String, _
   ByVal bstrDataSetFileName As String, _
   ByVal bstrRevisionRule As String, _
   ByVal bstrFolderName As String, _
   ByRef pvarListOldAndNewItemIDRevsFileNames As Variant _
)

Parameters

bstrItemId

Specifies the item-id of the item

bstrItemRev

Specifies the item-rev of the item

bstrDataSetFileName

DataSetName of the file

bstrRevisionRule

Revision Rule of the file

bstrFolderName

Name of the folder where the new file supposed to save

pvarListOldAndNewItemIDRevsFileNames

Returns an array of following

1.Old ItemID and new ItemID
2.Old Revision and New Revision
3.Old Filename and New Filename

Example

Example (Visual Basic)

Private Sub Command1_Click()
    On Error Resume Next
    Dim objApplication As SolidEdgeFramework.Application
    Dim objSolidEdgeTCE As SolidEdgeFramework.SolidEdgeTCE
    Dim objListFileNames as Object = Nothing
    Set objApplication = GetObject(, "SolidEdge.Application")
    Set objSolidEdgeTCE = objApplication.SolidEdgeTCE

    Dim FileItemID As String
    Dim FileItemRevID As String
    Dim FileDataSetName As String
    Dim FileRevisionRule As String
    Dim FolderName As String
    
    FileItemID = "020670"
    FileItemRevID = "A"
    FileDataSetName = "020670.par"
    FileRevisionRule = ""
    FolderName = ""
    
    Call objSolidEdgeTCE.ReviseToTeamCenter(FileItemID, FileItemRevID, FileDataSetName, FileRevisionRule, FolderName, objListFileNames)

    Set objSolidEdgeTCE = Nothing
    Set objApplication = Nothing
End Sub