mehdi-tarkian
/
X2021
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Minor fixes

This commit is contained in:
Anton 2021-02-01 09:40:38 +01:00
parent 4b25f1440a
commit c5a8b20002
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Wardrobe/GUI.vb
View File

@ -291,7 +291,7 @@ Public Class GUI
exportTable = Create_ExportTable()
Program.Build_Grating()
Program.Build_Grating(exportTable)
'Test för att SW API
Dim pointTable As New DataTable
@ -302,7 +302,7 @@ Public Class GUI
End Sub
Private Function Create_ExportTable() As DataTable
Dim gratingTable As DataTable
Dim gratingTable As New DataTable
gratingTable.Columns.Add("TYPE", GetType(String))
gratingTable.Columns.Add("SERRATED", GetType(Boolean))
gratingTable.Columns.Add("WIDTH", GetType(Decimal))

4
Wardrobe/Program.vb
View File

@ -18,8 +18,8 @@ Public Class Program
Dim parentID As Integer = 0
Dim gratingParameters As DataRow = impTable.Rows(0)
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_LENGTH", inst_, gratingParameters("LENGTH")) 'Länka length
ExternalClass.modify_parameter_value("DP_GRATING_WIDTH", inst_, gratingParameters("WIDTH"))
ExternalClass.modify_parameter_value("DP_GRATING_LENGTH", inst_, gratingParameters("LENGTH"))
'Lägg in fler DP
importClass.copyGroupsByDataSet(ExternalClass.groupds_new)