Imports XCCLibrary

Public Class Program
    'lite ändring för branch test
    Public Shared Function Add_Parts(Input As DataSet)
        Dim inst_ As Integer = 0
        Dim ParentID As Integer = 0
        Dim Last_section_height As Integer = 0

        For Each DT As DataTable In Input.Tables
            Dim Section_Width = DT.Rows(0)("Section_width")
            Dim Section_Height = DT.Rows(0)("Section_height")

            inst_ = ExternalClass.instantiate_parts(ParentID, "RAIL", "")
            ExternalClass.modify_parameter_value("DP_WIDTH", inst_, Section_Width)
            If Last_section_height > Section_Height Then
                ExternalClass.modify_parameter_value("DP_HEIGHT", inst_, Last_section_height)
            Else
                ExternalClass.modify_parameter_value("DP_HEIGHT", inst_, Section_Height)
            End If
            Last_section_height = Section_Height
            ParentID = inst_

            For Each DR As DataRow In DT.Rows
                Dim Type = DR("Type")
                If Type = "Basket" Then
                    inst_ = ExternalClass.instantiate_parts(ParentID, "BASKET", "")
                    ExternalClass.modify_parameter_value("DP_POS", inst_, DR("Position"))
                    ExternalClass.modify_parameter_value("DP_WIDTH", inst_, Section_Width)
                    ExternalClass.modify_parameter_value("DP_CONFIGURATION", inst_, DR("Item_Height"))

                ElseIf Type = "Hanger" Then
                    inst_ = ExternalClass.instantiate_parts(ParentID, "HANGER", "")
                    ExternalClass.modify_parameter_value("DP_POS", inst_, DR("Position"))

                ElseIf Type = "Hooks" Then
                    inst_ = ExternalClass.instantiate_parts(ParentID, "HOOKS", "")
                    ExternalClass.modify_parameter_value("DP_POS", inst_, DR("Position"))
                    ExternalClass.modify_parameter_value("DP_NUMBER", inst_, DR("Quantity"))
                    ExternalClass.modify_parameter_value("DP_WIDTH", inst_, Section_Width)

                ElseIf Type = "Drying" Then
                    inst_ = ExternalClass.instantiate_parts(ParentID, "DRYING_RACK", "")
                    ExternalClass.modify_parameter_value("DP_POS", inst_, DR("Position"))
                    ExternalClass.modify_parameter_value("DP_WIDTH", inst_, Section_Width)

                    If DR("Left") Then
                        ExternalClass.instantiate_parts(inst_, "ROD", "1")
                    End If
                    If DR("Mid") Then
                        ExternalClass.instantiate_parts(inst_, "ROD", "2")
                    End If
                    If DR("Right") Then
                        ExternalClass.instantiate_parts(inst_, "ROD", "3")
                    End If

                ElseIf Type = "Shelf" Then

                    If DR("Type_of_shelf") = "Flat" Then
                        inst_ = ExternalClass.instantiate_parts(ParentID, "FLAT_SHELF", "")
                    ElseIf DR("Type_of_shelf") = "Wire" Then
                        inst_ = ExternalClass.instantiate_parts(ParentID, "WIRE_SHELF", "")
                    End If
                    ExternalClass.modify_parameter_value("DP_DEPTH", inst_, DR("Depth"))
                    ExternalClass.modify_parameter_value("DP_POS", inst_, DR("Position"))
                    ExternalClass.modify_parameter_value("DP_WIDTH", inst_, Section_Width)

                End If
            Next


        Next

        inst_ = ExternalClass.instantiate_parts(ParentID, "RAIL", "")
        ExternalClass.modify_parameter_value("DP_HEIGHT", inst_, Last_section_height)


        Return groupClass.NewGroupID

    End Function


    Public Shared Sub UpdateKB()
        adminClass.loadSettings("C:\Users\Asus_station3\Desktop", "D:\OneDrive - XperDi AB\XperDi\DLL_Test\Wardrobe", "SolidWorks")
        adminClass.updateDatabase()
    End Sub
End Class