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

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

* Correction GenShape Check

parent 9aca560a
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
......
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