From f5dfec92763e44431f7c3f6f2331d480c2915ec9 Mon Sep 17 00:00:00 2001
From: Yuelin Wang <y.wang@schoenenberger.de>
Date: Wed, 28 Jan 2026 14:38:46 +0100
Subject: [PATCH] =?UTF-8?q?Die=20Funktionen=20f=C3=BCr=20Calculate=20Kette?=
 =?UTF-8?q?nFoerderer=20wurden=20eingebaut=20und=20angepasst?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../SSG/shapes/svg/s_KettenFoerderer.xml      |    2 +-
 MAIN_SSG.rdx                                  | 1301 +++++++++++++----
 2 files changed, 1023 insertions(+), 280 deletions(-)

diff --git a/Editor2DLibrary/SSG/shapes/svg/s_KettenFoerderer.xml b/Editor2DLibrary/SSG/shapes/svg/s_KettenFoerderer.xml
index cc7f729..932ed45 100644
--- a/Editor2DLibrary/SSG/shapes/svg/s_KettenFoerderer.xml
+++ b/Editor2DLibrary/SSG/shapes/svg/s_KettenFoerderer.xml
@@ -2,7 +2,7 @@
 <svg xmlns="http://www.w3.org/2000/svg">
   <g transform="rotate(0)">
     <svg viewBox="0 0 264.58 264.58" preserveAspectRatio="none" position="absolute" overflow="visible">
-      <path d="m132.29-2.5e-6v264.58" fill="none" stroke="#ffe31b" stroke-opacity="1" stroke-width="1px" />
+      <path d="m132.29-2.5e-6v264.58" fill="none" stroke="#1bff38" stroke-opacity="1" stroke-width="1px" />
     </svg>
   </g>
 </svg>
\ No newline at end of file
diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 7e40077..41e8fc6 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="y.wang [ANGEBOT-NB02]" ModDate="2026-01-26T08:58:29" LanguageVersion="2014.1.3.712" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="y.wang [ANGEBOT-NB02]" ModDate="2026-01-28T13:37:42" LanguageVersion="2014.1.3.712" />
 	<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">
@@ -136,18 +136,19 @@
 					<FIELD Id="RDK:22007213" Name="KurvenRichtung" Type="string" DesignTimeRemark="rechts oder links, je nach Wahl des Nutzers" />
 					<FIELD Id="RDK:21700896" Name="isOk" Type="boolean" DesignTimeRemark="True beide Punkte angebunden sind und die Höhen der Nachbarn passen" />
 				</TYPE>
-				<TYPE Id="RDK:26502276" Name="KettenFoerdererType" SubType="structure">
+				<TYPE Id="RDK:26502276" Name="KettenFoerdererType" Expanded="True" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:26502268" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:26502269" Name="L1" Type="double" />
 					<FIELD Id="RDK:26502270" Name="H_Oben" Type="double" />
 					<FIELD Id="RDK:26502271" Name="H_Unten" Type="double" />
-					<FIELD Id="RDK:26846159" Name="Höhe" Type="double" />
+					<FIELD Id="RDK:26846159" Name="Hoehe" Type="double" />
 					<FIELD Id="RDK:26847240" Name="FesteH1" Type="boolean" />
 					<FIELD Id="RDK:26847242" Name="FesteH0" Type="boolean" />
 					<FIELD Id="RDK:26502273" Name="Winkel" Type="double" DesignTimeRemark="Default ist 26°, sonderlösung 30°" />
 					<FIELD Id="RDK:26502274" Name="Richtung" Type="string" DesignTimeRemark="Auf und Ab" />
 					<FIELD Id="RDK:26502275" Name="isOk" Type="boolean" DesignTimeRemark="True beide Punkte angebunden sind und die Höhen der Nachbarn passen" />
+					<FIELD Id="RDK:26935097" Name="LH_fits" Type="boolean" DesignTimeRemark="True wenn Länge L1 und L_toleranz zueinander passen und damit zur Höhendifferenz" />
 				</TYPE>
 				<TYPE Id="RDK:18116690" Name="FoerdererType" Suppressed="True" SubType="structure">
 					<TYPE_VALUES />
@@ -1031,9 +1032,9 @@
 					<FIELD Id="RDK:22305686" Name="Höhe Ende" Type="string" />
 					<FIELD Id="RDK:25719738" Name="Drehung" Type="double" />
 				</TYPE>
-				<TYPE Id="RDK:26514233" Name="KettenFoerdererMerkmaleType" SubType="structure">
+				<TYPE Id="RDK:26514233" Name="KettenFoerdererMerkmaleType" Expanded="True" SubType="structure">
 					<TYPE_VALUES />
-					<FIELD Id="RDK:26514226" Name="Länge in Meter" Type="string" />
+					<FIELD Id="RDK:26514226" Name="Höhe" Type="string" />
 					<FIELD Id="RDK:26514230" Name="Höhe Anfang" Type="string" />
 					<FIELD Id="RDK:26514231" Name="Höhe Ende" Type="string" />
 					<FIELD Id="RDK:26514235" Name="KurvenWinkel" Type="double" DesignTimeRemark="default 26°, sonderlösung 30°" />
@@ -1155,7 +1156,7 @@
 					<FIELD Id="RDK:22028895" Name="Anzahl der Scanner" Type="integer" />
 					<FIELD Id="RDK:22305675" Name="Höhe in m" Type="double" />
 				</TYPE>
-				<TYPE Id="RDK:22028922" Name="GefälleStreckeMerkmaleType" SubType="structure" HasArrayType="True">
+				<TYPE Id="RDK:22028922" Name="GefälleStreckeMerkmaleType" Expanded="True" SubType="structure" HasArrayType="True">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:22028911" Name="AnzahlGeraden" Type="integer" />
 					<FIELD Id="RDK:22028912" Name="Länge in Meter" Type="double[]" />
@@ -1479,6 +1480,8 @@
 			<VAR Id="RDK:23747696" Name="TEFBogenData" Type="TEFBogenType[]" DesignTimeRemark="Liste aller TEF Bögen" />
 			<VAR Id="RDK:26514277" Name="KurvenWinkel" Type="string" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:26515397" Name="cpId" Type="string" DesignTimeRemark="Generated by RD" />
+			<VAR Id="RDK:26935461" Name="H_th" Type="double" DesignTimeRemark="Generated by RD" />
+			<VAR Id="RDK:26971815" Name="item_1" Type="string" DesignTimeRemark="Generated by RD" />
 		</GROUP>
 		<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
 			<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -7442,6 +7445,175 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 									</SET_STRUCT>
 								</GROUP>
 							</CASEGROUP>
