From 90739381982d4d8afd0c718ee42916f52c1edf60 Mon Sep 17 00:00:00 2001
From: Simon Schmutzler <s.schmutzler@schoenenberger.de>
Date: Mon, 17 Jun 2024 14:40:43 +0200
Subject: [PATCH 1/3] =?UTF-8?q?Fix=20der=20SetHeight=20Funktion,=20die=20n?=
 =?UTF-8?q?un=20=C3=BCber=20den=20Index=20der=20ShapeListe=20auf=20das=20S?=
 =?UTF-8?q?hapeItem=20zugreift?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 112 ++++++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 107 insertions(+), 5 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 5ed82d4..fb746d9 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-06-17T11:54:03" LanguageVersion="2014.1.3.674" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-06-17T14:39:57" LanguageVersion="2014.1.3.674" />
 	<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">
@@ -1019,6 +1019,9 @@
 			<VAR Id="RDK:19603024" Name="isDefined" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:19632171" Name="shapeList_idx" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:19798335" Name="TempKreiselLink" Type="string" DesignTimeRemark="Generated by RD" />
+			<VAR Id="RDK:19841636" Name="shape_item" Type="Editor2DShapeType" DesignTimeRemark="Generated by RD" />
+			<VAR Id="RDK:19841637" Name="shape_item" Type="Editor2DShapeType" DesignTimeRemark="Generated by RD" />
+			<VAR Id="RDK:19866002" Name="shapeList_idx" Type="string" DesignTimeRemark="Generated by RD" />
 		</GROUP>
 		<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
 			<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -9276,6 +9279,79 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 						<EXP><![CDATA[$C$#f33256]]></EXP>
 						<PAR Name="AdvancedOptions" />
 					</SET>
+					<GROUP Id="RDK:19839574" Name="Set DirectConnHeights" SubType="Generic" DesignTimeNotes="20231011 -1-">
+						<FOREACHLOOP Id="RDK:19841614" ItemVarRef="Link">
+							<PAR Name="ArrayValueExp">
+								<EXP><![CDATA[$=$Shape_Prototype.links]]></EXP>
+							</PAR>
+							<PAR Name="ExitCondExp">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<GROUP Id="RDK:19842999" Name="Local Vars" SubType="VarSet" IncludeDate="0" DesignTimeNotes="20230928 -1-">
+								<VAR Id="RDK:19843001" Name="UebergabeListe" Type="SSGParameter[]" />
+							</GROUP>
+							<SET Id="RDK:19841635" VarRef="shape_item">
+								<EXP><![CDATA[$=$ShapeList["id=" + StrAfter(Link, ";")]]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+							<IFTHENELSE Id="RDK:19841630">
+								<VALUECONDITION Value="true" Oper="OR">
+									<EXP><![CDATA[$=$shape_item.family = "Gefaellestrecke"]]></EXP>
+								</VALUECONDITION>
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$shape_item.family = "Foerderer"]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:19841629" SubType="Then">
+									<SET_STRUCT Id="RDK:19841625" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+										<PAR Name="Key">
+											<EXP><![CDATA[$C$shapeId_0]]></EXP>
+										</PAR>
+										<PAR Name="Str">
+											<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
+										</PAR>
+										<PAR Name="Dbl" />
+										<PAR Name="Int" />
+										<PAR Name="Boo" />
+									</SET_STRUCT>
+									<SET_STRUCT Id="RDK:19841626" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+										<PAR Name="Key">
+											<EXP><![CDATA[$C$shapeId_1]]></EXP>
+										</PAR>
+										<PAR Name="Str">
+											<EXP><![CDATA[$=$shape_item.id]]></EXP>
+										</PAR>
+										<PAR Name="Dbl" />
+										<PAR Name="Int" />
+										<PAR Name="Boo" />
+									</SET_STRUCT>
+									<CALLFUNCTION Id="RDK:19841627">
+										<PAR Name="FuncName">
+											<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
+										</PAR>
+										<PAR Name="InputExp">
+											<EXP><![CDATA[$=$UebergabeListe]]></EXP>
+										</PAR>
+										<PAR Name="ResultRef">
+											<EXP><![CDATA[$V$]]></EXP>
+										</PAR>
+										<PAR Name="Options" />
+									</CALLFUNCTION>
+									<CALLFUNCTION Id="RDK:19841628">
+										<PAR Name="FuncName">
+											<EXP><![CDATA[$C$SetStatus]]></EXP>
+										</PAR>
+										<PAR Name="InputExp">
+											<EXP><![CDATA[$=$shape_item.id]]></EXP>
+										</PAR>
+										<PAR Name="ResultRef">
+											<EXP><![CDATA[$V$]]></EXP>
+										</PAR>
+										<PAR Name="Options" />
+									</CALLFUNCTION>
+								</GROUP>
+							</IFTHENELSE>
+						</FOREACHLOOP>
+					</GROUP>
 					<SET Id="RDK:1134513" VarRef="ShapeList[TempIndex].text" Suppressed="True">
 						<EXP><![CDATA[$=$Param.Input.Text + Lf() + "Höhe vererbt"]]></EXP>
 						<PAR Name="AdvancedOptions" />
@@ -15859,11 +15935,11 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</SET>
 							</GROUP>
 						</IFTHENELSE>
-						<SET Id="RDK:19595407" VarRef="Shape_Prototype">
+						<SET Id="RDK:19595407" VarRef="Shape_Prototype" Suppressed="True">
 							<EXP><![CDATA[$=$ShapeList["id="+shapeId]]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
-						<CALLFUNCTION Id="RDK:19595409">
+						<CALLFUNCTION Id="RDK:19595409" Suppressed="True">
 							<PAR Name="FuncName">
 								<EXP><![CDATA[$C$Calculate Foerderer]]></EXP>
 							</PAR>
@@ -16252,7 +16328,9 @@ ShapeList["id="+Param.Input[1].shapeID].name
 			<FUNCTION Id="RDK:1698052" Name="SetHeightOnConnect" InputTypeName="SSGParameter[]" ResultTypeName="SSGParameter[]">
 				<GROUP Id="RDK:1772339" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:1772341" Name="item_0" Type="Editor2DShapeType" />
+					<VAR Id="RDK:19866003" Name="shapeList_idx_0" Type="integer" />
 					<VAR Id="RDK:1772343" Name="item_1" Type="Editor2DShapeType" />
+					<VAR Id="RDK:19866005" Name="shapeList_idx_1" Type="integer" />
 					<VAR Id="RDK:1772347" Name="cp_kreiselpartner" Type="Editor2DConnectionPointType" />
 					<VAR Id="RDK:1772349" Name="kreiselhoehe" Type="double" />
 					<VAR Id="RDK:19493734" Name="zielhoehe" Type="double" />
@@ -16261,12 +16339,36 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<VAR Id="RDK:19664798" Name="cps_verbunden" Type="string[]" />
 					<VAR Id="RDK:19682385" Name="cp_0" Type="structure" />
 				</GROUP>
+				<CALLFUNCTION Id="RDK:19866001">
+					<PAR Name="FuncName">
+						<EXP><![CDATA[$C$IndexOfByFieldValue_SSG]]></EXP>
+					</PAR>
+					<PAR Name="InputExp">
+						<EXP><![CDATA[$=$Param.Input["key=shapeId_0"].Str]]></EXP>
+					</PAR>
+					<PAR Name="ResultRef">
+						<EXP><![CDATA[$V$shapeList_idx_0]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</CALLFUNCTION>
+				<CALLFUNCTION Id="RDK:19866007">
+					<PAR Name="FuncName">
+						<EXP><![CDATA[$C$IndexOfByFieldValue_SSG]]></EXP>
+					</PAR>
+					<PAR Name="InputExp">
+						<EXP><![CDATA[$=$Param.Input["key=shapeId_1"].Str]]></EXP>
+					</PAR>
+					<PAR Name="ResultRef">
+						<EXP><![CDATA[$V$shapeList_idx_1]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</CALLFUNCTION>
 				<SET Id="RDK:19710796" VarRef="item_0">
-					<EXP><![CDATA[$=$ShapeList["id="+Param.Input["key=shapeId_0"].Str]]]></EXP>
+					<EXP><![CDATA[$=$ShapeList[shapeList_idx_0]]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
 				<SET Id="RDK:19710798" VarRef="item_1">
-					<EXP><![CDATA[$=$ShapeList["id="+Param.Input["key=shapeId_1"].Str]]]></EXP>
+					<EXP><![CDATA[$=$ShapeList[shapeList_idx_1]]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
 				<CALLFUNCTION Id="RDK:19710799">

From 0d8bd94f124f15d82a0de0800240a6932e62e917 Mon Sep 17 00:00:00 2001
From: Simon Schmutzler <s.schmutzler@schoenenberger.de>
Date: Mon, 17 Jun 2024 15:19:43 +0200
Subject: [PATCH 2/3] Reduzierung des Codes indem nicht verwendete globale
 Variablen entfernt oder lokal initialisiert werden

---
 MAIN_SSG.rdx | 1210 +-------------------------------------------------
 1 file changed, 24 insertions(+), 1186 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index fb746d9..dce15ff 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-06-17T14:39:57" LanguageVersion="2014.1.3.674" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-06-17T15:16:41" LanguageVersion="2014.1.3.674" />
 	<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">
@@ -839,7 +839,7 @@
 				<FIELD Id="RDK:1007739" Name="Withdraw_Start" Type="double" />
 				<FIELD Id="RDK:1007740" Name="Withdraw_End" Type="double" />
 			</TYPE>
-			<TYPE Id="RDK:1345483" Name="InheritHeightType" Expanded="True" SubType="structure" DesignTimeNotes="20231005 -1-">
+			<TYPE Id="RDK:1345483" Name="InheritHeightType" SubType="structure" DesignTimeNotes="20231005 -1-">
 				<TYPE_VALUES />
 				<FIELD Id="RDK:1345484" Name="ParentIndex" Type="integer" />
 				<FIELD Id="RDK:1345485" Name="NewHoehe" Type="double" />
@@ -847,13 +847,6 @@
 				<FIELD Id="RDK:1345489" Name="NewHoeheUnten" Type="double" />
 				<FIELD Id="RDK:1370529" Name="Text" Type="string" />
 			</TYPE>
-			<TYPE Id="RDK:1529401" Name="IndirectConnGefaellestreckeType" SubType="structure" HasArrayType="True" DesignTimeNotes="20231011 -1-">
-				<TYPE_VALUES />
-				<FIELD Id="RDK:1529402" Name="Id" Type="string" />
-				<FIELD Id="RDK:1529403" Name="Cp" Type="string" />
-				<FIELD Id="RDK:1529404" Name="ConnToId" Type="string" />
-				<FIELD Id="RDK:1539541" Name="NewHoehe" Type="string" />
-			</TYPE>
 		</GROUP>
 		<GROUP Id="RDK:0004" Name="Parameters" SubType="ParameterDefs" />
 		<GROUP Id="RDK:0005" Name="Global Variables" SubType="VarSet" IncludeDate="0">
@@ -863,14 +856,8 @@
 				<VAR Id="RDK:1007751" Name="PolyLineShapeList" Type="Editor2DShapeTypeList" />
 				<VAR Id="RDK:412307" Name="Shape_Prototype" Type="Editor2DShapeType" />
 				<VAR Id="RDK:260961" Name="LinkedShapeIDs" Type="string[]" />
-				<VAR Id="RDK:1276768" Name="KreiselGroupList" Type="string[]" DesignTimeNotes="20230928 -1-" />
-				<VAR Id="RDK:1486596" Name="RemovedGefaellestreckeList" Type="string[]" DesignTimeNotes="20231005 -1-" />
-				<VAR Id="RDK:1194866" Name="ConnectedGefaellestreckeList" Type="string[]" DesignTimeNotes="20230928 -1-" />
-				<VAR Id="RDK:1528236" Name="IndirectConnGefaellestreckeList" Type="IndirectConnGefaellestreckeType[]" DesignTimeNotes="20231011 -1-" />
 				<VAR Id="RDK:1544029" Name="IndirectConnKreiselList" Type="string[]" DesignTimeNotes="20231011 -1-" />
-				<VAR Id="RDK:1503346" Name="ConnGefaellestreckeIdList" Type="string[]" DesignTimeNotes="20230928 -1-" />
 				<VAR Id="RDK:1280575" Name="RemovedKreiselGroupList" Type="string[]" DesignTimeNotes="20231005 -1-" />
-				<VAR Id="RDK:1458661" Name="RemovedKreiselList" Type="string[]" DesignTimeNotes="20231005 -1-" />
 				<VAR Id="RDK:1345490" Name="InheritHeightData" Type="InheritHeightType" DesignTimeNotes="20231005 -1-" />
 				<VAR Id="RDK:9052" Name="ShapeItem" Type="Editor2DShapeType" />
 				<VAR Id="RDK:98465" Name="ShapeTotalLength" Type="double" />
@@ -1000,25 +987,11 @@
 			<VAR Id="RDK:1241416" Name="ExportSnapshot" Type="string" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:1519830" Name="SessionZip" Type="string" />
 			<VAR Id="RDK:1621335" Name="ID" Type="string" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:1707743" Name="item_0" Type="Editor2DShapeType" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:1707751" Name="item_1" Type="Editor2DShapeType" Suppressed="True" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:1710591" Name="cp" Type="string" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:1711732" Name="cp_gfs" Type="string" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:1712885" Name="gefaellestrecke" Type="Editor2DShapeType" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:18732365" Name="strecke" Type="Editor2DShapeType" />
 			<VAR Id="RDK:18115984" Name="foerderer" Type="Editor2DShapeType" />
-			<VAR Id="RDK:1732132" Name="label" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:1759312" Name="cp_label" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:18295767" Name="L_s" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:18777657" Name="HoeheOben" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:18777660" Name="HoeheUnten" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:18825603" Name="cpId" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:18826988" Name="shapeID" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:19440094" Name="item" Type="Editor2DShapeType" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:19440102" Name="shapeID" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:19603024" Name="isDefined" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:19632171" Name="shapeList_idx" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:19798335" Name="TempKreiselLink" Type="string" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:19841636" Name="shape_item" Type="Editor2DShapeType" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:19841637" Name="shape_item" Type="Editor2DShapeType" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:19866002" Name="shapeList_idx" Type="string" DesignTimeRemark="Generated by RD" />
@@ -5269,6 +5242,8 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 							<VAR Id="RDK:1280556" Name="TempLink" Type="string" />
 							<VAR Id="RDK:1280547" Name="TempLinkList" Type="string[]" />
 							<VAR Id="RDK:1443209" Name="AddedKreiselList" Type="string[]" />
+							<VAR Id="RDK:19866047" Name="RemovedKreiselList" Type="string[]" DesignTimeNotes="20231005 -1-" />
+							<VAR Id="RDK:19866061" Name="RemovedGefaellestreckeList" Type="string[]" DesignTimeNotes="20231005 -1-" />
 						</GROUP>
 						<SET Id="RDK:1280516" VarRef="Param.Result">
 							<EXP><![CDATA[$C$NOTHING]]></EXP>
@@ -5289,12 +5264,6 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								<PAR Name="ExitCondExp">
 									<EXP><![CDATA[$V$]]></EXP>
 								</PAR>
-								<GROUP Id="RDK:1290698" Name="Debug" SubType="Generic" Suppressed="True">
-									<VALUECONDITION Value="true">
-										<EXP><![CDATA[$=$Kreisel = "shape_bf46f457-0fe9-10dc-948e-527caac18289"]]></EXP>
-									</VALUECONDITION>
-									<COMMENTS Id="RDK:1290697" />
-								</GROUP>
 								<GROUP Id="RDK:1442601" Name="Remove for Gefaellestrecke" SubType="Generic" DesignTimeNotes="20231005 -1-">
 									<VALUECONDITION Value="true">
 										<EXP><![CDATA[$=$Shape_Prototype.family = "Gefaellestrecke"]]></EXP>
@@ -5391,12 +5360,6 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<PAR Name="ExitCondExp">
 										<EXP><![CDATA[$V$]]></EXP>
 									</PAR>
-									<GROUP Id="RDK:1291778" Name="Debug" SubType="Generic" Suppressed="True">
-										<VALUECONDITION Value="true">
-											<EXP><![CDATA[$=$TempLink = "shape_87055166-b35d-c935-5bc6-efe821c00749"]]></EXP>
-										</VALUECONDITION>
-										<COMMENTS Id="RDK:1291777" />
-									</GROUP>
 									<GROUP Id="RDK:1280595" Name="Only for Kreisel" SubType="Generic">
 										<VALUECONDITION Value="true">
 											<EXP><![CDATA[$=$ShapeList["id=" + TempLink].family = "Kreisel"]]></EXP>
@@ -5459,12 +5422,6 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								<REMOVE_ADD Id="RDK:1280615" ListRef="KreiselList" Value="$=$Kreisel">
 									<EXP />
 								</REMOVE_ADD>
-								<LIST_ADD Id="RDK:1454406" Suppressed="True" ListRef="RemovedKreiselList">
-									<PAR Name="VALUE_TO_ADD">
-										<EXP><![CDATA[$=$Kreisel]]></EXP>
-									</PAR>
-									<PAR Name="POS_TO_ADD" />
-								</LIST_ADD>
 							</FOREACHLOOP>
 						</WHILELOOP>
 					</FUNCTION>
@@ -7988,112 +7945,9 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						<EXP><![CDATA[$=$Count(Shape_Prototype.links) = 0]]></EXP>
 					</VALUECONDITION>
 					<GROUP Id="RDK:1143994" Name="Local Vars" SubType="VarSet" IncludeDate="0" DesignTimeNotes="20230928 -1-">
-						<VAR Id="RDK:1143995" Name="TempIndex" Type="integer">
-							<SET Id="RDK:1143999" VarRef="Me" DesignTimeNotes="20231005 -1-&#xD;&#xA;Because IndexOfByFieldValue(ShapeList, &quot;id&quot;, Shape_Prototype.id) result in -1 even if e.g. Shape_Prototype.id = ShapeList[1].id is True??">
-								<EXP><![CDATA[$=$Param.Input.ParentIndex]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-						</VAR>
-						<VAR Id="RDK:1200177" Name="TempLinksList" Type="string[]" />
-						<VAR Id="RDK:1228202" Name="HeightAllreadySetList" Type="string[]" />
-						<VAR Id="RDK:1228762" Name="TempLinkedShapeIDs" Type="string[]" />
-						<VAR Id="RDK:1229831" Name="TempLink" Type="string" />
 						<VAR Id="RDK:1528242" Name="TempKreisel" Type="string" />
-						<VAR Id="RDK:19642364" Name="VAR_TEMPLIST_DEBUG" Type="string" />
-						<VAR Id="RDK:19642368" Name="VAR_ALREADY_SET_DEBUG" Type="string" />
-						<VAR Id="RDK:1544010" Name="TempGefaellestrecke" Type="IndirectConnGefaellestreckeType" />
-					</GROUP>
-					<SET Id="RDK:1188989" VarRef="ShapeList[TempIndex].text" Suppressed="True">
-						<EXP><![CDATA[$C$NOTHING]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET Id="RDK:1491494" VarRef="ConnectedGefaellestreckeList">
-						<EXP><![CDATA[$C$NOTHING]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET Id="RDK:1503352" VarRef="ConnGefaellestreckeIdList">
-						<EXP><![CDATA[$C$NOTHING]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET Id="RDK:1453331" VarRef="RemovedKreiselList">
-						<EXP><![CDATA[$C$NOTHING]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET Id="RDK:1486597" VarRef="RemovedGefaellestreckeList">
-						<EXP><![CDATA[$C$NOTHING]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET Id="RDK:1528804" VarRef="IndirectConnGefaellestreckeList">
-						<EXP><![CDATA[$C$NOTHING]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<GROUP Id="RDK:1128703" Name="Find Children" SubType="Generic" Suppressed="True">
-						<SET Id="RDK:1128698" VarRef="LinkedShapeIDs">
-							<EXP><![CDATA[$C$NOTHING]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
-						<FOREACHLOOP Id="RDK:1128701" ItemVarRef="Link">
-							<PAR Name="ArrayValueExp">
-								<EXP><![CDATA[$=$Shape_Prototype.links]]></EXP>
-							</PAR>
-							<PAR Name="ExitCondExp">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<SET Id="RDK:1128699" VarRef="Link">
-								<EXP><![CDATA[$=$StrAfter(Link, ";")]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<LIST_ADD Id="RDK:1128700" ListRef="LinkedShapeIDs">
-								<PAR Name="VALUE_TO_ADD">
-									<EXP><![CDATA[$=$Link]]></EXP>
-								</PAR>
-								<PAR Name="POS_TO_ADD" />
-							</LIST_ADD>
-						</FOREACHLOOP>
-						<CALLFUNCTION Id="RDK:1128702">
-							<PAR Name="FuncName">
-								<EXP><![CDATA[$C$CollectLinkedShapesByTempLink]]></EXP>
-							</PAR>
-							<PAR Name="InputExp">
-								<EXP><![CDATA[$=$LinkedShapeIDs]]></EXP>
-							</PAR>
-							<PAR Name="ResultRef">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<PAR Name="Options" />
-						</CALLFUNCTION>
-					</GROUP>
-					<GROUP Id="RDK:1194828" Name="Set ConnectedGefaellestreckeList" SubType="Generic" Suppressed="True" DesignTimeNotes="Collect all Gefällestrecke that are connected to this Element (Kreisel)">
-						<FOREACHLOOP Id="RDK:1194838" ItemVarRef="Link">
-							<PAR Name="ArrayValueExp">
-								<EXP><![CDATA[$=$LinkedShapeIDs]]></EXP>
-							</PAR>
-							<PAR Name="ExitCondExp">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<GROUP Id="RDK:1194842" Name="Group" SubType="Generic">
-								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$ListStrContains(ShapeList["id=" + Link].links, "*;" + Shape_Prototype.id)]]></EXP>
-								</VALUECONDITION>
-								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$ShapeList["id=" + Link].family = "Gefaellestrecke"]]></EXP>
-								</VALUECONDITION>
-								<LIST_ADD Id="RDK:1194870" ListRef="ConnectedGefaellestreckeList">
-									<PAR Name="VALUE_TO_ADD">
-										<EXP><![CDATA[$=$Link]]></EXP>
-									</PAR>
-									<PAR Name="POS_TO_ADD" />
-								</LIST_ADD>
-								<SET Id="RDK:1503348" VarRef="ConnGefaellestreckeIdList">
-									<EXP><![CDATA[$=$ListJoin(ConnGefaellestreckeIdList, ShapeList["id="+ Link].links, "(DISTINCT)")]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</GROUP>
-						</FOREACHLOOP>
-						<SET Id="RDK:1504426" VarRef="ConnGefaellestreckeIdList">
-							<EXP><![CDATA[$=$ExecOnValues(ConnGefaellestreckeIdList, "StrAfter(Me, "";"")", "")]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
+						<VAR Id="RDK:19795588" Name="TempKreiselLink" Type="string" />
+						<VAR Id="RDK:19866065" Name="KreiselGroupList" Type="string[]" DesignTimeNotes="20230928 -1-" />
 					</GROUP>
 					<CALLFUNCTION Id="RDK:1280616">
 						<PAR Name="FuncName">
@@ -8107,1029 +7961,6 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						</PAR>
 						<PAR Name="Options" />
 					</CALLFUNCTION>
-					<CALLFUNCTION Id="RDK:1458675" Suppressed="True">
-						<PAR Name="FuncName">
-							<EXP><![CDATA[$C$CollectKreiselGroup]]></EXP>
-						</PAR>
-						<PAR Name="InputExp">
-							<EXP><![CDATA[$=$RemovedKreiselList]]></EXP>
-						</PAR>
-						<PAR Name="ResultRef">
-							<EXP><![CDATA[$V$RemovedKreiselGroupList]]></EXP>
-						</PAR>
-						<PAR Name="Options" />
-					</CALLFUNCTION>
-					<GROUP Id="RDK:1528230" Name="Set IndirectConnGefaellestreckeList" SubType="Generic" Suppressed="True" DesignTimeNotes="20231011 -1-">
-						<VALUECONDITION Value="true">
-							<EXP><![CDATA[$=$Shape_Prototype.family = "Gefaellestrecke"]]></EXP>
-						</VALUECONDITION>
-						<FOREACHLOOP Id="RDK:1528238" ItemVarRef="TempKreisel">
-							<PAR Name="ArrayValueExp">
-								<EXP><![CDATA[$=$KreiselGroupList]]></EXP>
-							</PAR>
-							<PAR Name="ExitCondExp">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<GROUP Id="RDK:1528246" Name="Local Vars" SubType="VarSet" IncludeDate="0" DesignTimeNotes="20230928 -1-">
-								<VAR Id="RDK:1528247" Name="TempKreiselLink" Type="string" />
-								<VAR Id="RDK:1529406" Name="TempIndirectConn" Type="IndirectConnGefaellestreckeType" />
-								<VAR Id="RDK:1538963" Name="TempNewHoehe" Type="string" />
-							</GROUP>
-							<FOREACHLOOP Id="RDK:1528244" ItemVarRef="TempKreiselLink">
-								<PAR Name="ArrayValueExp">
-									<EXP><![CDATA[$=$ShapeList["id=" + TempKreisel].Links]]></EXP>
-								</PAR>
-								<PAR Name="ExitCondExp">
-									<EXP><![CDATA[$V$]]></EXP>
-								</PAR>
-								<GROUP Id="RDK:1528248" Name="Group" SubType="Generic">
-									<VALUECONDITION Value="true">
-										<EXP><![CDATA[$=$ShapeList["id=" + StrAfter(TempKreiselLink, ";")].family = "Gefaellestrecke"]]></EXP>
-									</VALUECONDITION>
-									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$StrAfter(TempKreiselLink, ";") = Shape_Prototype.id]]></EXP>
-									</VALUECONDITION>
-									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$Contains(StrArrayFromListOfStructs(IndirectConnGefaellestreckeList, "Id"), StrAfter(TempKreiselLink, ";"))]]></EXP>
-									</VALUECONDITION>
-									<GROUP Id="RDK:1538965" Name="Linked to Gefällestrecke (Shape_Prototype) cp1 (top point)" SubType="Generic">
-										<VALUECONDITION Value="true">
-											<EXP><![CDATA[$=$Contains(Shape_Prototype.links, "cp1;" + TempKreisel)]]></EXP>
-										</VALUECONDITION>
-										<COMMENTS Id="RDK:18115979" Suppressed="True" DesignTimeRemark="TODO: Überprüfen ob HoeheOben oder HoeheUnten" />
-										<SET Id="RDK:1538964" VarRef="TempNewHoehe">
-											<EXP><![CDATA[$=$Param.Input.NewHoeheOben]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-									</GROUP>
-									<GROUP Id="RDK:1539536" Name="Linked to Gefällestrecke (Shape_Prototype) cp2 (top point)" SubType="Generic">
-										<VALUECONDITION Value="true">
-											<EXP><![CDATA[$=$Contains(Shape_Prototype.links, "cp2;" + TempKreisel)]]></EXP>
-										</VALUECONDITION>
-										<SET Id="RDK:1539535" VarRef="TempNewHoehe">
-											<EXP><![CDATA[$=$Param.Input.NewHoeheUnten]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-									</GROUP>
-									<SET_STRUCT Id="RDK:1529407" VarRef="TempIndirectConn" ClearAll="True" ListRef="IndirectConnGefaellestreckeList">
-										<PAR Name="Id">
-											<EXP><![CDATA[$=$StrAfter(TempKreiselLink, ";")]]></EXP>
-										</PAR>
-										<PAR Name="Cp">
-											<EXP><![CDATA[$=$StrBefore(ListStrFilter(ShapeList["id=" + StrAfter(TempKreiselLink, ";")].links, "*" + TempKreisel)[0], ";")]]></EXP>
-										</PAR>
-										<PAR Name="ConnToId">
-											<EXP><![CDATA[$=$TempKreisel]]></EXP>
-										</PAR>
-										<PAR Name="NewHoehe">
-											<EXP><![CDATA[$=$TempNewHoehe]]></EXP>
-										</PAR>
-									</SET_STRUCT>
-								</GROUP>
-							</FOREACHLOOP>
-						</FOREACHLOOP>
-					</GROUP>
-					<GROUP Id="RDK:1543998" Name="Set IndirectConnKreiselList" SubType="Generic" Suppressed="True">
-						<VALUECONDITION Value="true">
-							<EXP><![CDATA[$=$Shape_Prototype.family = "Gefaellestrecke"]]></EXP>
-						</VALUECONDITION>
-						<FOREACHLOOP Id="RDK:1544007" ItemVarRef="TempGefaellestrecke">
-							<PAR Name="ArrayValueExp">
-								<EXP><![CDATA[$=$IndirectConnGefaellestreckeList]]></EXP>
-							</PAR>
-							<PAR Name="ExitCondExp">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<GROUP Id="RDK:1544013" Name="Local Vars" SubType="VarSet" IncludeDate="0" DesignTimeNotes="20230928 -1-">
-								<VAR Id="RDK:1544015" Name="TempGefaellestreckeLink" Type="string" />
-							</GROUP>
-							<FOREACHLOOP Id="RDK:1544011" ItemVarRef="TempGefaellestreckeLink">
-								<PAR Name="ArrayValueExp">
-									<EXP><![CDATA[$=$ShapeList["id=" + TempGefaellestrecke.Id].Links]]></EXP>
-								</PAR>
-								<PAR Name="ExitCondExp">
-									<EXP><![CDATA[$V$]]></EXP>
-								</PAR>
-								<GROUP Id="RDK:1544016" Name="Group" SubType="Generic">
-									<VALUECONDITION Value="true">
-										<EXP><![CDATA[$=$ShapeList["id=" + StrAfter(TempGefaellestreckeLink, ";")].family = "Kreisel"]]></EXP>
-									</VALUECONDITION>
-									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$ShapeList["id=" + StrAfter(TempGefaellestreckeLink, ";")].id = TempGefaellestrecke.ConnToId]]></EXP>
-									</VALUECONDITION>
-									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$Contains(IndirectConnKreiselList, StrAfter(TempGefaellestreckeLink, ";"))]]></EXP>
-									</VALUECONDITION>
-									<LIST_ADD Id="RDK:1545155" ListRef="IndirectConnKreiselList">
-										<PAR Name="VALUE_TO_ADD">
-											<EXP><![CDATA[$=$StrAfter(TempGefaellestreckeLink, ";")]]></EXP>
-										</PAR>
-										<PAR Name="POS_TO_ADD" />
-									</LIST_ADD>
-								</GROUP>
-							</FOREACHLOOP>
-						</FOREACHLOOP>
-					</GROUP>
-					<FOREACHLOOP Id="RDK:1128707" Suppressed="True" ItemVarRef="Link">
-						<PAR Name="ArrayValueExp">
-							<EXP><![CDATA[$=$LinkedShapeIDs]]></EXP>
-						</PAR>
-						<PAR Name="ExitCondExp">
-							<EXP><![CDATA[$V$]]></EXP>
-						</PAR>
-						<GROUP Id="RDK:1320613" Name="LocalVars" SubType="VarSet" IncludeDate="0">
-							<VAR Id="RDK:1320612" Name="LinkIndex" Type="integer">
-								<SET Id="RDK:1320611" VarRef="Me">
-									<EXP><![CDATA[$=$IndexOfByFieldValue(ShapeList, "id", Link)]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</VAR>
-							<VAR Id="RDK:19600826" Name="UebergabeListe" Type="SSGParameter[]" />
-						</GROUP>
-						<GROUP Id="RDK:1194293" Name="Debug" SubType="Generic">
-							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$LinkIndex = 10]]></EXP>
-							</VALUECONDITION>
-							<COMMENTS Id="RDK:1194296" />
-						</GROUP>
-						<SET Id="RDK:1192175" VarRef="ShapeList[&quot;id=&quot; + Link].text" Suppressed="True">
-							<EXP><![CDATA[$C$NOTHING]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
-						<SET Id="RDK:18767982" VarRef="ShapeList[&quot;id=&quot; + Link].lineColor" Suppressed="True">
-							<EXP><![CDATA[$C$#f33256]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
-						<CALLFUNCTION Id="RDK:19341161">
-							<PAR Name="FuncName">
-								<EXP><![CDATA[$C$SetStatus_False]]></EXP>
-							</PAR>
-							<PAR Name="InputExp">
-								<EXP><![CDATA[$=$Link]]></EXP>
-							</PAR>
-							<PAR Name="ResultRef">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<PAR Name="Options" />
-						</CALLFUNCTION>
-						<GROUP Id="RDK:1176848" Name="Set NOT direct linked Shapes to GELB or NOTHING" SubType="Generic" DesignTimeRemark="except Kreisel Groups">
-							<VALUECONDITION Value="false">
-								<EXP><![CDATA[$=$ListStrContains(Shape_Prototype.links, "*;" + Link)]]></EXP>
-							</VALUECONDITION>
-							<VALUECONDITION Value="false">
-								<EXP><![CDATA[$=$ShapeList["id=" + Link].family = "Weiche"]]></EXP>
-							</VALUECONDITION>
-							<VALUECONDITION Value="false">
-								<EXP><![CDATA[$=$Contains(RemovedKreiselGroupList, Link)]]></EXP>
-							</VALUECONDITION>
-							<VALUECONDITION Value="false">
-								<EXP><![CDATA[$=$Contains(StrArrayFromListOfStructs(IndirectConnGefaellestreckeList, "Id"), Link)]]></EXP>
-							</VALUECONDITION>
-							<SELECTCASE Id="RDK:1311069">
-								<EXP><![CDATA[$=$ShapeList["id=" + Link].family]]></EXP>
-								<CASEGROUP Id="RDK:1311063" CaseType="0">
-									<EXP><![CDATA[$C$Kreisel]]></EXP>
-									<IFTHENELSE Id="RDK:1311072">
-										<VALUECONDITION Value="true" Oper="OR">
-											<EXP><![CDATA[$=$ShapeList["id=" + Link].KreiselDefinition.Hoehe = Shape_Prototype.KreiselDefinition.Hoehe]]></EXP>
-										</VALUECONDITION>
-										<VALUECONDITION Value="false">
-											<EXP><![CDATA[$=$(Contains(KreiselGroupList, Link) AND Contains(RemovedKreiselGroupList, Link) AND Shape_Prototype.family = "Gefaellestrecke")
-OR
-Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellestrecke"]]></EXP>
-										</VALUECONDITION>
-										<GROUP Id="RDK:1311073" SubType="Then">
-											<SET Id="RDK:1311085" VarRef="ShapeList[LinkIndex].text" Suppressed="True">
-												<EXP><![CDATA[$C$NOTHING]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<SET Id="RDK:18767985" VarRef="ShapeList[LinkIndex].lineColor" Suppressed="True">
-												<EXP><![CDATA[$C$#f33256]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<CALLFUNCTION Id="RDK:19452308">
-												<PAR Name="FuncName">
-													<EXP><![CDATA[$C$SetStatus_False]]></EXP>
-												</PAR>
-												<PAR Name="InputExp">
-													<EXP><![CDATA[$=$Link]]></EXP>
-												</PAR>
-												<PAR Name="ResultRef">
-													<EXP><![CDATA[$V$]]></EXP>
-												</PAR>
-												<PAR Name="Options" />
-											</CALLFUNCTION>
-										</GROUP>
-										<GROUP Id="RDK:1311074" SubType="Else">
-											<GROUP Id="RDK:1325350" Name="Debug" SubType="Generic" Suppressed="True">
-												<VALUECONDITION Value="true">
-													<EXP><![CDATA[$=$LinkIndex = 5]]></EXP>
-												</VALUECONDITION>
-												<COMMENTS Id="RDK:1325355" />
-											</GROUP>
-											<SET Id="RDK:1176864" VarRef="ShapeList[LinkIndex].text" Suppressed="True">
-												<EXP><![CDATA[$C$Gelb]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<SET Id="RDK:18767988" VarRef="ShapeList[LinkIndex].lineColor" Suppressed="True">
-												<EXP><![CDATA[$C$orange]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<CALLFUNCTION Id="RDK:19452310">
-												<PAR Name="FuncName">
-													<EXP><![CDATA[$C$SetStatus_Undef]]></EXP>
-												</PAR>
-												<PAR Name="InputExp">
-													<EXP><![CDATA[$=$Link]]></EXP>
-												</PAR>
-												<PAR Name="ResultRef">
-													<EXP><![CDATA[$V$]]></EXP>
-												</PAR>
-												<PAR Name="Options" />
-											</CALLFUNCTION>
-										</GROUP>
-									</IFTHENELSE>
-								</CASEGROUP>
-								<CASEGROUP Id="RDK:1311071" CaseType="0">
-									<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
-									<GROUP Id="RDK:1325361" Name="Debug" SubType="Generic" Suppressed="True">
-										<VALUECONDITION Value="true">
-											<EXP><![CDATA[$=$LinkIndex = 5]]></EXP>
-										</VALUECONDITION>
-										<COMMENTS Id="RDK:1325360" />
-									</GROUP>
-									<IFTHENELSE Id="RDK:1493114">
-										<VALUECONDITION Value="false">
-											<EXP><![CDATA[$=$Contains(ConnectedGefaellestreckeList, Link)]]></EXP>
-										</VALUECONDITION>
-										<VALUECONDITION Value="true">
-											<EXP><![CDATA[$=$Contains(RemovedGefaellestreckeList, Link)]]></EXP>
-										</VALUECONDITION>
-										<GROUP Id="RDK:1493115" SubType="Then">
-											<SET Id="RDK:1493141" VarRef="ShapeList[LinkIndex].text" Suppressed="True">
-												<EXP><![CDATA[$C$NOTHING]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<SET Id="RDK:18767991" VarRef="ShapeList[LinkIndex].lineColor" Suppressed="True">
-												<EXP><![CDATA[$C$#f33256]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<CALLFUNCTION Id="RDK:19452312">
-												<PAR Name="FuncName">
-													<EXP><![CDATA[$C$SetStatus_False]]></EXP>
-												</PAR>
-												<PAR Name="InputExp">
-													<EXP><![CDATA[$=$Link]]></EXP>
-												</PAR>
-												<PAR Name="ResultRef">
-													<EXP><![CDATA[$V$]]></EXP>
-												</PAR>
-												<PAR Name="Options" />
-											</CALLFUNCTION>
-										</GROUP>
-										<GROUP Id="RDK:1493116" SubType="Else">
-											<GROUP Id="RDK:1488270" Name="If was not removed before" SubType="Generic">
-												<VALUECONDITION Value="false">
-													<EXP><![CDATA[$=$Contains(RemovedGefaellestreckeList, Link)]]></EXP>
-												</VALUECONDITION>
-												<SET Id="RDK:1311107" VarRef="ShapeList[LinkIndex].text" Suppressed="True">
-													<EXP><![CDATA[$C$^ Gelb]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<SET Id="RDK:18767994" VarRef="ShapeList[LinkIndex].lineColor" Suppressed="True">
-													<EXP><![CDATA[$C$orange]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<SET Id="RDK:19642369" VarRef="VAR_TEMPLIST_DEBUG">
-													<EXP><![CDATA[$=$Link]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<CALLFUNCTION Id="RDK:19341159">
-													<PAR Name="FuncName">
-														<EXP><![CDATA[$C$SetStatus_Undef]]></EXP>
-													</PAR>
-													<PAR Name="InputExp">
-														<EXP><![CDATA[$=$Link]]></EXP>
-													</PAR>
-													<PAR Name="ResultRef">
-														<EXP><![CDATA[$V$]]></EXP>
-													</PAR>
-													<PAR Name="Options" />
-												</CALLFUNCTION>
-												<SET_STRUCT Id="RDK:19651848" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe" Suppressed="True">
-													<PAR Name="Key">
-														<EXP><![CDATA[$C$ShapeId]]></EXP>
-													</PAR>
-													<PAR Name="Str">
-														<EXP><![CDATA[$=$Link]]></EXP>
-													</PAR>
-													<PAR Name="Dbl" />
-													<PAR Name="Int" />
-													<PAR Name="Boo" />
-												</SET_STRUCT>
-												<SET_STRUCT Id="RDK:19651850" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe" Suppressed="True">
-													<PAR Name="Key">
-														<EXP><![CDATA[$C$ShapeId]]></EXP>
-													</PAR>
-													<PAR Name="Str">
-														<EXP><![CDATA[$=$Link]]></EXP>
-													</PAR>
-													<PAR Name="Dbl" />
-													<PAR Name="Int" />
-													<PAR Name="Boo" />
-												</SET_STRUCT>
-												<CALLFUNCTION Id="RDK:19651844" Suppressed="True">
-													<PAR Name="FuncName">
-														<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
-													</PAR>
-													<PAR Name="InputExp">
-														<EXP><![CDATA[$=$Link]]></EXP>
-													</PAR>
-													<PAR Name="ResultRef">
-														<EXP><![CDATA[$V$]]></EXP>
-													</PAR>
-													<PAR Name="Options" />
-												</CALLFUNCTION>
-											</GROUP>
-										</GROUP>
-									</IFTHENELSE>
-								</CASEGROUP>
-								<CASEGROUP Id="RDK:1311064" CaseType="1">
-									<EXP />
-								</CASEGROUP>
-							</SELECTCASE>
-							<LIST_ADD Id="RDK:1228221" ListRef="HeightAllreadySetList">
-								<PAR Name="VALUE_TO_ADD">
-									<EXP><![CDATA[$=$Link]]></EXP>
-								</PAR>
-								<PAR Name="POS_TO_ADD" />
-							</LIST_ADD>
-							<GROUP Id="RDK:1229829" Name="Find Children" SubType="Generic">
-								<FOREACHLOOP Id="RDK:1229827" ItemVarRef="TempLink">
-									<PAR Name="ArrayValueExp">
-										<EXP><![CDATA[$=$ShapeList["id=" + Link].links]]></EXP>
-									</PAR>
-									<PAR Name="ExitCondExp">
-										<EXP><![CDATA[$V$]]></EXP>
-									</PAR>
-									<SET Id="RDK:1229825" VarRef="TempLink">
-										<EXP><![CDATA[$=$StrAfter(TempLink, ";")]]></EXP>
-										<PAR Name="AdvancedOptions" />
-									</SET>
-									<LIST_ADD Id="RDK:1229826" ListRef="TempLinkedShapeIDs">
-										<PAR Name="VALUE_TO_ADD">
-											<EXP><![CDATA[$=$TempLink]]></EXP>
-										</PAR>
-										<PAR Name="POS_TO_ADD" />
-									</LIST_ADD>
-								</FOREACHLOOP>
-							</GROUP>
-							<CALLFUNCTION Id="RDK:1228760">
-								<PAR Name="FuncName">
-									<EXP><![CDATA[$C$CollectLinkedShapesByTempLink]]></EXP>
-								</PAR>
-								<PAR Name="InputExp">
-									<EXP><![CDATA[$=$TempLinkedShapeIDs]]></EXP>
-								</PAR>
-								<PAR Name="ResultRef">
-									<EXP><![CDATA[$V$]]></EXP>
-								</PAR>
-								<PAR Name="Options" />
-							</CALLFUNCTION>
-							<FOREACHLOOP Id="RDK:1227666" ItemVarRef="TempLink">
-								<PAR Name="ArrayValueExp">
-									<EXP><![CDATA[$=$TempLinkedShapeIDs]]></EXP>
-								</PAR>
-								<PAR Name="ExitCondExp">
-									<EXP><![CDATA[$V$]]></EXP>
-								</PAR>
-								<GROUP Id="RDK:1385983" Name="Debug" SubType="Generic" Suppressed="True">
-									<VALUECONDITION Value="true">
-										<EXP><![CDATA[$=$TempLink = "shape_9ce528b3-a2c9-6954-2139-5c489bb174b1"]]></EXP>
-									</VALUECONDITION>
-									<COMMENTS Id="RDK:1385982" />
-								</GROUP>
-								<GROUP Id="RDK:1228226" Name="Group" SubType="Generic">
-									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$Contains(HeightAllreadySetList, TempLink)]]></EXP>
-									</VALUECONDITION>
-									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$ShapeList["id=" + Link].family = "Weiche"]]></EXP>
-									</VALUECONDITION>
-									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$Contains(StrArrayFromListOfStructs(IndirectConnGefaellestreckeList, "Id"), TempLink)]]></EXP>
-									</VALUECONDITION>
-									<GROUP Id="RDK:1320603" Name="LocalVars" SubType="VarSet" IncludeDate="0">
-										<VAR Id="RDK:1320604" Name="TempLinkIndex" Type="integer">
-											<SET Id="RDK:1320605" VarRef="Me">
-												<EXP><![CDATA[$=$IndexOfByFieldValue(ShapeList, "id", TempLink)]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-										</VAR>
-									</GROUP>
-									<SELECTCASE Id="RDK:1311127">
-										<EXP><![CDATA[$=$ShapeList["id=" + TempLink].family]]></EXP>
-										<CASEGROUP Id="RDK:1311123" CaseType="0">
-											<EXP><![CDATA[$C$Kreisel]]></EXP>
-											<IFTHENELSE Id="RDK:1311122">
-												<VALUECONDITION Value="true">
-													<EXP><![CDATA[$=$ShapeList["id=" + TempLink].KreiselDefinition.Hoehe = Shape_Prototype.KreiselDefinition.Hoehe]]></EXP>
-												</VALUECONDITION>
-												<GROUP Id="RDK:1311119" SubType="Then">
-													<GROUP Id="RDK:1325379" Name="Debug" SubType="Generic" Suppressed="True">
-														<VALUECONDITION Value="true">
-															<EXP><![CDATA[$=$TempLink = "shape_4aced58c-467f-7c5d-7449-16432bcf344a"]]></EXP>
-														</VALUECONDITION>
-														<COMMENTS Id="RDK:1325378" />
-													</GROUP>
-													<SET Id="RDK:1311118" VarRef="ShapeList[TempLinkIndex].text" Suppressed="True">
-														<EXP><![CDATA[$C$NOTHING]]></EXP>
-														<PAR Name="AdvancedOptions" />
-													</SET>
-													<SET Id="RDK:18767997" VarRef="ShapeList[TempLinkIndex].lineColor" Suppressed="True">
-														<EXP><![CDATA[$C$#f33256]]></EXP>
-														<PAR Name="AdvancedOptions" />
-													</SET>
-													<CALLFUNCTION Id="RDK:19452314">
-														<PAR Name="FuncName">
-															<EXP><![CDATA[$C$SetStatus_False]]></EXP>
-														</PAR>
-														<PAR Name="InputExp">
-															<EXP><![CDATA[$=$Link]]></EXP>
-														</PAR>
-														<PAR Name="ResultRef">
-															<EXP><![CDATA[$V$]]></EXP>
-														</PAR>
-														<PAR Name="Options" />
-													</CALLFUNCTION>
-												</GROUP>
-												<GROUP Id="RDK:1311121" SubType="Else">
-													<GROUP Id="RDK:1325369" Name="Debug" SubType="Generic" Suppressed="True">
-														<VALUECONDITION Value="true">
-															<EXP><![CDATA[$=$TempLink = "shape_4aced58c-467f-7c5d-7449-16432bcf344a"]]></EXP>
-														</VALUECONDITION>
-														<COMMENTS Id="RDK:1325368" />
-													</GROUP>
-													<SET Id="RDK:1311120" VarRef="ShapeList[TempLinkIndex].text" Suppressed="True">
-														<EXP><![CDATA[$C$Gelb]]></EXP>
-														<PAR Name="AdvancedOptions" />
-													</SET>
-													<SET Id="RDK:18768000" VarRef="ShapeList[TempLinkIndex].lineColor" Suppressed="True">
-														<EXP><![CDATA[$C$orange]]></EXP>
-														<PAR Name="AdvancedOptions" />
-													</SET>
-													<CALLFUNCTION Id="RDK:19357385">
-														<PAR Name="FuncName">
-															<EXP><![CDATA[$C$SetStatus_Undef]]></EXP>
-														</PAR>
-														<PAR Name="InputExp">
-															<EXP><![CDATA[$=$Link]]></EXP>
-														</PAR>
-														<PAR Name="ResultRef">
-															<EXP><![CDATA[$V$]]></EXP>
-														</PAR>
-														<PAR Name="Options" />
-													</CALLFUNCTION>
-												</GROUP>
-											</IFTHENELSE>
-										</CASEGROUP>
-										<CASEGROUP Id="RDK:1311125" CaseType="0">
-											<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
-											<SET Id="RDK:1227670" VarRef="ShapeList[TempLinkIndex].text" Suppressed="True">
-												<EXP><![CDATA[$C$^ Gelb]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<SET Id="RDK:18768003" VarRef="ShapeList[TempLinkIndex].lineColor" Suppressed="True">
-												<EXP><![CDATA[$C$orange]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<SET Id="RDK:19642371" VarRef="VAR_ALREADY_SET_DEBUG">
-												<EXP><![CDATA[$=$Link]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<CALLFUNCTION Id="RDK:19452294">
-												<PAR Name="FuncName">
-													<EXP><![CDATA[$C$SetStatus_Undef]]></EXP>
-												</PAR>
-												<PAR Name="InputExp">
-													<EXP><![CDATA[$=$Link]]></EXP>
-												</PAR>
-												<PAR Name="ResultRef">
-													<EXP><![CDATA[$V$]]></EXP>
-												</PAR>
-												<PAR Name="Options" />
-											</CALLFUNCTION>
-										</CASEGROUP>
-										<CASEGROUP Id="RDK:1311126" CaseType="1">
-											<EXP />
-										</CASEGROUP>
-									</SELECTCASE>
-									<LIST_ADD Id="RDK:1228223" ListRef="HeightAllreadySetList">
-										<PAR Name="VALUE_TO_ADD">
-											<EXP><![CDATA[$=$TempLink]]></EXP>
-										</PAR>
-										<PAR Name="POS_TO_ADD" />
-									</LIST_ADD>
-								</GROUP>
-							</FOREACHLOOP>
-						</GROUP>
-						<GROUP Id="RDK:1176831" Name="Set direct linked Shapes to GRAU" SubType="Generic" DesignTimeRemark="except Kreisel Groups">
-							<VALUECONDITION Value="true" Oper="OR">
-								<EXP><![CDATA[$=$ListStrContains(Shape_Prototype.links, "*;" + Link)]]></EXP>
-							</VALUECONDITION>
-							<VALUECONDITION Value="true" Oper="OR">
-								<EXP><![CDATA[$=$ShapeList["id=" + Link].family = "Kreisel" AND NOT Contains(RemovedKreiselGroupList, Link)]]></EXP>
-							</VALUECONDITION>
-							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$ShapeList["id=" + Link].family = "Gefaellestrecke" AND Contains(StrArrayFromListOfStructs(IndirectConnGefaellestreckeList, "Id"), Link)]]></EXP>
-							</VALUECONDITION>
-							<GROUP Id="RDK:1263574" Name="Group" SubType="Generic">
-								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$Contains(HeightAllreadySetList, Link)]]></EXP>
-								</VALUECONDITION>
-								<VALUECONDITION Value="false">
-									<EXP><![CDATA[$=$ListStrContains(KreiselGroupList, Link)]]></EXP>
-								</VALUECONDITION>
-								<EXIT_PROCESS Id="RDK:1263580" BreakType="2" ExitStatus="0" />
-							</GROUP>
-							<SET Id="RDK:1200178" VarRef="TempLinksList">
-								<EXP><![CDATA[$=$ShapeList["id=" + Link].links]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<SET Id="RDK:1200182" VarRef="TempLinksList">
-								<EXP><![CDATA[$=$ExecOnValues(TempLinksList, "StrAfter(Me, "";"")", "")]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<GROUP Id="RDK:1194879" Name="Group" SubType="Generic" DesignTimeNotes="Only if there is no link to any Gefällestrecke that is connected to this Element">
-								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$Count(ListMatch(ConnectedGefaellestreckeList, TempLinksList, "")) = 0]]></EXP>
-								</VALUECONDITION>
-								<SELECTCASE Id="RDK:1128708">
-									<EXP><![CDATA[$=$ShapeList["id=" + Link].family]]></EXP>
-									<CASEGROUP Id="RDK:1128709" CaseType="0">
-										<EXP><![CDATA[$C$Kreisel]]></EXP>
-										<SELECTCASE Id="RDK:1350828" DesignTimeNotes="20231005 -1-">
-											<EXP><![CDATA[$=$Shape_Prototype.family]]></EXP>
-											<CASEGROUP Id="RDK:1350829" CaseType="0">
-												<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
-												<IFTHENELSE Id="RDK:1473130">
-													<VALUECONDITION Value="true" Oper="OR">
-														<EXP><![CDATA[$=$Contains(Shape_Prototype.links, "cp1;" + Link) AND ShapeList["id=" + Shape_Prototype.id].GefaelleDefinition.HoeheOben <> Shape_Prototype.GefaelleDefinition.HoeheOben]]></EXP>
-													</VALUECONDITION>
-													<VALUECONDITION Value="true">
-														<EXP><![CDATA[$=$ListStrContains(KreiselGroupList, Link) AND ShapeList["id=" + Shape_Prototype.id].GefaelleDefinition.HoeheOben <> Shape_Prototype.GefaelleDefinition.HoeheOben]]></EXP>
-													</VALUECONDITION>
-													<GROUP Id="RDK:1473131" SubType="Then">
-														<GROUP Id="RDK:1350831" Name="If HoeheOben changed &amp; Linked to cp1 (top point) AND is in KreiselGroup" SubType="Generic">
-															<SET Id="RDK:1437618" VarRef="ShapeList[&quot;id=&quot; + Link].text" Suppressed="True">
-																<EXP><![CDATA[$C$Grau]]></EXP>
-																<PAR Name="AdvancedOptions" />
-															</SET>
-															<SET Id="RDK:18768006" VarRef="ShapeList[&quot;id=&quot; + Link].lineColor" Suppressed="True">
-																<EXP><![CDATA[$C$gray]]></EXP>
-																<PAR Name="AdvancedOptions" />
-															</SET>
-															<SET Id="RDK:1350847" VarRef="ShapeList[&quot;id=&quot; + Link].KreiselDefinition.Hoehe" Suppressed="True">
-																<EXP><![CDATA[$=$Param.Input.NewHoeheOben]]></EXP>
-																<PAR Name="AdvancedOptions" />
-															</SET>
-															<COMMENTS Id="RDK:19600831" DesignTimeRemark="Bitte Rücksprache: Technisch ist es nicht zu empfehlen, die Höhe des Kreisel nach der Gefällestreckenhöhe zu setzen. Beim Verbinden von Kreisel und Gefällestrecke soll immer die Höhe des Kreisel an die Gefällestrecke übergeben werden." />
-															<SET_STRUCT Id="RDK:19600833" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
-																<PAR Name="Key">
-																	<EXP><![CDATA[$C$ShapeId]]></EXP>
-																</PAR>
-																<PAR Name="Str">
-																	<EXP><![CDATA[$=$Link]]></EXP>
-																</PAR>
-																<PAR Name="Dbl" />
-																<PAR Name="Int" />
-																<PAR Name="Boo" />
-															</SET_STRUCT>
-															<SET_STRUCT Id="RDK:19600835" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
-																<PAR Name="Key">
-																	<EXP><![CDATA[$C$Hoehe]]></EXP>
-																</PAR>
-																<PAR Name="Str" />
-																<PAR Name="Dbl">
-																	<EXP><![CDATA[$=$Param.Input.NewHoeheOben]]></EXP>
-																</PAR>
-																<PAR Name="Int" />
-																<PAR Name="Boo" />
-															</SET_STRUCT>
-															<CALLFUNCTION Id="RDK:19600837">
-																<PAR Name="FuncName">
-																	<EXP><![CDATA[$C$SetHeight]]></EXP>
-																</PAR>
-																<PAR Name="InputExp">
-																	<EXP><![CDATA[$=$UebergabeListe]]></EXP>
-																</PAR>
-																<PAR Name="ResultRef">
-																	<EXP><![CDATA[$V$]]></EXP>
-																</PAR>
-																<PAR Name="Options" />
-															</CALLFUNCTION>
-															<CALLFUNCTION Id="RDK:19452296">
-																<PAR Name="FuncName">
-																	<EXP><![CDATA[$C$SetStatus]]></EXP>
-																</PAR>
-																<PAR Name="InputExp">
-																	<EXP><![CDATA[$=$Link]]></EXP>
-																</PAR>
-																<PAR Name="ResultRef">
-																	<EXP><![CDATA[$V$]]></EXP>
-																</PAR>
-																<PAR Name="Options" />
-															</CALLFUNCTION>
-														</GROUP>
-													</GROUP>
-													<GROUP Id="RDK:1473132" SubType="Else">
-														<GROUP Id="RDK:1350853" Name="If HoeheUnten changed &amp; Linked to cp2 (bottom point) AND is in KreiselGroup" SubType="Generic">
-															<VALUECONDITION Value="true" Oper="OR">
-																<EXP><![CDATA[$=$Contains(Shape_Prototype.links, "cp2;" + Link) AND ShapeList["id=" + Shape_Prototype.id].GefaelleDefinition.HoeheUnten <> Shape_Prototype.GefaelleDefinition.HoeheUnten]]></EXP>
-															</VALUECONDITION>
-															<VALUECONDITION Value="true">
-																<EXP><![CDATA[$=$ListStrContains(KreiselGroupList, Link) AND ShapeList["id=" + Shape_Prototype.id].GefaelleDefinition.HoeheUnten <> Shape_Prototype.GefaelleDefinition.HoeheUnten]]></EXP>
-															</VALUECONDITION>
-															<SET Id="RDK:1437620" VarRef="ShapeList[&quot;id=&quot; + Link].text" Suppressed="True">
-																<EXP><![CDATA[$C$Grau]]></EXP>
-																<PAR Name="AdvancedOptions" />
-															</SET>
-															<SET Id="RDK:18768009" VarRef="ShapeList[&quot;id=&quot; + Link].lineColor" Suppressed="True">
-																<EXP><![CDATA[$C$gray]]></EXP>
-																<PAR Name="AdvancedOptions" />
-															</SET>
-															<SET Id="RDK:1350852" VarRef="ShapeList[&quot;id=&quot; + Link].KreiselDefinition.Hoehe" Suppressed="True">
-																<EXP><![CDATA[$=$Param.Input.NewHoeheUnten]]></EXP>
-																<PAR Name="AdvancedOptions" />
-															</SET>
-															<COMMENTS Id="RDK:19602881" DesignTimeRemark="Bitte Rücksprache: Technisch ist es nicht zu empfehlen, die Höhe des Kreisel nach der Gefällestreckenhöhe zu setzen. Beim Verbinden von Kreisel und Gefällestrecke soll immer die Höhe des Kreisel an die Gefällestrecke übergeben werden." />
-															<SET_STRUCT Id="RDK:19602879" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
-																<PAR Name="Key">
-																	<EXP><![CDATA[$C$ShapeId]]></EXP>
-																</PAR>
-																<PAR Name="Str">
-																	<EXP><![CDATA[$=$Link]]></EXP>
-																</PAR>
-																<PAR Name="Dbl" />
-																<PAR Name="Int" />
-																<PAR Name="Boo" />
-															</SET_STRUCT>
-															<SET_STRUCT Id="RDK:19602877" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
-																<PAR Name="Key">
-																	<EXP><![CDATA[$C$Hoehe]]></EXP>
-																</PAR>
-																<PAR Name="Str" />
-																<PAR Name="Dbl">
-																	<EXP><![CDATA[$=$Param.Input.NewHoeheUnten]]></EXP>
-																</PAR>
-																<PAR Name="Int" />
-																<PAR Name="Boo" />
-															</SET_STRUCT>
-															<CALLFUNCTION Id="RDK:19602875">
-																<PAR Name="FuncName">
-																	<EXP><![CDATA[$C$SetHeight]]></EXP>
-																</PAR>
-																<PAR Name="InputExp">
-																	<EXP><![CDATA[$=$UebergabeListe]]></EXP>
-																</PAR>
-																<PAR Name="ResultRef">
-																	<EXP><![CDATA[$V$]]></EXP>
-																</PAR>
-																<PAR Name="Options" />
-															</CALLFUNCTION>
-															<CALLFUNCTION Id="RDK:19452298">
-																<PAR Name="FuncName">
-																	<EXP><![CDATA[$C$SetStatus]]></EXP>
-																</PAR>
-																<PAR Name="InputExp">
-																	<EXP><![CDATA[$=$Link]]></EXP>
-																</PAR>
-																<PAR Name="ResultRef">
-																	<EXP><![CDATA[$V$]]></EXP>
-																</PAR>
-																<PAR Name="Options" />
-															</CALLFUNCTION>
-														</GROUP>
-													</GROUP>
-												</IFTHENELSE>
-											</CASEGROUP>
-											<CASEGROUP Id="RDK:1350830" CaseType="1">
-												<EXP />
-												<SET Id="RDK:1131873" VarRef="ShapeList[&quot;id=&quot; + Link].text" Suppressed="True">
-													<EXP><![CDATA[$C$Grau]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<SET Id="RDK:18768012" VarRef="ShapeList[&quot;id=&quot; + Link].lineColor" Suppressed="True">
-													<EXP><![CDATA[$C$gray]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<SET Id="RDK:1128711" VarRef="ShapeList[&quot;id=&quot; + Link].KreiselDefinition.Hoehe" Suppressed="True">
-													<EXP><![CDATA[$=$Param.Input.NewHoehe]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<SET_STRUCT Id="RDK:19600828" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
-													<PAR Name="Key">
-														<EXP><![CDATA[$C$ShapeId]]></EXP>
-													</PAR>
-													<PAR Name="Str">
-														<EXP><![CDATA[$=$Link]]></EXP>
-													</PAR>
-													<PAR Name="Dbl" />
-													<PAR Name="Int" />
-													<PAR Name="Boo" />
-												</SET_STRUCT>
-												<SET_STRUCT Id="RDK:19600830" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
-													<PAR Name="Key">
-														<EXP><![CDATA[$C$Hoehe]]></EXP>
-													</PAR>
-													<PAR Name="Str" />
-													<PAR Name="Dbl">
-														<EXP><![CDATA[$=$Param.Input.NewHoehe]]></EXP>
-													</PAR>
-													<PAR Name="Int" />
-													<PAR Name="Boo" />
-												</SET_STRUCT>
-												<CALLFUNCTION Id="RDK:19600824">
-													<PAR Name="FuncName">
-														<EXP><![CDATA[$C$SetHeight]]></EXP>
-													</PAR>
-													<PAR Name="InputExp">
-														<EXP><![CDATA[$=$UebergabeListe]]></EXP>
-													</PAR>
-													<PAR Name="ResultRef">
-														<EXP><![CDATA[$V$]]></EXP>
-													</PAR>
-													<PAR Name="Options" />
-												</CALLFUNCTION>
-												<CALLFUNCTION Id="RDK:19452300">
-													<PAR Name="FuncName">
-														<EXP><![CDATA[$C$SetStatus]]></EXP>
-													</PAR>
-													<PAR Name="InputExp">
-														<EXP><![CDATA[$=$Link]]></EXP>
-													</PAR>
-													<PAR Name="ResultRef">
-														<EXP><![CDATA[$V$]]></EXP>
-													</PAR>
-													<PAR Name="Options" />
-												</CALLFUNCTION>
-											</CASEGROUP>
-										</SELECTCASE>
-										<LIST_ADD Id="RDK:1228215" ListRef="HeightAllreadySetList">
-											<PAR Name="VALUE_TO_ADD">
-												<EXP><![CDATA[$=$Link]]></EXP>
-											</PAR>
-											<PAR Name="POS_TO_ADD" />
-										</LIST_ADD>
-									</CASEGROUP>
-									<CASEGROUP Id="RDK:1155596" CaseType="0">
-										<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
-										<COMMENTS Id="RDK:1168393" DesignTimeRemark="Annahme cp1: Gefällestrecke Connection Point (graphisch) oben" DesignTimeNotes="20230928 -1-" />
-										<COMMENTS Id="RDK:1168395" DesignTimeRemark="Annahme cp2: Gefällestrecke Connection Point (graphisch) unten" DesignTimeNotes="20230928 -1-" />
-										<SET Id="RDK:1192171" VarRef="ShapeList[&quot;id=&quot; + Link].text" Suppressed="True">
-											<EXP><![CDATA[$C$^]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-										<GROUP Id="RDK:1168367" Name="Linked to Gefällestrecke cp1 (top point)" SubType="Generic">
-											<VALUECONDITION Value="true">
-												<EXP><![CDATA[$=$Contains(ShapeList["id=" + Link].links, "cp1;" + Shape_Prototype.id)]]></EXP>
-											</VALUECONDITION>
-											<SET Id="RDK:1171571" VarRef="ShapeList[&quot;id=&quot; + Link].text" Suppressed="True">
-												<EXP><![CDATA[$C$^ Grau]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<SET Id="RDK:18768015" VarRef="ShapeList[&quot;id=&quot; + Link].lineColor" Suppressed="True">
-												<EXP><![CDATA[$C$gray]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<CALLFUNCTION Id="RDK:19452302">
-												<PAR Name="FuncName">
-													<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
-												</PAR>
-												<PAR Name="InputExp">
-													<EXP><![CDATA[$=$Link]]></EXP>
-												</PAR>
-												<PAR Name="ResultRef">
-													<EXP><![CDATA[$V$]]></EXP>
-												</PAR>
-												<PAR Name="Options" />
-											</CALLFUNCTION>
-											<SELECTCASE Id="RDK:1366798" DesignTimeNotes="20231005 -1-">
-												<EXP><![CDATA[$=$Shape_Prototype.family]]></EXP>
-												<CASEGROUP Id="RDK:1366800" CaseType="0">
-													<EXP><![CDATA[$C$Kreisel]]></EXP>
-													<SET Id="RDK:1366806" VarRef="ShapeList[&quot;id=&quot; + Link].GefaelleDefinition.HoeheOben">
-														<EXP><![CDATA[$=$Param.Input.NewHoehe]]></EXP>
-														<PAR Name="AdvancedOptions" />
-													</SET>
-												</CASEGROUP>
-												<CASEGROUP Id="RDK:1366804" CaseType="1">
-													<EXP />
-													<SET Id="RDK:1168391" VarRef="ShapeList[&quot;id=&quot; + Link].GefaelleDefinition.HoeheOben">
-														<EXP><![CDATA[$=$Param.Input.NewHoeheOben]]></EXP>
-														<PAR Name="AdvancedOptions" />
-													</SET>
-												</CASEGROUP>
-											</SELECTCASE>
-											<LIST_ADD Id="RDK:1228217" ListRef="HeightAllreadySetList">
-												<PAR Name="VALUE_TO_ADD">
-													<EXP><![CDATA[$=$Link]]></EXP>
-												</PAR>
-												<PAR Name="POS_TO_ADD" />
-											</LIST_ADD>
-										</GROUP>
-										<GROUP Id="RDK:1168407" Name="Linked to Gefällestrecke cp2 (bottom point)" SubType="Generic">
-											<VALUECONDITION Value="true">
-												<EXP><![CDATA[$=$Contains(ShapeList["id=" + Link].links, "cp2;" + Shape_Prototype.id)]]></EXP>
-											</VALUECONDITION>
-											<SET Id="RDK:1172099" VarRef="ShapeList[&quot;id=&quot; + Link].text" Suppressed="True">
-												<EXP><![CDATA[$C$^ Grau]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<SET Id="RDK:18768018" VarRef="ShapeList[&quot;id=&quot; + Link].lineColor" Suppressed="True">
-												<EXP><![CDATA[$C$gray]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<CALLFUNCTION Id="RDK:19452316">
-												<PAR Name="FuncName">
-													<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
-												</PAR>
-												<PAR Name="InputExp">
-													<EXP><![CDATA[$=$Link]]></EXP>
-												</PAR>
-												<PAR Name="ResultRef">
-													<EXP><![CDATA[$V$]]></EXP>
-												</PAR>
-												<PAR Name="Options" />
-											</CALLFUNCTION>
-											<SELECTCASE Id="RDK:1366808" DesignTimeNotes="20231005 -1-">
-												<EXP><![CDATA[$=$Shape_Prototype.family]]></EXP>
-												<CASEGROUP Id="RDK:1366810" CaseType="0">
-													<EXP><![CDATA[$C$Kreisel]]></EXP>
-													<SET Id="RDK:1366814" VarRef="ShapeList[&quot;id=&quot; + Link].GefaelleDefinition.HoeheUnten">
-														<EXP><![CDATA[$=$Param.Input.NewHoehe]]></EXP>
-														<PAR Name="AdvancedOptions" />
-													</SET>
-												</CASEGROUP>
-												<CASEGROUP Id="RDK:1366812" CaseType="1">
-													<EXP />
-													<SET Id="RDK:1168415" VarRef="ShapeList[&quot;id=&quot; + Link].GefaelleDefinition.HoeheUnten">
-														<EXP><![CDATA[$=$Param.Input.NewHoeheUnten]]></EXP>
-														<PAR Name="AdvancedOptions" />
-													</SET>
-												</CASEGROUP>
-											</SELECTCASE>
-											<LIST_ADD Id="RDK:1228219" ListRef="HeightAllreadySetList">
-												<PAR Name="VALUE_TO_ADD">
-													<EXP><![CDATA[$=$Link]]></EXP>
-												</PAR>
-												<PAR Name="POS_TO_ADD" />
-											</LIST_ADD>
-										</GROUP>
-										<GROUP Id="RDK:1529388" Name="Is Indirect Connected Gefaellestrecke" SubType="Generic">
-											<VALUECONDITION Value="true">
-												<EXP><![CDATA[$=$ShapeList["id=" + Link].family = "Gefaellestrecke" AND Contains(StrArrayFromListOfStructs(IndirectConnGefaellestreckeList, "Id"), Link)]]></EXP>
-											</VALUECONDITION>
-											<GROUP Id="RDK:1530016" Name="Linked to Gefällestrecke cp1 (top point)" SubType="Generic">
-												<VALUECONDITION Value="true">
-													<EXP><![CDATA[$=$FieldValue(FilterByFieldValue(IndirectConnGefaellestreckeList, "Id", Link, false)[0], "cp") = "cp1"]]></EXP>
-												</VALUECONDITION>
-												<SET Id="RDK:1532298" VarRef="ShapeList[&quot;id=&quot; + Link].text" Suppressed="True">
-													<EXP><![CDATA[$C$^ Grau]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<SET Id="RDK:18768021" VarRef="ShapeList[&quot;id=&quot; + Link].lineColor" Suppressed="True">
-													<EXP><![CDATA[$C$gray]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<CALLFUNCTION Id="RDK:19452304">
-													<PAR Name="FuncName">
-														<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
-													</PAR>
-													<PAR Name="InputExp">
-														<EXP><![CDATA[$=$Link]]></EXP>
-													</PAR>
-													<PAR Name="ResultRef">
-														<EXP><![CDATA[$V$]]></EXP>
-													</PAR>
-													<PAR Name="Options" />
-												</CALLFUNCTION>
-												<SET Id="RDK:1530046" VarRef="ShapeList[&quot;id=&quot; + Link].GefaelleDefinition.HoeheOben">
-													<EXP><![CDATA[$=$FieldValue(FilterByFieldValue(IndirectConnGefaellestreckeList, "Id", Link, false)[0], "NewHoehe")]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-											</GROUP>
-											<GROUP Id="RDK:1530032" Name="Linked to Gefällestrecke cp1 (top point)" SubType="Generic">
-												<VALUECONDITION Value="true">
-													<EXP><![CDATA[$=$FieldValue(FilterByFieldValue(IndirectConnGefaellestreckeList, "Id", Link, false)[0], "cp") = "cp2"]]></EXP>
-												</VALUECONDITION>
-												<SET Id="RDK:1532296" VarRef="ShapeList[&quot;id=&quot; + Link].text" Suppressed="True">
-													<EXP><![CDATA[$C$^ Grau]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<SET Id="RDK:18768024" VarRef="ShapeList[&quot;id=&quot; + Link].lineColor" Suppressed="True">
-													<EXP><![CDATA[$C$gray]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<CALLFUNCTION Id="RDK:19452306">
-													<PAR Name="FuncName">
-														<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
-													</PAR>
-													<PAR Name="InputExp">
-														<EXP><![CDATA[$=$Link]]></EXP>
-													</PAR>
-													<PAR Name="ResultRef">
-														<EXP><![CDATA[$V$]]></EXP>
-													</PAR>
-													<PAR Name="Options" />
-												</CALLFUNCTION>
-												<SET Id="RDK:1530042" VarRef="ShapeList[&quot;id=&quot; + Link].GefaelleDefinition.HoeheUnten">
-													<EXP><![CDATA[$=$FieldValue(FilterByFieldValue(IndirectConnGefaellestreckeList, "Id", Link, false)[0], "NewHoehe")]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-											</GROUP>
-										</GROUP>
-										<COMMENTS Id="RDK:1156147" DesignTimeRemark="Momentan nicht möglich wenn h0 und H1 schon einen Wert haben, da unbekannt ist welcher Wert dann geändert werden soll." DesignTimeNotes="20230928 -1-" />
-										<IFTHENELSE Id="RDK:1155598" Suppressed="True" DesignTimeNotes="20230928 -1-&#xD;&#xA;suppressed">
-											<VALUECONDITION Value="true">
-												<EXP><![CDATA[$=$ShapeList["id=" + Link].GefaelleDefinition.HoeheOben=""]]></EXP>
-											</VALUECONDITION>
-											<GROUP Id="RDK:1155599" SubType="Then">
-												<SET Id="RDK:1155612" VarRef="ShapeList[&quot;id=&quot; + Link].GefaelleDefinition.HoeheOben">
-													<EXP><![CDATA[$=$Shape_Prototype.KreiselDefinition.Hoehe]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-											</GROUP>
-											<GROUP Id="RDK:1155600" SubType="Else">
-												<SET Id="RDK:1155614" VarRef="ShapeList[&quot;id=&quot; + Link].GefaelleDefinition.HoeheUnten">
-													<EXP><![CDATA[$=$Shape_Prototype.KreiselDefinition.Hoehe]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-											</GROUP>
-										</IFTHENELSE>
-									</CASEGROUP>
-									<CASEGROUP Id="RDK:1128710" CaseType="1">
-										<EXP />
-									</CASEGROUP>
-								</SELECTCASE>
-								<EXIT_PROCESS Id="RDK:1194301" Suppressed="True" BreakType="2" ExitStatus="0" />
-							</GROUP>
-						</GROUP>
-					</FOREACHLOOP>
-					<GROUP Id="RDK:1502770" Name="Set RemovedKreiselGroupList to GELB" SubType="Generic" Suppressed="True">
-						<FOREACHLOOP Id="RDK:1502776" ItemVarRef="Link">
-							<PAR Name="ArrayValueExp">
-								<EXP><![CDATA[$=$RemovedKreiselGroupList]]></EXP>
-							</PAR>
-							<PAR Name="ExitCondExp">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<GROUP Id="RDK:1503356" Name="Group" SubType="Generic">
-								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$Contains(ConnGefaellestreckeIdList, Link)]]></EXP>
-								</VALUECONDITION>
-								<GROUP Id="RDK:1502783" Name="LocalVars" SubType="VarSet" IncludeDate="0">
-									<VAR Id="RDK:1502782" Name="LinkIndex" Type="integer">
-										<SET Id="RDK:1502781" VarRef="Me">
-											<EXP><![CDATA[$=$IndexOfByFieldValue(ShapeList, "id", Link)]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-									</VAR>
-								</GROUP>
-								<SELECTCASE Id="RDK:1516129">
-									<EXP><![CDATA[$=$ShapeList[LinkIndex].family]]></EXP>
-									<CASEGROUP Id="RDK:1516131" CaseType="0">
-										<EXP><![CDATA[$C$Kreisel]]></EXP>
-										<GROUP Id="RDK:1516152" Name="Group" SubType="Generic">
-											<VALUECONDITION Value="false">
-												<EXP><![CDATA[$=$ShapeList[LinkIndex].KreiselDefinition.Hoehe = InheritHeightData.NewHoehe]]></EXP>
-											</VALUECONDITION>
-											<SET Id="RDK:1502785" VarRef="ShapeList[LinkIndex].text" Suppressed="True">
-												<EXP><![CDATA[$C$Gelb]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<SET Id="RDK:18768027" VarRef="ShapeList[LinkIndex].lineColor" Suppressed="True">
-												<EXP><![CDATA[$C$orange]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<CALLFUNCTION Id="RDK:19360766">
-												<PAR Name="FuncName">
-													<EXP><![CDATA[$C$SetStatus_Undef]]></EXP>
-												</PAR>
-												<PAR Name="InputExp">
-													<EXP><![CDATA[$=$Link]]></EXP>
-												</PAR>
-												<PAR Name="ResultRef">
-													<EXP><![CDATA[$V$]]></EXP>
-												</PAR>
-												<PAR Name="Options" />
-											</CALLFUNCTION>
-										</GROUP>
-									</CASEGROUP>
-								</SELECTCASE>
-							</GROUP>
-						</FOREACHLOOP>
-					</GROUP>
 					<GROUP Id="RDK:19787372" Name="Set KreiselHeights" SubType="Generic" DesignTimeNotes="20231011 -1-">
 						<FOREACHLOOP Id="RDK:19787371" ItemVarRef="TempKreiselLink">
 							<PAR Name="ArrayValueExp">
@@ -9199,9 +8030,6 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 								<EXP><![CDATA[$V$]]></EXP>
 							</PAR>
 							<GROUP Id="RDK:19795593" Name="Local Vars" SubType="VarSet" IncludeDate="0" DesignTimeNotes="20230928 -1-">
-								<VAR Id="RDK:19795588" Name="TempKreiselLink" Type="string" />
-								<VAR Id="RDK:19795589" Name="TempIndirectConn" Type="IndirectConnGefaellestreckeType" />
-								<VAR Id="RDK:19795590" Name="TempNewHoehe" Type="string" />
 								<VAR Id="RDK:19795591" Name="UebergabeListe" Type="SSGParameter[]" />
 								<VAR Id="RDK:19795592" Name="shape_item" Type="Editor2DShapeType" />
 							</GROUP>
@@ -9275,10 +8103,6 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 							</FOREACHLOOP>
 						</FOREACHLOOP>
 					</GROUP>
-					<SET Id="RDK:18768030" VarRef="ShapeList[TempIndex].lineColor" Suppressed="True">
-						<EXP><![CDATA[$C$#f33256]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
 					<GROUP Id="RDK:19839574" Name="Set DirectConnHeights" SubType="Generic" DesignTimeNotes="20231011 -1-">
 						<FOREACHLOOP Id="RDK:19841614" ItemVarRef="Link">
 							<PAR Name="ArrayValueExp">
@@ -9352,10 +8176,6 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 							</IFTHENELSE>
 						</FOREACHLOOP>
 					</GROUP>
-					<SET Id="RDK:1134513" VarRef="ShapeList[TempIndex].text" Suppressed="True">
-						<EXP><![CDATA[$=$Param.Input.Text + Lf() + "Höhe vererbt"]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
 				</GROUP>
 			</FUNCTION>
 			<GROUP Id="RDK:314269" Name="MUI" SubType="FunctionSet" IncludeDate="0">
@@ -12804,6 +11624,15 @@ ShapeTotalLength
 me.x
 ))-(Shape_Prototype.KreiselDefinition.Durchmesser/2)]]></EXP>
 											</PAR>
+											<PAR Name="id" />
+											<PAR Name="x_S" />
+											<PAR Name="x" />
+											<PAR Name="y" />
+											<PAR Name="z" />
+											<PAR Name="direction" />
+											<PAR Name="linkClass" />
+											<PAR Name="label" />
+											<PAR Name="aktiv" />
 										</EXEC_ON_VALUES>
 									</GROUP>
 									<GROUP Id="RDK:607197" Name="Spannstation" SubType="Generic">
@@ -12821,6 +11650,15 @@ ShapeTotalLength
 me.x
 ))-(Shape_Prototype.KreiselDefinition.Durchmesser/2)]]></EXP>
 											</PAR>
+											<PAR Name="id" />
+											<PAR Name="x_M" />
+											<PAR Name="x" />
+											<PAR Name="y" />
+											<PAR Name="z" />
+											<PAR Name="direction" />
+											<PAR Name="linkClass" />
+											<PAR Name="label" />
+											<PAR Name="aktiv" />
 										</EXEC_ON_VALUES>
 									</GROUP>
 								</GROUP>

From ebb482d4e93d52248bcc6882fdeae4485b85a661 Mon Sep 17 00:00:00 2001
From: Simon Schmutzler <s.schmutzler@schoenenberger.de>
Date: Tue, 18 Jun 2024 09:16:17 +0200
Subject: [PATCH 3/3] Weitere globale nicht verwendete Variablen entfernt

---
 MAIN_SSG.rdx | 280 +++++++++++++++++++++++----------------------------
 1 file changed, 126 insertions(+), 154 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index dce15ff..c920281 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-06-17T15:16:41" LanguageVersion="2014.1.3.674" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-06-17T16:09:28" LanguageVersion="2014.1.3.674" />
 	<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">
@@ -620,7 +620,7 @@
 				</TYPE>
 			</GROUP>
 			<GROUP Id="RDK:314273" Name="ModernUITypes" SubType="TypeSet" Include="Type_ModernUITypes.rdx" IncludeDate="133348552129717660">
-				<TYPE Id="RDK:529833" Name="MUIControlType" DesignTimeRemark="Control Definition" SubType="structure" HasArrayType="True">
+				<TYPE Id="RDK:529833" Name="MUIControlType" DesignTimeRemark="Control Definition" Expanded="True" SubType="structure" HasArrayType="True">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:529809" Name="Id" Type="string" DesignTimeRemark="Control Id" />
 					<FIELD Id="RDK:529810" Name="Label" Type="string" DesignTimeRemark="Control Label" />
@@ -655,7 +655,7 @@
 					<FIELD Id="RDK:529837" Name="Status" Type="string" DesignTimeRemark="Rendering status disposition: empty=definition, changed, updated, unchanged" DesignTimeNotes="Status disposition:&#xD;&#xA;unchanged:  -- First panel definition&#xD;&#xA;changed:      -- Layout remain the same, import new data to controls&#xD;&#xA;updated:       -- Layout changed, import new data to controls&#xD;&#xA;unchanged:  -- Layout is frozed, ignore control definition" />
 					<FIELD Id="RDK:529838" Name="Options" Type="string" DesignTimeRemark="(TAB)    Create custom tab panel controlset" DesignTimeNotes="(TAB)    Create custom tab panels as controlset" />
 				</TYPE>
-				<TYPE Id="RDK:529848" Name="MUIEventType" DesignTimeRemark="Event Definition" SubType="structure">
+				<TYPE Id="RDK:529848" Name="MUIEventType" DesignTimeRemark="Event Definition" Expanded="True" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:529840" Name="Name" Type="string" DesignTimeRemark="Event Name" DesignTimeNotes="SUBMIT&#xD;&#xA;TREEMOVEROW&#xD;&#xA;ROWSTATE&#xD;&#xA;SELECTALL&#xD;&#xA;UNSELECTALL&#xD;&#xA;SELECT&#xD;&#xA;UNSELECT&#xD;&#xA;AUTOCOMMIT&#xD;&#xA;DRAGDROP&#xD;&#xA;FILEDELETE_&lt;SINGLE|MULTIPLE&gt;&#xD;&#xA;POIADD&#xD;&#xA;POIUPDATE&#xD;&#xA;POIDELETE&#xD;&#xA;ROWACTION&#xD;&#xA;POIADDED&#xD;&#xA;FILEUPLOADED_&lt;SINGLE|MULTIPLE&gt;_&lt;NEW|ADD&gt;&#xD;&#xA;STATUSCHANGE&#xD;&#xA;WEBVIEWBUTTON&#xD;&#xA;FILEDOWNLOADED" />
 					<FIELD Id="RDK:529841" Name="Source" Type="string" DesignTimeRemark="ID of the control originating the event" />
@@ -983,18 +983,7 @@
 			<VAR Id="RDK:1007743" Name="Schiene" Type="SSY_Shapes" />
 			<VAR Id="RDK:1007447" Name="Point2DList" Type="Point2D[]" />
 			<VAR Id="RDK:1007444" Name="Point2D" Type="Point2D" />
-			<VAR Id="RDK:1054119" Name="Trace" Type="string" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:1241416" Name="ExportSnapshot" Type="string" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:1519830" Name="SessionZip" Type="string" />
-			<VAR Id="RDK:1621335" Name="ID" Type="string" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:1710591" Name="cp" Type="string" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:1711732" Name="cp_gfs" Type="string" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:1712885" Name="gefaellestrecke" Type="Editor2DShapeType" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:18732365" Name="strecke" Type="Editor2DShapeType" />
-			<VAR Id="RDK:18115984" Name="foerderer" Type="Editor2DShapeType" />
-			<VAR Id="RDK:19841636" Name="shape_item" Type="Editor2DShapeType" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:19841637" Name="shape_item" Type="Editor2DShapeType" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:19866002" Name="shapeList_idx" Type="string" DesignTimeRemark="Generated by RD" />
 		</GROUP>
 		<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
 			<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -5022,7 +5011,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 					</FUNCTION>
 					<FUNCTION Id="RDK:260964" Name="CollectLinkedShapes" InputTypeName="string[]">
 						<GROUP Id="RDK:281649" Name="Local Variables" SubType="VarSet" IncludeDate="0">
-							<VAR Id="RDK:508461" Name="ID" Type="string" DesignTimeRemark="Generated by RD" />
+							<VAR Id="RDK:508461" Name="ID" Type="string" />
 						</GROUP>
 						<FOREACHLOOP Id="RDK:508460" ItemVarRef="ID">
 							<PAR Name="ArrayValueExp">
@@ -5076,7 +5065,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 					</FUNCTION>
 					<FUNCTION Id="RDK:1219214" Name="CollectLinkedShapesByTempLink" DesignTimeNotes="20230928 -1-" InputTypeName="string[]">
 						<GROUP Id="RDK:1219207" Name="Local Variables" SubType="VarSet" IncludeDate="0">
-							<VAR Id="RDK:1219206" Name="ID" Type="string" DesignTimeRemark="Generated by RD" />
+							<VAR Id="RDK:1219206" Name="ID" Type="string" />
 							<VAR Id="RDK:1303110" Name="TempLink" Type="string" />
 						</GROUP>
 						<FOREACHLOOP Id="RDK:1219213" ItemVarRef="ID">
@@ -8113,6 +8102,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 							</PAR>
 							<GROUP Id="RDK:19842999" Name="Local Vars" SubType="VarSet" IncludeDate="0" DesignTimeNotes="20230928 -1-">
 								<VAR Id="RDK:19843001" Name="UebergabeListe" Type="SSGParameter[]" />
+								<VAR Id="RDK:19881500" Name="shape_item" Type="Editor2DShapeType" />
 							</GROUP>
 							<SET Id="RDK:19841635" VarRef="shape_item">
 								<EXP><![CDATA[$=$ShapeList["id=" + StrAfter(Link, ";")]]]></EXP>
@@ -11624,15 +11614,6 @@ ShapeTotalLength
 me.x
 ))-(Shape_Prototype.KreiselDefinition.Durchmesser/2)]]></EXP>
 											</PAR>
-											<PAR Name="id" />
-											<PAR Name="x_S" />
-											<PAR Name="x" />
-											<PAR Name="y" />
-											<PAR Name="z" />
-											<PAR Name="direction" />
-											<PAR Name="linkClass" />
-											<PAR Name="label" />
-											<PAR Name="aktiv" />
 										</EXEC_ON_VALUES>
 									</GROUP>
 									<GROUP Id="RDK:607197" Name="Spannstation" SubType="Generic">
@@ -11650,15 +11631,6 @@ ShapeTotalLength
 me.x
 ))-(Shape_Prototype.KreiselDefinition.Durchmesser/2)]]></EXP>
 											</PAR>
-											<PAR Name="id" />
-											<PAR Name="x_M" />
-											<PAR Name="x" />
-											<PAR Name="y" />
-											<PAR Name="z" />
-											<PAR Name="direction" />
-											<PAR Name="linkClass" />
-											<PAR Name="label" />
-											<PAR Name="aktiv" />
 										</EXEC_ON_VALUES>
 									</GROUP>
 								</GROUP>
@@ -14686,125 +14658,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<PAR Name="AdvancedOptions" />
 				</SET>
 			</FUNCTION>
-			<FUNCTION Id="RDK:19595231" Name="SetHeight" InputTypeName="SSGParameter[]">
-				<GROUP Id="RDK:19595239" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
-					<VAR Id="RDK:19595236" Name="shapeId" Type="string">
-						<SET Id="RDK:19595241" VarRef="Me">
-							<EXP><![CDATA[$=$Param.Input["key=ShapeId"].Str]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
-					</VAR>
-					<VAR Id="RDK:19595237" Name="label" Type="string">
-						<SET Id="RDK:19595243" VarRef="Me">
-							<EXP><![CDATA[$=$E$ Param.Input["key=Label"].Str]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
-					</VAR>
-					<VAR Id="RDK:19595238" Name="hoehe" Type="double">
-						<SET Id="RDK:19595245" VarRef="Me">
-							<EXP><![CDATA[$=$Param.Input["key=Hoehe"].Dbl]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
-					</VAR>
-					<VAR Id="RDK:19595247" Name="shape_item" Type="Editor2DShapeType">
-						<SET Id="RDK:19595248" VarRef="Me">
-							<EXP><![CDATA[$=$ShapeList["id="+shapeId]]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
-					</VAR>
-				</GROUP>
-				<SELECTCASE Id="RDK:19595360">
-					<EXP><![CDATA[$=$shape_item.family]]></EXP>
-					<CASEGROUP Id="RDK:19595346" CaseType="0">
-						<EXP><![CDATA[$C$Kreisel]]></EXP>
-						<SET Id="RDK:19615251" VarRef="ShapeList[&quot;id=&quot;+shapeId].KreiselDefinition.Hoehe">
-							<EXP><![CDATA[$=$hoehe]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
-					</CASEGROUP>
-					<CASEGROUP Id="RDK:19595362" CaseType="0">
-						<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
-						<IFTHENELSE Id="RDK:19595387">
-							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$label="cp1"]]></EXP>
-							</VALUECONDITION>
-							<GROUP Id="RDK:19595384" SubType="Then">
-								<SET Id="RDK:19595383" VarRef="ShapeList[&quot;id=&quot;+shapeId].GefaelleDefinition.HoeheOben">
-									<EXP><![CDATA[$=$hoehe]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</GROUP>
-							<GROUP Id="RDK:19595386" SubType="Else">
-								<SET Id="RDK:19595385" VarRef="ShapeList[&quot;id=&quot;+shapeId].GefaelleDefinition.HoeheUnten">
-									<EXP><![CDATA[$=$hoehe]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</GROUP>
-						</IFTHENELSE>
-						<CALLFUNCTION Id="RDK:19595391">
-							<PAR Name="FuncName">
-								<EXP><![CDATA[$C$Calculate Gefaellestrecke]]></EXP>
-							</PAR>
-							<PAR Name="InputExp">
-								<EXP><![CDATA[$=$shapeId]]></EXP>
-							</PAR>
-							<PAR Name="ResultRef">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<PAR Name="Options" />
-						</CALLFUNCTION>
-					</CASEGROUP>
-					<CASEGROUP Id="RDK:19595364" CaseType="0">
-						<EXP><![CDATA[$C$Foerderer]]></EXP>
-						<IFTHENELSE Id="RDK:19595403">
-							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$label="cp1"]]></EXP>
-							</VALUECONDITION>
-							<GROUP Id="RDK:19595400" SubType="Then">
-								<SET Id="RDK:19595399" VarRef="ShapeList[&quot;id=&quot;+shapeId].FoerdererDefinition.H_1">
-									<EXP><![CDATA[$=$hoehe]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</GROUP>
-							<GROUP Id="RDK:19595402" SubType="Else">
-								<SET Id="RDK:19595401" VarRef="ShapeList[&quot;id=&quot;+shapeId].FoerdererDefinition.H_0">
-									<EXP><![CDATA[$=$hoehe]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</GROUP>
-						</IFTHENELSE>
-						<SET Id="RDK:19595407" VarRef="Shape_Prototype" Suppressed="True">
-							<EXP><![CDATA[$=$ShapeList["id="+shapeId]]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
-						<CALLFUNCTION Id="RDK:19595409" Suppressed="True">
-							<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>
-					</CASEGROUP>
-					<CASEGROUP Id="RDK:19595347" CaseType="0">
-						<EXP><![CDATA[$C$Weiche]]></EXP>
-					</CASEGROUP>
-					<CASEGROUP Id="RDK:19595348" CaseType="0">
-						<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
-					</CASEGROUP>
-					<CASEGROUP Id="RDK:19595349" CaseType="0">
-						<EXP><![CDATA[$C$BTMTEntladung]]></EXP>
-					</CASEGROUP>
-					<CASEGROUP Id="RDK:19595375" CaseType="0">
-						<EXP><![CDATA[$C$Eckrad]]></EXP>
-					</CASEGROUP>
-					<CASEGROUP Id="RDK:19595359" CaseType="1">
-						<EXP />
-					</CASEGROUP>
-				</SELECTCASE>
-			</FUNCTION>
 			<FUNCTION Id="RDK:1772330" Name="SetGefaellestreckeHeight" Suppressed="True" InputTypeName="SSGParameter[]">
 				<GROUP Id="RDK:1773485" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:1773487" Name="shapeId" Type="string" />
@@ -15163,6 +15016,125 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<PAR Name="AdvancedOptions" />
 				</SET>
 			</FUNCTION>
+			<FUNCTION Id="RDK:19595231" Name="SetHeight" InputTypeName="SSGParameter[]">
+				<GROUP Id="RDK:19595239" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:19595236" Name="shapeId" Type="string">
+						<SET Id="RDK:19595241" VarRef="Me">
+							<EXP><![CDATA[$=$Param.Input["key=ShapeId"].Str]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
+					<VAR Id="RDK:19595237" Name="label" Type="string">
+						<SET Id="RDK:19595243" VarRef="Me">
+							<EXP><![CDATA[$=$E$ Param.Input["key=Label"].Str]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
+					<VAR Id="RDK:19595238" Name="hoehe" Type="double">
+						<SET Id="RDK:19595245" VarRef="Me">
+							<EXP><![CDATA[$=$Param.Input["key=Hoehe"].Dbl]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
+					<VAR Id="RDK:19595247" Name="shape_item" Type="Editor2DShapeType">
+						<SET Id="RDK:19595248" VarRef="Me">
+							<EXP><![CDATA[$=$ShapeList["id="+shapeId]]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
+				</GROUP>
+				<SELECTCASE Id="RDK:19595360">
+					<EXP><![CDATA[$=$shape_item.family]]></EXP>
+					<CASEGROUP Id="RDK:19595346" CaseType="0">
+						<EXP><![CDATA[$C$Kreisel]]></EXP>
+						<SET Id="RDK:19615251" VarRef="ShapeList[&quot;id=&quot;+shapeId].KreiselDefinition.Hoehe">
+							<EXP><![CDATA[$=$hoehe]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:19595362" CaseType="0">
+						<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
+						<IFTHENELSE Id="RDK:19595387">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$label="cp1"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:19595384" SubType="Then">
+								<SET Id="RDK:19595383" VarRef="ShapeList[&quot;id=&quot;+shapeId].GefaelleDefinition.HoeheOben">
+									<EXP><![CDATA[$=$hoehe]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:19595386" SubType="Else">
+								<SET Id="RDK:19595385" VarRef="ShapeList[&quot;id=&quot;+shapeId].GefaelleDefinition.HoeheUnten">
+									<EXP><![CDATA[$=$hoehe]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
+						<CALLFUNCTION Id="RDK:19595391">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$Calculate Gefaellestrecke]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$shapeId]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:19595364" CaseType="0">
+						<EXP><![CDATA[$C$Foerderer]]></EXP>
+						<IFTHENELSE Id="RDK:19595403">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$label="cp1"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:19595400" SubType="Then">
+								<SET Id="RDK:19595399" VarRef="ShapeList[&quot;id=&quot;+shapeId].FoerdererDefinition.H_1">
+									<EXP><![CDATA[$=$hoehe]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:19595402" SubType="Else">
+								<SET Id="RDK:19595401" VarRef="ShapeList[&quot;id=&quot;+shapeId].FoerdererDefinition.H_0">
+									<EXP><![CDATA[$=$hoehe]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
+						<SET Id="RDK:19595407" VarRef="Shape_Prototype" Suppressed="True">
+							<EXP><![CDATA[$=$ShapeList["id="+shapeId]]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<CALLFUNCTION Id="RDK:19595409" Suppressed="True">
+							<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>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:19595347" CaseType="0">
+						<EXP><![CDATA[$C$Weiche]]></EXP>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:19595348" CaseType="0">
+						<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:19595349" CaseType="0">
+						<EXP><![CDATA[$C$BTMTEntladung]]></EXP>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:19595375" CaseType="0">
+						<EXP><![CDATA[$C$Eckrad]]></EXP>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:19595359" CaseType="1">
+						<EXP />
+					</CASEGROUP>
+				</SELECTCASE>
+			</FUNCTION>
 			<FUNCTION Id="RDK:1698052" Name="SetHeightOnConnect" InputTypeName="SSGParameter[]" ResultTypeName="SSGParameter[]">
 				<GROUP Id="RDK:1772339" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:1772341" Name="item_0" Type="Editor2DShapeType" />
@@ -17320,7 +17292,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 			</FUNCTION>
 		</GROUP>
 	</GROUP>
-	<GROUP Id="RDK:0008" Name="Main Group" SubType="Generic" Expanded="True">
+	<GROUP Id="RDK:0008" Name="Main Group" SubType="Generic">
 		<COMMENTS Id="RDK:1144004" DesignTimeRemark="Process Information" DesignTimeNotes="Process Name:&#xD;&#xA;MAIN_SSG.rdx&#xD;&#xA;&#xD;&#xA;Process Requires:&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;Author:&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;Creation Date:&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;Functionality:&#xD;&#xA;&#xD;&#xA;Changes:&#xD;&#xA;20231005 -1- \DVR&#xD;&#xA;ERK-47&#xD;&#xA;Höhenänderung Gefällestrecke (Pufferstrecke)&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;20230928 -1- \DVR&#xD;&#xA;ERK-47&#xD;&#xA;Höhenänderung Kreisel" />
 		<GROUP Id="RDK:304" Name="INIT" SubType="Generic">
 			<SET Id="RDK:318" VarRef="GS2DLibraryName">