From a416c9f44e4e731f9f1f449283f98b0bf633c115 Mon Sep 17 00:00:00 2001
From: Simon Schmutzler <s.schmutzler@schoenenberger.de>
Date: Wed, 12 Jun 2024 16:23:39 +0200
Subject: [PATCH] =?UTF-8?q?Fix=20der=20Berechnung=20F=C3=B6rderer=20f?=
 =?UTF-8?q?=C3=BCr=20Auf=20und=20Ab?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../SSG/Init/objekteigenschaften_ILS.json     |  16 +-
 MAIN_SSG.rdx                                  | 619 +++++++++---------
 2 files changed, 311 insertions(+), 324 deletions(-)

diff --git a/Editor2DLibrary/SSG/Init/objekteigenschaften_ILS.json b/Editor2DLibrary/SSG/Init/objekteigenschaften_ILS.json
index bb23d94..a9e87f0 100644
--- a/Editor2DLibrary/SSG/Init/objekteigenschaften_ILS.json
+++ b/Editor2DLibrary/SSG/Init/objekteigenschaften_ILS.json
@@ -2,22 +2,22 @@
     "comment": "Die folgenden Einträge werden in Verbindung mit Förderern und/oder Gefällestrecken verwendet. Im Programm werden die Summen der Werte delta_h (Einschleuselement) und delta_h(Ausschleuselement) als L_SEA und/oder H_SEA (index S=Strecke) bzw. L_FEA und/oder H_FEA (index F=Förderer) verwendet.",
     "Einschleuselement":{
         "comment": "Höhen- und Längendifferenz zwischen Laufprofil des Kreisels und Ende einer angebundenen Gefällestrecke in Millimetern",
-        "delta_h": 50,
-        "delta_s": 30
+        "delta_h": 0,
+        "delta_s": 0
     },
     "Ausschleuselement":{
         "comment": "Höhen- und Längendifferenz zwischen Laufprofil des Kreisels und Ende einer angebundenen Gefällestrecke in Millimetern",
-        "delta_h": 50,
-        "delta_s": 30
+        "delta_h": 0,
+        "delta_s": 0
     },
     "Einschleusung_Kreiselkopf":{
         "comment": "Höhen- und Längendifferenz zwischen Kreiselkopf des Kreisels und Ende einer angebundenen Gefällestrecke in Millimetern",
-        "delta_h": 50,
-        "delta_s": 30
+        "delta_h": 0,
+        "delta_s": 0
     },
     "Ausschleusung_Kreiselkopf":{
         "comment": "Höhen- und Längendifferenz zwischen Kreiselkopf des Kreisels und Ende einer angebundenen Gefällestrecke in Millimetern",
-        "delta_h": 50,
-        "delta_s": 30
+        "delta_h": 0,
+        "delta_s": 0
     }
 }
\ No newline at end of file
diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 3fa0e7b..3f44ae8 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-12T11:57:48" LanguageVersion="2014.1.3.674" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-06-12T16:22:33" 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">
@@ -1014,9 +1014,10 @@
 			<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" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:19440102" Name="shapeID" Type="string" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:19603024" Name="isDefined" Type="string" 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" />
 		</GROUP>
 		<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
 			<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -6847,18 +6848,31 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<EXIT_PROCESS Id="RDK:18729654" BreakType="4" ExitStatus="0" />
 								</GROUP>
 							</IFTHENELSE>