+							<CASEGROUP Id="RDK:26934031" CaseType="0">
+								<EXP><![CDATA[$C$KettenFoerderer]]></EXP>
+								<GROUP Id="RDK:26934023" Name="KettenFoerderer  in der Library anlegen" SubType="Generic">
+									<SET Id="RDK:26934021" VarRef="Property_Prototype.eventClass">
+										<EXP><![CDATA[$C$OnDoubleclick,OnInserted,OnLinked,OnPasted]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<ACTION_CALL Id="RDK:26934022" Name="RDEngineering_E2DManageShape">
+										<PAR Name="RDLibraryName">
+											<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+										</PAR>
+										<PAR Name="e2dMode">
+											<EXP><![CDATA[$C$0]]></EXP>
+										</PAR>
+										<PAR Name="libraryID">
+											<EXP><![CDATA[$=$GS2DLibraryName]]></EXP>
+										</PAR>
+										<PAR Name="operType">
+											<EXP><![CDATA[$C$2]]></EXP>
+										</PAR>
+										<PAR Name="shpId">
+											<EXP><![CDATA[$=$Property_Prototype.id]]></EXP>
+										</PAR>
+										<PAR Name="catId">
+											<EXP><![CDATA[$C$c_Session]]></EXP>
+										</PAR>
+										<PAR Name="shpItemId" />
+										<PAR Name="shpItem">
+											<EXP><![CDATA[$=$Property_Prototype]]></EXP>
+										</PAR>
+										<PAR Name="shpItemList">
+											<EXP><![CDATA[$V$]]></EXP>
+										</PAR>
+										<PAR Name="shpList">
+											<EXP><![CDATA[$V$]]></EXP>
+										</PAR>
+										<PAR Name="outShapeIdList">
+											<EXP><![CDATA[$V$]]></EXP>
+										</PAR>
+										<PAR Name="Options">
+											<EXP><![CDATA[$C$(OVERWRITE)]]></EXP>
+										</PAR>
+									</ACTION_CALL>
+								</GROUP>
+								<GROUP Id="RDK:26934030" Name="KettenFoerderer platzieren" SubType="Generic">
+									<COMMENTS Id="RDK:26934024" DesignTimeRemark="pixel in mm" />
+									<COMMENTS Id="RDK:26934025" DesignTimeRemark="Shape in ShapeList wird gedreht" />
+									<ACTION_CALL Id="RDK:26934026" Name="RDEngineering_E2DManageShape">
+										<PAR Name="RDLibraryName">
+											<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+										</PAR>
+										<PAR Name="e2dMode">
+											<EXP><![CDATA[$C$0]]></EXP>
+										</PAR>
+										<PAR Name="libraryID">
+											<EXP><![CDATA[$=$GS2DLibraryName]]></EXP>
+										</PAR>
+										<PAR Name="operType">
+											<EXP><![CDATA[$C$0]]></EXP>
+										</PAR>
+										<PAR Name="shpId">
+											<EXP><![CDATA[$=$ID]]></EXP>
+										</PAR>
+										<PAR Name="catId">
+											<EXP><![CDATA[$C$c_Session]]></EXP>
+										</PAR>
+										<PAR Name="shpItemId" />
+										<PAR Name="shpItem">
+											<EXP><![CDATA[$=$Shape_Prototype]]></EXP>
+										</PAR>
+										<PAR Name="shpItemList">
+											<EXP><![CDATA[$V$]]></EXP>
+										</PAR>
+										<PAR Name="shpList">
+											<EXP><![CDATA[$V$]]></EXP>
+										</PAR>
+										<PAR Name="outShapeIdList">
+											<EXP><![CDATA[$V$]]></EXP>
+										</PAR>
+										<PAR Name="Options" />
+									</ACTION_CALL>
+									<COMMENTS Id="RDK:26934027" Bookmarked="True" DesignTimeRemark="Inherit Rotation" />
+									<SET_STRUCT Id="RDK:26934029" VarRef="Shape_Prototype" ListRef="ShapeList" Options="$=$&quot;(REPLACEIDX=&quot;+i+&quot;)&quot;" Bookmarked="True" DesignTimeNotes="Shape.depth*Inch/DPI&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;Shape_Prototype.KreiselDefinition.OrientierungHV&#xD;&#xA;IIF(Shape_Prototype.KreiselDefinition.OrientierungHV&lt;&gt;Shape_Prototype.rotation,Shape_Prototype.rotation,Shape_Prototype.KreiselDefinition.OrientierungHV)&#xD;&#xA;&#xD;&#xA;depth&#xD;&#xA;">
+										<PAR Name="SivasNummer" />
+										<PAR Name="Rotationsklasse" />
+										<PAR Name="IDCounter" />
+										<PAR Name="KreiselDefinition" />
+										<PAR Name="EckradDefinition" />
+										<PAR Name="GefaelleDefinition" />
+										<PAR Name="VarioFoerdererDefinition" />
+										<PAR Name="KurveDefinition" />
+										<PAR Name="TEFBogenDefinition" />
+										<PAR Name="TEFGeradeDefinition" />
+										<PAR Name="TEFUmlenkDefinition" />
+										<PAR Name="KurveFoerdererDefinition" />
+										<PAR Name="KettenFoerdererDefinition">
+											<EXP><![CDATA[$=$Shape_Prototype.KettenFoerdererDefinition]]></EXP>
+										</PAR>
+										<PAR Name="OFGeradeDefinition" />
+										<PAR Name="OFBogenDefinition" />
+										<PAR Name="OFWeicheDefinition" />
+										<PAR Name="WeicheDefinition" />
+										<PAR Name="BTMTBeladungDefinition" />
+										<PAR Name="BTMTEntladungDefinition" />
+										<PAR Name="isDefined" />
+										<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">
+											<EXP><![CDATA[$=$ConvertFromPixel(Shape_Prototype.width, "mm", 96)]]></EXP>
+										</PAR>
+										<PAR Name="height">
+											<EXP><![CDATA[$=$ConvertFromPixel(Shape_Prototype.height, "mm", 96)]]></EXP>
+										</PAR>
+										<PAR Name="depth">
+											<EXP><![CDATA[$=$ConvertFromPixel(Shape_Prototype.depth, "mm", 96)]]></EXP>
+										</PAR>
+										<PAR Name="rotation">
+											<EXP><![CDATA[$=$Shape_Prototype.rotation]]></EXP>
+										</PAR>
+										<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>
+							</CASEGROUP>
 							<CASEGROUP Id="RDK:23221939" CaseType="0">
 								<EXP><![CDATA[$C$OFWeiche]]></EXP>
 								<GROUP Id="RDK:23221932" Name="Weiche  in der Library anlegen" SubType="Generic">
@@ -8172,7 +8344,6 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 										<PAR Name="KreiselDefinition" />
 										<PAR Name="EckradDefinition" />
 										<PAR Name="GefaelleDefinition" />
-										<PAR Name="FoerdererDefinition" />
 										<PAR Name="VarioFoerdererDefinition" />
 										<PAR Name="KurveDefinition" />
 										<PAR Name="TEFBogenDefinition" />
@@ -8181,6 +8352,7 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 											<EXP><![CDATA[$=$Shape_Prototype.TEFUmlenkDefinition]]></EXP>
 										</PAR>
 										<PAR Name="KurveFoerdererDefinition" />
+										<PAR Name="KettenFoerdererDefinition" />
 										<PAR Name="OFGeradeDefinition" />
 										<PAR Name="OFBogenDefinition" />
 										<PAR Name="OFWeicheDefinition" />
@@ -14490,47 +14662,7 @@ SSGConnectionPoint.x_M
 						</IFTHENELSE>
 					</FUNCTION>
 				</GROUP>
-				<FUNCTION Id="RDK:26847545" Name="Calculate KettenFoerderer" InputTypeName="string">
-					<COMMENTS Id="RDK:26847396" DesignTimeRemark="Wenn die theoretische Länge L_f und die Länge des Shapes L1 übereinstimmen, dann wird der Gefaelle als &quot;in Ordnung&quot; betrachtet" />
-					<IFTHENELSE Id="RDK:26847399">
-						<VALUECONDITION Value="true">
-							<EXP><![CDATA[$=$IsEmpty(Param.Input)]]></EXP>
-						</VALUECONDITION>
-						<GROUP Id="RDK:26847398" SubType="Then">
-							<EXIT_PROCESS Id="RDK:26847397" BreakType="4" ExitStatus="0" />
-						</GROUP>
-					</IFTHENELSE>
-					<COMMENTS Id="RDK:26847400" DesignTimeRemark="Param.Input" />
-					<GROUP Id="RDK:26847402" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
-						<VAR Id="RDK:26847401" Name="shape_item" Type="Editor2DShapeType" />
-					</GROUP>
-					<SET Id="RDK:26847403" VarRef="shape_item">
-						<EXP><![CDATA[$=$ShapeList["id="+Param.Input]]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<IFTHENELSE Id="RDK:26847409">
-						<VALUECONDITION Value="true" Oper="OR">
-							<EXP><![CDATA[$=$IsEmpty(shape_item.KettenFoerdererDefinition.HoeheOben)]]></EXP>
-						</VALUECONDITION>
-						<VALUECONDITION Value="true">
-							<EXP><![CDATA[$=$IsEmpty(shape_item.KettenFoerdererDefinition.HoeheUnten)]]></EXP>
-						</VALUECONDITION>
-						<GROUP Id="RDK:26847408" SubType="Then">
-							<SET Id="RDK:26847404" VarRef="shape_item.KettenFoerdererDefinition.LH_fits">
-								<EXP><![CDATA[$=$False]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<SET Id="RDK:26847405" VarRef="shape_item.text">
-								<EXP><![CDATA[$C$O]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<SET Id="RDK:26847406" VarRef="Param.Result">
-								<EXP><![CDATA[$C$False]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<EXIT_PROCESS Id="RDK:26847407" BreakType="4" ExitStatus="0" />
-						</GROUP>
-					</IFTHENELSE>
+				<FUNCTION Id="RDK:26847545" Name="Calculate KettenFoerderer_Prototype" InputTypeName="string">
 					<GROUP Id="RDK:26847423" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
 						<VAR Id="RDK:26847410" Name="HoeheOben" Type="double" />
 						<VAR Id="RDK:26847411" Name="HoeheUnten" Type="double" />
@@ -14548,7 +14680,7 @@ SSGConnectionPoint.x_M
 					</GROUP>
 					<IFTHENELSE Id="RDK:26847448">
 						<VALUECONDITION Value="true">
-							<EXP><![CDATA[$=$HoeheOben=HoeheUnten]]></EXP>
+							<EXP><![CDATA[$=$Shape_Prototype.KettenFoerdererDefinition.H_Oben=Shape_Prototype.KettenFoerdererDefinition.H_Unten]]></EXP>
 						</VALUECONDITION>
 						<GROUP Id="RDK:26847447" SubType="Then">
 							<ACTION_CALL Id="RDK:26847446" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
@@ -14573,141 +14705,281 @@ SSGConnectionPoint.x_M
 						</GROUP>
 					</IFTHENELSE>
 					<SET Id="RDK:26847449" VarRef="HoeheUnten">
-						<EXP><![CDATA[$=$shape_item.KettenFoerderer.HoeheUnten]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET Id="RDK:26847430" VarRef="FesteH0">
-						<EXP><![CDATA[$=$shape_item.KettenFoerdererDefinition.FesteH0]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET Id="RDK:26847431" VarRef="FesteH1">
-						<EXP><![CDATA[$=$shape_item.KettenFoerdererDefinition.FesteH1]]></EXP>
+						<EXP><![CDATA[$=$Shape_Prototype.KettenFoerdererDefinition.H_Unten]]></EXP>
 						<PAR Name="AdvancedOptions" />
 					</SET>
 					<SET Id="RDK:26847450" VarRef="HoeheOben">
-						<EXP><![CDATA[$=$shape_item.KettenFoerderer.HoeheOben]]></EXP>
+						<EXP><![CDATA[$=$Shape_Prototype.KettenFoerdererDefinition.H_Oben]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<SET Id="RDK:26935444" VarRef="Hoehe">
+						<EXP><![CDATA[$=$Shape_Prototype.KettenFoerdererDefinition.Hoehe]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<SET Id="RDK:26847430" VarRef="FesteH0">
+						<EXP><![CDATA[$=$Shape_Prototype.KettenFoerdererDefinition.FesteH0]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<SET Id="RDK:26847431" VarRef="FesteH1">
+						<EXP><![CDATA[$=$Shape_Prototype.KettenFoerdererDefinition.FesteH1]]></EXP>
 						<PAR Name="AdvancedOptions" />
 					</SET>
 					<SET Id="RDK:26847451" VarRef="L1">
-						<EXP><![CDATA[$=$shape_item.KettenFoerderer.L1]]></EXP>
+						<EXP><![CDATA[$=$Shape_Prototype.KettenFoerdererDefinition.L1]]></EXP>
 						<PAR Name="AdvancedOptions" />
 					</SET>
 					<SET Id="RDK:26847452" VarRef="winkel">
-						<EXP><![CDATA[$=$shape_item.KettenFoerderer.winkel]]></EXP>
+						<EXP><![CDATA[$=$Shape_Prototype.KettenFoerdererDefinition.Winkel]]></EXP>
 						<PAR Name="AdvancedOptions" />
 					</SET>
-					<IFTHENELSE Id="RDK:26847544">
+					<IFTHENELSE Id="RDK:26935364">
 						<VALUECONDITION Value="true" Oper="OR">
 							<EXP><![CDATA[$=$Abs(winkel) < 0.0001]]></EXP>
 						</VALUECONDITION>
-						<GROUP Id="RDK:26847461" SubType="Then">
-							<SET Id="RDK:26847458" VarRef="shape_item.GefaelleDefinition.LH_fits">
-								<EXP><![CDATA[$=$False]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<SET Id="RDK:26847459" VarRef="shape_item.text">
-								<EXP><![CDATA[$C$O]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<SET Id="RDK:26847460" VarRef="Param.Result">
-								<EXP><![CDATA[$C$False]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
+						<VALUECONDITION Value="true">
+							<EXP><![CDATA[$=$ABS(L1) < 0.0001]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:26935234" SubType="Then">
+							<EXIT_PROCESS Id="RDK:26935233" BreakType="4" ExitStatus="0" />
 						</GROUP>
-						<GROUP Id="RDK:26847543" SubType="Else">
-							<GROUP Id="RDK:26847469" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
-								<VAR Id="RDK:26847462" Name="H_th" Type="double" />
-								<VAR Id="RDK:26847463" Name="winkel_th" Type="double" />
-								<VAR Id="RDK:26847464" Name="L_th" Type="double" />
-								<VAR Id="RDK:26847465" Name="LH_fits" Type="boolean" />
-								<VAR Id="RDK:26847466" Name="H1gtH0" Type="integer" />
-								<VAR Id="RDK:26847467" Name="text" Type="string" />
-								<VAR Id="RDK:26847468" Name="z" Type="double" />
-							</GROUP>
-							<IFTHENELSE Id="RDK:26847502" DesignTimeRemark="HöheOben UND HöheUnten haben Werte und sind fixiert">
+						<GROUP Id="RDK:26935363" SubType="Else">
+							<IFTHENELSE Id="RDK:26935237" DesignTimeRemark="Beide Höhen sind leer">
 								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$FesteH1]]></EXP>
+									<EXP><![CDATA[$=$IsEmpty(HoeheOben)]]></EXP>
 								</VALUECONDITION>
 								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$FesteH0]]></EXP>
+									<EXP><![CDATA[$=$IsEmpty(HoeheUnten)]]></EXP>
 								</VALUECONDITION>
-								<GROUP Id="RDK:26847477" SubType="Then">
-									<SET Id="RDK:26847470" VarRef="H_th">
-										<EXP><![CDATA[$=$Abs(HoeheOben-HoeheUnten)]]></EXP>
+								<GROUP Id="RDK:26935236" SubType="Then">
+									<SET Id="RDK:26935442" VarRef="L1">
+										<EXP><![CDATA[$=$Round(Hoehe/Tan(DegToRad(winkel)),0)]]></EXP>
 										<PAR Name="AdvancedOptions" />
 									</SET>
-									<SET Id="RDK:26847471" VarRef="L1">
-										<EXP><![CDATA[$=$Abs(HoeheOben-HoeheUnten)/Tan(DegToRad(winkel))]]></EXP>
+									<SET Id="RDK:26960322" VarRef="Shape_Prototype.KettenFoerdererDefinition.L1">
+										<EXP><![CDATA[$=$L1]]></EXP>
 										<PAR Name="AdvancedOptions" />
 									</SET>
-									<SET Id="RDK:26847577" VarRef="LH_fits">
-										<EXP><![CDATA[$=$True]]></EXP>
+									<SET Id="RDK:26960324" VarRef="Shape_Prototype.KettenFoerdererDefinition.LH_fits">
+										<EXP><![CDATA[$=$LH_fits]]></EXP>
 										<PAR Name="AdvancedOptions" />
 									</SET>
+									<SET Id="RDK:26960326" VarRef="Shape_Prototype.KettenFoerdererDefinition.Hoehe">
+										<EXP><![CDATA[$=$Hoehe]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<EXIT_PROCESS Id="RDK:26935235" BreakType="4" ExitStatus="0" />
 								</GROUP>
-								<GROUP Id="RDK:26847501" SubType="Else">
-									<SET Id="RDK:26847478" VarRef="H_th">
-										<EXP><![CDATA[$=$shape_item.KettenFoerderer.Hoehe]]></EXP>
+							</IFTHENELSE>
+							<IFTHENELSE Id="RDK:26935277" DesignTimeRemark="HoeheOben ist leer, HöheUnten ist NICHT leer">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$isEmpty(HoeheOben)]]></EXP>
+								</VALUECONDITION>
+								<VALUECONDITION Value="false">
+									<EXP><![CDATA[$=$isEmpty(HoeheUnten)]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:26935276" SubType="Then">
+									<SET Id="RDK:26935238" VarRef="HoeheOben">
+										<EXP><![CDATA[$=$HoeheUnten+Hoehe]]></EXP>
 										<PAR Name="AdvancedOptions" />
 									</SET>
-									<IFTHENELSE Id="RDK:26847500" DesignTimeRemark="Es gibt zwei Höhenangaben, aber keine ist fest gegeben: Winkel und Länge zählen">
-										<VALUECONDITION Value="false">
+									<SET Id="RDK:26935446" VarRef="L1">
+										<EXP><![CDATA[$=$Round(Hoehe/Tan(DegToRad(winkel)),0)]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<GROUP Id="RDK:26935274" Name="TransferToPrototype" SubType="Generic">
+										<SET Id="RDK:26935450" VarRef="LH_fits">
+											<EXP><![CDATA[$=$IIF(Abs(L1-L_th)<LH_toleranz,True,False)]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+										<IFTHENELSE Id="RDK:26935251">
+											<VALUECONDITION Value="true">
+												<EXP><![CDATA[$=$HoeheOben>HoeheUnten]]></EXP>
+											</VALUECONDITION>
+											<GROUP Id="RDK:26935247" SubType="Then">
+												<SET Id="RDK:26935245" VarRef="text">
+													<EXP><![CDATA[$=$"↓"]]></EXP>
+													<PAR Name="AdvancedOptions" />
+												</SET>
+											</GROUP>
+											<GROUP Id="RDK:26935250" SubType="Else">
+												<SET Id="RDK:26935248" VarRef="text" DesignTimeTip="↓">
+													<EXP><![CDATA[$=$"↑"]]></EXP>
+													<PAR Name="AdvancedOptions" />
+												</SET>
+											</GROUP>
+										</IFTHENELSE>
+										<SET Id="RDK:26935252" VarRef="Shape_Prototype.KettenFoerdererDefinition.H_Oben">
+											<EXP><![CDATA[$=$HoeheOben]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+										<SET Id="RDK:26935253" VarRef="Shape_Prototype.KettenFoerdererDefinition.H_Unten">
+											<EXP><![CDATA[$=$HoeheUnten]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+										<SET Id="RDK:26935254" VarRef="Shape_Prototype.KettenFoerdererDefinition.winkel">
+											<EXP><![CDATA[$=$winkel]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+										<SET Id="RDK:26935255" VarRef="Shape_Prototype.KettenFoerdererDefinition.L1">
+											<EXP><![CDATA[$=$L1]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+										<SET Id="RDK:26935258" VarRef="Shape_Prototype.KettenFoerdererDefinition.LH_fits">
+											<EXP><![CDATA[$=$LH_fits]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+										<SET Id="RDK:26935260" VarRef="Shape_Prototype.KettenFoerdererDefinition.Hoehe">
+											<EXP><![CDATA[$=$Hoehe]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+										<SET Id="RDK:26935273" VarRef="Shape_Prototype.text">
+											<EXP><![CDATA[$=$text]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+									</GROUP>
+									<EXIT_PROCESS Id="RDK:26935275" BreakType="4" ExitStatus="0" />
+								</GROUP>
+							</IFTHENELSE>
+							<IFTHENELSE Id="RDK:26935317" DesignTimeRemark="HoeheUnten ist leer, HoeheOben ist NICHT leer">
+								<VALUECONDITION Value="false">
+									<EXP><![CDATA[$=$isEmpty(HoeheOben)]]></EXP>
+								</VALUECONDITION>
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$isEmpty(HoeheUnten)]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:26935316" SubType="Then">
+									<SET Id="RDK:26935452" VarRef="HoeheUnten">
+										<EXP><![CDATA[$=$HoeheOben+Hoehe]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<SET Id="RDK:26935456" VarRef="L1">
+										<EXP><![CDATA[$=$Round(Hoehe/Tan(DegToRad(winkel)),0)]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<GROUP Id="RDK:26935314" Name="TransferToPrototype" SubType="Generic">
+										<SET Id="RDK:26935284" VarRef="LH_fits">
+											<EXP><![CDATA[$=$IIF(Abs(L1-L_th)<LH_toleranz,True,False)]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+										<IFTHENELSE Id="RDK:26935291">
+											<VALUECONDITION Value="true">
+												<EXP><![CDATA[$=$HoeheOben>HoeheUnten]]></EXP>
+											</VALUECONDITION>
+											<GROUP Id="RDK:26935287" SubType="Then">
+												<SET Id="RDK:26935285" VarRef="text">
+													<EXP><![CDATA[$=$"↓"]]></EXP>
+													<PAR Name="AdvancedOptions" />
+												</SET>
+											</GROUP>
+											<GROUP Id="RDK:26935290" SubType="Else">
+												<SET Id="RDK:26935288" VarRef="text" DesignTimeTip="↓">
+													<EXP><![CDATA[$=$"↑"]]></EXP>
+													<PAR Name="AdvancedOptions" />
+												</SET>
+											</GROUP>
+										</IFTHENELSE>
+									</GROUP>
+									<EXIT_PROCESS Id="RDK:26935315" BreakType="4" ExitStatus="0" />
+								</GROUP>
+							</IFTHENELSE>
+							<IFTHENELSE Id="RDK:26935362">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$HoeheOben=HoeheUnten]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:26935324" SubType="Then">
+									<SET Id="RDK:26935318" VarRef="L1">
+										<EXP><![CDATA[$=$Round(Hoehe/Tan(DegToRad(winkel)),0)]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<SET Id="RDK:26935319" VarRef="text">
+										<EXP><![CDATA[$=$"O"]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<SET Id="RDK:26935320" VarRef="LH_fits">
+										<EXP><![CDATA[$=$False]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<SET Id="RDK:26935322" VarRef="L_th">
+										<EXP><![CDATA[$=$L1]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<ACTION_CALL Id="RDK:26935323" Name="RDEngineering_MsgBox" Suppressed="True" DesignTimeRemark="{Text}">
+										<PAR Name="RDLibraryName">
+											<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+										</PAR>
+										<PAR Name="MsgText">
+											<EXP><![CDATA[$C$H1 und H0 sind gleich, bitte überprüfen!]]></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>
+								<GROUP Id="RDK:26935361" SubType="Else">
+									<IFTHENELSE Id="RDK:26935358" DesignTimeRemark="HöheOben UND HöheUnten haben Werte und sind fixiert">
+										<VALUECONDITION Value="true">
 											<EXP><![CDATA[$=$FesteH1]]></EXP>
 										</VALUECONDITION>
-										<VALUECONDITION Value="false">
+										<VALUECONDITION Value="true">
 											<EXP><![CDATA[$=$FesteH0]]></EXP>
 										</VALUECONDITION>
-										<GROUP Id="RDK:26847485" SubType="Then">
-											<SET Id="RDK:26847568" VarRef="L1">
-												<EXP><![CDATA[$=$H_th/Tan(DegToRad(winkel))]]></EXP>
+										<GROUP Id="RDK:26935332" SubType="Then">
+											<SET Id="RDK:26935331" VarRef="Hoehe">
+												<EXP><![CDATA[$=$Abs(HoeheOben-HoeheUnten)]]></EXP>
 												<PAR Name="AdvancedOptions" />
 											</SET>
 										</GROUP>
-										<GROUP Id="RDK:26847499" SubType="Else">
-											<SET Id="RDK:26847575" VarRef="L1">
-												<EXP><![CDATA[$=$H_th/Tan(DegToRad(winkel))]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<IFTHENELSE Id="RDK:26847498" DesignTimeRemark="Bestimme die Höhe oben und unten, je nach Wunsch grösser/kleiner einer Höhe">
-												<VALUECONDITION Value="true">
+										<GROUP Id="RDK:26935357" SubType="Else">
+											<IFTHENELSE Id="RDK:26935356" DesignTimeRemark="Es gibt zwei Höhenangaben, aber keine ist fest gegeben: Winkel und Länge zählen">
+												<VALUECONDITION Value="false">
 													<EXP><![CDATA[$=$FesteH1]]></EXP>
 												</VALUECONDITION>
 												<VALUECONDITION Value="false">
 													<EXP><![CDATA[$=$FesteH0]]></EXP>
 												</VALUECONDITION>
-												<GROUP Id="RDK:26847491" SubType="Then">
-													<IFTHENELSE Id="RDK:26847490">
-														<VALUECONDITION Value="true">
-															<EXP><![CDATA[$=$H1gtH0=1]]></EXP>
-														</VALUECONDITION>
-														<GROUP Id="RDK:26847487" SubType="Then">
-															<SET Id="RDK:26847486" VarRef="HoeheUnten">
-																<EXP><![CDATA[$=$HoeheOben+Round(H_th,0)]]></EXP>
-																<PAR Name="AdvancedOptions" />
-															</SET>
-														</GROUP>
-														<GROUP Id="RDK:26847489" SubType="Else">
-															<SET Id="RDK:26847488" VarRef="HoeheUnten">
-																<EXP><![CDATA[$=$HoeheOben-Round(H_th,0)]]></EXP>
-																<PAR Name="AdvancedOptions" />
-															</SET>
-														</GROUP>
-													</IFTHENELSE>
+												<GROUP Id="RDK:26935339" SubType="Then">
+													<SET Id="RDK:26935333" VarRef="Hoehe">
+														<EXP><![CDATA[$=$Abs(Round(L1*Tan(DegToRad(winkel)),2))]]></EXP>
+														<PAR Name="AdvancedOptions" />
+													</SET>
+													<SET Id="RDK:26936501" VarRef="L1">
+														<EXP><![CDATA[$=$Round(Hoehe/Tan(DegToRad(winkel)),0)]]></EXP>
+														<PAR Name="AdvancedOptions" />
+													</SET>
 												</GROUP>
-												<GROUP Id="RDK:26847497" SubType="Else">
-													<IFTHENELSE Id="RDK:26847496">
+												<GROUP Id="RDK:26935355" SubType="Else">
+													<IFTHENELSE Id="RDK:26935354" DesignTimeRemark="Bestimme die Höhe oben und unten, je nach Wunsch grösser/kleiner einer Höhe">
 														<VALUECONDITION Value="true">
-															<EXP><![CDATA[$=$H1gtH0=1]]></EXP>
+															<EXP><![CDATA[$=$FesteH1]]></EXP>
 														</VALUECONDITION>
-														<GROUP Id="RDK:26847493" SubType="Then">
-															<SET Id="RDK:26847492" VarRef="HoeheOben">
-																<EXP><![CDATA[$=$HoeheUnten-Round(H_th,0)]]></EXP>
+														<VALUECONDITION Value="false">
+															<EXP><![CDATA[$=$FesteH0]]></EXP>
+														</VALUECONDITION>
+														<GROUP Id="RDK:26935346" SubType="Then">
+															<SET Id="RDK:26936513" VarRef="Hoehe">
+																<EXP><![CDATA[$=$Abs(Round(L1*Tan(DegToRad(winkel)),0))]]></EXP>
+																<PAR Name="AdvancedOptions" />
+															</SET>
+															<SET Id="RDK:26935341" VarRef="HoeheUnten">
+																<EXP><![CDATA[$=$Round(HoeheOben-Hoehe,0)]]></EXP>
 																<PAR Name="AdvancedOptions" />
 															</SET>
 														</GROUP>
-														<GROUP Id="RDK:26847495" SubType="Else">
-															<SET Id="RDK:26847494" VarRef="HoeheOben">
-																<EXP><![CDATA[$=$HoeheUnten+Round(H_th,0)]]></EXP>
+														<GROUP Id="RDK:26935353" SubType="Else">
+															<SET Id="RDK:26936506" VarRef="Hoehe">
+																<EXP><![CDATA[$=$Abs(Round(L1*Tan(DegToRad(winkel)),0))]]></EXP>
+																<PAR Name="AdvancedOptions" />
+															</SET>
+															<SET Id="RDK:26935348" VarRef="HoeheOben">
+																<EXP><![CDATA[$=$Round(HoeheUnten+Hoehe,0)]]></EXP>
 																<PAR Name="AdvancedOptions" />
 															</SET>
 														</GROUP>
@@ -14716,116 +14988,331 @@ SSGConnectionPoint.x_M
 											</IFTHENELSE>
 										</GROUP>
 									</IFTHENELSE>
-									<SET Id="RDK:26847585" VarRef="LH_fits">
-										<EXP><![CDATA[$=$False]]></EXP>
-										<PAR Name="AdvancedOptions" />
-									</SET>
 								</GROUP>
 							</IFTHENELSE>
-							<COMMENTS Id="RDK:26847503" DesignTimeRemark="Es werden die Länge, Winkel und Höhen als gegeben angsehen. Jetzt nur noch rechnen ob die Angaben passen. " />
-							<SET Id="RDK:26847507" VarRef="z">
-								<EXP><![CDATA[$=$HoeheOben/2 + HoeheUnten/2]]></EXP>
+						</GROUP>
+					</IFTHENELSE>
+					<GROUP Id="RDK:26935433" Name="TransferToPrototype" SubType="Generic">
+						<SET Id="RDK:26935403" VarRef="LH_fits">
+							<EXP><![CDATA[$=$IIF(Abs(L1-L_th)<LH_toleranz,True,False)]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<IFTHENELSE Id="RDK:26935410">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$HoeheOben>HoeheUnten]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:26935406" SubType="Then">
+								<SET Id="RDK:26935404" VarRef="text">
+									<EXP><![CDATA[$=$"↓"]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:26935409" SubType="Else">
+								<SET Id="RDK:26935407" VarRef="text" DesignTimeTip="↓">
+									<EXP><![CDATA[$=$"↑"]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
+						<SET Id="RDK:26935411" VarRef="Shape_Prototype.KettenFoerdererDefinition.H_Oben">
+							<EXP><![CDATA[$=$HoeheOben]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:26935412" VarRef="Shape_Prototype.KettenFoerdererDefinition.H_Unten">
+							<EXP><![CDATA[$=$HoeheUnten]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:26935413" VarRef="Shape_Prototype.KettenFoerdererDefinition.winkel">
+							<EXP><![CDATA[$=$winkel]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:26935415" VarRef="Shape_Prototype.KettenFoerdererDefinition.L1">
+							<EXP><![CDATA[$=$L1]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:26935417" VarRef="Shape_Prototype.KettenFoerdererDefinition.LH_fits">
+							<EXP><![CDATA[$=$LH_fits]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:26935419" VarRef="Shape_Prototype.KettenFoerdererDefinition.Hoehe">
+							<EXP><![CDATA[$=$Hoehe]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:26935432" VarRef="Shape_Prototype.text">
+							<EXP><![CDATA[$=$text]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</GROUP>
+				</FUNCTION>
+				<FUNCTION Id="RDK:26978331" Name="Calculate KettenFoerderer" InputTypeName="string">
+					<COMMENTS Id="RDK:26978181" DesignTimeRemark="Wenn die theoretische Länge L_f und die Länge des Shapes L1 übereinstimmen, dann wird der Gefaelle als &quot;in Ordnung&quot; betrachtet" />
+					<IFTHENELSE Id="RDK:26978184">
+						<VALUECONDITION Value="true">
+							<EXP><![CDATA[$=$IsEmpty(Param.Input)]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:26978183" SubType="Then">
+							<EXIT_PROCESS Id="RDK:26978182" BreakType="4" ExitStatus="0" />
+						</GROUP>
+					</IFTHENELSE>
+					<COMMENTS Id="RDK:26978185" DesignTimeRemark="Param.Input" />
+					<GROUP Id="RDK:26978187" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
+						<VAR Id="RDK:26978186" Name="shape_item" Type="Editor2DShapeType" />
+					</GROUP>
+					<SET Id="RDK:26978188" VarRef="shape_item">
+						<EXP><![CDATA[$=$ShapeList["id="+Param.Input]]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<IFTHENELSE Id="RDK:26978194">
+						<VALUECONDITION Value="true" Oper="OR">
+							<EXP><![CDATA[$=$IsEmpty(shape_item.KettenFoerdererDefinition.H_Oben)]]></EXP>
+						</VALUECONDITION>
+						<VALUECONDITION Value="true">
+							<EXP><![CDATA[$=$IsEmpty(shape_item.KettenFoerdererDefinition.H_Oben)]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:26978193" SubType="Then">
+							<SET Id="RDK:26978189" VarRef="shape_item.KettenFoerdererDefinition.LH_fits">
+								<EXP><![CDATA[$=$False]]></EXP>
 								<PAR Name="AdvancedOptions" />
 							</SET>
-							<IFTHENELSE Id="RDK:26847522">
+							<SET Id="RDK:26978190" VarRef="shape_item.text">
+								<EXP><![CDATA[$C$O]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+							<SET Id="RDK:26978191" VarRef="Param.Result">
+								<EXP><![CDATA[$C$False]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+							<EXIT_PROCESS Id="RDK:26978192" BreakType="4" ExitStatus="0" />
+						</GROUP>
+					</IFTHENELSE>
+					<GROUP Id="RDK:26978207" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
+						<VAR Id="RDK:26978195" Name="HoeheOben" Type="double" />
+						<VAR Id="RDK:26978196" Name="HoeheUnten" Type="double" />
+						<VAR Id="RDK:26978197" Name="winkel" Type="double" />
+						<VAR Id="RDK:26978198" Name="FesteH1" Type="boolean" />
+						<VAR Id="RDK:26978199" Name="FesteH0" Type="boolean" />
+						<VAR Id="RDK:26978202" Name="L1" Type="double" />
+						<VAR Id="RDK:26978204" Name="LH_toleranz" Type="double" />
+						<VAR Id="RDK:26978205" Name="LH_fits" Type="boolean" />
+						<VAR Id="RDK:26978206" Name="text" Type="string" />
+					</GROUP>
+					<SET Id="RDK:26978221" VarRef="HoeheOben">
+						<EXP><![CDATA[$=$shape_item.KettenFoerdererDefinition.H_Oben]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<SET Id="RDK:26978222" VarRef="HoeheUnten">
+						<EXP><![CDATA[$=$shape_item.KettenFoerdererDefinition.H_Unten]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<SET Id="RDK:26978223" VarRef="L1">
+						<EXP><![CDATA[$=$shape_item.KettenFoerdererDefinition.L1]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<SET Id="RDK:26978224" VarRef="winkel">
+						<EXP><![CDATA[$=$shape_item.KettenFoerdererDefinition.winkel]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<SET Id="RDK:26978225" VarRef="FesteH0">
+						<EXP><![CDATA[$=$shape_item.KettenFoerdererDefinition.FesteH0]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<SET Id="RDK:26978226" VarRef="FesteH1">
+						<EXP><![CDATA[$=$shape_item.KettenFoerdererDefinition.FesteH1]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<IFTHENELSE Id="RDK:26978229">
+						<VALUECONDITION Value="true">
+							<EXP><![CDATA[$=$HoeheOben=HoeheUnten]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:26978228" SubType="Then">
+							<ACTION_CALL Id="RDK:26978227" Name="RDEngineering_MsgBox" Suppressed="True" DesignTimeRemark="{Text}">
+								<PAR Name="RDLibraryName">
+									<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+								</PAR>
+								<PAR Name="MsgText">
+									<EXP><![CDATA[$C$H1 und H0 sind gleich, bitte überprüfen!]]></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:26978330">
+						<VALUECONDITION Value="true" Oper="OR">
+							<EXP><![CDATA[$=$Abs(winkel) < 0.0001]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:26978247" SubType="Then">
+							<SET Id="RDK:26978244" VarRef="shape_item.KettenFoerdererDefinition.LH_fits">
+								<EXP><![CDATA[$=$False]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+							<SET Id="RDK:26978245" VarRef="shape_item.text">
+								<EXP><![CDATA[$C$O]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+							<SET Id="RDK:26978246" VarRef="Param.Result">
+								<EXP><![CDATA[$C$False]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+						</GROUP>
+						<GROUP Id="RDK:26978329" SubType="Else">
+							<GROUP Id="RDK:26978255" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
+								<VAR Id="RDK:26978248" Name="Hoehe" Type="double" />
+								<VAR Id="RDK:26978251" Name="LH_fits" Type="boolean" />
+								<VAR Id="RDK:26992870" Name="LH_toleranz" Type="double" />
+								<VAR Id="RDK:26984604" Name="L_th" Type="double" />
+								<VAR Id="RDK:26978253" Name="text" Type="string" />
+								<VAR Id="RDK:26978254" Name="z" Type="double" />
+							</GROUP>
+							<IFTHENELSE Id="RDK:26978288" DesignTimeRemark="HöheOben UND HöheUnten haben Werte und sind fixiert">
 								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$HoeheOben=HoeheUnten]]></EXP>
+									<EXP><![CDATA[$=$FesteH1]]></EXP>
 								</VALUECONDITION>
-								<GROUP Id="RDK:26847513" SubType="Then">
-									<SET Id="RDK:26847508" VarRef="H_th">
-										<EXP><![CDATA[$=$0]]></EXP>
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$FesteH0]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:26978263" SubType="Then">
+									<SET Id="RDK:26978256" VarRef="Hoehe">
+										<EXP><![CDATA[$=$Abs(HoeheOben-HoeheUnten)]]></EXP>
 										<PAR Name="AdvancedOptions" />
 									</SET>
-									<SET Id="RDK:26847509" VarRef="text">
-										<EXP><![CDATA[$=$"O"]]></EXP>
-										<PAR Name="AdvancedOptions" />
-									</SET>
-									<SET Id="RDK:26847510" VarRef="LH_fits">
-										<EXP><![CDATA[$=$False]]></EXP>
-										<PAR Name="AdvancedOptions" />
-									</SET>
-									<SET Id="RDK:26847511" VarRef="H1gtH0">
-										<EXP><![CDATA[$=$]]></EXP>
-										<PAR Name="AdvancedOptions" />
-									</SET>
-									<SET Id="RDK:26847512" VarRef="L_th">
-										<EXP><![CDATA[$=$L1]]></EXP>
+									<SET Id="RDK:26978344" VarRef="L1">
+										<EXP><![CDATA[$=$Round(Hoehe/Tan(DegToRad(winkel)),0)]]></EXP>
 										<PAR Name="AdvancedOptions" />
 									</SET>
 								</GROUP>
-								<GROUP Id="RDK:26847521" SubType="Else">
-									<IFTHENELSE Id="RDK:26847520">
-										<VALUECONDITION Value="true">
-											<EXP><![CDATA[$=$HoeheOben>HoeheUnten]]></EXP>
+								<GROUP Id="RDK:26978287" SubType="Else">
+									<SET Id="RDK:26978264" VarRef="Hoehe">
+										<EXP><![CDATA[$=$Abs(Round(L1*Tan(DegToRad(winkel)),0))]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<SET Id="RDK:26978353" VarRef="L1">
+										<EXP><![CDATA[$=$Round(Hoehe/Tan(DegToRad(winkel)),0)]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<IFTHENELSE Id="RDK:26978286" DesignTimeRemark="Es gibt zwei Höhenangaben, aber keine ist fest gegeben: Winkel und Länge zählen">
+										<VALUECONDITION Value="false">
+											<EXP><![CDATA[$=$FesteH1]]></EXP>
 										</VALUECONDITION>
-										<GROUP Id="RDK:26847516" SubType="Then">
-											<SET Id="RDK:26847514" VarRef="text">
-												<EXP><![CDATA[$=$"↓"]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<SET Id="RDK:26847515" VarRef="H1gtH0">
-												<EXP><![CDATA[$=$-1]]></EXP>
+										<VALUECONDITION Value="false">
+											<EXP><![CDATA[$=$FesteH0]]></EXP>
+										</VALUECONDITION>
+										<GROUP Id="RDK:26978271" SubType="Then">
+											<SET Id="RDK:26978393" VarRef="L1">
+												<EXP><![CDATA[$=$Round(Hoehe/Tan(DegToRad(winkel)),0)]]></EXP>
 												<PAR Name="AdvancedOptions" />
 											</SET>
 										</GROUP>
-										<GROUP Id="RDK:26847519" SubType="Else">
-											<SET Id="RDK:26847517" VarRef="text" DesignTimeTip="↓">
-												<EXP><![CDATA[$=$"↑"]]></EXP>
+										<GROUP Id="RDK:26978285" SubType="Else">
+											<IFTHENELSE Id="RDK:26978284" DesignTimeRemark="Bestimme die Höhe oben und unten, je nach Wunsch grösser/kleiner einer Höhe">
+												<VALUECONDITION Value="true">
+													<EXP><![CDATA[$=$FesteH1]]></EXP>
+												</VALUECONDITION>
+												<VALUECONDITION Value="false">
+													<EXP><![CDATA[$=$FesteH0]]></EXP>
+												</VALUECONDITION>
+												<GROUP Id="RDK:26978277" SubType="Then">
+													<SET Id="RDK:26978274" VarRef="HoeheUnten">
+														<EXP><![CDATA[$=$HoeheOben-Round(Hoehe,0)]]></EXP>
+														<PAR Name="AdvancedOptions" />
+													</SET>
+												</GROUP>
+												<GROUP Id="RDK:26978283" SubType="Else">
+													<SET Id="RDK:26978280" VarRef="HoeheOben">
+														<EXP><![CDATA[$=$HoeheUnten+Round(Hoehe,0)]]></EXP>
+														<PAR Name="AdvancedOptions" />
+													</SET>
+												</GROUP>
+											</IFTHENELSE>
+										</GROUP>
+									</IFTHENELSE>
+								</GROUP>
+							</IFTHENELSE>
+							<COMMENTS Id="RDK:26978289" DesignTimeRemark="Es werden die Länge, Winkel und Höhen als gegeben angsehen. Jetzt nur noch rechnen ob die Angaben passen. " />
+							<SET Id="RDK:26978397" VarRef="L_th">
+								<EXP><![CDATA[$=$Abs(HoeheOben-HoeheUnten)/Tan(DegToRad(winkel))]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+							<SET Id="RDK:26978292" VarRef="LH_fits">
+								<EXP><![CDATA[$=$IIF(Abs(L1-L_th)<LH_toleranz,True,False)]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+							<SET Id="RDK:26978293" VarRef="z">
+								<EXP><![CDATA[$=$HoeheOben/2 + HoeheUnten/2]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+							<IFTHENELSE Id="RDK:26978308">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$HoeheOben=HoeheUnten]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:26978299" SubType="Then">
+									<SET Id="RDK:26978294" VarRef="Hoehe">
+										<EXP><![CDATA[$=$0]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<SET Id="RDK:26978295" VarRef="text">
+										<EXP><![CDATA[$=$"O"]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<SET Id="RDK:26978296" VarRef="LH_fits">
+										<EXP><![CDATA[$=$False]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+								<GROUP Id="RDK:26978307" SubType="Else">
+									<IFTHENELSE Id="RDK:26978306">
+										<VALUECONDITION Value="true">
+											<EXP><![CDATA[$=$HoeheOben>HoeheUnten]]></EXP>
+										</VALUECONDITION>
+										<GROUP Id="RDK:26978302" SubType="Then">
+											<SET Id="RDK:26978300" VarRef="text">
+												<EXP><![CDATA[$=$"↓"]]></EXP>
 												<PAR Name="AdvancedOptions" />
 											</SET>
-											<SET Id="RDK:26847518" VarRef="H1gtH0">
-												<EXP><![CDATA[$=$1]]></EXP>
+										</GROUP>
+										<GROUP Id="RDK:26978305" SubType="Else">
+											<SET Id="RDK:26978303" VarRef="text" DesignTimeTip="↓">
+												<EXP><![CDATA[$=$"↑"]]></EXP>
 												<PAR Name="AdvancedOptions" />
 											</SET>
 										</GROUP>
 									</IFTHENELSE>
 								</GROUP>
 							</IFTHENELSE>
-							<GROUP Id="RDK:26847540" Name="LocalToShapeItem" SubType="Generic">
-								<SELECTCASE Id="RDK:26847537">
-									<EXP><![CDATA[$=$shape_item.family]]></EXP>
-									<CASEGROUP Id="RDK:26847528" CaseType="0">
-										<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
-										<SET Id="RDK:26847523" VarRef="shape_item.GefaelleDefinition.H_th">
-											<EXP><![CDATA[$=$Abs(Round(H_th, 0))]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-										<SET Id="RDK:26847524" VarRef="shape_item.GefaelleDefinition.L_th">
-											<EXP><![CDATA[$=$Abs(Round(L_th, 0))]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-										<SET Id="RDK:26847525" VarRef="shape_item.GefaelleDefinition.winkel_th">
-											<EXP><![CDATA[$=$winkel_th]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-										<SET Id="RDK:26847526" VarRef="shape_item.GefaelleDefinition.LH_fits">
-											<EXP><![CDATA[$=$LH_fits]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-										<SET Id="RDK:26847527" VarRef="shape_item.GefaelleDefinition.H1gtH0">
-											<EXP><![CDATA[$=$H1gtH0]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-									</CASEGROUP>
-									<CASEGROUP Id="RDK:26847536" CaseType="1">
-										<EXP />
-										<EXIT_PROCESS Id="RDK:26847535" BreakType="4" ExitStatus="0" />
-									</CASEGROUP>
-								</SELECTCASE>
-								<SET Id="RDK:26847538" VarRef="shape_item.z">
-									<EXP><![CDATA[$=$z]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-								<SET Id="RDK:26847539" VarRef="shape_item.text" DesignTimeTip="↓">
-									<EXP><![CDATA[$=$text]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</GROUP>
-							<SET Id="RDK:26847541" VarRef="ShapeList[&quot;id=&quot;+Param.Input]">
+							<SET Id="RDK:26978315" VarRef="shape_item.KettenFoerdererDefinition.Hoehe">
+								<EXP><![CDATA[$=$Abs(Round(Hoehe, 0))]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+							<SET Id="RDK:26978400" VarRef="shape_item.KettenFoerdererDefinition.L1">
+								<EXP><![CDATA[$=$Abs(Round(L1, 0))]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+							<SET Id="RDK:26978312" VarRef="shape_item.KettenFoerdererDefinition.LH_fits">
+								<EXP><![CDATA[$=$LH_fits]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+							<SET Id="RDK:26978402" VarRef="shape_item.KettenFoerdererDefinition.H_Oben">
+								<EXP><![CDATA[$=$HoeheOben]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+							<SET Id="RDK:26978404" VarRef="shape_item.KettenFoerdererDefinition.H_Unten">
+								<EXP><![CDATA[$=$HoeheUnten]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+							<SET Id="RDK:26978327" VarRef="ShapeList[&quot;id=&quot;+Param.Input]">
 								<EXP><![CDATA[$=$shape_item]]></EXP>
 								<PAR Name="AdvancedOptions" />
 							</SET>
-							<SET Id="RDK:26847542" VarRef="Param.Result">
+							<SET Id="RDK:26978328" VarRef="Param.Result">
 								<EXP><![CDATA[$=$LH_fits]]></EXP>
 								<PAR Name="AdvancedOptions" />
 							</SET>
@@ -30552,6 +31039,10 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						<CASEGROUP Id="RDK:26514198" CaseType="0">
 							<EXP><![CDATA[$C$OK]]></EXP>
 							<GROUP Id="RDK:26514193" Name="Write Properties" SubType="Generic">
+								<SET Id="RDK:26962486" VarRef="Shape_Prototype.height">
+									<EXP><![CDATA[$=$Shape_Prototype.KettenFoerdererDefinition.L1]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
 								<CALLFUNCTION Id="RDK:26514190">
 									<PAR Name="FuncName">
 										<EXP><![CDATA[$C$CreatePrototype_KettenFoerderer]]></EXP>
@@ -30603,7 +31094,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							</GROUP>
 							<CALLFUNCTION Id="RDK:26847599">
 								<PAR Name="FuncName">
-									<EXP><![CDATA[$C$Calculate KettenFoerderer]]></EXP>
+									<EXP><![CDATA[$C$Calculate KettenFoerderer_Prototype]]></EXP>
 								</PAR>
 								<PAR Name="InputExp">
 									<EXP><![CDATA[$=$]]></EXP>
@@ -39346,6 +39837,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<PAR Name="OFGeradeDefinition" />
 					<PAR Name="OFBogenDefinition" />
 					<PAR Name="OFWeicheDefinition" />
+					<PAR Name="KettenFoerdererDefinition" />
 				</EXEC_ON_VALUES>
 			</FUNCTION>
 			<FUNCTION Id="RDK:295" Name="OnEditor2DDoubleClick" InputTypeName="Editor2DEventArgumentsTypeList" Options="(TYPEFUNCTION)">
@@ -42602,9 +43094,12 @@ me.x
 							<VALUECONDITION Value="true" Oper="OR">
 								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="OFGerade"]]></EXP>
 							</VALUECONDITION>
-							<VALUECONDITION Value="true">
+							<VALUECONDITION Value="true" Oper="OR">
 								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="OFWeiche"]]></EXP>
 							</VALUECONDITION>
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="KettenFoerderer"]]></EXP>
+							</VALUECONDITION>
 							<GROUP Id="RDK:23783229" SubType="Then">
 								<CALLFUNCTION Id="RDK:23783228">
 									<PAR Name="FuncName">
@@ -42642,6 +43137,52 @@ me.x
 							</GROUP>
 						</IFTHENELSE>
 					</CASEGROUP>
+					<CASEGROUP Id="RDK:26961379" CaseType="0">
+						<EXP><![CDATA[$C$KettenFoerderer]]></EXP>
+						<IFTHENELSE Id="RDK:26961378">
+							<VALUECONDITION Value="true" Oper="OR">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="OFBogen"]]></EXP>
+							</VALUECONDITION>
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="OFGerade"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:26961375" SubType="Then">
+								<CALLFUNCTION Id="RDK:26961374">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$SetHeightOfStreckeOnConnect]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+							<GROUP Id="RDK:26961377" SubType="Else">
+								<ACTION_CALL Id="RDK:26961376" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
+									<PAR Name="RDLibraryName">
+										<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+									</PAR>
+									<PAR Name="MsgText">
+										<EXP><![CDATA[$C$connect not allowed. No Data set. Please unlink it again. ]]></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>
+					</CASEGROUP>
 					<CASEGROUP Id="RDK:23016795" CaseType="0">
 						<EXP><![CDATA[$C$OFBogen]]></EXP>
 						<IFTHENELSE Id="RDK:23016794">
@@ -42651,9 +43192,12 @@ me.x
 							<VALUECONDITION Value="true" Oper="OR">
 								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="OFGerade"]]></EXP>
 							</VALUECONDITION>
-							<VALUECONDITION Value="true">
+							<VALUECONDITION Value="true" Oper="OR">
 								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="OFWeiche"]]></EXP>
 							</VALUECONDITION>
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="KettenFoerderer"]]></EXP>
+							</VALUECONDITION>
 							<GROUP Id="RDK:23016791" SubType="Then">
 								<CALLFUNCTION Id="RDK:23016790">
 									<PAR Name="FuncName">
@@ -48603,17 +49147,17 @@ me.x
 								</GROUP>
 								<GROUP Id="RDK:26623584" Name="Merkmale" SubType="Generic">
 									<SET_STRUCT Id="RDK:26623582" VarRef="KettenFoerdererMerkmale" ClearAll="True">
-										<PAR Name="Länge in Meter">
-											<EXP><![CDATA[$=$ShapeItem.KettenFoerdererDefinition.L1]]></EXP>
+										<PAR Name="Höhe">
+											<EXP><![CDATA[$=$ShapeItem.KettenFoerdererDefinition.Hoehe]]></EXP>
 										</PAR>
 										<PAR Name="Höhe Anfang">
-											<EXP><![CDATA[$=$StrReplace(ShapeItem.KettenFoerdererDefinition.H_Anfang/1000, ",", ".")]]></EXP>
+											<EXP><![CDATA[$=$StrReplace(ShapeItem.KettenFoerdererDefinition.H_Oben/1000, ",", ".")]]></EXP>
 										</PAR>
 										<PAR Name="Höhe Ende">
-											<EXP><![CDATA[$=$StrReplace(ShapeItem.KettenFoerdererDefinition.H_Ende/1000, ",", ".")]]></EXP>
+											<EXP><![CDATA[$=$StrReplace(ShapeItem.KettenFoerdererDefinition.H_Unten/1000, ",", ".")]]></EXP>
 										</PAR>
 										<PAR Name="KurvenWinkel">
-											<EXP><![CDATA[$=$ShapeItem.KettenFoerdererDefinition.KurvenWinkel]]></EXP>
+											<EXP><![CDATA[$=$ShapeItem.KettenFoerdererDefinition.Winkel]]></EXP>
 										</PAR>
 										<PAR Name="Richtung">
 											<EXP><![CDATA[$=$ShapeItem.KettenFoerdererDefinition.Richtung]]></EXP>
@@ -48623,7 +49167,7 @@ me.x
 										</PAR>
 									</SET_STRUCT>
 									<SET Id="RDK:26623583" VarRef="CSV_Item.Merkmale">
-										<EXP><![CDATA[$=$ToJSON(TEFGeradeMerkmale)]]></EXP>
+										<EXP><![CDATA[$=$ToJSON(KettenFoerdererMerkmale)]]></EXP>
 										<PAR Name="AdvancedOptions" />
 									</SET>
 								</GROUP>
@@ -50555,6 +51099,26 @@ me.x
 							</GROUP>
 						</IFTHENELSE>
 					</CASEGROUP>
+					<CASEGROUP Id="RDK:26942733" CaseType="0">
+						<EXP><![CDATA[$C$KettenFoerderer]]></EXP>
+						<IFTHENELSE Id="RDK:26942732">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$Count(shape_item.links) = 2]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:26942729" SubType="Then">
+								<SET Id="RDK:26942728" VarRef="Param.Result">
+									<EXP><![CDATA[$=$True]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:26942731" SubType="Else">
+								<SET Id="RDK:26942730" VarRef="Param.Result">
+									<EXP><![CDATA[$=$False]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
+					</CASEGROUP>
 					<CASEGROUP Id="RDK:19265781" CaseType="0">
 						<EXP><![CDATA[$C$Kurve]]></EXP>
 						<IFTHENELSE Id="RDK:21960976">
@@ -52526,6 +53090,50 @@ me.x
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</CASEGROUP>
+					<CASEGROUP Id="RDK:26961421" CaseType="0">
+						<EXP><![CDATA[$C$KettenFoerderer]]></EXP>
+						<IFTHENELSE Id="RDK:26961418">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$label="cp1"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:26961414" SubType="Then">
+								<SET Id="RDK:26961412" VarRef="ShapeList[&quot;id=&quot;+shapeId].KettenFoerdererDefinition.H_Oben">
+									<EXP><![CDATA[$=$hoehe]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<SET Id="RDK:26961413" VarRef="ShapeList[&quot;id=&quot;+shapeId].KettenFoerdererDefinition.FesteH1">
+									<EXP><![CDATA[$=$True]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:26961417" SubType="Else">
+								<SET Id="RDK:26961415" VarRef="ShapeList[&quot;id=&quot;+shapeId].KettenFoerdererDefinition.H_Unten">
+									<EXP><![CDATA[$=$hoehe]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<SET Id="RDK:26961416" VarRef="ShapeList[&quot;id=&quot;+shapeId].KettenFoerdererDefinition.FesteH0">
+									<EXP><![CDATA[$=$True]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
+						<CALLFUNCTION Id="RDK:26961423">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$Calculate KettenFoerderer]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$shapeId]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
+						<SET Id="RDK:26961420" VarRef="ShapeList[&quot;id=&quot;+shapeId].z">
+							<EXP><![CDATA[$=$ShapeList["id="+shapeId].OFGeradeDefinition.HoeheOben/2 + ShapeList["id="+shapeId].OFGeradeDefinition.HoeheUnten/2]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</CASEGROUP>
 					<CASEGROUP Id="RDK:23016954" CaseType="0">
 						<EXP><![CDATA[$C$OFBogen]]></EXP>
 						<COMMENTS Id="RDK:23016951" DesignTimeRemark="Setze den Zustand erst einmal auf ok, nachdem die Höhe definiert ist" />
@@ -54159,6 +54767,47 @@ me.x
 						</IFTHENELSE>
 						<EXIT_PROCESS Id="RDK:23772518" BreakType="4" ExitStatus="0" />
 					</CASEGROUP>
+					<CASEGROUP Id="RDK:26942749" CaseType="0">
+						<EXP><![CDATA[$C$KettenFoerderer]]></EXP>
+						<IFTHENELSE Id="RDK:26942747">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$isDefined]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:26942744" SubType="Then">
+								<SET Id="RDK:26942742" VarRef="ShapeList[&quot;id=&quot;+shapeId].KettenFoerdererDefinition.isOk">
+									<EXP><![CDATA[$=$isDefined]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<CALLFUNCTION Id="RDK:26942743">
+									<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:26942746" SubType="Else">
+								<CALLFUNCTION Id="RDK:26942745">
+									<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>
+						<EXIT_PROCESS Id="RDK:26942748" BreakType="4" ExitStatus="0" />
+					</CASEGROUP>
 					<CASEGROUP Id="RDK:23387295" CaseType="0">
 						<EXP><![CDATA[$C$OFWeiche]]></EXP>
 						<IFTHENELSE Id="RDK:23387294">
@@ -54857,6 +55506,13 @@ me.x
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</CASEGROUP>
+					<CASEGROUP Id="RDK:27012513" CaseType="0">
+						<EXP><![CDATA[$C$KettenFoerderer]]></EXP>
+						<SET Id="RDK:27012512" VarRef="color">
+							<EXP><![CDATA[$C$#1bff38]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</CASEGROUP>
 					<CASEGROUP Id="RDK:19435285" CaseType="0">
 						<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
 						<SET Id="RDK:19435284" VarRef="color">
@@ -55047,41 +55703,76 @@ me.x
 					<VAR Id="RDK:21940012" Name="UebergabeSetHeight" Type="SSGParameter[]" />
 					<VAR Id="RDK:20803353" Name="cpId" Type="string" />
 				</GROUP>
-				<SET Id="RDK:18742693" VarRef="item_0">
-					<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
-					<PAR Name="AdvancedOptions" />
-				</SET>
 				<SET Id="RDK:18895251" VarRef="cpId">
 					<EXP><![CDATA[$=$Param.Input[0].connectionPointID]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
+				<SET Id="RDK:26971812" VarRef="item_0">
+					<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
 				<COMMENTS Id="RDK:21940014" DesignTimeRemark="Hole dir die Höhe des Vorgängers um es im nachfolgenden Koordinatensystem zu setzen" />
-				<SET_STRUCT Id="RDK:18827137" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
-					<PAR Name="Key">
-						<EXP><![CDATA[$C$shapeID]]></EXP>
-					</PAR>
-					<PAR Name="Str">
-						<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
-					</PAR>
-					<PAR Name="Dbl" />
-					<PAR Name="Int" />
-					<PAR Name="Boo" />
-					<PAR Name="StrArr" />
-					<PAR Name="StrArr2D" />
-				</SET_STRUCT>
-				<SET_STRUCT Id="RDK:18827138" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
-					<PAR Name="Key">
-						<EXP><![CDATA[$C$cpId]]></EXP>
-					</PAR>
-					<PAR Name="StrArr" />
-					<PAR Name="Str">
-						<EXP><![CDATA[$=$Param.Input[1].connectionPointID]]></EXP>
-					</PAR>
-					<PAR Name="Dbl" />
-					<PAR Name="Int" />
-					<PAR Name="Boo" />
-					<PAR Name="StrArr2D" />
-				</SET_STRUCT>
+				<IFTHENELSE Id="RDK:26971806">
+					<VALUECONDITION Value="true">
+						<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="KettenFoerderer"]]></EXP>
+					</VALUECONDITION>
+					<GROUP Id="RDK:26971807" SubType="Then">
+						<SET_STRUCT Id="RDK:26971825" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$shapeID]]></EXP>
+							</PAR>
+							<PAR Name="StrArr" />
+							<PAR Name="StrArr2D" />
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
+							</PAR>
+							<PAR Name="Dbl" />
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+						</SET_STRUCT>
+						<SET_STRUCT Id="RDK:26971827" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$cpId]]></EXP>
+							</PAR>
+							<PAR Name="StrArr" />
+							<PAR Name="StrArr2D" />
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$Param.Input[0].connectionPointID]]></EXP>
+							</PAR>
+							<PAR Name="Dbl" />
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+						</SET_STRUCT>
+					</GROUP>
+					<GROUP Id="RDK:26971808" SubType="Else">
+						<SET_STRUCT Id="RDK:18827137" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$shapeID]]></EXP>
+							</PAR>
+							<PAR Name="StrArr" />
+							<PAR Name="StrArr2D" />
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
+							</PAR>
+							<PAR Name="Dbl" />
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+						</SET_STRUCT>
+						<SET_STRUCT Id="RDK:18827138" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$cpId]]></EXP>
+							</PAR>
+							<PAR Name="StrArr" />
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$Param.Input[1].connectionPointID]]></EXP>
+							</PAR>
+							<PAR Name="Dbl" />
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+							<PAR Name="StrArr2D" />
+						</SET_STRUCT>
+					</GROUP>
+				</IFTHENELSE>
 				<CALLFUNCTION Id="RDK:18827141">
 					<PAR Name="FuncName">
 						<EXP><![CDATA[$C$GetHeightOfItem]]></EXP>
@@ -55098,19 +55789,41 @@ me.x
 					<EXP><![CDATA[$=$RueckgabeListe["key=Hoehe"].Dbl]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
-				<SET_STRUCT Id="RDK:21940004" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeSetHeight">
-					<PAR Name="Key">
-						<EXP><![CDATA[$C$ShapeId]]></EXP>
-					</PAR>
-					<PAR Name="StrArr" />
-					<PAR Name="Str">
-						<EXP><![CDATA[$=$item_0.id]]></EXP>
-					</PAR>
-					<PAR Name="Dbl" />
-					<PAR Name="Int" />
-					<PAR Name="Boo" />
-					<PAR Name="StrArr2D" />
-				</SET_STRUCT>
+				<IFTHENELSE Id="RDK:27016655">
+					<VALUECONDITION Value="true">
+						<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="KettenFoerderer"]]></EXP>
+					</VALUECONDITION>
+					<GROUP Id="RDK:27016656" SubType="Then">
+						<SET_STRUCT Id="RDK:27016665" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeSetHeight">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$ShapeId]]></EXP>
+							</PAR>
+							<PAR Name="StrArr" />
+							<PAR Name="StrArr2D" />
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
+							</PAR>
+							<PAR Name="Dbl" />
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+						</SET_STRUCT>
+					</GROUP>
+					<GROUP Id="RDK:27016657" SubType="Else">
+						<SET_STRUCT Id="RDK:21940004" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeSetHeight">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$ShapeId]]></EXP>
+							</PAR>
+							<PAR Name="StrArr" />
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$item_0.id]]></EXP>
+							</PAR>
+							<PAR Name="Dbl" />
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+							<PAR Name="StrArr2D" />
+						</SET_STRUCT>
+					</GROUP>
+				</IFTHENELSE>
 				<SET_STRUCT Id="RDK:21940008" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeSetHeight">
 					<PAR Name="Key">
 						<EXP><![CDATA[$C$Hoehe]]></EXP>
@@ -55334,6 +56047,34 @@ me.x
 							</GROUP>
 						</IFTHENELSE>
 					</CASEGROUP>
+					<CASEGROUP Id="RDK:26961399" CaseType="0">
+						<EXP><![CDATA[$C$KettenFoerderer]]></EXP>
+						<SET Id="RDK:26961392" VarRef="h1">
+							<EXP><![CDATA[$=$item.KettenFoerdererDefinition.H_Oben]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:26961393" VarRef="h2">
+							<EXP><![CDATA[$=$item.KettenFoerdererDefinition.H_Unten]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<IFTHENELSE Id="RDK:26961398">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:26961395" SubType="Then">
+								<SET Id="RDK:26961394" VarRef="hoehe">
+									<EXP><![CDATA[$=$h1]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:26961397" SubType="Else">
+								<SET Id="RDK:26961396" VarRef="hoehe">
+									<EXP><![CDATA[$=$h2]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
+					</CASEGROUP>
 					<CASEGROUP Id="RDK:23017002" CaseType="0">
 						<EXP><![CDATA[$C$OFBogen]]></EXP>
 						<SET Id="RDK:23865755" VarRef="hoehe">
@@ -62678,14 +63419,14 @@ me.x
 								<EXP><![CDATA[$C$0]]></EXP>
 							</PAR>
 							<PAR Name="Id">
-								<EXP><![CDATA[$C$Höhe]]></EXP>
+								<EXP><![CDATA[$C$Hoehe]]></EXP>
 							</PAR>
 							<PAR Name="ParentId" />
 							<PAR Name="Label">
 								<EXP><![CDATA[$C$Höhe]]></EXP>
 							</PAR>
 							<PAR Name="Field">
-								<EXP><![CDATA[$C$Höhe]]></EXP>
+								<EXP><![CDATA[$C$Hoehe]]></EXP>
 							</PAR>
 							<PAR Name="Value" />
 							<PAR Name="Uom" />
@@ -62825,7 +63566,7 @@ me.x
 							<PAR Name="Disabled" />
 							<PAR Name="Pressed" />
 							<PAR Name="AutoCommit">
-								<EXP><![CDATA[$=$]]></EXP>
+								<EXP><![CDATA[$=$True]]></EXP>
 							</PAR>
 							<PAR Name="ValidateFail" />
 							<PAR Name="ValidateMsg" />
@@ -67664,15 +68405,17 @@ me.x
 					</PAR>
 					<PAR Name="H_Oben" />
 					<PAR Name="H_Unten" />
-					<PAR Name="Höhe">
+					<PAR Name="Hoehe">
 						<EXP><![CDATA[$C$2000]]></EXP>
 					</PAR>
+					<PAR Name="FesteH1" />
+					<PAR Name="FesteH0" />
 					<PAR Name="Winkel">
 						<EXP><![CDATA[$C$26]]></EXP>
 					</PAR>
 					<PAR Name="Richtung" />
 					<PAR Name="isOk" />
-					<PAR Name="Laenge" />
+					<PAR Name="LH_fits" />
 				</SET_STRUCT>
 			</GROUP>
 			<GROUP Id="RDK:18118499" Name="Foerderer" SubType="Generic" Suppressed="True">