From 35eb4909da97ae06c9367d338ee79b4001f0a05e Mon Sep 17 00:00:00 2001
From: Yuelin Wang <y.wang@schoenenberger.de>
Date: Mon, 6 May 2024 10:42:54 +0200
Subject: [PATCH] Function GetHeightOfItem wurde implementiert. Abfrage der
 Anschlusshoehe des Foedereres und der Gefaellestrecke

---
 MAIN_SSG.rdx | 743 ++++++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 707 insertions(+), 36 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index bded9b7..6997475 100644
--- a/MAIN_SSG.rdx
+++ b/MAIN_SSG.rdx
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <PROCESS Id="RDK:0001" Name="MAIN_SSG" ModernUI="True" Options="(GITSAVEMODE)(NOUPDATEINCLUDEFILES)" Expanded="True">
-	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-04-29T11:59:48" LanguageVersion="2014.1.3.635" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="y.wang [ANGEBOT-NB02]" ModDate="2024-05-06T10:38:19" LanguageVersion="2014.1.3.635" />
 	<GROUP Id="RDK:0002" Name="Declarations" SubType="Declarations" Expanded="True">
 		<GROUP Id="RDK:0003" Name="Types" SubType="TypeSet" IncludeDate="0">
 			<GROUP Id="RDK:26387" Name="SSG_Group" SubType="TypeSet" IncludeDate="0">
@@ -50,7 +50,7 @@
 					<FIELD Id="RDK:1520421" Name="Drehung" Type="integer" DesignTimeNotes="1= im Uhrzeigersinn=rechts&#xD;&#xA;-1= Gegen Uhrzeigersinn=links" />
 					<FIELD Id="RDK:1520424" Name="Durchmesser" Type="double" />
 				</TYPE>
-				<TYPE Id="RDK:302581" Name="GefaelleType" SubType="structure">
+				<TYPE Id="RDK:302581" Name="GefaelleType" Expanded="True" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:302571" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:880709" Name="L1" Type="double" />
@@ -3498,6 +3498,7 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 										<PAR Name="pinned" />
 										<PAR Name="selected" />
 										<PAR Name="includeInBOM" />
+										<PAR Name="StreckeDefinition" />
 									</SET_STRUCT>
 								</GROUP>
 							</CASEGROUP>
@@ -13117,7 +13118,7 @@ me.x
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:1606858" CaseType="0">
 						<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
-						<IFTHENELSE Id="RDK:18735202">
+						<IFTHENELSE Id="RDK:18735202" Suppressed="True">
 							<VALUECONDITION Value="true" Oper="OR">
 								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Kreisel"]]></EXP>
 							</VALUECONDITION>
@@ -13205,7 +13206,7 @@ me.x
 								</IFTHENELSE>
 							</GROUP>
 						</IFTHENELSE>
-						<IFTHENELSE Id="RDK:18740477">
+						<IFTHENELSE Id="RDK:18740477" Suppressed="True">
 							<VALUECONDITION Value="true" Oper="OR">
 								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Strecke"]]></EXP>
 							</VALUECONDITION>
@@ -13227,13 +13228,86 @@ me.x
 								</CALLFUNCTION>
 							</GROUP>
 						</IFTHENELSE>
+						<IFTHENELSE Id="RDK:18827017">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Kreisel"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:18827016" SubType="Then">
+								<CALLFUNCTION Id="RDK:18827004">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$AddWeiche]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+								<CALLFUNCTION Id="RDK:18827005">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+								<IFTHENELSE Id="RDK:18827015">
+									<VALUECONDITION Value="false">
+										<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
+									</VALUECONDITION>
+									<GROUP Id="RDK:18827014" SubType="Then">
+										<SET Id="RDK:18827006" VarRef="shape_id">
+											<EXP><![CDATA[$=$RückgabeListe["key=ShapeId"].Str]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+										<CALLFUNCTION Id="RDK:18827007">
+											<PAR Name="FuncName">
+												<EXP><![CDATA[$C$Check_LH_fits_gefaelle]]></EXP>
+											</PAR>
+											<PAR Name="InputExp">
+												<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
+											</PAR>
+											<PAR Name="ResultRef">
+												<EXP><![CDATA[$V$]]></EXP>
+											</PAR>
+											<PAR Name="Options" />
+										</CALLFUNCTION>
+									</GROUP>
+								</IFTHENELSE>
+							</GROUP>
+						</IFTHENELSE>
+						<IFTHENELSE Id="RDK:18827051">
+							<VALUECONDITION Value="true" Oper="OR">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Strecke"]]></EXP>
+							</VALUECONDITION>
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Foerderer"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:18827050" SubType="Then">
+								<CALLFUNCTION Id="RDK:18827049">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$SetHeightOfStreckeOnConnect]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+						</IFTHENELSE>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:18732456" CaseType="0">
 						<EXP><![CDATA[$C$Strecke]]></EXP>
 						<IFTHENELSE Id="RDK:18740516">
-							<VALUECONDITION Value="true" Oper="OR">
-								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Foerderer"]]></EXP>
-							</VALUECONDITION>
 							<VALUECONDITION Value="true">
 								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Foerderer"]]></EXP>
 							</VALUECONDITION>
@@ -13253,9 +13327,6 @@ me.x
 							</GROUP>
 						</IFTHENELSE>
 						<IFTHENELSE Id="RDK:18740525">
-							<VALUECONDITION Value="true" Oper="OR">
-								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Gefaellestrecke"]]></EXP>
-							</VALUECONDITION>
 							<VALUECONDITION Value="true">
 								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Gefaellestrecke"]]></EXP>
 							</VALUECONDITION>
@@ -13289,19 +13360,110 @@ me.x
 							</PAR>
 							<PAR Name="Options" />
 						</CALLFUNCTION>
-						<CALLFUNCTION Id="RDK:18221763">
-							<PAR Name="FuncName">
-								<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
-							</PAR>
-							<PAR Name="InputExp">
-								<EXP><![CDATA[$=$Param.Input]]></EXP>
-							</PAR>
-							<PAR Name="ResultRef">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<PAR Name="Options" />
-						</CALLFUNCTION>
-						<IFTHENELSE Id="RDK:18462393">
+						<IFTHENELSE Id="RDK:18895373">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Kreisel"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:18895372" SubType="Then">
+								<CALLFUNCTION Id="RDK:18221763">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+						</IFTHENELSE>
+						<IFTHENELSE Id="RDK:18895399">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Gefaellestrecke"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:18895398" SubType="Then">
+								<CALLFUNCTION Id="RDK:18895397">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$SetHeightOfStreckeOnConnect]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+								<CALLFUNCTION Id="RDK:18895325">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$Calculate Foerderer Data]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+								<IFTHENELSE Id="RDK:18895329">
+									<VALUECONDITION Value="false">
+										<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
+									</VALUECONDITION>
+									<GROUP Id="RDK:18895328" SubType="Then">
+										<SET_STRUCT Id="RDK:18895326" VarRef="SSGParameter" ClearAll="True" ListRef="RückgabeListe">
+											<PAR Name="Key">
+												<EXP><![CDATA[$C$shapeID]]></EXP>
+											</PAR>
+											<PAR Name="Str">
+												<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
+											</PAR>
+											<PAR Name="Dbl" />
+											<PAR Name="Int" />
+											<PAR Name="Boo" />
+										</SET_STRUCT>
+										<CALLFUNCTION Id="RDK:18895327">
+											<PAR Name="FuncName">
+												<EXP><![CDATA[$C$WriteShapeDataFoerderer]]></EXP>
+											</PAR>
+											<PAR Name="InputExp">
+												<EXP><![CDATA[$=$RückgabeListe]]></EXP>
+											</PAR>
+											<PAR Name="ResultRef">
+												<EXP><![CDATA[$V$]]></EXP>
+											</PAR>
+											<PAR Name="Options" />
+										</CALLFUNCTION>
+									</GROUP>
+								</IFTHENELSE>
+							</GROUP>
+						</IFTHENELSE>
+						<IFTHENELSE Id="RDK:18895451">
+							<VALUECONDITION Value="true" Oper="OR">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Strecke"]]></EXP>
+							</VALUECONDITION>
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Foerderer"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:18895450" SubType="Then">
+								<CALLFUNCTION Id="RDK:18895449">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$SetHeightOfStreckeOnConnect]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+						</IFTHENELSE>
+						<COMMENTS Id="RDK:18895415" DesignTimeRemark="//TODO" />
+						<IFTHENELSE Id="RDK:18462393" Suppressed="True">
 							<VALUECONDITION Value="true">
 								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Foerderer"]]></EXP>
 							</VALUECONDITION>
@@ -14792,11 +14954,10 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<VAR Id="RDK:18742667" Name="item_strecke" Type="Editor2DShapeType" />
 					<VAR Id="RDK:18742737" Name="item_0" Type="Editor2DShapeType" />
 					<VAR Id="RDK:18742668" Name="item_1" Type="Editor2DShapeType" />
-					<VAR Id="RDK:18742669" Name="cp_gefaellestrecke" Type="SSGConnectionPoint" />
-					<VAR Id="RDK:18742670" Name="streckenhoehe" Type="double" />
+					<VAR Id="RDK:18742670" Name="streckenhoehe" Type="double" Suppressed="True" />
+					<VAR Id="RDK:18827203" Name="hoehe" Type="double" />
 					<VAR Id="RDK:18742671" Name="UebergabeListe" Type="SSGParameter[]" />
 					<VAR Id="RDK:18742672" Name="RueckgabeListe" Type="SSGParameter[]" />
-					<VAR Id="RDK:18760951" Name="cp_partner" Type="variant" />
 				</GROUP>
 				<SET Id="RDK:18742693" VarRef="item_0">
 					<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
@@ -14806,7 +14967,332 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID]]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
-				<IFTHENELSE Id="RDK:18742723">
+				<SELECTCASE Id="RDK:18827082">
+					<EXP><![CDATA[$=$item_0.family]]></EXP>
+					<CASEGROUP Id="RDK:18827142" CaseType="0">
+						<EXP><![CDATA[$C$Foerderer]]></EXP>
+						<COMMENTS Id="RDK:18827135" DesignTimeRemark="//Foerderer hat Index == 0" />
+						<SET Id="RDK:18827136" VarRef="item_strecke" Suppressed="True">
+							<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:18895251" VarRef="cpId">
+							<EXP><![CDATA[$=$Param.Input[0].connectionPointID]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:18827140" VarRef="cp_partner" DesignTimeNotes="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].connectionPoints[&quot;cpId=&quot;+cpId]">
+							<EXP><![CDATA[$=$FromJSON(ShapeList["id="+Param.Input[1].shapeID].connectionPoints)["cpId="+cpId]]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET_STRUCT Id="RDK:18827137" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$shapeID]]></EXP>
+							</PAR>
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
+							</PAR>
+							<PAR Name="Dbl" />
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+						</SET_STRUCT>
+						<SET_STRUCT Id="RDK:18827138" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$cpId]]></EXP>
+							</PAR>
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$Param.Input[1].connectionPointID]]></EXP>
+							</PAR>
+							<PAR Name="Dbl" />
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+						</SET_STRUCT>
+						<SET_STRUCT Id="RDK:18895253" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$Hoehe]]></EXP>
+							</PAR>
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$]]></EXP>
+							</PAR>
+							<PAR Name="Dbl">
+								<EXP><![CDATA[$C$0]]></EXP>
+							</PAR>
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+						</SET_STRUCT>
+						<CALLFUNCTION Id="RDK:18827141">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$GetHeightOfItem]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$UebergabeListe]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
+						<SET Id="RDK:18895249" VarRef="hoehe">
+							<EXP><![CDATA[$=$RueckgabeListe["key=Hoehe"].Dbl]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<IFTHENELSE Id="RDK:18895277">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:18895273" SubType="Then">
+								<SET Id="RDK:18895271" VarRef="item_0.FoerdererDefinition.HoeheOben">
+									<EXP><![CDATA[$=$hoehe]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<SET Id="RDK:18895281" VarRef="Shape_Prototype">
+									<EXP><![CDATA[$=$item_0]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<CALLFUNCTION Id="RDK:18895283">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$Calculate Foerderer]]></EXP>
+									</PAR>
+									<PAR Name="InputExp" />
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+							<GROUP Id="RDK:18895276" SubType="Else">
+								<SET Id="RDK:18895274" VarRef="item_0.FoerdererDefinition.HoeheUnten">
+									<EXP><![CDATA[$=$hoehe]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<SET Id="RDK:18895285" VarRef="Shape_Prototype">
+									<EXP><![CDATA[$=$item_0]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<CALLFUNCTION Id="RDK:18895287">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$Calculate Foerderer]]></EXP>
+									</PAR>
+									<PAR Name="InputExp" />
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+						</IFTHENELSE>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:18827084" CaseType="0">
+						<EXP><![CDATA[$C$Strecke]]></EXP>
+						<COMMENTS Id="RDK:18827100" DesignTimeRemark="//Strecke hat Index == 0" />
+						<SET Id="RDK:18827088" VarRef="item_strecke" Suppressed="True">
+							<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:18827094" VarRef="cpId">
+							<EXP><![CDATA[$=$Param.Input[0].connectionPointID]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET_STRUCT Id="RDK:18827090" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$shapeID]]></EXP>
+							</PAR>
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
+							</PAR>
+							<PAR Name="Dbl" />
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+						</SET_STRUCT>
+						<SET_STRUCT Id="RDK:18827092" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$cpId]]></EXP>
+							</PAR>
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$Param.Input[1].connectionPointID]]></EXP>
+							</PAR>
+							<PAR Name="Dbl" />
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+						</SET_STRUCT>
+						<SET_STRUCT Id="RDK:18868849" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$Hoehe]]></EXP>
+							</PAR>
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$]]></EXP>
+							</PAR>
+							<PAR Name="Dbl">
+								<EXP><![CDATA[$C$0]]></EXP>
+							</PAR>
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+						</SET_STRUCT>
+						<CALLFUNCTION Id="RDK:18827098">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$GetHeightOfItem]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$UebergabeListe]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
+						<SET Id="RDK:18872332" VarRef="hoehe">
+							<EXP><![CDATA[$=$RueckgabeListe["key=Hoehe"].Dbl]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<IFTHENELSE Id="RDK:18827233">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:18827230" SubType="Then">
+								<SET Id="RDK:18827241" VarRef="item_0.StreckeDefinition.HoeheOben">
+									<EXP><![CDATA[$=$hoehe]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<SET Id="RDK:18827246" VarRef="item_0.StreckeDefinition.HoeheUnten">
+									<EXP><![CDATA[$=$hoehe-StreckeData_defaults.Delta_h]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:18827232" SubType="Else">
+								<SET Id="RDK:18827243" VarRef="item_0.StreckeDefinition.HoeheUnten">
+									<EXP><![CDATA[$=$hoehe]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<SET Id="RDK:18827248" VarRef="item_0.StreckeDefinition.HoeheOben">
+									<EXP><![CDATA[$=$hoehe+StreckeData_defaults.Delta_h]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:18827160" CaseType="0">
+						<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
+						<COMMENTS Id="RDK:18827153" DesignTimeRemark="//Gefaellestrecke hat Index == 0" />
+						<SET Id="RDK:18827154" VarRef="item_strecke" Suppressed="True">
+							<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:18827157" VarRef="cpId">
+							<EXP><![CDATA[$=$Param.Input[0].connectionPointID]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:18827158" VarRef="cp_partner" DesignTimeNotes="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].connectionPoints[&quot;cpId=&quot;+cpId]">
+							<EXP><![CDATA[$=$FromJSON(ShapeList["id="+Param.Input[1].shapeID].connectionPoints)["cpId="+cpId]]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET_STRUCT Id="RDK:18827155" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$shapeID]]></EXP>
+							</PAR>
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
+							</PAR>
+							<PAR Name="Dbl" />
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+						</SET_STRUCT>
+						<SET_STRUCT Id="RDK:18827156" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$cpId]]></EXP>
+							</PAR>
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$Param.Input[1].connectionPointID]]></EXP>
+							</PAR>
+							<PAR Name="Dbl" />
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+						</SET_STRUCT>
+						<SET_STRUCT Id="RDK:18895219" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$Hoehe]]></EXP>
+							</PAR>
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$]]></EXP>
+							</PAR>
+							<PAR Name="Dbl">
+								<EXP><![CDATA[$C$0]]></EXP>
+							</PAR>
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+						</SET_STRUCT>
+						<CALLFUNCTION Id="RDK:18827159">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$GetHeightOfItem]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$UebergabeListe]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
+						<SET Id="RDK:18895223" VarRef="hoehe">
+							<EXP><![CDATA[$=$RueckgabeListe["key=Hoehe"].Dbl]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<IFTHENELSE Id="RDK:18895239">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:18895235" SubType="Then">
+								<SET Id="RDK:18895233" VarRef="item_0.GefaelleDefinition.HoeheOben">
+									<EXP><![CDATA[$=$hoehe]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<CALLFUNCTION Id="RDK:18895245">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$Check_LH_fits_gefaelle]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+							<GROUP Id="RDK:18895238" SubType="Else">
+								<SET Id="RDK:18895236" VarRef="item_0.GefaelleDefinition.HoeheUnten">
+									<EXP><![CDATA[$=$hoehe]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<CALLFUNCTION Id="RDK:18895247">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$Check_LH_fits_gefaelle]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+						</IFTHENELSE>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:18827081" CaseType="1">
+						<EXP />
+					</CASEGROUP>
+				</SELECTCASE>
+				<SET_STRUCT Id="RDK:18827193" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
+					<PAR Name="Key">
+						<EXP><![CDATA[$C$shapeID]]></EXP>
+					</PAR>
+					<PAR Name="Str">
+						<EXP><![CDATA[$=$item_0.id]]></EXP>
+					</PAR>
+					<PAR Name="Dbl" />
+					<PAR Name="Int" />
+					<PAR Name="Boo" />
+				</SET_STRUCT>
+				<IFTHENELSE Id="RDK:18742723" Suppressed="True">
 					<VALUECONDITION Value="true">
 						<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Strecke"]]></EXP>
 					</VALUECONDITION>
@@ -14910,9 +15396,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 				<GROUP Id="RDK:18741873" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:18741864" Name="item" Type="Editor2DShapeType" />
 					<VAR Id="RDK:18732502" Name="cpId" Type="string" />
-					<VAR Id="RDK:18741867" Name="cp_gefaellestrecke" Type="SSGConnectionPoint" />
 					<VAR Id="RDK:18741868" Name="hoehe" Type="double" />
-					<VAR Id="RDK:18741871" Name="jsonValues" Type="string" />
 					<VAR Id="RDK:18741872" Name="UebergabeListe" Type="SSGParameter[]" />
 					<VAR Id="RDK:18741950" Name="RueckgabeListe" Type="SSGParameter[]" />
 					<VAR Id="RDK:18741959" Name="hoehe_oben" Type="double" />
@@ -14930,18 +15414,39 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<EXP><![CDATA[$=$ShapeList["id="+shapeID]]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
-				<SET Id="RDK:18753151" VarRef="hoehe">
+				<SET Id="RDK:18753151" VarRef="hoehe" Suppressed="True">
 					<EXP><![CDATA[$C$0]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
 				<SELECTCASE Id="RDK:18741918">
 					<EXP><![CDATA[$=$item.family]]></EXP>
 					<CASEGROUP Id="RDK:18741919" CaseType="0">
-						<EXP><![CDATA[$C$Kreisel]]></EXP>
-						<SET Id="RDK:18741946" VarRef="hoehe">
-							<EXP><![CDATA[$=$item.KreiselDefinition.Hoehe]]></EXP>
+						<EXP><![CDATA[$C$Strecke]]></EXP>
+						<SET Id="RDK:18827171" VarRef="hoehe_oben">
+							<EXP><![CDATA[$=$item.StreckeDefinition.HoeheOben]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
+						<SET Id="RDK:18827173" VarRef="hoehe_unten">
+							<EXP><![CDATA[$=$item.StreckeDefinition.HoeheUnten]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<IFTHENELSE Id="RDK:18895307">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:18895304" SubType="Then">
+								<SET Id="RDK:18895303" VarRef="hoehe">
+									<EXP><![CDATA[$=$hoehe_oben]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:18895306" SubType="Else">
+								<SET Id="RDK:18895305" VarRef="hoehe">
+									<EXP><![CDATA[$=$hoehe_unten]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:18741924" CaseType="0">
 						<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
@@ -14953,7 +15458,50 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<EXP><![CDATA[$=$item.GefaelleDefinition.HoeheUnten]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
-						<SET Id="RDK:18753154" VarRef="hoehe">
+						<IFTHENELSE Id="RDK:18912104">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$item.GefaelleDefinition.LH_fits]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:18912101" SubType="Then">
+								<IFTHENELSE Id="RDK:18827185">
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
+									</VALUECONDITION>
+									<GROUP Id="RDK:18827182" SubType="Then">
+										<SET Id="RDK:18827181" VarRef="hoehe">
+											<EXP><![CDATA[$=$hoehe_oben]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+									</GROUP>
+									<GROUP Id="RDK:18827184" SubType="Else">
+										<SET Id="RDK:18827183" VarRef="hoehe">
+											<EXP><![CDATA[$=$hoehe_unten]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+									</GROUP>
+								</IFTHENELSE>
+							</GROUP>
+							<GROUP Id="RDK:18912103" SubType="Else">
+								<IFTHENELSE Id="RDK:18912144">
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
+									</VALUECONDITION>
+									<GROUP Id="RDK:18912141" SubType="Then">
+										<SET Id="RDK:18912142" VarRef="hoehe">
+											<EXP><![CDATA[$=$hoehe_unten  + item.GefaelleDefinition.H_th]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+									</GROUP>
+									<GROUP Id="RDK:18912143" SubType="Else">
+										<SET Id="RDK:18912140" VarRef="hoehe">
+											<EXP><![CDATA[$=$hoehe_oben - item.GefaelleDefinition.H_th]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+									</GROUP>
+								</IFTHENELSE>
+							</GROUP>
+						</IFTHENELSE>
+						<SET Id="RDK:18753154" VarRef="hoehe" Suppressed="True">
 							<EXP><![CDATA[$=$IIF(hoehe_oben<0.001, hoehe_unten, hoehe_oben)]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
@@ -14968,13 +15516,63 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<EXP><![CDATA[$=$item.FoerdererDefinition.H_0]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
-						<SET Id="RDK:18753165" VarRef="hoehe">
+						<IFTHENELSE Id="RDK:18928848">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$item.FoerdererDefinition.LH_fits]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:18928841" SubType="Then">
+								<IFTHENELSE Id="RDK:18928840">
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
+									</VALUECONDITION>
+									<GROUP Id="RDK:18928837" SubType="Then">
+										<SET Id="RDK:18928836" VarRef="hoehe">
+											<EXP><![CDATA[$=$hoehe_oben]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+									</GROUP>
+									<GROUP Id="RDK:18928839" SubType="Else">
+										<SET Id="RDK:18928838" VarRef="hoehe">
+											<EXP><![CDATA[$=$hoehe_unten]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+									</GROUP>
+								</IFTHENELSE>
+							</GROUP>
+							<GROUP Id="RDK:18928847" SubType="Else">
+								<COMMENTS Id="RDK:18928861" DesignTimeRemark="//Foerdererhoehe sind nicht definiert." />
+								<ACTION_CALL Id="RDK:18928865" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
+									<PAR Name="RDLibraryName">
+										<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+									</PAR>
+									<PAR Name="MsgText">
+										<EXP><![CDATA[$C$Hoehe des Foedereres sind nicht definiert.]]></EXP>
+									</PAR>
+									<PAR Name="MsgStyle" />
+									<PAR Name="BtnLayout" />
+									<PAR Name="MsgCaption" />
+									<PAR Name="BaloonType" />
+									<PAR Name="BtnPressed">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+								</ACTION_CALL>
+								<SET Id="RDK:18928859" VarRef="hoehe">
+									<EXP><![CDATA[$=$0]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
+						<SET Id="RDK:18753165" VarRef="hoehe" Suppressed="True">
 							<EXP><![CDATA[$=$IIF(hoehe_oben<0.001, StrToDbl(hoehe_unten), StrToDbl(hoehe_oben))]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:18741920" CaseType="1">
 						<EXP />
+						<SET Id="RDK:18928863" VarRef="hoehe">
+							<EXP><![CDATA[$=$0]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
 						<ACTION_CALL Id="RDK:18741966" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
 							<PAR Name="RDLibraryName">
 								<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
@@ -14992,7 +15590,80 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						</ACTION_CALL>
 					</CASEGROUP>
 				</SELECTCASE>
-				<SET_STRUCT Id="RDK:18741938" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+				<SET_STRUCT Id="RDK:18865382" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
+					<PAR Name="Key">
+						<EXP><![CDATA[$C$Hoehe]]></EXP>
+					</PAR>
+					<PAR Name="Str" />
+					<PAR Name="Dbl">
+						<EXP><![CDATA[$=$hoehe]]></EXP>
+					</PAR>
+					<PAR Name="Int" />
+					<PAR Name="Boo" />
+				</SET_STRUCT>
+				<SET Id="RDK:18850809" VarRef="Param.Result">
+					<EXP><![CDATA[$=$RueckgabeListe]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SELECTCASE Id="RDK:18827126" Suppressed="True">
+					<EXP><![CDATA[$=$item.family]]></EXP>
+					<CASEGROUP Id="RDK:18827115" CaseType="0">
+						<EXP><![CDATA[$C$Kreisel]]></EXP>
+						<SET Id="RDK:18827114" VarRef="hoehe">
+							<EXP><![CDATA[$=$item.KreiselDefinition.Hoehe]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:18827119" CaseType="0">
+						<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
+						<SET Id="RDK:18827116" VarRef="hoehe_oben">
+							<EXP><![CDATA[$=$item.GefaelleDefinition.HoeheOben]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:18827117" VarRef="hoehe_unten">
+							<EXP><![CDATA[$=$item.GefaelleDefinition.HoeheUnten]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:18827118" VarRef="hoehe">
+							<EXP><![CDATA[$=$IIF(hoehe_oben<0.001, hoehe_unten, hoehe_oben)]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:18827123" CaseType="0">
+						<EXP><![CDATA[$C$Foerderer]]></EXP>
+						<SET Id="RDK:18827120" VarRef="hoehe_oben">
+							<EXP><![CDATA[$=$item.FoerdererDefinition.H_1]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:18827121" VarRef="hoehe_unten">
+							<EXP><![CDATA[$=$item.FoerdererDefinition.H_0]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:18827122" VarRef="hoehe">
+							<EXP><![CDATA[$=$IIF(hoehe_oben<0.001, StrToDbl(hoehe_unten), StrToDbl(hoehe_oben))]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:18827125" CaseType="1">
+						<EXP />
+						<ACTION_CALL Id="RDK:18827124" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
+							<PAR Name="RDLibraryName">
+								<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+							</PAR>
+							<PAR Name="MsgText">
+								<EXP><![CDATA[$C$Dieses Element zum Auslesen der Höhe ist noch nicht implementiert]]></EXP>
+							</PAR>
+							<PAR Name="MsgStyle" />
+							<PAR Name="BtnLayout" />
+							<PAR Name="MsgCaption" />
+							<PAR Name="BaloonType" />
+							<PAR Name="BtnPressed">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+						</ACTION_CALL>
+					</CASEGROUP>
+				</SELECTCASE>
+				<SET_STRUCT Id="RDK:18741938" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe" Suppressed="True">
 					<PAR Name="Key">
 						<EXP><![CDATA[$C$Hoehe]]></EXP>
 					</PAR>