-							<SET Id="RDK:19482859" VarRef="L_F">
-								<EXP><![CDATA[$=$(Delta_h+Tan(alpha_s)*L1-Tan(alpha_s)*L_SEA+H_SEA+Tan(alpha_f)*L_FEA-H_FEA)/(Tan(alpha_s)+Tan(alpha_f))]]></EXP>
+							<IFTHENELSE Id="RDK:19651874" DesignTimeRemark="1 = Richtung AUF">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$Richtung=1]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:19651873" SubType="Then">
+									<SET Id="RDK:19651918" VarRef="L_F">
+										<EXP><![CDATA[$=$(Delta_h+Tan(alpha_s)*L1-Tan(alpha_s)*L_SEA+H_SEA+Tan(alpha_f)*L_FEA-H_FEA)/(Tan(alpha_s)+Tan(alpha_f))]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+								<GROUP Id="RDK:19651919" SubType="Else">
+									<SET Id="RDK:19482859" VarRef="L_F">
+										<EXP><![CDATA[$=$(Delta_h-Tan(alpha_s)*L1-Tan(alpha_s)*L_SEA+H_SEA+Tan(alpha_f)*L_FEA+H_FEA)/(Tan(alpha_f)-Tan(alpha_s))]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+							</IFTHENELSE>
+							<SET Id="RDK:19482865" VarRef="x_verhaeltnis">
+								<EXP><![CDATA[$=$L1/L_F]]></EXP>
 								<PAR Name="AdvancedOptions" />
 							</SET>
 							<SET Id="RDK:18150160" VarRef="L_S">
 								<EXP><![CDATA[$=$L1-L_F]]></EXP>
 								<PAR Name="AdvancedOptions" />
 							</SET>
-							<SET Id="RDK:19482865" VarRef="x_verhaeltnis">
-								<EXP><![CDATA[$=$L1/L_F]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
 							<IFTHENELSE Id="RDK:18150161">
 								<VALUECONDITION Value="true" Oper="OR">
 									<EXP><![CDATA[$=$Abs(x_verhaeltnis) > 1]]></EXP>
@@ -7925,7 +7939,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						<PAR Name="eventHandlers" />
 					</SET_STRUCT>
 				</FUNCTION>
-				<FUNCTION Id="RDK:19440091" Name="IndexOfByFieldValue_SSG" InputTypeName="SSGParameter[]" ResultTypeName="integer">
+				<FUNCTION Id="RDK:19440091" Name="IndexOfByFieldValue_SSG" InputTypeName="string" ResultTypeName="integer">
 					<GROUP Id="RDK:19440092" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 						<VAR Id="RDK:19440103" Name="id_array" Type="string[]">
 							<SET Id="RDK:19440104" VarRef="Me">
@@ -7937,7 +7951,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						<VAR Id="RDK:19615246" Name="temp_link" Type="string" />
 						<VAR Id="RDK:19440117" Name="shape_id" Type="string">
 							<SET Id="RDK:19440124" VarRef="Me">
-								<EXP><![CDATA[$=$Param.Input["key=id"].Str]]></EXP>
+								<EXP><![CDATA[$=$Param.Input]]></EXP>
 								<PAR Name="AdvancedOptions" />
 							</SET>
 						</VAR>
@@ -7958,6 +7972,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<EXP><![CDATA[$=$idx]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
+								<EXIT_PROCESS Id="RDK:19647781" BreakType="4" ExitStatus="0" />
 							</GROUP>
 						</IFTHENELSE>
 					</FOREACHLOOP>
@@ -7980,6 +7995,8 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						<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">
@@ -8379,6 +8396,10 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 													<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>
@@ -8391,6 +8412,40 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 													</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>
@@ -8544,6 +8599,10 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 												<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>
@@ -9075,18 +9134,6 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 						<EXP><![CDATA[$C$#f33256]]></EXP>
 						<PAR Name="AdvancedOptions" />
 					</SET>
-					<CALLFUNCTION Id="RDK:19452318">
-						<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>
 			</FUNCTION>
 			<GROUP Id="RDK:314269" Name="MUI" SubType="FunctionSet" IncludeDate="0">
@@ -13541,39 +13588,18 @@ me.x
 							</PAR>
 							<PAR Name="Options" />
 						</CALLFUNCTION>
-						<IFTHENELSE Id="RDK:19474663">
-							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$LH_fits]]></EXP>
-							</VALUECONDITION>
-							<GROUP Id="RDK:19474664" SubType="Then">
-								<CALLFUNCTION Id="RDK:19474698">
-									<PAR Name="FuncName">
-										<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
-									</PAR>
-									<PAR Name="InputExp">
-										<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
-									</PAR>
-									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$]]></EXP>
-									</PAR>
-									<PAR Name="Options" />
-								</CALLFUNCTION>
-							</GROUP>
-							<GROUP Id="RDK:19474665" SubType="Else">
-								<CALLFUNCTION Id="RDK:19474671">
-									<PAR Name="FuncName">
-										<EXP><![CDATA[$C$SetStatus_False]]></EXP>
-									</PAR>
-									<PAR Name="InputExp">
-										<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
-									</PAR>
-									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$]]></EXP>
-									</PAR>
-									<PAR Name="Options" />
-								</CALLFUNCTION>
-							</GROUP>
-						</IFTHENELSE>
+						<CALLFUNCTION Id="RDK:19474698">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:1576710" CaseType="0">
 						<EXP><![CDATA[$C$Eckrad]]></EXP>
