Code development platform for open source projects from the European Union institutions

Skip to content
Snippets Groups Projects
Commit ff48baab authored by Martin Dippold's avatar Martin Dippold
Browse files

Merge pull request #19 in VECTO/vecto-cse from ~EMDIPPOMA/vecto-cse:master to master

* commit 'a7dc84ed':
  * New Version number
  * Correction GenShape Check
parents 9aca560a a7dc84ed
No related branches found
No related tags found
No related merge requests found
...@@ -149,7 +149,7 @@ The generic parameters for classes are stored in the GenShape.shp", ...@@ -149,7 +149,7 @@ The generic parameters for classes are stored in the GenShape.shp",
'' ''
'' Check if vehicle class with the given configuration class is available '' Check if vehicle class with the given configuration class is available
For i = 0 To GenShape.veh_class.Count - 1 For i = 0 To GenShape.veh_class.Count - 1
If GenShape.veh_class(i) = Me.classCode AndAlso CBool(GenShape.veh_conf(i)) = Me.IsRigid Then If GenShape.veh_class(i) = Me.classCode AndAlso CBool(GenShape.veh_conf(i)) = CBool(Me.configuration) Then
Job.fa_pe = GenShape.fa_pe(i) Job.fa_pe = GenShape.fa_pe(i)
Return Return
End If End If
......
...@@ -43,7 +43,7 @@ Public Module input ...@@ -43,7 +43,7 @@ Public Module input
MSCX.longS.Add(Line(5)) MSCX.longS.Add(Line(5))
MSCX.latE.Add(Line(6)) MSCX.latE.Add(Line(6))
MSCX.longE.Add(Line(7)) MSCX.longE.Add(Line(7))
If Crt.gradient_correction Then MSCX.AltPath.Add(Line(8)) If Crt.gradient_correction And Not calibration Then MSCX.AltPath.Add(Line(8))
Loop Loop
Catch ex As Exception Catch ex As Exception
' Falls kein gültiger Wert eingegeben wurde ' Falls kein gültiger Wert eingegeben wurde
......
...@@ -13,7 +13,7 @@ Module declaration_public ...@@ -13,7 +13,7 @@ Module declaration_public
' Description of the form ' Description of the form
Public Const AppName As String = "VECTO_CSE" ' Name of the programm Public Const AppName As String = "VECTO_CSE" ' Name of the programm
Public Const AppVers As String = "2.0.1-beta1" ' Version of the Programm Public Const AppVers As String = "2.0.1-beta2" ' Version of the Programm
Public AppDate As String ' Date of the compilation of the programm Public AppDate As String ' Date of the compilation of the programm
' Control variables ' Control variables
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment