From 9da6d4e7ae90f320620950a3bb2b9b050d90fbfc Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Tue, 8 Oct 2024 12:10:28 +0200
Subject: [PATCH] =?UTF-8?q?Abfrage=20der=20Systemgrenzen=20bei=20der=20Ein?=
 =?UTF-8?q?gabe=20von=20L=C3=A4nge=20und=20H=C3=B6hendifferenz=20bei=20der?=
 =?UTF-8?q?=20Gef=C3=A4llestrecke=20implementiert.=20Zur=C3=BCcksetzen=20d?=
 =?UTF-8?q?er=20falschen=20User=20Werte?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Editor2DLibrary/SSG/Init/systemgrenzen.json |   2 +-
 MAIN_SSG.rdx                                | 342 ++++++++++++++++----
 2 files changed, 287 insertions(+), 57 deletions(-)

diff --git a/Editor2DLibrary/SSG/Init/systemgrenzen.json b/Editor2DLibrary/SSG/Init/systemgrenzen.json
index 81549a6..5285ba4 100644
--- a/Editor2DLibrary/SSG/Init/systemgrenzen.json
+++ b/Editor2DLibrary/SSG/Init/systemgrenzen.json
@@ -11,7 +11,7 @@
         "Gefaellestrecke":{
             "ObereGrenze":{
                 "L1": 20000,
-                "winkel": 2
+                "winkel": 5
             },
             "UntereGrenze":{
                 "L1": 500,
diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 25fc01f..7ace9a9 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-08T09:47:52" LanguageVersion="2014.1.3.690" />
+	<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" />
 	<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" SubType="structure" HasArrayType="True">
+				<TYPE Id="RDK:313478" Name="SSGConnectionPoint" Expanded="True" 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" SubType="structure">
+				<TYPE Id="RDK:302581" Name="GefaelleType" Expanded="True" 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" SubType="structure">
+				<TYPE Id="RDK:18530545" Name="SSG_Limits" Expanded="True" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:18530548" Name="Kreisel_top" Type="KreiselType" />
 					<FIELD Id="RDK:18530546" Name="Kreisel_bot" Type="KreiselType" />
@@ -12586,6 +12586,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								<COMMENTS Id="RDK:21224908" DesignTimeRemark="Änderung der Höhen" DesignTimeTip="Wenn sich eine der Höhen ändert dann prüfe welche sich ändern darf, bzw. ob eine an einem Kreisel angebunden ist." />
 								<GROUP Id="RDK:21231332" Name="localVars" SubType="VarSet" IncludeDate="0">
 									<VAR Id="RDK:21231334" Name="isConnected" Type="boolean" DesignTimeRemark="ist an Kreisel angebunden oder nicht" />
+									<VAR Id="RDK:21382445" Name="bordersOk" Type="boolean" DesignTimeRemark="waren die Userangaben innerhalb der erlaubten Grenzen" />
 									<VAR Id="RDK:21231359" Name="UebergabeListe" Type="SSGParameter[]">
 										<SET_STRUCT Id="RDK:21231361" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 											<PAR Name="Key">
@@ -12613,7 +12614,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 										</SET_STRUCT>
 									</VAR>
 								</GROUP>
-								<CALLFUNCTION Id="RDK:21231154">
+								<CALLFUNCTION Id="RDK:21231154" DesignTimeRemark="checkt ob eine Gefällestrecke an einem Kreisel oder Eckrad hängt">
 									<PAR Name="FuncName">
 										<EXP><![CDATA[$C$isConnectedToFixHeight]]></EXP>
 									</PAR>
@@ -12629,60 +12630,165 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<VALUECONDITION Value="true">
 										<EXP><![CDATA[$=$isConnected]]></EXP>
 									</VALUECONDITION>
-									<VALUECONDITION Value="true">
-										<EXP><![CDATA[$=$FieldAffected="HoeheOben"]]></EXP>
-									</VALUECONDITION>
 									<GROUP Id="RDK:21231158" SubType="Then">
-										<COMMENTS Id="RDK:21240551" DesignTimeRemark="Setzte die Höhe wieder zurück auf die Höhe des Kreisels/Eckrads" DesignTimeTip="Wenn sich eine der Höhen ändert dann prüfe welche sich ändern darf, bzw. ob eine an einem Kreisel angebunden ist." />
-										<SET Id="RDK:21240547" VarRef="Shape_Prototype.GefaelleDefinition.HoeheOben">
-											<EXP><![CDATA[$=$ShapeList["id="+Shape_Prototype.id].GefaelleDefinition.HoeheOben]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-										<ACTION_CALL Id="RDK:21245443" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
-											<PAR Name="RDLibraryName">
-												<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
-											</PAR>
-											<PAR Name="MsgText">
-												<EXP><![CDATA[$C$Punkt ist mit Kreisel/Eckrad verbunden. Verändern Sie die Höhe durch die Änderung der Höhe von Kreisel oder Eckrad.]]></EXP>
-											</PAR>
-											<PAR Name="MsgStyle" />
-											<PAR Name="BtnLayout" />
-											<PAR Name="MsgCaption" />
-											<PAR Name="BaloonType" />
-											<PAR Name="BtnPressed">
-												<EXP><![CDATA[$V$]]></EXP>
-											</PAR>
-										</ACTION_CALL>
+										<IFTHENELSE Id="RDK:21336894">
+											<VALUECONDITION Value="true">
+												<EXP><![CDATA[$=$FieldAffected="HoeheOben"]]></EXP>
+											</VALUECONDITION>
+											<GROUP Id="RDK:21336895" SubType="Then">
+												<COMMENTS Id="RDK:21240551" DesignTimeRemark="Setzt die Höhe wieder zurück auf die Höhe des Kreisels/Eckrads" DesignTimeTip="Wenn sich eine der Höhen ändert dann prüfe welche sich ändern darf, bzw. ob eine an einem Kreisel angebunden ist." />
+												<SET Id="RDK:21240547" VarRef="Shape_Prototype.GefaelleDefinition.HoeheOben">
+													<EXP><![CDATA[$=$ShapeList["id="+Shape_Prototype.id].GefaelleDefinition.HoeheOben]]></EXP>
+													<PAR Name="AdvancedOptions" />
+												</SET>
+												<ACTION_CALL Id="RDK:21245443" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
+													<PAR Name="RDLibraryName">
+														<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+													</PAR>
+													<PAR Name="MsgText">
+														<EXP><![CDATA[$C$Punkt H1 ist mit Kreisel/Eckrad verbunden. Verändern Sie die Höhe durch die Änderung der Höhe von Kreisel oder Eckrad.]]></EXP>
+													</PAR>
+													<PAR Name="MsgStyle">
+														<EXP><![CDATA[$C$-1]]></EXP>
+													</PAR>
+													<PAR Name="BtnLayout">
+														<EXP><![CDATA[$C$-1]]></EXP>
+													</PAR>
+													<PAR Name="MsgCaption" />
+													<PAR Name="BaloonType" />
+													<PAR Name="BtnPressed">
+														<EXP><![CDATA[$V$]]></EXP>
+													</PAR>
+												</ACTION_CALL>
+											</GROUP>
+										</IFTHENELSE>
+										<IFTHENELSE Id="RDK:21240627">
+											<VALUECONDITION Value="true">
+												<EXP><![CDATA[$=$FieldAffected="HoeheUnten"]]></EXP>
+											</VALUECONDITION>
+											<GROUP Id="RDK:21240626" SubType="Then">
+												<COMMENTS Id="RDK:21240624" DesignTimeRemark="Setzte die Höhe wieder zurück auf die Höhe des Kreisels/Eckrads" DesignTimeTip="Wenn sich eine der Höhen ändert dann prüfe welche sich ändern darf, bzw. ob eine an einem Kreisel angebunden ist." />
+												<SET Id="RDK:21240625" VarRef="Shape_Prototype.GefaelleDefinition.HoeheUnten">
+													<EXP><![CDATA[$=$ShapeList["id="+Shape_Prototype.id].GefaelleDefinition.HoeheUnten]]></EXP>
+													<PAR Name="AdvancedOptions" />
+												</SET>
+												<ACTION_CALL Id="RDK:21245445" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
+													<PAR Name="RDLibraryName">
+														<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+													</PAR>
+													<PAR Name="MsgText">
+														<EXP><![CDATA[$C$Punkt H0 ist mit Kreisel/Eckrad verbunden. Verändern Sie die Höhe durch die Änderung der Höhe von Kreisel oder Eckrad.]]></EXP>
+													</PAR>
+													<PAR Name="MsgStyle">
+														<EXP><![CDATA[$C$-1]]></EXP>
+													</PAR>
+													<PAR Name="BtnLayout">
+														<EXP><![CDATA[$C$-1]]></EXP>
+													</PAR>
+													<PAR Name="MsgCaption" />
+													<PAR Name="BaloonType" />
+													<PAR Name="BtnPressed">
+														<EXP><![CDATA[$V$]]></EXP>
+													</PAR>
+												</ACTION_CALL>
+											</GROUP>
+										</IFTHENELSE>
 									</GROUP>
-								</IFTHENELSE>
-								<IFTHENELSE Id="RDK:21240627">
-									<VALUECONDITION Value="true">
-										<EXP><![CDATA[$=$isConnected]]></EXP>
-									</VALUECONDITION>
-									<VALUECONDITION Value="true">
-										<EXP><![CDATA[$=$FieldAffected="HoeheUnten"]]></EXP>
-									</VALUECONDITION>
-									<GROUP Id="RDK:21240626" SubType="Then">
-										<COMMENTS Id="RDK:21240624" DesignTimeRemark="Setzte die Höhe wieder zurück auf die Höhe des Kreisels/Eckrads" DesignTimeTip="Wenn sich eine der Höhen ändert dann prüfe welche sich ändern darf, bzw. ob eine an einem Kreisel angebunden ist." />
-										<SET Id="RDK:21240625" VarRef="Shape_Prototype.GefaelleDefinition.HoeheUnten">
-											<EXP><![CDATA[$=$ShapeList["id="+Shape_Prototype.id].GefaelleDefinition.HoeheUnten]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-										<ACTION_CALL Id="RDK:21245445" Name="RDEngineering_MsgBox" Suppressed="True" DesignTimeRemark="{Text}">
-											<PAR Name="RDLibraryName">
-												<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+									<GROUP Id="RDK:21336896" SubType="Else">
+										<CALLFUNCTION Id="RDK:21275747" DesignTimeRemark="Pürft ob die Angabe die Werte innerhalb der maximal zulässigen Grenzen belässt.">
+											<PAR Name="FuncName">
+												<EXP><![CDATA[$C$CalcGFAngle_Prototype]]></EXP>
 											</PAR>
-											<PAR Name="MsgText">
-												<EXP><![CDATA[$C$Punkt ist mit Kreisel/Eckrad verbunden. Verändern Sie die Höhe durch die Änderung der Höhe von Kreisel oder Eckrad.]]></EXP>
+											<PAR Name="InputExp">
+												<EXP><![CDATA[$=$]]></EXP>
 											</PAR>
-											<PAR Name="MsgStyle" />
-											<PAR Name="BtnLayout" />
-											<PAR Name="MsgCaption" />
-											<PAR Name="BaloonType" />
-											<PAR Name="BtnPressed">
-												<EXP><![CDATA[$V$]]></EXP>
+											<PAR Name="ResultRef">
+												<EXP><![CDATA[$V$bordersOk]]></EXP>
 											</PAR>
-										</ACTION_CALL>
+											<PAR Name="Options" />
+										</CALLFUNCTION>
+										<IFTHENELSE Id="RDK:21382460">
+											<VALUECONDITION Value="false">
+												<EXP><![CDATA[$=$bordersOk]]></EXP>
+											</VALUECONDITION>
+											<GROUP Id="RDK:21382461" SubType="Then">
+												<COMMENTS Id="RDK:21382482" DesignTimeRemark="Setzte die Höhe wieder zurück wenn die Angaben ausserhalb des erlaubten Bereichs liegen" />
+												<IFTHENELSE Id="RDK:21382486">
+													<VALUECONDITION Value="true">
+														<EXP><![CDATA[$=$FieldAffected="HoeheOben"]]></EXP>
+													</VALUECONDITION>
+													<GROUP Id="RDK:21382485" SubType="Then">
+														<ACTION_CALL Id="RDK:21382498" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
+															<PAR Name="RDLibraryName">
+																<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+															</PAR>
+															<PAR Name="MsgText">
+																<EXP><![CDATA[$C$Winkel  überschreitet die zulässigen Grenzen]]></EXP>
+															</PAR>
+															<PAR Name="MsgStyle">
+																<EXP><![CDATA[$C$-1]]></EXP>
+															</PAR>
+															<PAR Name="BtnLayout">
+																<EXP><![CDATA[$C$-1]]></EXP>
+															</PAR>
+															<PAR Name="MsgCaption" />
+															<PAR Name="BaloonType" />
+															<PAR Name="BtnPressed">
+																<EXP><![CDATA[$V$]]></EXP>
+															</PAR>
+														</ACTION_CALL>
+														<SET Id="RDK:21382483" VarRef="Shape_Prototype.GefaelleDefinition.HoeheOben">
+															<EXP><![CDATA[$=$ShapeList["id="+Shape_Prototype.id].GefaelleDefinition.HoeheOben]]></EXP>
+															<PAR Name="AdvancedOptions" />
+														</SET>
+													</GROUP>
+												</IFTHENELSE>
+												<IFTHENELSE Id="RDK:21382514">
+													<VALUECONDITION Value="true">
+														<EXP><![CDATA[$=$FieldAffected="HoeheUnten"]]></EXP>
+													</VALUECONDITION>
+													<GROUP Id="RDK:21382513" SubType="Then">
+														<ACTION_CALL Id="RDK:21382511" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
+															<PAR Name="RDLibraryName">
+																<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+															</PAR>
+															<PAR Name="MsgText">
+																<EXP><![CDATA[$C$Winkel  überschreitet die zulässigen Grenzen]]></EXP>
+															</PAR>
+															<PAR Name="MsgStyle">
+																<EXP><![CDATA[$C$-1]]></EXP>
+															</PAR>
+															<PAR Name="BtnLayout">
+																<EXP><![CDATA[$C$-1]]></EXP>
+															</PAR>
+															<PAR Name="MsgCaption" />
+															<PAR Name="BaloonType" />
+															<PAR Name="BtnPressed">
+																<EXP><![CDATA[$V$]]></EXP>
+															</PAR>
+														</ACTION_CALL>
+														<SET Id="RDK:21382512" VarRef="Shape_Prototype.GefaelleDefinition.HoeheUnten">
+															<EXP><![CDATA[$=$ShapeList["id="+Shape_Prototype.id].GefaelleDefinition.HoeheUnten]]></EXP>
+															<PAR Name="AdvancedOptions" />
+														</SET>
+													</GROUP>
+												</IFTHENELSE>
+											</GROUP>
+											<GROUP Id="RDK:21387325" SubType="Else">
+												<CALLFUNCTION Id="RDK:21387327">
+													<PAR Name="FuncName">
+														<EXP><![CDATA[$C$CalcGFTheoretischeLänge_Prototype]]></EXP>
+													</PAR>
+													<PAR Name="InputExp">
+														<EXP><![CDATA[$=$]]></EXP>
+													</PAR>
+													<PAR Name="ResultRef">
+														<EXP><![CDATA[$V$]]></EXP>
+													</PAR>
+													<PAR Name="Options" />
+												</CALLFUNCTION>
+											</GROUP>
+										</IFTHENELSE>
 									</GROUP>
 								</IFTHENELSE>
 								<CALLFUNCTION Id="RDK:21224909">
@@ -19841,7 +19947,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								<VALUECONDITION Value="true">
 									<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
 								</VALUECONDITION>
-								<VALUECONDITION Value="true" Oper="OR">
+								<VALUECONDITION Value="true">
 									<EXP><![CDATA[$=$FieldAffected="HoeheOben"]]></EXP>
 								</VALUECONDITION>
 								<GROUP Id="RDK:21236949" SubType="Then">
@@ -19944,7 +20050,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						</SET>
 					</VAR>
 				</GROUP>
-				<IFTHENELSE Id="RDK:21231242">
+				<IFTHENELSE Id="RDK:21231242" Suppressed="True">
 					<VALUECONDITION Value="false">
 						<EXP><![CDATA[$=$Count(shape_item.links)= 1]]></EXP>
 					</VALUECONDITION>
@@ -20248,6 +20354,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<VAR Id="RDK:18547160" Name="H_th" Type="double" />
 					<VAR Id="RDK:19881505" Name="winkel_th" Type="double" />
 				</GROUP>
+				<COMMENTS Id="RDK:21302492" DesignTimeRemark="Es werden aus gegebenem Winkel und Höhendifferenz am Shape Prototype die theoretische Länge, th. Winkel und th. Höhendifferenz bestimmt" />
 				<IFTHENELSE Id="RDK:18376614">
 					<VALUECONDITION Value="true" Oper="OR">
 						<EXP><![CDATA[$=$IsEmpty(Shape_Prototype.GefaelleDefinition.HoeheOben)]]></EXP>
@@ -20357,6 +20464,100 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</GROUP>
 				</IFTHENELSE>
 			</FUNCTION>
+			<FUNCTION Id="RDK:21328601" Name="CalcGFAngle_Prototype" DesignTimeRemark="Wenn eine der Seiten fix angebunden ist, berechnet man hier den neuen Winkel aufgrund der Höhenangabe" InputTypeName="string">
+				<GROUP Id="RDK:21328572" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:21328569" Name="Laenge" Type="double" />
+					<VAR Id="RDK:21328571" Name="winkel" Type="double" />
+				</GROUP>
+				<COMMENTS Id="RDK:21328573" DesignTimeRemark="Es werden aus gegebener Höhendifferenz und feststehender Länge am Shape Prototype der echte Winkel bestimmt" />
+				<SET Id="RDK:21382429" VarRef="Param.Result">
+					<EXP><![CDATA[$=$True]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<IFTHENELSE Id="RDK:21328600">
+					<VALUECONDITION Value="true" Oper="OR">
+						<EXP><![CDATA[$=$IsEmpty(Shape_Prototype.GefaelleDefinition.HoeheOben)]]></EXP>
+					</VALUECONDITION>
+					<VALUECONDITION Value="true" Oper="OR">
+						<EXP><![CDATA[$=$IsEmpty(Shape_Prototype.GefaelleDefinition.HoeheUnten)]]></EXP>
+					</VALUECONDITION>
+					<VALUECONDITION Value="true" Oper="OR">
+						<EXP><![CDATA[$=$Abs(Shape_Prototype.GefaelleDefinition.winkel) < 0.0001]]></EXP>
+					</VALUECONDITION>
+					<VALUECONDITION Value="false" Oper="OR">
+						<EXP><![CDATA[$=$Shape_Prototype.family = "Gefaellestrecke"]]></EXP>
+					</VALUECONDITION>
+					<VALUECONDITION Value="true">
+						<EXP><![CDATA[$=$Shape_Prototype.GefaelleDefinition.L1 < 0.0001]]></EXP>
+					</VALUECONDITION>
+					<GROUP Id="RDK:21328575" SubType="Then">
+						<EXIT_PROCESS Id="RDK:21328574" BreakType="4" ExitStatus="0" />
+					</GROUP>
+					<GROUP Id="RDK:21328599" SubType="Else">
+						<IFTHENELSE Id="RDK:21328596">
+							<VALUECONDITION Value="false">
+								<EXP><![CDATA[$=$Shape_Prototype.GefaelleDefinition.FesteL1]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:21328592" SubType="Then">
+								<COMMENTS Id="RDK:21351345" DesignTimeRemark="Länge darf geändert werden, Winkel bleibt" />
+								<SET Id="RDK:21328635" VarRef="Laenge">
+									<EXP><![CDATA[$=$Abs(Round((Shape_Prototype.GefaelleDefinition.HoeheOben-Shape_Prototype.GefaelleDefinition.HoeheUnten)/Tan(DegToRad(Shape_Prototype.GefaelleDefinition.winkel)),0))]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<IFTHENELSE Id="RDK:21370659">
+									<VALUECONDITION Value="true" Oper="OR">
+										<EXP><![CDATA[$=$Laenge>SSG_Limits_data.Gefaelle_top.L1]]></EXP>
+									</VALUECONDITION>
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$Laenge<SSG_Limits_data.Gefaelle_bot.L1]]></EXP>
+									</VALUECONDITION>
+									<GROUP Id="RDK:21370658" SubType="Then">
+										<SET Id="RDK:21382437" VarRef="Param.Result">
+											<EXP><![CDATA[$=$False]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+										<EXIT_PROCESS Id="RDK:21382441" BreakType="4" ExitStatus="0" />
+									</GROUP>
+									<GROUP Id="RDK:21376910" SubType="Else">
+										<SET Id="RDK:21328637" VarRef="Shape_Prototype.GefaelleDefinition.L1">
+											<EXP><![CDATA[$=$Laenge]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+									</GROUP>
+								</IFTHENELSE>
+							</GROUP>
+							<GROUP Id="RDK:21328595" SubType="Else">
+								<COMMENTS Id="RDK:21328621" DesignTimeRemark="soll die Länge fix bleiben, wird der Winkel der Gefällestrecke geändert" />
+								<SET Id="RDK:21328578" VarRef="winkel">
+									<EXP><![CDATA[$=$Round(RadToDeg(Abs(Shape_Prototype.GefaelleDefinition.HoeheOben-Shape_Prototype.GefaelleDefinition.HoeheUnten)/Shape_Prototype.GefaelleDefinition.L1),1)]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<IFTHENELSE Id="RDK:21376926">
+									<VALUECONDITION Value="true" Oper="OR">
+										<EXP><![CDATA[$=$Laenge>SSG_Limits_data.Gefaelle_top.winkel]]></EXP>
+									</VALUECONDITION>
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$Laenge<SSG_Limits_data.Gefaelle_bot.winkel]]></EXP>
+									</VALUECONDITION>
+									<GROUP Id="RDK:21376923" SubType="Then">
+										<SET Id="RDK:21382439" VarRef="Param.Result">
+											<EXP><![CDATA[$=$False]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+										<EXIT_PROCESS Id="RDK:21382443" BreakType="4" ExitStatus="0" />
+									</GROUP>
+									<GROUP Id="RDK:21376925" SubType="Else">
+										<SET Id="RDK:21328577" VarRef="Shape_Prototype.GefaelleDefinition.winkel">
+											<EXP><![CDATA[$=$winkel]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+									</GROUP>
+								</IFTHENELSE>
+							</GROUP>
+						</IFTHENELSE>
+					</GROUP>
+				</IFTHENELSE>
+			</FUNCTION>
 			<FUNCTION Id="RDK:19710790" Name="GetCpsOfConnectedShapes" InputTypeName="SSGParameter[]" ResultTypeName="string[]">
 				<GROUP Id="RDK:19710792" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:19710794" Name="cps_verbunden" Type="string[]" />
@@ -22755,6 +22956,35 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</GROUP>
 							</IFTHENELSE>
 						</CASEGROUP>
+						<CASEGROUP Id="RDK:21370624" CaseType="0">
+							<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
+							<GROUP Id="RDK:21370610" Name="Group" SubType="Generic">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$FieldExist(FieldValue(systemgrenzen, str_item),"ObereGrenze")]]></EXP>
+								</VALUECONDITION>
+								<SET Id="RDK:21370608" VarRef="grenz_item">
+									<EXP><![CDATA[$=$FieldValue(FieldValue(systemgrenzen, str_item), "ObereGrenze")]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<SET Id="RDK:21370609" VarRef="SSG_Limits_data.Gefaelle_top">
+									<EXP><![CDATA[$=$grenz_item]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:21370613" Name="Group" SubType="Generic">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$FieldExist(FieldValue(systemgrenzen, str_item), "UntereGrenze")]]></EXP>
+								</VALUECONDITION>
+								<SET Id="RDK:21370611" VarRef="grenz_item">
+									<EXP><![CDATA[$=$FieldValue(FieldValue(systemgrenzen, str_item), "UntereGrenze")]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<SET Id="RDK:21370612" VarRef="SSG_Limits_data.Gefaelle_bot">
+									<EXP><![CDATA[$=$grenz_item]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</CASEGROUP>
 						<CASEGROUP Id="RDK:18598122" CaseType="0">
 							<EXP><![CDATA[$C$Kreisel]]></EXP>
 							<GROUP Id="RDK:18598297" Name="Group" SubType="Generic">