From 991f01d48ad942a66c0361907f3971ac114f65b4 Mon Sep 17 00:00:00 2001
From: Simon Schmutzler <s.schmutzler@schoenenberger.de>
Date: Wed, 13 Mar 2024 14:35:15 +0100
Subject: [PATCH] Initialisieren der Systemgrenzen aus JSON Datei

---
 Init/systemgrenzen.json |  34 +++
 MAIN_SSG.rdx            | 550 +++++++++++++++++++++++++---------------
 2 files changed, 379 insertions(+), 205 deletions(-)
 create mode 100644 Init/systemgrenzen.json

diff --git a/Init/systemgrenzen.json b/Init/systemgrenzen.json
new file mode 100644
index 0000000..ddea19b
--- /dev/null
+++ b/Init/systemgrenzen.json
@@ -0,0 +1,34 @@
+{
+    "Systemgrenzen":{
+        "Kreisel":{
+            "ObereGrenze":{
+                "AbstandMS": 40000
+            },
+            "UntereGrenze":{
+                "AbstandMS": 2000
+            }
+        },
+        "Förderer":{
+            "Auf":{
+                "ObereGrenze":{
+                    "L1": 15000,
+                    "winkel_f": 35
+                },
+                "UntereGrenze":{
+                    "L1": 4121,
+                    "winkel_f": 25
+                }
+            },
+            "Ab":{
+                "ObereGrenze":{
+                    "L1": 15000,
+                    "winkel_f": 35
+                },
+                "UntereGrenze":{
+                    "L1": 3564,
+                    "winkel_f": 25
+                }
+            }
+        }
+    }
+}
\ No newline at end of file
diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index d3df970..b245e1f 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-03-05T10:22:13" LanguageVersion="2014.1.3.627" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-03-13T14:33:24" LanguageVersion="2014.1.3.627" />
 	<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">
@@ -67,7 +67,7 @@
 				<TYPE Id="RDK:18116690" Name="FoerdererType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:18116683" Name="Beschreibung" Type="string" />
-					<FIELD Id="RDK:18116696" Name="Typ" Type="string" />
+					<FIELD Id="RDK:18116696" Name="Typ" Type="string" DesignTimeRemark="Auf oder Ab" />
 					<FIELD Id="RDK:18116684" Name="L1" Type="double" DesignTimeRemark="Gesamtlänge" />
 					<FIELD Id="RDK:18129305" Name="L_s" Type="double" DesignTimeRemark="Projezierte Länge der Gefällestrecke" />
 					<FIELD Id="RDK:18305535" Name="L_f" Type="double" DesignTimeRemark="Projezierte Länge des Förderers" />
@@ -142,8 +142,10 @@
 					<FIELD Id="RDK:18530552" Name="Eckrad_bot" Type="EckradType" />
 					<FIELD Id="RDK:18530556" Name="Gefaelle_top" Type="GefaelleType" />
 					<FIELD Id="RDK:18530554" Name="Gefaelle_bot" Type="GefaelleType" />
-					<FIELD Id="RDK:18530558" Name="Foerderer_top" Type="FoerdererType" />
-					<FIELD Id="RDK:18530560" Name="Foerderer_bot" Type="FoerdererType" />
+					<FIELD Id="RDK:18530558" Name="Foerderer_auf_top" Type="FoerdererType" />
+					<FIELD Id="RDK:18530560" Name="Foerderer_auf_bot" Type="FoerdererType" />
+					<FIELD Id="RDK:18598081" Name="Foerderer_ab_top" Type="FoerdererType" />
+					<FIELD Id="RDK:18598083" Name="Foerderer_ab_bot" Type="FoerdererType" />
 					<FIELD Id="RDK:18530562" Name="Weiche_top" Type="WeicheType" />
 					<FIELD Id="RDK:18530564" Name="Weiche_bot" Type="WeicheType" />
 				</TYPE>
@@ -5749,6 +5751,55 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						</FOREACHLOOP>
 					</FUNCTION>
 				</GROUP>
