CheckBomStructureUsingKeyProperties Method

Description

Check for duplicate object IDs in the BOM Structure from the server for the input ItemRev and using Key Properties

Syntax

Visual Basic
Public Sub CheckBomStructureUsingKeyProperties( _ ByRef pvarMFKAttrInfo As Variant, _ ByVal bstrItemRevId As String, _ ByVal bstrItemType As String, _ ByVal bstrRevisionRule As String, _ ByRef bIsDuplicateBOMLineExists As Boolean, _ ByRef ListOfDupliacteObjIDs As Variant _ )

Visual Basic

Public Sub CheckBomStructureUsingKeyProperties( _
   ByRef pvarMFKAttrInfo As Variant, _
   ByVal bstrItemRevId As String, _
   ByVal bstrItemType As String, _
   ByVal bstrRevisionRule As String, _
   ByRef bIsDuplicateBOMLineExists As Boolean, _
   ByRef ListOfDupliacteObjIDs As Variant _
)

Parameters

pvarMFKAttrInfo: It is a two-dimensional array which will take Key Properties and their values as input.
bstrItemRevId: Specify the item-rev of the item.
bstrItemType: Specify the item-type of the item.
bstrRevisionRule: Specify the Revision Rule for which results are to be fetched.
bIsDuplicateBOMLineExists: This Boolean variable will return True or False after checking for duplicate files under BOM.
ListOfDupliacteObjIDs: This is a list of duplicate files. If any duplicate files are found under the BOM then the list will be returned in this parameter.

Example

Example (VB.NET)

Imports System.Runtime.InteropServices

Public Class Form1 

    Private Sub CheckBomStructureUsingKeyProperties_Click(sender As Object, e As EventArgs) Handles CheckBomStructureUsingKeyProperties.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 = "B"
        Dim ItemTypeMFK As Object
        ItemTypeMFK = "MFK9Item12"
        Dim bIsDuplicateBOMLineExists As Boolean = False
        Dim ListOfDuplicateIDs As Object = Nothing
        Dim revRule As String = "Latest Working"


        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.CheckBomStructureUsingKeyProperties(MFKAttributes, FileItemRevID, ItemTypeMFK, revRule, bIsDuplicateBOMLineExists, ListOfDuplicateIDs)

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