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

Example

Example (Visual Basic)

Private Sub Command1_Click()
    On Error Resume Next
    Dim objApplication As SolidEdgeFramework.Application
    Dim objSolidEdgeTCE As SolidEdgeFramework.SolidEdgeTCE
    
    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)

    Set objSolidEdgeTCE = Nothing
    Set objApplication = Nothing
End Sub