+				<FUNCTION Id="RDK:18589792" Name="Check_borders" InputTypeName="Editor2DShapeType" ResultTypeName="boolean">
+					<GROUP Id="RDK:18589794" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+						<VAR Id="RDK:18589796" Name="shape_item" Type="Editor2DShapeType" />
+						<VAR Id="RDK:18591711" Name="result" Type="boolean">
+							<SET Id="RDK:18591712" VarRef="Me">
+								<EXP><![CDATA[$=$False]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+						</VAR>
+					</GROUP>
+					<SET Id="RDK:18589797" VarRef="shape_item">
+						<EXP><![CDATA[$=$Param.Input]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<SELECTCASE Id="RDK:18591703">
+						<EXP><![CDATA[$=$shape_item.family]]></EXP>
+						<CASEGROUP Id="RDK:18591704" CaseType="0">
+							<EXP><![CDATA[$C$Kreisel]]></EXP>
+						</CASEGROUP>
+						<CASEGROUP Id="RDK:18591707" CaseType="0">
+							<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
+						</CASEGROUP>
+						<CASEGROUP Id="RDK:18591709" CaseType="0">
+							<EXP><![CDATA[$C$Foerderer]]></EXP>
+							<IFTHENELSE Id="RDK:18591713">
+								<VALUECONDITION Value="true" Oper="OR">
+									<EXP><![CDATA[$=$shape_item.FoerdererDefinition.L1<SSG_Borders_data.Foerderer_top.L1]]></EXP>
+								</VALUECONDITION>
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$shape_item.FoerdererDefinition.L1>SSG_Borders_data.Foerderer_bot.L1]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:18591714" SubType="Then">
+									<SET Id="RDK:18591722" VarRef="result">
+										<EXP><![CDATA[$C$True]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+							</IFTHENELSE>
+						</CASEGROUP>
+						<CASEGROUP Id="RDK:18591705" CaseType="1">
+							<EXP />
+						</CASEGROUP>
+					</SELECTCASE>
+					<SET Id="RDK:18589801" VarRef="Param.Result">
+						<EXP><![CDATA[$=$result]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<EXIT_PROCESS Id="RDK:18589799" BreakType="4" ExitStatus="0" />
+				</FUNCTION>
 				<FUNCTION Id="RDK:18146462" Name="Calculate Foerderer">
 					<GROUP Id="RDK:18150158" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 						<VAR Id="RDK:18150159" Name="x_verhaeltnis" Type="double" DesignTimeRemark="Verhältnis von Förderstrecke und Gesamtlänge" />
@@ -5757,7 +5808,95 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						<VAR Id="RDK:18150242" Name="L1" Type="double" DesignTimeRemark="Gesamtlänge" />
 						<VAR Id="RDK:18150246" Name="HoeheOben" Type="double" DesignTimeRemark="Höhe am oberen Anschlusspunkt" />
 						<VAR Id="RDK:18150248" Name="HoeheUnten" Type="double" DesignTimeRemark="Höhe am unteren Anschlusspunkt" />
+						<VAR Id="RDK:18587841" Name="Delta_h" Type="double" DesignTimeRemark="Differenz zwischen HoeheOben und HoeheUnten" />
+						<VAR Id="RDK:18589803" Name="valid" Type="boolean" DesignTimeRemark="Gesamtlänge">
+							<SET Id="RDK:18589804" VarRef="Me">
+								<EXP><![CDATA[$C$False]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+						</VAR>
 					</GROUP>
+					<CALLFUNCTION Id="RDK:18589806">
+						<PAR Name="FuncName">
+							<EXP><![CDATA[$C$Check_borders]]></EXP>
+						</PAR>
+						<PAR Name="InputExp">
+							<EXP><![CDATA[$=$Shape_Prototype]]></EXP>
+						</PAR>
+						<PAR Name="ResultRef">
+							<EXP><![CDATA[$V$valid]]></EXP>
+						</PAR>
+						<PAR Name="Options" />
+					</CALLFUNCTION>
+					<IFTHENELSE Id="RDK:18591729">
+						<VALUECONDITION Value="false">
+							<EXP><![CDATA[$=$valid]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:18591730" SubType="Then">
+							<ACTION_CALL Id="RDK:18591737" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}">
+								<PAR Name="RDLibraryName">
+									<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+								</PAR>
+								<PAR Name="RenderList">
+									<EXP><![CDATA[$=$Render_Foerderer]]></EXP>
+								</PAR>
+								<PAR Name="PanelName">
+									<EXP><![CDATA[$C$0]]></EXP>
+								</PAR>
+								<PAR Name="CustomPanel" />
+								<PAR Name="ActionType">
+									<EXP><![CDATA[$C$0]]></EXP>
+								</PAR>
+								<PAR Name="Id">
+									<EXP><![CDATA[$C$L1]]></EXP>
+								</PAR>
+								<PAR Name="ParentId" />
+								<PAR Name="Label">
+									<EXP><![CDATA[$C$Gesamtlänge aus Förderer und Strecke]]></EXP>
+								</PAR>
+								<PAR Name="Field">
+									<EXP><![CDATA[$C$L1]]></EXP>
+								</PAR>
+								<PAR Name="Value" />
+								<PAR Name="Uom" />
+								<PAR Name="Tooltip" />
+								<PAR Name="Styles" />
+								<PAR Name="Classes">
+									<EXP><![CDATA[$C$col-4]]></EXP>
+								</PAR>
+								<PAR Name="Rules" />
+								<PAR Name="Image" />
+								<PAR Name="ControlType">
+									<EXP><![CDATA[$C$textbox]]></EXP>
+								</PAR>
+								<PAR Name="ButtonSubType" />
+								<PAR Name="DropdownSubType" />
+								<PAR Name="TextboxSubType">
+									<EXP><![CDATA[$C$STANDARD]]></EXP>
+								</PAR>
+								<PAR Name="Action" />
+								<PAR Name="Required">
+									<EXP><![CDATA[$C$True]]></EXP>
+								</PAR>
+								<PAR Name="Hidden" />
+								<PAR Name="ROnly" />
+								<PAR Name="Disabled" />
+								<PAR Name="Pressed" />
+								<PAR Name="AutoCommit">
+									<EXP><![CDATA[$=$True]]></EXP>
+								</PAR>
+								<PAR Name="ValidateFail">
+									<EXP><![CDATA[$=$True]]></EXP>
+								</PAR>
+								<PAR Name="ValidateMsg">
+									<EXP><![CDATA[$C$Länge oder Höhendifferenz liegen außerhalb der erlaubten Werte.]]></EXP>
+								</PAR>
+								<PAR Name="DataSource" />
+								<PAR Name="Options" />
+							</ACTION_CALL>
+							<EXIT_PROCESS Id="RDK:18591735" BreakType="4" ExitStatus="0" />
+						</GROUP>
+					</IFTHENELSE>
 					<SET Id="RDK:18150201" VarRef="winkel_s">
 						<EXP><![CDATA[$=$Shape_Prototype.FoerdererDefinition.winkel_s]]></EXP>
 						<PAR Name="AdvancedOptions" />
@@ -5771,20 +5910,28 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						<PAR Name="AdvancedOptions" />
 					</SET>
 					<SET Id="RDK:18150250" VarRef="HoeheOben">
-						<EXP><![CDATA[$=$IIF(Shape_Prototype.FoerdererDefinition.HoeheOben>Shape_Prototype.FoerdererDefinition.HoeheUnten,Shape_Prototype.FoerdererDefinition.HoeheOben,Shape_Prototype.FoerdererDefinition.HoeheUnten)]]></EXP>
+						<EXP><![CDATA[$=$Shape_Prototype.FoerdererDefinition.HoeheOben]]></EXP>
 						<PAR Name="AdvancedOptions" />
 					</SET>
 					<SET Id="RDK:18150252" VarRef="HoeheUnten">
-						<EXP><![CDATA[$=$IIF(Shape_Prototype.FoerdererDefinition.HoeheOben>Shape_Prototype.FoerdererDefinition.HoeheUnten,Shape_Prototype.FoerdererDefinition.HoeheUnten,Shape_Prototype.FoerdererDefinition.HoeheOben)]]></EXP>
+						<EXP><![CDATA[$=$Shape_Prototype.FoerdererDefinition.HoeheUnten]]></EXP>
 						<PAR Name="AdvancedOptions" />
 					</SET>
-					<IFTHENELSE Id="RDK:18152129">
+					<IFTHENELSE Id="RDK:18589770">
 						<VALUECONDITION Value="true" Oper="OR">
 							<EXP><![CDATA[$=$IsEmpty(HoeheOben)]]></EXP>
 						</VALUECONDITION>
 						<VALUECONDITION Value="true">
 							<EXP><![CDATA[$=$IsEmpty(HoeheUnten)]]></EXP>
 						</VALUECONDITION>
+						<GROUP Id="RDK:18589769" SubType="Then">
+							<EXIT_PROCESS Id="RDK:18589768" BreakType="4" ExitStatus="0" />
+						</GROUP>
+					</IFTHENELSE>
+					<IFTHENELSE Id="RDK:18152129">
+						<VALUECONDITION Value="true" Oper="OR">
+							<EXP><![CDATA[$=$IsEmpty(HoeheOben)]]></EXP>
+						</VALUECONDITION>
 						<GROUP Id="RDK:18152149" SubType="Then">
 							<EXIT_PROCESS Id="RDK:18152157" BreakType="4" ExitStatus="0" />
 						</GROUP>
@@ -5830,8 +5977,12 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 							<EXIT_PROCESS Id="RDK:18150232" BreakType="4" ExitStatus="0" />
 						</GROUP>
 						<GROUP Id="RDK:18150194" SubType="Else">
+							<SET Id="RDK:18587843" VarRef="Delta_h">
+								<EXP><![CDATA[$=$IIF(HoeheOben>HoeheUnten, HoeheOben-HoeheUnten, HoeheUnten-HoeheOben)]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
 							<SET Id="RDK:18150160" VarRef="x_verhaeltnis">
-								<EXP><![CDATA[$=$(Tan(DegToRad(winkel_f))+Tan(DegToRad(winkel_s)))/((HoeheOben-HoeheUnten)/L1+Tan(DegToRad(winkel_s)))]]></EXP>
+								<EXP><![CDATA[$=$(Tan(DegToRad(winkel_f))+Tan(DegToRad(winkel_s)))/(Delta_h/L1+Tan(DegToRad(winkel_s)))]]></EXP>
 								<PAR Name="AdvancedOptions" />
 							</SET>
 							<IFTHENELSE Id="RDK:18150161">
@@ -6076,7 +6227,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 										<PAR Name="AdvancedOptions" />
 									</SET>
 									<SET Id="RDK:18164346" VarRef="Shape_Prototype.FoerdererDefinition.Delta_h">
-										<EXP><![CDATA[$=$HoeheOben-HoeheUnten]]></EXP>
+										<EXP><![CDATA[$=$Delta_h]]></EXP>
 										<PAR Name="AdvancedOptions" />
 									</SET>
 									<SET Id="RDK:18164348" VarRef="Shape_Prototype.FoerdererDefinition.L_s">
@@ -6087,79 +6238,6 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 										<EXP><![CDATA[$=$Round(L1/x_verhaeltnis, 2)]]></EXP>
 										<PAR Name="AdvancedOptions" />
 									</SET>
-									<GROUP Id="RDK:18154601" Name="Write Properties" SubType="Generic" Suppressed="True">
-										<SET Id="RDK:18154599" VarRef="i">
-											<EXP><![CDATA[$=$IndexOfByFieldValue(ShapeList, "id", Shape_Prototype.id)]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-										<SET_STRUCT Id="RDK:18154600" VarRef="Shape_Prototype" ListRef="ShapeList" Options="$=$&quot;(REPLACEIDX=&quot;+i+&quot;)&quot;" DesignTimeNotes="Tan(winkel_f)*L1*x_verhaeltnis">
-											<PAR Name="SivasNummer" />
-											<PAR Name="Rotationsklasse" />
-											<PAR Name="IDCounter" />
-											<PAR Name="KreiselDefinition" />
-											<PAR Name="EckradDefinition" />
-											<PAR Name="GefaelleDefinition" />
-											<PAR Name="FoerdererDefinition">
-												<EXP><![CDATA[$=$Shape_Prototype.FoerdererDefinition]]></EXP>
-											</PAR>
-											<PAR Name="WeicheDefinition" />
-											<PAR Name="BTMTBeladungDefinition" />
-											<PAR Name="BTMTEntladungDefinition" />
-											<PAR Name="source">
-												<EXP><![CDATA[$=$Shape_Prototype.source]]></EXP>
-											</PAR>
-											<PAR Name="sourceLibrary">
-												<EXP><![CDATA[$=$GS2DLibraryName]]></EXP>
-											</PAR>
-											<PAR Name="signature" />
-											<PAR Name="id">
-												<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
-											</PAR>
-											<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="text" />
-											<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" />
-										</SET_STRUCT>
-									</GROUP>
 									<EXIT_PROCESS Id="RDK:18197934" BreakType="4" ExitStatus="0" />
 								</GROUP>
 								<GROUP Id="RDK:18150163" SubType="Else">
@@ -13526,6 +13604,179 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<PAR Name="AdvancedOptions" />
 				</SET>
 			</FUNCTION>
+			<FUNCTION Id="RDK:18598214" Name="InitSystemLimits">
+				<GROUP Id="RDK:18598216" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:18598117" Name="jsonfilepath" Type="string">
+						<SET Id="RDK:18598334" VarRef="Me">
+							<EXP><![CDATA[$C$Init/systemgrenzen.json]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
+					<VAR Id="RDK:18598333" Name="json" Type="string" />
+					<VAR Id="RDK:18598098" Name="systemgrenzen" Type="structure" />
+					<VAR Id="RDK:18598120" Name="komponenten_list" Type="string[]" DesignTimeRemark="Alle Komponenten, die im JSON der Systemgrenzen enthalten sind" />
+					<VAR Id="RDK:18598107" Name="str_item" Type="string" />
+					<VAR Id="RDK:18598188" Name="grenz_item" Type="structure" />
+					<VAR Id="RDK:18598184" Name="grenz_attribute" Type="string[]" DesignTimeRemark="Alle JSON Felder, die in einer Komponentengrenze enthalten sind (z.B. &quot;Gesamtlänge&quot;)" />
+				</GROUP>
+				<ACTION_CALL Id="RDK:18598115" Name="RDEngineering_ReadFromTextFile">
+					<PAR Name="RDLibraryName">
+						<EXP><![CDATA[$C$RDEngineering_FILE_TEXT]]></EXP>
+					</PAR>
+					<PAR Name="FileName">
+						<EXP><![CDATA[$=$jsonfilepath]]></EXP>
+					</PAR>
+					<PAR Name="DataType">
+						<EXP><![CDATA[$C$0]]></EXP>
+					</PAR>
+					<PAR Name="StringText">
+						<EXP><![CDATA[$V$json]]></EXP>
+					</PAR>
+					<PAR Name="StringVector">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="StringTable">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="NumberVector">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="NumberTable">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="XmlTokens">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="FileFormat">
+						<EXP><![CDATA[$C$2]]></EXP>
+					</PAR>
+					<PAR Name="IniSection" />
+					<PAR Name="IniProperty" />
+					<PAR Name="Options">
+						<EXP><![CDATA[$=$]]></EXP>
+					</PAR>
+				</ACTION_CALL>
+				<SET Id="RDK:18598118" VarRef="systemgrenzen">
+					<EXP><![CDATA[$=$FieldValue(FromJSON(json), "Systemgrenzen")]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SET Id="RDK:18598129" VarRef="komponenten_list">
+					<EXP><![CDATA[$=$FieldNames(systemgrenzen)]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<FOREACHLOOP Id="RDK:18598109" ItemVarRef="str_item">
+					<PAR Name="ArrayValueExp">
+						<EXP><![CDATA[$=$komponenten_list]]></EXP>
+					</PAR>
+					<PAR Name="ExitCondExp">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<SELECTCASE Id="RDK:18598101">
+						<EXP><![CDATA[$=$str_item]]></EXP>
+						<CASEGROUP Id="RDK:18598102" CaseType="0">
+							<EXP><![CDATA[$C$Förderer]]></EXP>
+							<IFTHENELSE Id="RDK:18598123">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$FieldExist(FieldValue(systemgrenzen, str_item), "Auf")]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:18598124" SubType="Then">
+									<GROUP Id="RDK:18598160" Name="Group" SubType="Generic">
+										<VALUECONDITION Value="true">
+											<EXP><![CDATA[$=$FieldExist(FieldValue(FieldValue(systemgrenzen, str_item), "Auf"),"ObereGrenze")]]></EXP>
+										</VALUECONDITION>
+										<SET Id="RDK:18598205" VarRef="grenz_item">
+											<EXP><![CDATA[$=$FieldValue(FieldValue(FieldValue(systemgrenzen, str_item), "Auf"),"ObereGrenze")]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+										<SET Id="RDK:18598225" VarRef="SSG_Borders_data.Foerderer_auf_top">
+											<EXP><![CDATA[$=$grenz_item]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+									</GROUP>
+									<GROUP Id="RDK:18598262" Name="Group" SubType="Generic">
+										<VALUECONDITION Value="true">
+											<EXP><![CDATA[$=$FieldExist(FieldValue(FieldValue(systemgrenzen, str_item), "Auf"),"UntereGrenze")]]></EXP>
+										</VALUECONDITION>
+										<SET Id="RDK:18598260" VarRef="grenz_item">
+											<EXP><![CDATA[$=$FieldValue(FieldValue(FieldValue(systemgrenzen, str_item), "Auf"),"UntereGrenze")]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+										<SET Id="RDK:18598261" VarRef="SSG_Borders_data.Foerderer_auf_bot">
+											<EXP><![CDATA[$=$grenz_item]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+									</GROUP>
+								</GROUP>
+							</IFTHENELSE>
+							<IFTHENELSE Id="RDK:18598244">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$FieldExist(FieldValue(systemgrenzen, str_item), "Ab")]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:18598243" SubType="Then">
+									<GROUP Id="RDK:18598242" Name="Group" SubType="Generic">
+										<VALUECONDITION Value="true">
+											<EXP><![CDATA[$=$FieldExist(FieldValue(FieldValue(systemgrenzen, str_item), "Ab"),"ObereGrenze")]]></EXP>
+										</VALUECONDITION>
+										<SET Id="RDK:18598271" VarRef="grenz_item">
+											<EXP><![CDATA[$=$FieldValue(FieldValue(FieldValue(systemgrenzen, str_item), "Ab"),"ObereGrenze")]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+										<SET Id="RDK:18598241" VarRef="SSG_Borders_data.Foerderer_ab_top">
+											<EXP><![CDATA[$=$grenz_item]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+									</GROUP>
+									<GROUP Id="RDK:18598279" Name="Group" SubType="Generic">
+										<VALUECONDITION Value="true">
+											<EXP><![CDATA[$=$FieldExist(FieldValue(FieldValue(systemgrenzen, str_item), "Ab"),"UntereGrenze")]]></EXP>
+										</VALUECONDITION>
+										<SET Id="RDK:18598277" VarRef="grenz_item">
+											<EXP><![CDATA[$=$FieldValue(FieldValue(FieldValue(systemgrenzen, str_item), "Ab"),"UntereGrenze")]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+										<SET Id="RDK:18598278" VarRef="SSG_Borders_data.Foerderer_ab_bot">
+											<EXP><![CDATA[$=$grenz_item]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+									</GROUP>
+								</GROUP>
+							</IFTHENELSE>
+						</CASEGROUP>
+						<CASEGROUP Id="RDK:18598122" CaseType="0">
+							<EXP><![CDATA[$C$Kreisel]]></EXP>
+							<GROUP Id="RDK:18598297" Name="Group" SubType="Generic">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$FieldExist(FieldValue(systemgrenzen, str_item),"ObereGrenze")]]></EXP>
+								</VALUECONDITION>
+								<SET Id="RDK:18598311" VarRef="grenz_item">
+									<EXP><![CDATA[$=$FieldValue(FieldValue(systemgrenzen, str_item), "ObereGrenze")]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<SET Id="RDK:18598315" VarRef="SSG_Borders_data.Kreisel_top">
+									<EXP><![CDATA[$=$grenz_item]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:18598321" Name="Group" SubType="Generic">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$FieldExist(FieldValue(systemgrenzen, str_item),"UntereGrenze")]]></EXP>
+								</VALUECONDITION>
+								<SET Id="RDK:18598319" VarRef="grenz_item">
+									<EXP><![CDATA[$=$FieldValue(FieldValue(systemgrenzen, str_item), "UntereGrenze")]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<SET Id="RDK:18598320" VarRef="SSG_Borders_data.Kreisel_bot">
+									<EXP><![CDATA[$=$grenz_item]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</CASEGROUP>
+						<CASEGROUP Id="RDK:18598103" CaseType="1">
+							<EXP />
+						</CASEGROUP>
+					</SELECTCASE>
+				</FOREACHLOOP>
+			</FUNCTION>
 		</GROUP>
 	</GROUP>
 	<GROUP Id="RDK:0008" Name="Main Group" SubType="Generic" Expanded="True">
@@ -17295,6 +17546,18 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<PAR Name="Options" />
 				</ACTION_CALL>
 			</GROUP>
+			<GROUP Id="RDK:18530491" Name="Grenzen" SubType="Generic">
+				<CALLFUNCTION Id="RDK:18598218">
+					<PAR Name="FuncName">
+						<EXP><![CDATA[$C$InitSystemLimits]]></EXP>
+					</PAR>
+					<PAR Name="InputExp" />
+					<PAR Name="ResultRef">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</CALLFUNCTION>
+			</GROUP>
 		</GROUP>
 		<GROUP Id="RDK:93787" Name="Deafult Settings" SubType="Generic">
 			<GROUP Id="RDK:93790" Name="Kreisel" SubType="Generic">
@@ -17356,66 +17619,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						<EXP><![CDATA[$C$30]]></EXP>
 					</PAR>
 				</SET_STRUCT>
-				<SET_STRUCT Id="RDK:18530576" VarRef="border_top" ClearAll="True">
-					<PAR Name="Beschreibung" />
-					<PAR Name="AbstandMS">
-						<EXP><![CDATA[$C$40000]]></EXP>
-					</PAR>
-					<PAR Name="Hoehe" />
-					<PAR Name="OrientierungHV" />
-					<PAR Name="n_Sep" />
-					<PAR Name="n_Scan" />
-					<PAR Name="Drehung" />
-					<PAR Name="Typ" />
-					<PAR Name="n_Rampen" />
-					<PAR Name="Durchmesser" />
-					<PAR Name="M_Strecke" />
-					<PAR Name="M_Strecke_selected" />
-					<PAR Name="S_Strecke" />
-					<PAR Name="S_Strecke_selected" />
-					<PAR Name="d_min" />
-					<PAR Name="d_cp" />
-					<PAR Name="x" />
-					<PAR Name="y" />
-					<PAR Name="depth_M" />
-					<PAR Name="depth_S" />
-					<PAR Name="depth_Band" />
-					<PAR Name="depth_PinBand" />
-				</SET_STRUCT>
-				<SET_STRUCT Id="RDK:18530578" VarRef="border_bot" ClearAll="True">
-					<PAR Name="Beschreibung" />
-					<PAR Name="AbstandMS">
-						<EXP><![CDATA[$C$2500]]></EXP>
-					</PAR>
-					<PAR Name="Hoehe" />
-					<PAR Name="OrientierungHV" />
-					<PAR Name="n_Sep" />
-					<PAR Name="n_Scan" />
-					<PAR Name="Drehung" />
-					<PAR Name="Typ" />
-					<PAR Name="n_Rampen" />
-					<PAR Name="Durchmesser" />
-					<PAR Name="M_Strecke" />
-					<PAR Name="M_Strecke_selected" />
-					<PAR Name="S_Strecke" />
-					<PAR Name="S_Strecke_selected" />
-					<PAR Name="d_min" />
-					<PAR Name="d_cp" />
-					<PAR Name="x" />
-					<PAR Name="y" />
-					<PAR Name="depth_M" />
-					<PAR Name="depth_S" />
-					<PAR Name="depth_Band" />
-					<PAR Name="depth_PinBand" />
-				</SET_STRUCT>
-				<SET Id="RDK:18530581" VarRef="SSG_Borders_data.Kreisel_top">
-					<EXP><![CDATA[$=$border_top]]></EXP>
-					<PAR Name="AdvancedOptions" />
-				</SET>
-				<SET Id="RDK:18530583" VarRef="SSG_Borders_data.Kreisel_bot">
-					<EXP><![CDATA[$=$border_bot]]></EXP>
-					<PAR Name="AdvancedOptions" />
-				</SET>
 			</GROUP>
 			<GROUP Id="RDK:837484" Name="Gefaellestrecke" SubType="Generic">
 				<SET_STRUCT Id="RDK:837488" VarRef="GefaelleData_defaults" ClearAll="True">
@@ -17443,10 +17646,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
 				</SET_STRUCT>
 			</GROUP>
 			<GROUP Id="RDK:18118499" Name="Foerderer" SubType="Generic">
-				<GROUP Id="RDK:18530534" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
-					<VAR Id="RDK:18530535" Name="border_top" Type="FoerdererType" />
-					<VAR Id="RDK:18530537" Name="border_bot" Type="FoerdererType" />
-				</GROUP>
 				<SET_STRUCT Id="RDK:18118498" VarRef="FoerdererData_defaults" ClearAll="True">
 					<PAR Name="Beschreibung">
 						<EXP><![CDATA[$C$Förderer können nach oben oder unten wirken (Typ: Auf oder Ab)]]></EXP>
@@ -17485,64 +17684,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						<EXP><![CDATA[$C$10]]></EXP>
 					</PAR>
 				</SET_STRUCT>
-				<SET_STRUCT Id="RDK:18530501" VarRef="border_top" ClearAll="True">
-					<PAR Name="Beschreibung" />
-					<PAR Name="Typ" />
-					<PAR Name="L1" />
-					<PAR Name="L_s" />
-					<PAR Name="L_f" />
-					<PAR Name="winkel_f">
-						<EXP><![CDATA[$C$31]]></EXP>
-					</PAR>
-					<PAR Name="winkel_s">
-						<EXP><![CDATA[$C$5]]></EXP>
-					</PAR>
-					<PAR Name="HoeheOben" />
-					<PAR Name="HoeheUnten" />
-					<PAR Name="Delta_h">
-						<EXP><![CDATA[$C$10000]]></EXP>
-					</PAR>
-					<PAR Name="Delta_hs" />
-					<PAR Name="Delta_hf" />
-					<PAR Name="Delta_l_Anschlussstuecke" />
-					<PAR Name="Delta_h_Anschlussstuecke" />
-					<PAR Name="n_Sep" />
-					<PAR Name="n_Scan" />
-					<PAR Name="LH_fits" />
-				</SET_STRUCT>
-				<SET_STRUCT Id="RDK:18530541" VarRef="border_bot" ClearAll="True">
-					<PAR Name="Beschreibung" />
-					<PAR Name="Typ" />
-					<PAR Name="L1" />
-					<PAR Name="L_s" />
-					<PAR Name="L_f" />
-					<PAR Name="winkel_f">
-						<EXP><![CDATA[$C$29]]></EXP>
-					</PAR>
-					<PAR Name="winkel_s">
-						<EXP><![CDATA[$C$1]]></EXP>
-					</PAR>
-					<PAR Name="HoeheOben" />
-					<PAR Name="HoeheUnten" />
-					<PAR Name="Delta_h">
-						<EXP><![CDATA[$C$1500]]></EXP>
-					</PAR>
-					<PAR Name="Delta_hs" />
-					<PAR Name="Delta_hf" />
-					<PAR Name="Delta_l_Anschlussstuecke" />
-					<PAR Name="Delta_h_Anschlussstuecke" />
-					<PAR Name="n_Sep" />
-					<PAR Name="n_Scan" />
-					<PAR Name="LH_fits" />
-				</SET_STRUCT>
-				<SET Id="RDK:18530585" VarRef="SSG_Borders_data.Foerderer_top">
-					<EXP><![CDATA[$=$border_top]]></EXP>
-					<PAR Name="AdvancedOptions" />
-				</SET>
-				<SET Id="RDK:18530587" VarRef="SSG_Borders_data.Foerderer_bot">
-					<EXP><![CDATA[$=$border_bot]]></EXP>
-					<PAR Name="AdvancedOptions" />
-				</SET>
 			</GROUP>
 			<GROUP Id="RDK:1007716" Name="SSG_Shapes" SubType="Generic">
 				<SET_STRUCT Id="RDK:1007714" VarRef="Bogen90" ClearAll="True">
@@ -17618,7 +17759,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</PAR>
 				</SET_STRUCT>
 			</GROUP>
-			<GROUP Id="RDK:18530491" Name="Grenzen" SubType="Generic" />
 		</GROUP>
 		<GROUP Id="RDK:326" Name="UI" SubType="Generic">
 			<WHILELOOP Id="RDK:328">