From 14bc47d82f103d583c7f71b902257cde3a6c4ef7 Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Mon, 28 Oct 2024 12:30:40 +0100
Subject: [PATCH] =?UTF-8?q?Erste=20FAssung=20der=20Vorg=C3=A4nger=20H?=
 =?UTF-8?q?=C3=B6henrechnung=20eingestellt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 101 +++++++++++++--------------------------------------
 1 file changed, 25 insertions(+), 76 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index bccff35..eacefcb 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="m.stangl [ENTW-NB08]" ModDate="2024-10-28T11:46:15" LanguageVersion="2014.1.3.699" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-10-28T12:30:13" LanguageVersion="2014.1.3.699" />
 	<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">
@@ -13197,6 +13197,18 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
+								<CALLFUNCTION Id="RDK:21840223">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$ResetHeightsOfStrecke]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
 							</GROUP>
 							<GROUP Id="RDK:21689206" Name="Kurve 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">
@@ -21712,6 +21724,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<VAR Id="RDK:21477403" Name="previous" Type="string[]" />
 					<VAR Id="RDK:21484286" Name="UebergabeListe" Type="SSGParameter[]" />
 					<VAR Id="RDK:21556604" Name="UebergabeCps" Type="SSGParameter[]" />
+					<VAR Id="RDK:21827703" Name="splitarr" Type="string[]" />
 				</GROUP>
 				<CALLFUNCTION Id="RDK:21477364">
 					<PAR Name="FuncName">
@@ -21800,14 +21813,14 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</PAR>
 					<PAR Name="Options" />
 				</CALLFUNCTION>
-				<IFTHENELSE Id="RDK:21543317" Suppressed="True" DesignTimeRemark="Falls es vorhergehende Elemente gibt">
+				<IFTHENELSE Id="RDK:21543317" DesignTimeRemark="Falls es vorhergehende Elemente gibt">
 					<VALUECONDITION Value="true">
 						<EXP><![CDATA[$=$Count(previous) > 0]]></EXP>
 					</VALUECONDITION>
 					<GROUP Id="RDK:21543316" SubType="Then">
 						<SET_STRUCT Id="RDK:21543313" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 							<PAR Name="Key">
-								<EXP><![CDATA[$C$shapeId_0]]></EXP>
+								<EXP><![CDATA[$C$shapeId]]></EXP>
 							</PAR>
 							<PAR Name="StrArr" />
 							<PAR Name="Str">
@@ -21817,14 +21830,18 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<PAR Name="Int" />
 							<PAR Name="Boo" />
 						</SET_STRUCT>
-						<SET_STRUCT Id="RDK:21543314" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+						<SET Id="RDK:21827701" VarRef="splitarr" Suppressed="True">
+							<EXP><![CDATA[$=$ListReverse(splitStr(lineStr, ";"))]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET_STRUCT Id="RDK:21827689" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeCps">
 							<PAR Name="Key">
-								<EXP><![CDATA[$C$shapeId_1]]></EXP>
+								<EXP><![CDATA[$C$shape_ids]]></EXP>
 							</PAR>
-							<PAR Name="StrArr" />
-							<PAR Name="Str">
-								<EXP><![CDATA[$=$previous[0]]]></EXP>
+							<PAR Name="StrArr">
+								<EXP><![CDATA[$=$previous]]></EXP>
 							</PAR>
+							<PAR Name="Str" />
 							<PAR Name="Dbl" />
 							<PAR Name="Int" />
 							<PAR Name="Boo" />
@@ -21841,74 +21858,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							</PAR>
 							<PAR Name="Options" />
 						</CALLFUNCTION>
-						<GROUP Id="RDK:21554338" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
-							<VAR Id="RDK:21554331" Name="item_vorher" Type="Editor2DShapeType" />
-						</GROUP>
-						<FOREACHLOOP Id="RDK:21525457" ItemVarRef="itemId">
-							<PAR Name="ArrayValueExp">
-								<EXP><![CDATA[$=$previous]]></EXP>
-							</PAR>
-							<PAR Name="ExitCondExp">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<COMMENTS Id="RDK:21554316" DesignTimeRemark="Hole dir die Höhe die der Vorgänger haben soll" />
-							<SET Id="RDK:21554320" VarRef="UebergabeListe">
-								<EXP><![CDATA[$C$NOTHING]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<SET_STRUCT Id="RDK:21525454" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
-								<PAR Name="Key">
-									<EXP><![CDATA[$C$shapeID]]></EXP>
-								</PAR>
-								<PAR Name="StrArr" />
-								<PAR Name="Str">
-									<EXP><![CDATA[$=$itemId]]></EXP>
-								</PAR>
-								<PAR Name="Dbl" />
-								<PAR Name="Int" />
-								<PAR Name="Boo" />
-							</SET_STRUCT>
-							<SET_STRUCT Id="RDK:21543337" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
-								<PAR Name="Key">
-									<EXP><![CDATA[$C$cpId]]></EXP>
-								</PAR>
-								<PAR Name="StrArr" />
-								<PAR Name="Str">
-									<EXP><![CDATA[$=$cps_verbunden[1]]]></EXP>
-								</PAR>
-								<PAR Name="Dbl" />
-								<PAR Name="Int" />
-								<PAR Name="Boo" />
-							</SET_STRUCT>
-							<CALLFUNCTION Id="RDK:21525456">
-								<PAR Name="FuncName">
-									<EXP><![CDATA[$C$GetHeightOfItem]]></EXP>
-								</PAR>
-								<PAR Name="InputExp">
-									<EXP><![CDATA[$=$UebergabeListe]]></EXP>
-								</PAR>
-								<PAR Name="ResultRef">
-									<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
-								</PAR>
-								<PAR Name="Options" />
-							</CALLFUNCTION>
-							<SET Id="RDK:21546774" VarRef="hoehe">
-								<EXP><![CDATA[$=$RueckgabeListe["key=Hoehe"].Dbl]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<CALLFUNCTION Id="RDK:21554344">
-								<PAR Name="FuncName">
-									<EXP><![CDATA[$C$GetCpsOfConnectedShapes]]></EXP>
-								</PAR>
-								<PAR Name="InputExp">
-									<EXP><![CDATA[$=$UebergabeListe]]></EXP>
-								</PAR>
-								<PAR Name="ResultRef">
-									<EXP><![CDATA[$V$cps_verbunden]]></EXP>
-								</PAR>
-								<PAR Name="Options" />
-							</CALLFUNCTION>
-						</FOREACHLOOP>
 					</GROUP>
 				</IFTHENELSE>
 			</FUNCTION>