From f0f101d31056d40810bb6579e5d61b96ca4d872b Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Wed, 9 Oct 2024 17:41:55 +0200
Subject: [PATCH] =?UTF-8?q?=C3=84nderung=20der=20H=C3=B6hen=20einer=20Stre?=
 =?UTF-8?q?cke=20nach=20=C3=84nderung=20einer=20H=C3=B6he=20eines=20Elemen?=
 =?UTF-8?q?ts?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 129 +++++++++++++++++++++++++++++++++++----------------
 1 file changed, 88 insertions(+), 41 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 7ace9a9..941fff4 100644
--- a/MAIN_SSG.rdx
+++ b/MAIN_SSG.rdx
@@ -1,10 +1,10 @@
 <?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="m.stangl [ENTW-NB08]" ModDate="2024-10-08T12:06:40" LanguageVersion="2014.1.3.690" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-10-09T17:40:22" LanguageVersion="2014.1.3.690" />
 	<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">
-				<TYPE Id="RDK:313478" Name="SSGConnectionPoint" Expanded="True" SubType="structure" HasArrayType="True">
+				<TYPE Id="RDK:313478" Name="SSGConnectionPoint" SubType="structure" HasArrayType="True">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:609117" Name="id" Type="string" />
 					<FIELD Id="RDK:313462" Name="x_M" Type="double" />
@@ -60,7 +60,7 @@
 					<FIELD Id="RDK:1520421" Name="Drehung" Type="integer" DesignTimeNotes="1= im Uhrzeigersinn=rechts&#xD;&#xA;-1= Gegen Uhrzeigersinn=links" />
 					<FIELD Id="RDK:1520424" Name="Durchmesser" Type="double" />
 				</TYPE>
-				<TYPE Id="RDK:302581" Name="GefaelleType" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:302581" Name="GefaelleType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:302571" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:880709" Name="L1" Type="double" />
@@ -157,7 +157,7 @@
 					<FIELD Id="RDK:1783800" Name="Int" Type="integer" />
 					<FIELD Id="RDK:1783798" Name="Boo" Type="boolean" />
 				</TYPE>
-				<TYPE Id="RDK:18530545" Name="SSG_Limits" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:18530545" Name="SSG_Limits" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:18530548" Name="Kreisel_top" Type="KreiselType" />
 					<FIELD Id="RDK:18530546" Name="Kreisel_bot" Type="KreiselType" />
@@ -10966,15 +10966,6 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<PAR Name="aktiv">
 										<EXP><![CDATA[$=$IIF(me.x_M<=(Shape_Prototype.KreiselDefinition.AbstandMS-Shape_Prototype.KreiselDefinition.d_min),TRUE,FALSE)]]></EXP>
 									</PAR>
-									<PAR Name="id" />
-									<PAR Name="x_M" />
-									<PAR Name="x_S" />
-									<PAR Name="x" />
-									<PAR Name="y" />
-									<PAR Name="z" />
-									<PAR Name="direction" />
-									<PAR Name="linkClass" />
-									<PAR Name="label" />
 								</EXEC_ON_VALUES>
 								<EXEC_ON_VALUES Id="RDK:812298" VarRef="Shape_Prototype.KreiselDefinition.S_Strecke">
 									<PAR Name="aktiv">
@@ -12500,35 +12491,12 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
-							</GROUP>
-							<GROUP Id="RDK:1332808" Name="Gefaellestrecke HoeheOben OR HoeheUnten was changed" SubType="Generic" Suppressed="True" DesignTimeNotes="20231005 -1-&#xD;&#xA;&#xD;&#xA;Inherit height to direct Shaps and set others to Gelb (except Kreisel Groups).">
-								<VALUECONDITION Value="true" Oper="OR">
-									<EXP><![CDATA[$=$ShapeList["id=" + Shape_Prototype.id].GefaelleDefinition.HoeheOben <> Shape_Prototype.GefaelleDefinition.HoeheOben]]></EXP>
-								</VALUECONDITION>
-								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$ShapeList["id=" + Shape_Prototype.id].GefaelleDefinition.HoeheUnten <> Shape_Prototype.GefaelleDefinition.HoeheUnten]]></EXP>
-								</VALUECONDITION>
-								<SET_STRUCT Id="RDK:1345493" VarRef="InheritHeightData" ClearAll="True">
-									<PAR Name="ParentIndex">
-										<EXP><![CDATA[$=$i]]></EXP>
-									</PAR>
-									<PAR Name="NewHoehe" />
-									<PAR Name="NewHoeheOben">
-										<EXP><![CDATA[$=$Shape_Prototype.GefaelleDefinition.HoeheOben]]></EXP>
-									</PAR>
-									<PAR Name="NewHoeheUnten">
-										<EXP><![CDATA[$=$Shape_Prototype.GefaelleDefinition.HoeheUnten]]></EXP>
-									</PAR>
-									<PAR Name="Text">
-										<EXP><![CDATA[$C$^]]></EXP>
-									</PAR>
-								</SET_STRUCT>
-								<CALLFUNCTION Id="RDK:1332784">
+								<CALLFUNCTION Id="RDK:21477339">
 									<PAR Name="FuncName">