@@ -13744,62 +13770,22 @@ me.x
 										<EXP><![CDATA[$=$Param.Input]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+								<CALLFUNCTION Id="RDK:19633575">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$SetStatus]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
-								<IFTHENELSE Id="RDK:18827015">
-									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$IsEmpty(RueckgabeListe)]]></EXP>
-									</VALUECONDITION>
-									<GROUP Id="RDK:18827014" SubType="Then">
-										<CALLFUNCTION Id="RDK:19474708">
-											<PAR Name="FuncName">
-												<EXP><![CDATA[$C$Calculate Gefaellestrecke]]></EXP>
-											</PAR>
-											<PAR Name="InputExp">
-												<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
-											</PAR>
-											<PAR Name="ResultRef">
-												<EXP><![CDATA[$V$LH_fits]]></EXP>
-											</PAR>
-											<PAR Name="Options" />
-										</CALLFUNCTION>
-										<IFTHENELSE Id="RDK:19474720">
-											<VALUECONDITION Value="true">
-												<EXP><![CDATA[$=$LH_fits]]></EXP>
-											</VALUECONDITION>
-											<GROUP Id="RDK:19474717" SubType="Then">
-												<CALLFUNCTION Id="RDK:19474716">
-													<PAR Name="FuncName">
-														<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
-													</PAR>
-													<PAR Name="InputExp">
-														<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
-													</PAR>
-													<PAR Name="ResultRef">
-														<EXP><![CDATA[$V$]]></EXP>
-													</PAR>
-													<PAR Name="Options" />
-												</CALLFUNCTION>
-											</GROUP>
-											<GROUP Id="RDK:19474719" SubType="Else">
-												<CALLFUNCTION Id="RDK:19474718">
-													<PAR Name="FuncName">
-														<EXP><![CDATA[$C$SetStatus_False]]></EXP>
-													</PAR>
-													<PAR Name="InputExp">
-														<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
-													</PAR>
-													<PAR Name="ResultRef">
-														<EXP><![CDATA[$V$]]></EXP>
-													</PAR>
-													<PAR Name="Options" />
-												</CALLFUNCTION>
-											</GROUP>
-										</IFTHENELSE>
-									</GROUP>
-								</IFTHENELSE>
 							</GROUP>
 						</IFTHENELSE>
 						<IFTHENELSE Id="RDK:18827051">
@@ -15730,199 +15716,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</CASEGROUP>
 				</SELECTCASE>
 			</FUNCTION>
