OnGetWhereUsedForAutomationUsingKeyProperties Method

Description

Gives the list of whereused documents using Key Properties

Syntax

Visual Basic
Public Sub OnGetWhereUsedForAutomationUsingKeyProperties( _ ByRef pvarMFKAttrInfo As Variant, _ ByVal bstrItemRev As String, _ ByVal bstrItemType As String, _ ByVal bstrDataSetFileName As String, _ ByRef pvarListOfWhereUsedDocuments As Variant _ )

Visual Basic

Public Sub OnGetWhereUsedForAutomationUsingKeyProperties( _
   ByRef pvarMFKAttrInfo As Variant, _
   ByVal bstrItemRev As String, _
   ByVal bstrItemType As String, _
   ByVal bstrDataSetFileName As String, _
   ByRef pvarListOfWhereUsedDocuments 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.
pvarListOfWhereUsedDocuments: Returns the list of whereUsed files.

Example

Example (VB.NET)

Imports System.Runtime.InteropServices

Public Class Form1 

    Private Sub OnGetWhereUsedForAutomationUsingKeyProperties_Click(sender As Object, e As EventArgs) Handles OnGetWhereUsedForAutomationUsingKeyProperties.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) = "001411"
        MFKAttributes(1, 0) = "object_type"
        MFKAttributes(1, 1) = "MFK9Item12"
        MFKAttributes(2, 0) = "mfk9attribute1"
        MFKAttributes(2, 1) = "hhhh"

        Dim FileItemRevID As String = "B"
        Dim ItemTypeMFK As Object
        ItemTypeMFK = "MFK9Item12"
        Dim FileDataSetName As String = "001411-BE144.asm"
        Dim Listoffiles 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.OnGetWhereUsedForAutomationUsingKeyProperties(MFKAttributes, FileItemRevID, ItemTypeMFK, FileDataSetName, Listoffiles)

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