From 01cdf87e9c48e07b49e301c76729d771ac0d0f09 Mon Sep 17 00:00:00 2001 From: DIPPOLD Martin <Dippold@ivt.tugraz.at> Date: Tue, 30 Sep 2014 16:04:53 +0200 Subject: [PATCH] * Correction GenShape Check --- CSE/IO/cVehicle.vb | 2 +- CSE/IO/input.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/CSE/IO/cVehicle.vb b/CSE/IO/cVehicle.vb index 72ffd0c..2255fc7 100644 --- a/CSE/IO/cVehicle.vb +++ b/CSE/IO/cVehicle.vb @@ -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 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) Return End If diff --git a/CSE/IO/input.vb b/CSE/IO/input.vb index 516d735..86fc8a3 100644 --- a/CSE/IO/input.vb +++ b/CSE/IO/input.vb @@ -43,7 +43,7 @@ Public Module input MSCX.longS.Add(Line(5)) MSCX.latE.Add(Line(6)) 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 Catch ex As Exception ' Falls kein gültiger Wert eingegeben wurde -- GitLab