-			<FUNCTION Id="RDK:19602983" Name="SetStatus" InputTypeName="string">
-				<GROUP Id="RDK:19602960" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
-					<VAR Id="RDK:19602953" Name="shapeId" Type="string">
-						<SET Id="RDK:19602952" VarRef="Me">
-							<EXP><![CDATA[$=$Param.Input]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
-					</VAR>
-				</GROUP>
-				<SELECTCASE Id="RDK:19602982">
-					<EXP><![CDATA[$=$ShapeList["id="+shapeId].family]]></EXP>
-					<CASEGROUP Id="RDK:19602961" CaseType="0">
-						<EXP><![CDATA[$C$Kreisel]]></EXP>
-						<CALLFUNCTION Id="RDK:19603037">
-							<PAR Name="FuncName">
-								<EXP><![CDATA[$C$SetStatus_Ok]]></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:19602968" CaseType="0">
-						<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
-						<IFTHENELSE Id="RDK:19603003">
-							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$(ShapeList["id="+shapeId].GefaelleDefinition.LH_fits = True)]]></EXP>
-							</VALUECONDITION>
-							<GROUP Id="RDK:19603000" SubType="Then">
-								<CALLFUNCTION Id="RDK:19602999">
-									<PAR Name="FuncName">
-										<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
-									</PAR>
-									<PAR Name="InputExp">
-										<EXP><![CDATA[$=$shapeId]]></EXP>
-									</PAR>
-									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$]]></EXP>
-									</PAR>
-									<PAR Name="Options" />
-								</CALLFUNCTION>
-							</GROUP>
-							<GROUP Id="RDK:19603002" SubType="Else">
-								<CALLFUNCTION Id="RDK:19603001">
-									<PAR Name="FuncName">
-										<EXP><![CDATA[$C$SetStatus_False]]></EXP>
-									</PAR>
-									<PAR Name="InputExp">
-										<EXP><![CDATA[$=$shapeId]]></EXP>
-									</PAR>
-									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$]]></EXP>
-									</PAR>
-									<PAR Name="Options" />
-								</CALLFUNCTION>
-							</GROUP>
-						</IFTHENELSE>
-					</CASEGROUP>
-					<CASEGROUP Id="RDK:19602976" CaseType="0">
-						<EXP><![CDATA[$C$Foerderer]]></EXP>
-						<IFTHENELSE Id="RDK:19603049">
-							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$ShapeList["id="+shapeId].FoerdererDefinition.LH_fits]]></EXP>
-							</VALUECONDITION>
-							<GROUP Id="RDK:19603046" SubType="Then">
-								<CALLFUNCTION Id="RDK:19603045">
-									<PAR Name="FuncName">
-										<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
-									</PAR>
-									<PAR Name="InputExp">
-										<EXP><![CDATA[$=$shapeId]]></EXP>
-									</PAR>
-									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$]]></EXP>
-									</PAR>
-									<PAR Name="Options" />
-								</CALLFUNCTION>
-							</GROUP>
-							<GROUP Id="RDK:19603048" SubType="Else">
-								<CALLFUNCTION Id="RDK:19603047">
-									<PAR Name="FuncName">
-										<EXP><![CDATA[$C$SetStatus_False]]></EXP>
-									</PAR>
-									<PAR Name="InputExp">
-										<EXP><![CDATA[$=$shapeId]]></EXP>
-									</PAR>
-									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$]]></EXP>
-									</PAR>
-									<PAR Name="Options" />
-								</CALLFUNCTION>
-							</GROUP>
-						</IFTHENELSE>
-					</CASEGROUP>
-					<CASEGROUP Id="RDK:19602977" CaseType="0">
-						<EXP><![CDATA[$C$Weiche]]></EXP>
-					</CASEGROUP>
-					<CASEGROUP Id="RDK:19602978" CaseType="0">
-						<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
-						<IFTHENELSE Id="RDK:19603057">
-							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$ShapeList["id="+shapeId].BTMTBeladungDefinition.Drehung > 0]]></EXP>
-							</VALUECONDITION>
-							<GROUP Id="RDK:19603063" SubType="Then">
-								<CALLFUNCTION Id="RDK:19603069">
-									<PAR Name="FuncName">
-										<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
-									</PAR>
-									<PAR Name="InputExp">
-										<EXP><![CDATA[$=$shapeId]]></EXP>
-									</PAR>
-									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$]]></EXP>
-									</PAR>
-									<PAR Name="Options" />
-								</CALLFUNCTION>
-							</GROUP>
-							<GROUP Id="RDK:19603067" SubType="Else">
-								<CALLFUNCTION Id="RDK:19603071">
-									<PAR Name="FuncName">
-										<EXP><![CDATA[$C$SetStatus_False]]></EXP>
-									</PAR>
-									<PAR Name="InputExp">
-										<EXP><![CDATA[$=$shapeId]]></EXP>
-									</PAR>
-									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$]]></EXP>
-									</PAR>
-									<PAR Name="Options" />
-								</CALLFUNCTION>
-							</GROUP>
-						</IFTHENELSE>
-					</CASEGROUP>
-					<CASEGROUP Id="RDK:19602979" CaseType="0">
-						<EXP><![CDATA[$C$BTMTEntladung]]></EXP>
-						<IFTHENELSE Id="RDK:19603081">
-							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$ShapeList["id="+shapeId].BTMTBeladungDefinition.Drehung < 0]]></EXP>
-							</VALUECONDITION>
-							<GROUP Id="RDK:19603078" SubType="Then">
-								<CALLFUNCTION Id="RDK:19603077">
-									<PAR Name="FuncName">
-										<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
-									</PAR>
-									<PAR Name="InputExp">
-										<EXP><![CDATA[$=$shapeId]]></EXP>
-									</PAR>
-									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$]]></EXP>
-									</PAR>
-									<PAR Name="Options" />
-								</CALLFUNCTION>
-							</GROUP>
-							<GROUP Id="RDK:19603080" SubType="Else">
-								<CALLFUNCTION Id="RDK:19603079">
-									<PAR Name="FuncName">
-										<EXP><![CDATA[$C$SetStatus_False]]></EXP>
-									</PAR>
-									<PAR Name="InputExp">
-										<EXP><![CDATA[$=$shapeId]]></EXP>
-									</PAR>
-									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$]]></EXP>
-									</PAR>
-									<PAR Name="Options" />
-								</CALLFUNCTION>
-							</GROUP>
-						</IFTHENELSE>
-					</CASEGROUP>
-					<CASEGROUP Id="RDK:19602980" CaseType="0">
-						<EXP><![CDATA[$C$Eckrad]]></EXP>
-						<CALLFUNCTION Id="RDK:19603085">
-							<PAR Name="FuncName">
-								<EXP><![CDATA[$C$SetStatus_Ok]]></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:19602981" 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" />
@@ -16762,24 +16555,12 @@ ShapeList["id="+Param.Input[1].shapeID].name
 				<GROUP Id="RDK:19287454" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:19290238" Name="shapeID" Type="string" />
 					<VAR Id="RDK:19290240" Name="color" Type="string" />
