gearboxform: skip validation in case of iepc dummy gearbox

VECTO/GUI/VectoJobForm.vb

@@ -1771,13 +1771,6 @@ Public Class VectoJobForm
         End If
     End Sub
 
-    Private Sub Label5_Click(sender As Object, e As EventArgs) Handles Label5.Click
-
-    End Sub
-
-    Private Sub LvAux_SelectedIndexChanged(sender As Object, e As EventArgs) Handles LvAux.SelectedIndexChanged
-
-    End Sub
 End Class
 
 

VECTO/Input Files/Gearbox.vb

@@ -15,6 +15,7 @@ Imports System.Linq
 Imports System.Xml
 Imports TUGraz.VECTO.Input_Files
 Imports TUGraz.VectoCommon.BusAuxiliaries
+Imports TUGraz.VectoCommon.Exceptions
 Imports TUGraz.VectoCommon.InputData
 Imports TUGraz.VectoCommon.Models
 Imports TUGraz.VectoCommon.Utils
@@ -233,6 +234,21 @@ Public Class Gearbox
                 End Try
 
                 axlegearData = New AxleGearDataAdapter().CreateAxleGearData(gearbox)
+
+                dim supportedGearboxTypes As GearboxType() = New GearboxType(){ GearboxType.AMT, GearboxType.ATSerial, GearboxType.ATPowerSplit, GearboxType.MT, GearboxType.APTN, GearboxType.IEPC, GearboxType.IHPC}
+                'Select Case jobType
+                '    Case VectoSimulationJobType.ConventionalVehicle:
+                '        supportedGearboxTypes = DeclarationDataAdapterHeavyLorry.Conventional.SupportsGearboxTypes
+                '        Case VectoSimulationJobType.ParallelHybridVehicle
+                '            supportedGearboxTypes = DeclarationDataAdapterHeavyLorry.ParallelHybrid.SupportsGearboxTypes
+                'End Select
+
+                if gearbox.Type = GearboxType.IEPC Then
+                    if (gearbox.Gears.Count > 0) then
+                        throw new VectoSimulationException("No gears are allowed for IEPC gearbox.")
+                    End If
+                    gearboxData = new GearboxData() With{ .Inertia = 0.SI(of KilogramSquareMeter), .TractionInterruption = 0.SI(of Second)} 
+                else
                     gearboxData = New GearboxDataAdapter(New TorqueConverterDataAdapter()).CreateGearboxData(
                         New MockVehicleInputData() _
                                                            With {
@@ -246,7 +262,8 @@ Public Class Gearbox
                                                            New VehicleData() _
                                                            With {.DynamicTyreRadius = rdyn,
                                                            .VehicleCategory = vehiclecategory}},
-                    Nothing, DeclarationDataAdapterHeavyLorry.Conventional.SupportsGearboxTypes)
+                        Nothing, supportedGearboxTypes)
+                End If
             Else
 
                 Dim doa As EngineeringDataAdapter = New EngineeringDataAdapter()