-										<EXP><![CDATA[$C$InheritHeight]]></EXP>
+										<EXP><![CDATA[$C$ResetHeightsOfStrecke]]></EXP>
 									</PAR>
 									<PAR Name="InputExp">
-										<EXP><![CDATA[$=$InheritHeightData]]></EXP>
+										<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
 										<EXP><![CDATA[$V$]]></EXP>
@@ -16412,6 +16380,25 @@ me.x
 								</CALLFUNCTION>
 							</GROUP>
 						</IFTHENELSE>
+						<IFTHENELSE Id="RDK:21455965">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Kurve"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:21455964" SubType="Then">
+								<CALLFUNCTION Id="RDK:21455963">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$SetHeightOfStreckeOnConnect]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+						</IFTHENELSE>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:18221764" CaseType="0">
 						<EXP><![CDATA[$C$Foerderer]]></EXP>
@@ -20534,10 +20521,10 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</SET>
 								<IFTHENELSE Id="RDK:21376926">
 									<VALUECONDITION Value="true" Oper="OR">
-										<EXP><![CDATA[$=$Laenge>SSG_Limits_data.Gefaelle_top.winkel]]></EXP>
+										<EXP><![CDATA[$=$winkel>SSG_Limits_data.Gefaelle_top.winkel]]></EXP>
 									</VALUECONDITION>
 									<VALUECONDITION Value="true">
-										<EXP><![CDATA[$=$Laenge<SSG_Limits_data.Gefaelle_bot.winkel]]></EXP>
+										<EXP><![CDATA[$=$winkel<SSG_Limits_data.Gefaelle_bot.winkel]]></EXP>
 									</VALUECONDITION>
 									<GROUP Id="RDK:21376923" SubType="Then">
 										<SET Id="RDK:21382439" VarRef="Param.Result">
@@ -20932,6 +20919,66 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</CASEGROUP>
 				</SELECTCASE>
 			</FUNCTION>
+			<FUNCTION Id="RDK:21477331" Name="ResetHeightsOfStrecke" InputTypeName="string">
+				<GROUP Id="RDK:21477304" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:21477296" Name="shapeId" Type="string">
+						<SET Id="RDK:21477295" VarRef="Me">
+							<EXP><![CDATA[$=$Param.Input]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
+					<VAR Id="RDK:21477298" Name="label" Type="string" />
+					<VAR Id="RDK:21477300" Name="hoehe" Type="double" />
+					<VAR Id="RDK:21477302" Name="shape_item" Type="Editor2DShapeType" />
+					<VAR Id="RDK:21477384" Name="inGroup" Type="boolean" />
+					<VAR Id="RDK:21477401" Name="following" Type="string[]" />
+					<VAR Id="RDK:21477403" Name="previous" Type="string[]" />
+				</GROUP>
+				<CALLFUNCTION Id="RDK:21477364">
+					<PAR Name="FuncName">
+						<EXP><![CDATA[$C$IsInGroup]]></EXP>
+					</PAR>
+					<PAR Name="InputExp">
+						<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
+					</PAR>
+					<PAR Name="ResultRef">
+						<EXP><![CDATA[$V$inGroup]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</CALLFUNCTION>
+				<IFTHENELSE Id="RDK:21477370" DesignTimeRemark="Wenn beide Ids noch keiner Gruppe angehören, dann erzeuge eine neue Gruppe">
+					<VALUECONDITION Value="false">
+						<EXP><![CDATA[$=$inGroup]]></EXP>
+					</VALUECONDITION>
+					<GROUP Id="RDK:21477369" SubType="Then">
+						<EXIT_PROCESS Id="RDK:21477377" BreakType="4" ExitStatus="0" />
+					</GROUP>
+				</IFTHENELSE>
+				<CALLFUNCTION Id="RDK:21477397">
+					<PAR Name="FuncName">
+						<EXP><![CDATA[$C$GetFollowingIds]]></EXP>
+					</PAR>
+					<PAR Name="InputExp">
+						<EXP><![CDATA[$=$shapeId]]></EXP>
+					</PAR>
+					<PAR Name="ResultRef">
+						<EXP><![CDATA[$V$following]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</CALLFUNCTION>
+				<CALLFUNCTION Id="RDK:21477405">
+					<PAR Name="FuncName">
+						<EXP><![CDATA[$C$GetPreviousIds]]></EXP>
+					</PAR>
+					<PAR Name="InputExp">
+						<EXP><![CDATA[$=$shapeId]]></EXP>
+					</PAR>
+					<PAR Name="ResultRef">
+						<EXP><![CDATA[$V$previous]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</CALLFUNCTION>
+			</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" />