-					<VAR Id="RDK:19440121" Name="UebergabeListe" Type="SSGParameter[]" />
 					<VAR Id="RDK:19441478" Name="shapeList_idx" Type="integer" />
 				</GROUP>
 				<SET Id="RDK:19290237" VarRef="shapeID">
 					<EXP><![CDATA[$=$Param.Input["key=id"].Str]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
-				<SET_STRUCT Id="RDK:19440123" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
-					<PAR Name="Key">
-						<EXP><![CDATA[$C$id]]></EXP>
-					</PAR>
-					<PAR Name="Str">
-						<EXP><![CDATA[$=$shapeID]]></EXP>
-					</PAR>
-					<PAR Name="Dbl" />
-					<PAR Name="Int" />
-					<PAR Name="Boo" />
-				</SET_STRUCT>
 				<IFTHENELSE Id="RDK:19434514">
 					<VALUECONDITION Value="true">
 						<EXP><![CDATA[$=$Count(FilterByFieldValue(ShapeList, "id", shapeID, false)) = 1
@@ -16791,7 +16572,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								<EXP><![CDATA[$C$IndexOfByFieldValue_SSG]]></EXP>
 							</PAR>
 							<PAR Name="InputExp">
-								<EXP><![CDATA[$=$UebergabeListe]]></EXP>
+								<EXP><![CDATA[$=$shapeID]]></EXP>
 							</PAR>
 							<PAR Name="ResultRef">
 								<EXP><![CDATA[$V$shapeList_idx]]></EXP>
@@ -16819,6 +16600,212 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</GROUP>
 				</IFTHENELSE>
 			</FUNCTION>
+			<FUNCTION Id="RDK:19602983" Name="SetStatus" InputTypeName="string">
+				<GROUP Id="RDK:19602960" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:19602953" Name="shapeId" Type="string">
+						<SET Id="RDK:19602952" VarRef="Me">
+							<EXP><![CDATA[$=$Param.Input]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
+					<VAR Id="RDK:19632172" Name="shapeList_idx" Type="integer" />
+				</GROUP>
+				<CALLFUNCTION Id="RDK:19632170">
+					<PAR Name="FuncName">
+						<EXP><![CDATA[$C$IndexOfByFieldValue_SSG]]></EXP>
+					</PAR>
+					<PAR Name="InputExp">
+						<EXP><![CDATA[$=$shapeId]]></EXP>
+					</PAR>
+					<PAR Name="ResultRef">
+						<EXP><![CDATA[$V$shapeList_idx]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</CALLFUNCTION>
+				<SELECTCASE Id="RDK:19602982">
+					<EXP><![CDATA[$=$ShapeList[shapeList_idx].family]]></EXP>
+					<CASEGROUP Id="RDK:19602961" CaseType="0">
+						<EXP><![CDATA[$C$Kreisel]]></EXP>
+						<CALLFUNCTION Id="RDK:19603037">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$SetStatus_Ok]]></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:19602968" CaseType="0">
+						<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
+						<IFTHENELSE Id="RDK:19603003">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$(ShapeList[shapeList_idx].GefaelleDefinition.LH_fits = True)]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:19603000" SubType="Then">
+								<CALLFUNCTION Id="RDK:19602999">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$shapeId]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+							<GROUP Id="RDK:19603002" SubType="Else">
+								<CALLFUNCTION Id="RDK:19603001">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$SetStatus_False]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$shapeId]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+						</IFTHENELSE>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:19602976" CaseType="0">
+						<EXP><![CDATA[$C$Foerderer]]></EXP>
+						<IFTHENELSE Id="RDK:19603049">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$ShapeList[shapeList_idx].FoerdererDefinition.LH_fits]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:19603046" SubType="Then">
+								<CALLFUNCTION Id="RDK:19603045">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$shapeId]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+							<GROUP Id="RDK:19603048" SubType="Else">
+								<CALLFUNCTION Id="RDK:19603047">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$SetStatus_False]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$shapeId]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+						</IFTHENELSE>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:19602977" CaseType="0">
+						<EXP><![CDATA[$C$Weiche]]></EXP>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:19602978" CaseType="0">
+						<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
+						<IFTHENELSE Id="RDK:19603057">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$ShapeList[shapeList_idx].BTMTBeladungDefinition.Drehung > 0]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:19603063" SubType="Then">
+								<CALLFUNCTION Id="RDK:19603069">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$shapeId]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+							<GROUP Id="RDK:19603067" SubType="Else">
+								<CALLFUNCTION Id="RDK:19603071">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$SetStatus_False]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$shapeId]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+						</IFTHENELSE>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:19602979" CaseType="0">
+						<EXP><![CDATA[$C$BTMTEntladung]]></EXP>
+						<IFTHENELSE Id="RDK:19603081">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$ShapeList[shapeList_idx].BTMTBeladungDefinition.Drehung < 0]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:19603078" SubType="Then">
+								<CALLFUNCTION Id="RDK:19603077">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$shapeId]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+							<GROUP Id="RDK:19603080" SubType="Else">
+								<CALLFUNCTION Id="RDK:19603079">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$SetStatus_False]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$shapeId]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+						</IFTHENELSE>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:19602980" CaseType="0">
+						<EXP><![CDATA[$C$Eckrad]]></EXP>
+						<CALLFUNCTION Id="RDK:19603085">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$SetStatus_Ok]]></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:19602981" CaseType="1">
+						<EXP />
+					</CASEGROUP>
+				</SELECTCASE>
+			</FUNCTION>
 			<FUNCTION Id="RDK:19290191" Name="SetStatus_False" InputTypeName="string" ResultTypeName="boolean">
 				<GROUP Id="RDK:19290203" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:19290201" Name="shape_item" Type="Editor2DShapeType">