Minor fixes
This commit is contained in:
parent
4b25f1440a
commit
c5a8b20002
|
|
@ -291,7 +291,7 @@ Public Class GUI
|
||||||
exportTable = Create_ExportTable()
|
exportTable = Create_ExportTable()
|
||||||
|
|
||||||
|
|
||||||
Program.Build_Grating()
|
Program.Build_Grating(exportTable)
|
||||||
|
|
||||||
'Test för att SW API
|
'Test för att SW API
|
||||||
Dim pointTable As New DataTable
|
Dim pointTable As New DataTable
|
||||||
|
|
@ -302,7 +302,7 @@ Public Class GUI
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Function Create_ExportTable() As DataTable
|
Private Function Create_ExportTable() As DataTable
|
||||||
Dim gratingTable As DataTable
|
Dim gratingTable As New DataTable
|
||||||
gratingTable.Columns.Add("TYPE", GetType(String))
|
gratingTable.Columns.Add("TYPE", GetType(String))
|
||||||
gratingTable.Columns.Add("SERRATED", GetType(Boolean))
|
gratingTable.Columns.Add("SERRATED", GetType(Boolean))
|
||||||
gratingTable.Columns.Add("WIDTH", GetType(Decimal))
|
gratingTable.Columns.Add("WIDTH", GetType(Decimal))
|
||||||
|
|
|
||||||
|
|
@ -18,8 +18,8 @@ Public Class Program
|
||||||
Dim parentID As Integer = 0
|
Dim parentID As Integer = 0
|
||||||
Dim gratingParameters As DataRow = impTable.Rows(0)
|
Dim gratingParameters As DataRow = impTable.Rows(0)
|
||||||
inst_ = ExternalClass.instantiate_parts(parentID, gratingParameters("TYPE"), "") ' Ange pressure welded eller type A, Serrated?
|
inst_ = ExternalClass.instantiate_parts(parentID, gratingParameters("TYPE"), "") ' Ange pressure welded eller type A, Serrated?
|
||||||
ExternalClass.modify_parameter_value("DP_GRATING_WIDTH", inst_, gratingParameters("WIDTH")) 'Länka width
|
ExternalClass.modify_parameter_value("DP_GRATING_WIDTH", inst_, gratingParameters("WIDTH"))
|
||||||
ExternalClass.modify_parameter_value("DP_GRATING_LENGTH", inst_, gratingParameters("LENGTH")) 'Länka length
|
ExternalClass.modify_parameter_value("DP_GRATING_LENGTH", inst_, gratingParameters("LENGTH"))
|
||||||
'Lägg in fler DP
|
'Lägg in fler DP
|
||||||
|
|
||||||
importClass.copyGroupsByDataSet(ExternalClass.groupds_new)
|
importClass.copyGroupsByDataSet(ExternalClass.groupds_new)
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue