From eb38e1520ee015b3ff7ff5e75fffd142a5fbeaba Mon Sep 17 00:00:00 2001
From: Damir Vrbic <dvr@pbu.local>
Date: Thu, 12 Oct 2023 12:00:13 +0200
Subject: [PATCH] =?UTF-8?q?ERK-47=20(ohne=20H=C3=B6hen=C3=A4nderung=20Verb?=
 =?UTF-8?q?indungstrecke)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 323 +++++++++++++++++++++++++++++++++++++++------------
 1 file changed, 246 insertions(+), 77 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 5aa38f0..29e0188 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="dre [NBDELP3561-04C]" ModDate="2023-10-10T16:24:37" LanguageVersion="2014.1.3.602" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="PBUadmin [DESKTOP-1HM2V4B]" ModDate="2023-10-12T11:07:33" LanguageVersion="2014.1.3.596" />
 	<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">
@@ -38,7 +38,7 @@
 					<FIELD Id="RDK:1001198" Name="x" Type="double" />
 					<FIELD Id="RDK:1001200" Name="y" Type="double" />
 				</TYPE>
-				<TYPE Id="RDK:1520433" Name="EckradType" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:1520433" Name="EckradType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:1520415" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:1520416" Name="AbstandMS" Type="double" />
@@ -74,7 +74,7 @@
 					<FIELD Id="RDK:973716" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:973714" Name="Weichenart" Type="string" />
 				</TYPE>
-				<TYPE Id="RDK:79642" Name="SSG_ShapeType" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:79642" Name="SSG_ShapeType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:79643" Name="SivasNummer" Type="string" />
 					<FIELD Id="RDK:122039" Name="KreiselDefinition" Type="KreiselType" />
@@ -709,6 +709,13 @@
 				<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">
@@ -718,6 +725,15 @@
 				<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" />
 				<VAR Id="RDK:453142" Name="SSGConnectionPoint" Type="SSGConnectionPoint" />
@@ -824,13 +840,6 @@
 			<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:1276768" Name="KreiselGroupList" 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:1486596" Name="RemovedGefaellestreckeList" Type="string[]" DesignTimeNotes="20231005 -1-" />
-			<VAR Id="RDK:1194866" Name="ConnectedGefaellestreckeList" Type="string[]" DesignTimeNotes="20230928 -1-" />
-			<VAR Id="RDK:1503346" Name="ConnGefaellestreckeIdList" Type="string[]" DesignTimeNotes="20230928 -1-" />
 			<VAR Id="RDK:1519830" Name="SessionZip" Type="string" />
 		</GROUP>
 		<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
@@ -4394,7 +4403,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								<PAR Name="ExitCondExp">
 									<EXP><![CDATA[$V$]]></EXP>
 								</PAR>
-								<GROUP Id="RDK:1290698" Name="Debug" SubType="Generic">
+								<GROUP Id="RDK:1290698" Name="Debug" SubType="Generic" Suppressed="True">
 									<VALUECONDITION Value="true">
 										<EXP><![CDATA[$=$Kreisel = "shape_bf46f457-0fe9-10dc-948e-527caac18289"]]></EXP>
 									</VALUECONDITION>
@@ -4496,7 +4505,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<PAR Name="ExitCondExp">
 										<EXP><![CDATA[$V$]]></EXP>
 									</PAR>
-									<GROUP Id="RDK:1291778" Name="Debug" SubType="Generic">
+									<GROUP Id="RDK:1291778" Name="Debug" SubType="Generic" Suppressed="True">
 										<VALUECONDITION Value="true">
 											<EXP><![CDATA[$=$TempLink = "shape_87055166-b35d-c935-5bc6-efe821c00749"]]></EXP>
 										</VALUECONDITION>
@@ -5478,6 +5487,8 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						<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:1544010" Name="TempGefaellestrecke" Type="IndirectConnGefaellestreckeType" />
 					</GROUP>
 					<SET Id="RDK:1188989" VarRef="ShapeList[TempIndex].text">
 						<EXP><![CDATA[$C$NOTHING]]></EXP>
@@ -5499,6 +5510,10 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						<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">
 						<SET Id="RDK:1128698" VarRef="LinkedShapeIDs">
 							<EXP><![CDATA[$C$NOTHING]]></EXP>
@@ -5591,6 +5606,116 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						</PAR>
 						<PAR Name="Options" />
 					</CALLFUNCTION>
+					<GROUP Id="RDK:1528230" Name="Set IndirectConnGefaellestreckeList" SubType="Generic" 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>
+										<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">
+						<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" ItemVarRef="Link">
 						<PAR Name="ArrayValueExp">
 							<EXP><![CDATA[$=$LinkedShapeIDs]]></EXP>
@@ -5608,7 +5733,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						</GROUP>
 						<GROUP Id="RDK:1194293" Name="Debug" SubType="Generic">
 							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$Link = "shape_7643f9e9-f8d1-bc80-f60a-16bdce0a3ba9"]]></EXP>
+								<EXP><![CDATA[$=$LinkIndex = 10]]></EXP>
 							</VALUECONDITION>
 							<COMMENTS Id="RDK:1194296" />
 						</GROUP>
@@ -5626,6 +5751,9 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 							<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">
@@ -5635,7 +5763,9 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 											<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"]]></EXP>
+											<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">
@@ -5644,9 +5774,9 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 											</SET>
 										</GROUP>
 										<GROUP Id="RDK:1311074" SubType="Else">
-											<GROUP Id="RDK:1325350" Name="Debug" SubType="Generic">
+											<GROUP Id="RDK:1325350" Name="Debug" SubType="Generic" Suppressed="True">
 												<VALUECONDITION Value="true">
-													<EXP><![CDATA[$=$Link = "shape_f9ef68c5-c20a-447a-21f9-f2b37e64fc46"]]></EXP>
+													<EXP><![CDATA[$=$LinkIndex = 5]]></EXP>
 												</VALUECONDITION>
 												<COMMENTS Id="RDK:1325355" />
 											</GROUP>
@@ -5661,7 +5791,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
 									<GROUP Id="RDK:1325361" Name="Debug" SubType="Generic" Suppressed="True">
 										<VALUECONDITION Value="true">
-											<EXP><![CDATA[$=$Link = "shape_f9ef68c5-c20a-447a-21f9-f2b37e64fc46"]]></EXP>
+											<EXP><![CDATA[$=$LinkIndex = 5]]></EXP>
 										</VALUECONDITION>
 										<COMMENTS Id="RDK:1325360" />
 									</GROUP>
@@ -5684,7 +5814,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 													<EXP><![CDATA[$=$Contains(RemovedGefaellestreckeList, Link)]]></EXP>
 												</VALUECONDITION>
 												<SET Id="RDK:1311107" VarRef="ShapeList[LinkIndex].text">
-													<EXP><![CDATA[$C$Gelb]]></EXP>
+													<EXP><![CDATA[$C$^ Gelb]]></EXP>
 													<PAR Name="AdvancedOptions" />
 												</SET>
 											</GROUP>
@@ -5740,7 +5870,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								<PAR Name="ExitCondExp">
 									<EXP><![CDATA[$V$]]></EXP>
 								</PAR>
-								<GROUP Id="RDK:1385983" Name="Debug" SubType="Generic">
+								<GROUP Id="RDK:1385983" Name="Debug" SubType="Generic" Suppressed="True">
 									<VALUECONDITION Value="true">
 										<EXP><![CDATA[$=$TempLink = "shape_9ce528b3-a2c9-6954-2139-5c489bb174b1"]]></EXP>
 									</VALUECONDITION>
@@ -5753,6 +5883,9 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<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">
@@ -5798,7 +5931,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 										<CASEGROUP Id="RDK:1311125" CaseType="0">
 											<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
 											<SET Id="RDK:1227670" VarRef="ShapeList[TempLinkIndex].text">
-												<EXP><![CDATA[$C$Gelb]]></EXP>
+												<EXP><![CDATA[$C$^ Gelb]]></EXP>
 												<PAR Name="AdvancedOptions" />
 											</SET>
 										</CASEGROUP>
@@ -5819,9 +5952,12 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 							<VALUECONDITION Value="true" Oper="OR">
 								<EXP><![CDATA[$=$ListStrContains(Shape_Prototype.links, "*;" + Link)]]></EXP>
 							</VALUECONDITION>
-							<VALUECONDITION Value="true">
+							<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>
@@ -5981,6 +6117,37 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 												<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">
+													<EXP><![CDATA[$C$^ Grau]]></EXP>
+													<PAR Name="AdvancedOptions" />
+												</SET>
+												<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">
+													<EXP><![CDATA[$C$^ Grau]]></EXP>
+													<PAR Name="AdvancedOptions" />
+												</SET>
+												<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">
@@ -9769,7 +9936,47 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</SET_STRUCT>
 				</GROUP>
 				<GROUP Id="RDK:1516912" Name="FAB" SubType="Generic">
-					<SET_STRUCT Id="RDK:1516919" VarRef="ButtonDefItem" ClearAll="True" ListRef="FABButtonsList">
+					<SET_STRUCT Id="RDK:1516919" VarRef="ButtonDefItem" ClearAll="True" ListRef="FABButtonsList" Suppressed="True">
+						<PAR Name="ButtonText">
+							<EXP><![CDATA[$C$Zeige Infos]]></EXP>
+						</PAR>
+						<PAR Name="ButtonValue">
+							<EXP><![CDATA[$C$ShowInfos]]></EXP>
+						</PAR>
+						<PAR Name="ButtonType" />
+						<PAR Name="ButtonAction" />
+						<PAR Name="ButtonLocation">
+							<EXP><![CDATA[$C$FAB]]></EXP>
+						</PAR>
+						<PAR Name="ButtonStyle" />
+						<PAR Name="ButtonClass" />
+						<PAR Name="ButtonImage">
+							<EXP><![CDATA[$C$icon:info]]></EXP>
+						</PAR>
+						<PAR Name="ButtonTooltip" />
+						<PAR Name="ButtonOptions" />
+					</SET_STRUCT>
+					<SET_STRUCT Id="RDK:1526578" VarRef="ButtonDefItem" ClearAll="True" ListRef="FABButtonsList" Suppressed="True">
+						<PAR Name="ButtonText">
+							<EXP><![CDATA[$C$Text löschen]]></EXP>
+						</PAR>
+						<PAR Name="ButtonValue">
+							<EXP><![CDATA[$C$DeleteText]]></EXP>
+						</PAR>
+						<PAR Name="ButtonType" />
+						<PAR Name="ButtonAction" />
+						<PAR Name="ButtonLocation">
+							<EXP><![CDATA[$C$FAB]]></EXP>
+						</PAR>
+						<PAR Name="ButtonStyle" />
+						<PAR Name="ButtonClass" />
+						<PAR Name="ButtonImage">
+							<EXP><![CDATA[$C$icon:delete]]></EXP>
+						</PAR>
+						<PAR Name="ButtonTooltip" />
+						<PAR Name="ButtonOptions" />
+					</SET_STRUCT>
+					<SET_STRUCT Id="RDK:1526030" VarRef="ButtonDefItem" ClearAll="True" ListRef="FABButtonsList">
 						<PAR Name="ButtonText">
 							<EXP><![CDATA[$C$Sitzung speichern]]></EXP>
 						</PAR>
@@ -11507,7 +11714,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<PAR Name="DataSource" />
 							<PAR Name="Options" />
 						</ACTION_CALL>
-						<ACTION_CALL Id="RDK:314381" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}" DesignTimeNotes="20231005 -1-&#xD;&#xA;Read only changed&#xD;&#xA;&#xD;&#xA;20230928 -1-&#xD;&#xA;Label changed">
+						<ACTION_CALL Id="RDK:314381" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}" DesignTimeTip="cp1 top point" DesignTimeNotes="20231005 -1-&#xD;&#xA;Read only changed&#xD;&#xA;&#xD;&#xA;20230928 -1-&#xD;&#xA;Label changed">
 							<PAR Name="RDLibraryName">
 								<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
 							</PAR>
@@ -11526,7 +11733,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							</PAR>
 							<PAR Name="ParentId" />
 							<PAR Name="Label">
-								<EXP><![CDATA[$C$Höhe oben (H1)]]></EXP>
+								<EXP><![CDATA[$C$H1]]></EXP>
 							</PAR>
 							<PAR Name="Field">
 								<EXP><![CDATA[$C$HoeheOben]]></EXP>
@@ -11558,7 +11765,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<PAR Name="DataSource" />
 							<PAR Name="Options" />
 						</ACTION_CALL>
-						<ACTION_CALL Id="RDK:837490" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}" DesignTimeNotes="20231005 -1-&#xD;&#xA;Read only changed&#xD;&#xA;&#xD;&#xA;20230928 -1-&#xD;&#xA;Label changed">
+						<ACTION_CALL Id="RDK:837490" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}" DesignTimeTip="cp2 top point" DesignTimeNotes="20231005 -1-&#xD;&#xA;Read only changed&#xD;&#xA;&#xD;&#xA;20230928 -1-&#xD;&#xA;Label changed">
 							<PAR Name="RDLibraryName">
 								<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
 							</PAR>
@@ -11577,7 +11784,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							</PAR>
 							<PAR Name="ParentId" />
 							<PAR Name="Label">
-								<EXP><![CDATA[$C$Höhe unten (h0)]]></EXP>
+								<EXP><![CDATA[$C$h0]]></EXP>
 							</PAR>
 							<PAR Name="Field">
 								<EXP><![CDATA[$C$HoeheUnten]]></EXP>
@@ -12414,61 +12621,23 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						</GROUP>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:1409928" CaseType="0" Suppressed="True" DesignTimeNotes="20231005 -1-">
-						<EXP><![CDATA[$C$Delete Text]]></EXP>
+						<EXP><![CDATA[$C$DeleteText]]></EXP>
 						<EXEC_ON_VALUES Id="RDK:1409929" VarRef="ShapeList">
 							<PAR Name="text">
 								<EXP><![CDATA[$C$NOTHING]]></EXP>
 							</PAR>
-							<PAR Name="SivasNummer" />
-							<PAR Name="KreiselDefinition" />
-							<PAR Name="GefaelleDefinition" />
-							<PAR Name="WeicheDefinition" />
-							<PAR Name="source" />
-							<PAR Name="sourceLibrary" />
-							<PAR Name="signature" />
-							<PAR Name="id" />
-							<PAR Name="name" />
-							<PAR Name="family" />
-							<PAR Name="description" />
-							<PAR Name="x" />
-							<PAR Name="y" />
-							<PAR Name="z" />
-							<PAR Name="width" />
-							<PAR Name="height" />
-							<PAR Name="depth" />
-							<PAR Name="rotation" />
-							<PAR Name="behaviour" />
-							<PAR Name="datadump" />
-							<PAR Name="path" />
-							<PAR Name="ctrl1x" />
-							<PAR Name="ctrl1y" />
-							<PAR Name="ctrl2x" />
-							<PAR Name="ctrl2y" />
-							<PAR Name="shapeFromId" />
-							<PAR Name="shapeFromPointIndex" />
-							<PAR Name="shapeToId" />
-							<PAR Name="shapeToPointIndex" />
-							<PAR Name="dimStack" />
-							<PAR Name="dimType" />
-							<PAR Name="dimDriving" />
-							<PAR Name="dimValue" />
-							<PAR Name="color" />
-							<PAR Name="colorOpacity" />
-							<PAR Name="color3D" />
-							<PAR Name="colorOpacity3D" />
-							<PAR Name="lineWidth" />
-							<PAR Name="lineColor" />
-							<PAR Name="lineOpacity" />
-							<PAR Name="lineColor3D" />
-							<PAR Name="lineOpacity3D" />
-							<PAR Name="links" />
-							<PAR Name="group" />
-							<PAR Name="layer" />
-							<PAR Name="connectionPoints" />
-							<PAR Name="modified" />
-							<PAR Name="pinned" />
-							<PAR Name="selected" />
-							<PAR Name="includeInBOM" />
+						</EXEC_ON_VALUES>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:1526582" CaseType="0" Suppressed="True" DesignTimeNotes="20231005 -1-">
+						<EXP><![CDATA[$C$ShowInfos]]></EXP>
+						<EXEC_ON_VALUES Id="RDK:1526581" VarRef="ShapeList">
+							<PAR Name="text">
+								<EXP><![CDATA[$=$Me.text + Lf() + IIF(Me.family = "Kreisel" OR Me.family = "Gefaellestrecke", Me.name, "") + Lf() + IIF(Me.family = "Kreisel" OR Me.family = "Gefaellestrecke", Me.id, "")
+
+
+
+]]></EXP>
+							</PAR>
 						</EXEC_ON_VALUES>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:358" CaseType="1">