From f9d2327ac968b3796fbd4a4bec6c4a49c81d6e44 Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Thu, 14 Nov 2024 12:03:49 +0100
Subject: [PATCH] =?UTF-8?q?Calculate=20VarioFoerderer=20implementiert.=20B?=
 =?UTF-8?q?ugfix:=20Abbruch=20nach=20dem=20R=C3=BCberziehen=20einer=20Kurv?=
 =?UTF-8?q?e,=20Vario,=20Gef=C3=A4llestrecke=20etc.=20funktionierte=20nich?=
 =?UTF-8?q?t.=20Eventklasse=20'OnInserted'=20in=20den=20MUI=20Funktionen?=
 =?UTF-8?q?=20hinter=20Knopf=20CLOSEPOPUP=20durchgereicht=20um=20diese=20A?=
 =?UTF-8?q?bfangen=20zu=20k=C3=B6nnen=20und=20das=20Objekt=20wieder=20zu?=
 =?UTF-8?q?=20l=C3=B6schen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 896 ++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 890 insertions(+), 6 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 150f95f..2f207ef 100644
--- a/MAIN_SSG.rdx
+++ b/MAIN_SSG.rdx
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <PROCESS Id="RDK:0001" Name="MAIN_SSG" ModernUI="True" Options="(GITSAVEMODE)(NOUPDATEINCLUDEFILES)" Expanded="True">
-	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-11-12T17:44:01" LanguageVersion="2014.1.3.699" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-11-14T11:58:07" LanguageVersion="2014.1.3.699" />
 	<GROUP Id="RDK:0002" Name="Declarations" SubType="Declarations" Expanded="True">
 		<GROUP Id="RDK:0003" Name="Types" SubType="TypeSet" IncludeDate="0">
 			<GROUP Id="RDK:26387" Name="SSG_Group" SubType="TypeSet" IncludeDate="0">
@@ -5624,6 +5624,169 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 									</SET_STRUCT>
 								</GROUP>
 							</CASEGROUP>
+							<CASEGROUP Id="RDK:22071669" CaseType="0">
+								<EXP><![CDATA[$C$VarioFoerderer]]></EXP>
+								<GROUP Id="RDK:22071661" Name="VarioFoerderer in der Library anlegen" SubType="Generic">
+									<SET Id="RDK:22071659" VarRef="Property_Prototype.eventClass">
+										<EXP><![CDATA[$C$OnDoubleclick,OnInserted,OnLinked,OnPasted]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<ACTION_CALL Id="RDK:22071660" 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:22071668" Name="VarioFoerderer platzieren" SubType="Generic">
+									<COMMENTS Id="RDK:22071662" DesignTimeRemark="pixel in mm" />
+									<COMMENTS Id="RDK:22071663" DesignTimeRemark="Shape in ShapeList wird gedreht" />
+									<ACTION_CALL Id="RDK:22071664" 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:22071665" Bookmarked="True" DesignTimeRemark="Inherit Rotation" />
+									<SET_STRUCT Id="RDK:22071667" 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="FoerdererDefinition" />
+										<PAR Name="VarioFoerdererDefinition">
+											<EXP><![CDATA[$=$Shape_Prototype.VarioFoerdererDefinition]]></EXP>
+										</PAR>
+										<PAR Name="KurveDefinition" />
+										<PAR Name="KurveFoerdererDefinition" />
+										<PAR Name="WeicheDefinition" />
+										<PAR Name="BTMTBeladungDefinition" />
+										<PAR Name="BTMTEntladungDefinition" />
+										<PAR Name="isDefined" />
+										<PAR Name="source">
+											<EXP><![CDATA[$=$Shape_Prototype.id]]></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>
 						</SELECTCASE>
 						<CALLFUNCTION Id="RDK:19615241">
 							<PAR Name="FuncName">
@@ -14129,6 +14292,14 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						</CASEGROUP>
 						<CASEGROUP Id="RDK:18732412" CaseType="0">
 							<EXP><![CDATA[$C$CLOSEPOPUP]]></EXP>
+							<GROUP Id="RDK:22078119" Name="Group" SubType="Generic">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$Param.Input="OnInserted"]]></EXP>
+								</VALUECONDITION>
+								<REMOVE_ADD Id="RDK:22078118" ListRef="ShapeList" Expr="Me.id=Shape_Prototype.id">
+									<EXP />
+								</REMOVE_ADD>
+							</GROUP>
 							<EXIT_PROCESS Id="RDK:18732411" BreakType="3" ExitStatus="0" />
 						</CASEGROUP>
 					</SELECTCASE>
@@ -14260,6 +14431,14 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						</CASEGROUP>
 						<CASEGROUP Id="RDK:21689212" CaseType="0">
 							<EXP><![CDATA[$C$CLOSEPOPUP]]></EXP>
+							<GROUP Id="RDK:22078133" Name="Group" SubType="Generic">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$Param.Input="OnInserted"]]></EXP>
+								</VALUECONDITION>
+								<REMOVE_ADD Id="RDK:22078132" ListRef="ShapeList" Expr="Me.id=Shape_Prototype.id">
+									<EXP />
+								</REMOVE_ADD>
+							</GROUP>
 							<EXIT_PROCESS Id="RDK:21689211" BreakType="3" ExitStatus="0" />
 						</CASEGROUP>
 					</SELECTCASE>
@@ -14528,6 +14707,14 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						</CASEGROUP>
 						<CASEGROUP Id="RDK:18116646" CaseType="0">
 							<EXP><![CDATA[$C$CLOSEPOPUP]]></EXP>
+							<GROUP Id="RDK:22078139" Name="Group" SubType="Generic">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$Param.Input="OnInserted"]]></EXP>
+								</VALUECONDITION>
+								<REMOVE_ADD Id="RDK:22078138" ListRef="ShapeList" Expr="Me.id=Shape_Prototype.id">
+									<EXP />
+								</REMOVE_ADD>
+							</GROUP>
 							<EXIT_PROCESS Id="RDK:18116645" BreakType="3" ExitStatus="0" />
 						</CASEGROUP>
 					</SELECTCASE>
@@ -14864,6 +15051,14 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						</CASEGROUP>
 						<CASEGROUP Id="RDK:22069183" CaseType="0">
 							<EXP><![CDATA[$C$CLOSEPOPUP]]></EXP>
+							<GROUP Id="RDK:22078127" Name="Group" SubType="Generic">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$Param.Input="OnInserted"]]></EXP>
+								</VALUECONDITION>
+								<REMOVE_ADD Id="RDK:22078126" ListRef="ShapeList" Expr="Me.id=Shape_Prototype.id">
+									<EXP />
+								</REMOVE_ADD>
+							</GROUP>
 							<EXIT_PROCESS Id="RDK:22069182" BreakType="3" ExitStatus="0" />
 						</CASEGROUP>
 					</SELECTCASE>
@@ -14931,6 +15126,14 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						</CASEGROUP>
 						<CASEGROUP Id="RDK:973750" CaseType="0">
 							<EXP><![CDATA[$C$CLOSEPOPUP]]></EXP>
+							<GROUP Id="RDK:22078145" Name="Group" SubType="Generic">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$Param.Input="OnInserted"]]></EXP>
+								</VALUECONDITION>
+								<REMOVE_ADD Id="RDK:22078144" ListRef="ShapeList" Expr="Me.id=Shape_Prototype.id">
+									<EXP />
+								</REMOVE_ADD>
+							</GROUP>
 							<EXIT_PROCESS Id="RDK:973752" BreakType="3" ExitStatus="0" />
 						</CASEGROUP>
 					</SELECTCASE>
@@ -16006,7 +16209,9 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<PAR Name="FuncName">
 										<EXP><![CDATA[$C$GefaelleStreckeUI]]></EXP>
 									</PAR>
-									<PAR Name="InputExp" />
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$C$Param.Input[0].class]]></EXP>
+									</PAR>
 									<PAR Name="ResultRef">
 										<EXP><![CDATA[$V$]]></EXP>
 									</PAR>
@@ -16159,7 +16364,9 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<PAR Name="FuncName">
 										<EXP><![CDATA[$C$KurveUI]]></EXP>
 									</PAR>
-									<PAR Name="InputExp" />
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$C$Param.Input[0].class]]></EXP>
+									</PAR>
 									<PAR Name="ResultRef">
 										<EXP><![CDATA[$V$]]></EXP>
 									</PAR>
@@ -16312,7 +16519,9 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<PAR Name="FuncName">
 										<EXP><![CDATA[$C$KurveFoerdererUI]]></EXP>
 									</PAR>
-									<PAR Name="InputExp" />
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$C$Param.Input[0].class]]></EXP>
+									</PAR>
 									<PAR Name="ResultRef">
 										<EXP><![CDATA[$V$]]></EXP>
 									</PAR>
@@ -16449,7 +16658,9 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<PAR Name="FuncName">
 										<EXP><![CDATA[$C$FoerdererUI]]></EXP>
 									</PAR>
-									<PAR Name="InputExp" />
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$C$Param.Input[0].class]]></EXP>
+									</PAR>
 									<PAR Name="ResultRef">
 										<EXP><![CDATA[$V$]]></EXP>
 									</PAR>
@@ -16501,6 +16712,145 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 							</ACTION_CALL>
 						</GROUP>
 					</CASEGROUP>
+					<CASEGROUP Id="RDK:22071697" CaseType="0">
+						<EXP><![CDATA[$C$VarioFoerderer]]></EXP>
+						<GROUP Id="RDK:22071688" Name="UI" SubType="Generic">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$Param.Input[0].class<>"OnPasted"]]></EXP>
+							</VALUECONDITION>
+							<SET Id="RDK:22071687" VarRef="Shape_Prototype.VarioFoerdererDefinition">
+								<EXP><![CDATA[$=$VarioFoerdererData_defaults]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+						</GROUP>
+						<SET Id="RDK:22071689" VarRef="Shape_Prototype.layer">
+							<EXP><![CDATA[$C$Strecke]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:22071690" VarRef="Shape_Prototype.VarioFoerdererDefinition.Beschreibung">
+							<EXP><![CDATA[$=$Shape_Prototype.name]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<CALLFUNCTION Id="RDK:22071691">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$CreatePrototype_VarioFoerderer]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
+						<GROUP Id="RDK:22071696" Name="UI" SubType="Generic">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$Param.Input[0].class<>"OnPasted"]]></EXP>
+							</VALUECONDITION>
+							<ACTION_CALL Id="RDK:22071692" Name="RDEngineering_RemoteRedirect" DesignTimeRemark="{Action Mode} {Url}" DesignTimeNotes="(CLOSEBUTTON)(TITLE=TITOLO DEL POP UP)(TITLECOLOR=#000000)(TITLEBACKCOLOR=RED)(STARTPOSITION=bottom)(NOPADDING)(DRAGGABLE)">
+								<PAR Name="RDLibraryName">
+									<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+								</PAR>
+								<PAR Name="RedirectMode">
+									<EXP><![CDATA[$C$5]]></EXP>
+								</PAR>
+								<PAR Name="Url" />
+								<PAR Name="HtmlFile" />
+								<PAR Name="HtmlData" />
+								<PAR Name="JsCode" />
+								<PAR Name="JsResult">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="CssSource" />
+								<PAR Name="PopupName" />
+								<PAR Name="PopupStyle" />
+								<PAR Name="Process" />
+								<PAR Name="RunTimeRemark" />
+								<PAR Name="WaitForInput">
+									<EXP><![CDATA[$C$true]]></EXP>
+								</PAR>
+								<PAR Name="RDActionTimeOut" />
+								<PAR Name="WebResourcePath" />
+								<PAR Name="ImgTop" />
+								<PAR Name="ImgBottom" />
+								<PAR Name="ImgLeft" />
+								<PAR Name="ImgRight" />
+								<PAR Name="CSSStyle" />
+								<PAR Name="ButtonsMode">
+									<EXP><![CDATA[$C$0]]></EXP>
+								</PAR>
+								<PAR Name="ButtonList" />
+								<PAR Name="ButtonImgs" />
+								<PAR Name="ButtonAction" />
+								<PAR Name="ButtonOptions" />
+								<PAR Name="ButtonDefs" />
+								<PAR Name="ButtonPressed">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="HeaderData" />
+								<PAR Name="Options">
+									<EXP><![CDATA[$=$"(CLOSEBUTTON)(TITLE="+Shape_Prototype.name+")(NOPADDING)(STARTPOSITION=bottom)"]]></EXP>
+								</PAR>
+							</ACTION_CALL>
+							<WHILELOOP Id="RDK:22071694">
+								<CALLFUNCTION Id="RDK:22071693">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$VarioFoerdererUI]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$C$Param.Input[0].class]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</WHILELOOP>
+							<ACTION_CALL Id="RDK:22071695" Name="RDEngineering_RemoteRedirect" DesignTimeRemark="{Action Mode} {Url}">
+								<PAR Name="RDLibraryName">
+									<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+								</PAR>
+								<PAR Name="RedirectMode">
+									<EXP><![CDATA[$C$7]]></EXP>
+								</PAR>
+								<PAR Name="Url" />
+								<PAR Name="HtmlFile" />
+								<PAR Name="HtmlData" />
+								<PAR Name="JsCode" />
+								<PAR Name="JsResult">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="CssSource" />
+								<PAR Name="PopupName" />
+								<PAR Name="PopupStyle" />
+								<PAR Name="Process" />
+								<PAR Name="RunTimeRemark" />
+								<PAR Name="WaitForInput">
+									<EXP><![CDATA[$C$true]]></EXP>
+								</PAR>
+								<PAR Name="RDActionTimeOut" />
+								<PAR Name="WebResourcePath" />
+								<PAR Name="ImgTop" />
+								<PAR Name="ImgBottom" />
+								<PAR Name="ImgLeft" />
+								<PAR Name="ImgRight" />
+								<PAR Name="CSSStyle" />
+								<PAR Name="ButtonsMode">
+									<EXP><![CDATA[$C$0]]></EXP>
+								</PAR>
+								<PAR Name="ButtonList" />
+								<PAR Name="ButtonImgs" />
+								<PAR Name="ButtonAction" />
+								<PAR Name="ButtonOptions" />
+								<PAR Name="ButtonDefs" />
+								<PAR Name="ButtonPressed">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="HeaderData" />
+								<PAR Name="Options" />
+							</ACTION_CALL>
+						</GROUP>
+					</CASEGROUP>
 					<CASEGROUP Id="RDK:1653173" CaseType="0">
 						<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
 						<GROUP Id="RDK:18410182" Name="UI" SubType="Generic">
@@ -17622,6 +17972,28 @@ me.x
 									</ACTION_CALL>
 								</GROUP>
 							</CASEGROUP>
+							<CASEGROUP Id="RDK:22071744" CaseType="1">
+								<EXP />
+								<ACTION_CALL Id="RDK:22071743" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
+									<PAR Name="RDLibraryName">
+										<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+									</PAR>
+									<PAR Name="MsgText">
+										<EXP><![CDATA[$C$2DDoubleClick not yet defined for that type]]></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>
+							</CASEGROUP>
 						</SELECTCASE>
 					</GROUP>
 					<GROUP Id="RDK:1022538" SubType="Else" DesignTimeRemark="Pattern localization">
@@ -18754,6 +19126,83 @@ me.x
 							</GROUP>
 						</IFTHENELSE>
 					</CASEGROUP>
+					<CASEGROUP Id="RDK:22071732" CaseType="0">
+						<EXP><![CDATA[$C$VarioFoerderer]]></EXP>
+						<IFTHENELSE Id="RDK:22071728">
+							<VALUECONDITION Value="true" Oper="OR">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Kreisel"]]></EXP>
+							</VALUECONDITION>
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Eckrad"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:22071727" SubType="Then">
+								<CALLFUNCTION Id="RDK:22071724" Suppressed="True">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$AddWeiche]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+								<CALLFUNCTION Id="RDK:22071725">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$UebergabeListe]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+								<CALLFUNCTION Id="RDK:22071726">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$UpdateShape]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+						</IFTHENELSE>
+						<IFTHENELSE Id="RDK:22071731">
+							<VALUECONDITION Value="true" Oper="OR">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Kurve"]]></EXP>
+							</VALUECONDITION>
+							<VALUECONDITION Value="true" Oper="OR">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Foerderer"]]></EXP>
+							</VALUECONDITION>
+							<VALUECONDITION Value="true" Oper="OR">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Gefaellestrecke"]]></EXP>
+							</VALUECONDITION>
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="KurveFoerderer"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:22071730" SubType="Then">
+								<CALLFUNCTION Id="RDK:22071729">
+									<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>
+						</IFTHENELSE>
+					</CASEGROUP>
 					<CASEGROUP Id="RDK:1653223" CaseType="0">
 						<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
 						<SET Id="RDK:1653200" VarRef="OriginalRatation">
@@ -18856,6 +19305,25 @@ me.x
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:1576708" CaseType="1">
 						<EXP />
+						<ACTION_CALL Id="RDK:22071740" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
+							<PAR Name="RDLibraryName">
+								<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+							</PAR>
+							<PAR Name="MsgText">
+								<EXP><![CDATA[$C$2dLinked not yet defined for that type]]></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>
 					</CASEGROUP>
 				</SELECTCASE>
 				<COMMENTS Id="RDK:22006512" DesignTimeRemark="Nach der Neuberechnung ist eine Änderung des angezeigten Status beider Objekte fällig" />
@@ -19006,6 +19474,13 @@ me.x
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</CASEGROUP>
+					<CASEGROUP Id="RDK:22071748" CaseType="0">
+						<EXP><![CDATA[$C$VarioFoerderer]]></EXP>
+						<SET Id="RDK:22071747" VarRef="ShapeList[&quot;id=&quot;+id0].isDefined" DesignTimeRemark="Wenn die Höhen nicht definiert sind, wird der Flag isDefined auf false gesetzt.">
+							<EXP><![CDATA[$=$False]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</CASEGROUP>
 					<CASEGROUP Id="RDK:19961178" CaseType="0">
 						<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
 					</CASEGROUP>
@@ -20453,6 +20928,45 @@ me.x
 									<PAR Name="Options" />
 								</CALLFUNCTION>
 							</CASEGROUP>
+							<CASEGROUP Id="RDK:22071756" CaseType="0">
+								<EXP><![CDATA[$C$VarioFoerderer]]></EXP>
+								<CALLFUNCTION Id="RDK:22071753">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$CreateCopyShapePrototype]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Offsets]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$newId]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+								<SET_STRUCT Id="RDK:22071754" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+									<PAR Name="Key">
+										<EXP><![CDATA[$C$newId]]></EXP>
+									</PAR>
+									<PAR Name="Str">
+										<EXP><![CDATA[$=$newId]]></EXP>
+									</PAR>
+									<PAR Name="Dbl" />
+									<PAR Name="Int" />
+									<PAR Name="Boo" />
+									<PAR Name="StrArr" />
+								</SET_STRUCT>
+								<CALLFUNCTION Id="RDK:22071755">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$LinkToKreisel]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$UebergabeListe]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</CASEGROUP>
 							<CASEGROUP Id="RDK:20579307" CaseType="1">
 								<EXP />
 								<ACTION_CALL Id="RDK:20579316" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
@@ -20487,6 +21001,7 @@ me.x
 						<VAR Id="RDK:1516844" Name="KreiselMerkmale" Type="KreiselMerkmaleType" />
 						<VAR Id="RDK:1516845" Name="GefaellestreckeMerkmale" Type="GefaellestreckeMerkmaleType" />
 						<VAR Id="RDK:18131115" Name="FoerdererMerkmale" Type="FoerdererMerkmaleType" />
+						<VAR Id="RDK:22071782" Name="VarioFoerdererMerkmale" Type="VarioFoerdererMerkmaleType" />
 						<VAR Id="RDK:1516846" Name="WeicheMerkmale" Type="WeicheMerkmaleType" />
 						<VAR Id="RDK:19253126" Name="KurveMerkmale" Type="KurveMerkmaleType" />
 						<VAR Id="RDK:21692287" Name="KurveFoerdererMerkmale" Type="KurveFoerdererMerkmaleType" />
@@ -20733,6 +21248,59 @@ me.x
 									<PAR Name="POS_TO_ADD" />
 								</LIST_ADD>
 							</CASEGROUP>
+							<CASEGROUP Id="RDK:22071778" CaseType="0">
+								<EXP><![CDATA[$C$VarioFoerderer]]></EXP>
+								<GROUP Id="RDK:22071769" Name="TeileArt" SubType="Generic">
+									<SET Id="RDK:22071768" VarRef="CSV_Item.TeileArt">
+										<EXP><![CDATA[$=$ToJSON("ILS 2.0 VarioFoerderer")]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+								<GROUP Id="RDK:22071771" Name="Bezeichnung" SubType="Generic">
+									<SET Id="RDK:22071770" VarRef="CSV_Item.Bezeichnung">
+										<EXP><![CDATA[$=$ToJSON(ShapeItem.GefaelleDefinition.Beschreibung)]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+								<GROUP Id="RDK:22071773" Name="Planquadrat" SubType="Generic">
+									<CALLFUNCTION Id="RDK:22071772">
+										<PAR Name="FuncName">
+											<EXP><![CDATA[$C$GetPlanquadratPosition]]></EXP>
+										</PAR>
+										<PAR Name="InputExp" />
+										<PAR Name="ResultRef">
+											<EXP><![CDATA[$V$]]></EXP>
+										</PAR>
+										<PAR Name="Options" />
+									</CALLFUNCTION>
+								</GROUP>
+								<GROUP Id="RDK:22071776" Name="Merkmale" SubType="Generic">
+									<SET_STRUCT Id="RDK:22071774" VarRef="VarioFoerdererMerkmale" ClearAll="True">
+										<PAR Name="Anzahl Zusatzseparatoren">
+											<EXP><![CDATA[$=$ShapeItem.VarioFoerdererDefinition.n_Sep - VarioFoerdererData_defaults.n_Sep]]></EXP>
+										</PAR>
+										<PAR Name="Gesamtanzahl Separatoren">
+											<EXP><![CDATA[$=$ShapeItem.VarioFoerdererDefinition.n_Sep]]></EXP>
+										</PAR>
+										<PAR Name="Länge in Meter">
+											<EXP><![CDATA[$=$StrReplace(ShapeItem.VarioFoerdererDefinition.L1/1000, ",", ".")]]></EXP>
+										</PAR>
+										<PAR Name="Anzahl der Scanner">
+											<EXP><![CDATA[$=$ShapeItem.VarioFoerdererDefinition.n_Scan]]></EXP>
+										</PAR>
+									</SET_STRUCT>
+									<SET Id="RDK:22071775" VarRef="CSV_Item.Merkmale">
+										<EXP><![CDATA[$=$ToJSON(VarioFoerdererMerkmale)]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+								<LIST_ADD Id="RDK:22071777" ListRef="CSV_List">
+									<PAR Name="VALUE_TO_ADD">
+										<EXP><![CDATA[$=$CSV_Item]]></EXP>
+									</PAR>
+									<PAR Name="POS_TO_ADD" />
+								</LIST_ADD>
+							</CASEGROUP>
 							<CASEGROUP Id="RDK:1516892" CaseType="0">
 								<EXP><![CDATA[$C$Weiche]]></EXP>
 								<GROUP Id="RDK:1516883" Name="TeileArt" SubType="Generic">
@@ -21643,6 +22211,9 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<CASEGROUP Id="RDK:18760766" CaseType="0">
 								<EXP><![CDATA[$C$Foerderer]]></EXP>
 							</CASEGROUP>
+							<CASEGROUP Id="RDK:22071784" CaseType="0">
+								<EXP><![CDATA[$C$VarioFoerderer]]></EXP>
+							</CASEGROUP>
 							<CASEGROUP Id="RDK:18760768" CaseType="0">
 								<EXP><![CDATA[$C$Weiche]]></EXP>
 							</CASEGROUP>
@@ -22076,6 +22647,26 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							</GROUP>
 						</IFTHENELSE>
 					</CASEGROUP>
+					<CASEGROUP Id="RDK:22071798" CaseType="0">
+						<EXP><![CDATA[$C$VarioFoerderer]]></EXP>
+						<IFTHENELSE Id="RDK:22071797">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$Count(shape_item.links) = 2]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:22071794" SubType="Then">
+								<SET Id="RDK:22071793" VarRef="Param.Result">
+									<EXP><![CDATA[$=$True]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:22071796" SubType="Else">
+								<SET Id="RDK:22071795" VarRef="Param.Result">
+									<EXP><![CDATA[$=$False]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
+					</CASEGROUP>
 					<CASEGROUP Id="RDK:19265786" CaseType="0">
 						<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
 					</CASEGROUP>
@@ -22294,6 +22885,25 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						<EXP><![CDATA[$C$KurveFoerderer]]></EXP>
 						<EXIT_PROCESS Id="RDK:21730240" BreakType="4" ExitStatus="0" />
 					</CASEGROUP>
+					<CASEGROUP Id="RDK:22071802" CaseType="0">
+						<EXP><![CDATA[$C$VarioFoerderer]]></EXP>
+						<IFTHENELSE Id="RDK:22071815">
+							<VALUECONDITION Value="true" Oper="OR">
+								<EXP><![CDATA[$=$IsEmpty(shape_item.VarioFoerdererDefinition.H_Anfang)]]></EXP>
+							</VALUECONDITION>
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$IsEmpty(shape_item.VarioFoerdererDefinition.H_Ende)]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:22071813" SubType="Then">
+								<SET Id="RDK:22071811" VarRef="Param.Result">
+									<EXP><![CDATA[$C$False]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<EXIT_PROCESS Id="RDK:22071812" BreakType="4" ExitStatus="0" />
+							</GROUP>
+							<GROUP Id="RDK:22071814" SubType="Else" />
+						</IFTHENELSE>
+					</CASEGROUP>
 					<CASEGROUP Id="RDK:21231254" CaseType="0">
 						<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
 						<IFTHENELSE Id="RDK:21231253">
@@ -22496,6 +23106,63 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<PAR Name="Options" />
 						</CALLFUNCTION>
 					</CASEGROUP>
+					<CASEGROUP Id="RDK:22071853" CaseType="0">
+						<EXP><![CDATA[$C$VarioFoerderer]]></EXP>
+						<COMMENTS Id="RDK:22071842" DesignTimeRemark="Wenn der VarioFoerderer nur einseitig angebunden ist, kann man von Länge und Winkel als wahre Größe ausgehen" />
+						<SET Id="RDK:22071843" VarRef="H_th">
+							<EXP><![CDATA[$=$Tan(DegToRad(shape_item.VarioFoerdererDefinition.winkel)) * shape_item.VarioFoerdererDefinition.L1]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:22071844" VarRef="H_th">
+							<EXP><![CDATA[$=$Round(H_th,1)]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<IFTHENELSE Id="RDK:22071849">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:22071846" SubType="Then">
+								<SET Id="RDK:22071845" VarRef="shape_item.VarioFoerdererDefinition.HoeheUnten">
+									<EXP><![CDATA[$=$shape_item.VarioFoerdererDefinition.HoeheOben - H_th]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:22071848" SubType="Else">
+								<SET Id="RDK:22071847" VarRef="shape_item.VarioFoerdererDefinition.HoeheOben">
+									<EXP><![CDATA[$=$shape_item.VarioFoerdererDefinition.HoeheUnten + H_th]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
+						<SET Id="RDK:22071850" VarRef="ShapeList[&quot;id=&quot;+Param.Input]">
+							<EXP><![CDATA[$=$shape_item]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<CALLFUNCTION Id="RDK:22071851">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$Calculate VarioFoerderer]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$shape_item.id]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
+						<CALLFUNCTION Id="RDK:22071852">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$SetStatus]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$shape_item.id]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
+					</CASEGROUP>
 				</SELECTCASE>
 				<SET Id="RDK:21231294" VarRef="Param.Result">
 					<EXP><![CDATA[$=$True]]></EXP>
@@ -22612,6 +23279,116 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</GROUP>
 				</IFTHENELSE>
 			</FUNCTION>
+			<FUNCTION Id="RDK:22071923" Name="Calculate VarioFoerderer" InputTypeName="string">
+				<COMMENTS Id="RDK:22071890" 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" />
+				<GROUP Id="RDK:22071895" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:22071891" Name="L_th" Type="double" />
+					<VAR Id="RDK:22071892" Name="H_th" Type="double" />
+					<VAR Id="RDK:22071893" Name="winkel_th" Type="double" />
+					<VAR Id="RDK:22071894" Name="shape_item" Type="Editor2DShapeType" />
+				</GROUP>
+				<IFTHENELSE Id="RDK:22071898">
+					<VALUECONDITION Value="true">
+						<EXP><![CDATA[$=$IsEmpty(Param.Input)]]></EXP>
+					</VALUECONDITION>
+					<GROUP Id="RDK:22071897" SubType="Then">
+						<EXIT_PROCESS Id="RDK:22071896" BreakType="4" ExitStatus="0" />
+					</GROUP>
+				</IFTHENELSE>
+				<COMMENTS Id="RDK:22071899" DesignTimeRemark="Param.Input" />
+				<SET Id="RDK:22071900" VarRef="shape_item">
+					<EXP><![CDATA[$=$ShapeList["id="+Param.Input]]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<IFTHENELSE Id="RDK:22071922">
+					<VALUECONDITION Value="true" Oper="OR">
+						<EXP><![CDATA[$=$IsEmpty(shape_item.VarioFoerdererDefinition.H_Anfang)]]></EXP>
+					</VALUECONDITION>
+					<VALUECONDITION Value="true" Oper="OR">
+						<EXP><![CDATA[$=$IsEmpty(shape_item.VarioFoerdererDefinition.H_Ende)]]></EXP>
+					</VALUECONDITION>
+					<VALUECONDITION Value="true" Oper="OR">
+						<EXP><![CDATA[$=$Abs(shape_item.VarioFoerdererDefinition.winkel) < 0.0001]]></EXP>
+					</VALUECONDITION>
+					<VALUECONDITION Value="false">
+						<EXP><![CDATA[$=$shape_item.family = "VarioFoerderer"]]></EXP>
+					</VALUECONDITION>
+					<GROUP Id="RDK:22071904" SubType="Then">
+						<SET Id="RDK:22071901" VarRef="shape_item.VarioFoerdererDefinition.LH_fits">
+							<EXP><![CDATA[$=$False]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:22071902" VarRef="shape_item.text">
+							<EXP><![CDATA[$C$O]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:22071903" VarRef="Param.Result">
+							<EXP><![CDATA[$C$False]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</GROUP>
+					<GROUP Id="RDK:22071921" SubType="Else">
+						<COMMENTS Id="RDK:22071905" DesignTimeRemark="Es werden die Länge, Winkel und Höhen als gegeben angsehen. Jetzt nur noch rechnen ob die Angaben passen. " />
+						<SET Id="RDK:22071906" VarRef="L_th">
+							<EXP><![CDATA[$=$(shape_item.VarioFoerdererDefinition.HoeheOben-shape_item.VarioFoerdererDefinition.HoeheUnten)/Tan(DegToRad(shape_item.VarioFoerdererDefinition.winkel))]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:22071907" VarRef="H_th">
+							<EXP><![CDATA[$=$shape_item.VarioFoerdererDefinition.L1*Tan(DegToRad(shape_item.VarioFoerdererDefinition.winkel))]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:22071908" VarRef="winkel_th">
+							<EXP><![CDATA[$=$Round(RadToDeg(Abs(shape_item.VarioFoerdererDefinition.H_Anfang-shape_item.VarioFoerdererDefinition.H_Ende)/shape_item.VarioFoerdererDefinition.L1),0)]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:22071909" VarRef="shape_item.VarioFoerdererDefinition.L_th">
+							<EXP><![CDATA[$=$Abs(Round(L_th, 0))]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:22071910" VarRef="shape_item.VarioFoerdererDefinition.H_th">
+							<EXP><![CDATA[$=$]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:22071911" VarRef="shape_item.VarioFoerdererDefinition.winkel_th">
+							<EXP><![CDATA[$=$winkel_th]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:22071912" VarRef="shape_item.VarioFoerdererDefinition.LH_fits">
+							<EXP><![CDATA[$=$IIF(Abs(shape_item.VarioFoerdererDefinition.L1-L_th)<shape_item.VarioFoerdererDefinition.LH_toleranz,True,False)]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:22071913" VarRef="Param.Result">
+							<EXP><![CDATA[$=$shape_item.VarioFoerdererDefinition.LH_fits]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<IFTHENELSE Id="RDK:22071918">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$shape_item.VarioFoerdererDefinition.H_Anfang>shape_item.VarioFoerdererDefinition.H_Ende]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:22071915" SubType="Then">
+								<SET Id="RDK:22071914" VarRef="shape_item.text">
+									<EXP><![CDATA[$=$IIF(shape_item.VarioFoerdererDefinition.LH_fits, "↓", "O")]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:22071917" SubType="Else">
+								<SET Id="RDK:22071916" VarRef="shape_item.text" DesignTimeTip="↓">
+									<EXP><![CDATA[$=$IIF(shape_item.VarioFoerdererDefinition.LH_fits, "↑", "O")]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
+						<SET Id="RDK:22071919" VarRef="shape_item.z">
+							<EXP><![CDATA[$=$shape_item.VarioFoerdererDefinition.HoeheOben/2 + shape_item.VarioFoerdererDefinition.HoeheUnten/2]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:22071920" VarRef="ShapeList[&quot;id=&quot;+Param.Input]">
+							<EXP><![CDATA[$=$shape_item]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</GROUP>
+				</IFTHENELSE>
+			</FUNCTION>
 			<FUNCTION Id="RDK:18376615" Name="CalcGFTheoretischeLänge_Prototype" InputTypeName="string">
 				<GROUP Id="RDK:18547162" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:18547159" Name="L_th" Type="double" />
@@ -22860,7 +23637,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						</SET>
 						<IFTHENELSE Id="RDK:22069264">
 							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$Shape_Prototype.VarioFoerdererDefinition.H_Anfang>Shape_Prototype.GefaelleDefinition.H_Ende]]></EXP>
+								<EXP><![CDATA[$=$Shape_Prototype.VarioFoerdererDefinition.H_Anfang>Shape_Prototype.VarioFoerdererDefinition.H_Ende]]></EXP>
 							</VALUECONDITION>
 							<GROUP Id="RDK:22069261" SubType="Then">
 								<SET Id="RDK:22069260" VarRef="Shape_Prototype.text">
@@ -23400,6 +24177,42 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</CASEGROUP>
+					<CASEGROUP Id="RDK:22071968" CaseType="0">
+						<EXP><![CDATA[$C$VarioFoerderer]]></EXP>
+						<IFTHENELSE Id="RDK:22071965">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$label="cp1"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:22071962" SubType="Then">
+								<SET Id="RDK:22071961" VarRef="ShapeList[&quot;id=&quot;+shapeId].VarioFoerdererDefinition.H_Anfang">
+									<EXP><![CDATA[$=$hoehe]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:22071964" SubType="Else">
+								<SET Id="RDK:22071963" VarRef="ShapeList[&quot;id=&quot;+shapeId].VarioFoerdererDefinition.H_Ende">
+									<EXP><![CDATA[$=$hoehe]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
+						<CALLFUNCTION Id="RDK:22071966">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$Calculate VarioFoerderer]]></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:22071967" VarRef="ShapeList[&quot;id=&quot;+shapeId].z">
+							<EXP><![CDATA[$=$ShapeList["id="+shapeId].VarioFoerdererDefinition.H_Anfang/2 + ShapeList["id="+shapeId].VarioFoerdererDefinition.H_Ende/2]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</CASEGROUP>
 					<CASEGROUP Id="RDK:21920375" CaseType="0">
 						<EXP><![CDATA[$C$Kurve]]></EXP>
 						<IFTHENELSE Id="RDK:21920373" DesignTimeRemark="Hier kommen wir vom Ende der Kurve, bzw. setzen die Höhe des Endes">
@@ -24805,6 +25618,42 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							</GROUP>
 						</IFTHENELSE>
 					</CASEGROUP>
+					<CASEGROUP Id="RDK:22071980" CaseType="0">
+						<EXP><![CDATA[$C$VarioFoerderer]]></EXP>
+						<IFTHENELSE Id="RDK:22071979">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$(ShapeList["id="+shapeId].VarioFoerdererDefinition.LH_fits = True)]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:22071976" SubType="Then">
+								<CALLFUNCTION Id="RDK:22071975">
+									<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:22071978" SubType="Else">
+								<CALLFUNCTION Id="RDK:22071977">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$SetStatus_False]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$shapeId]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+						</IFTHENELSE>
+					</CASEGROUP>
 					<CASEGROUP Id="RDK:19602977" CaseType="0">
 						<EXP><![CDATA[$C$Kurve]]></EXP>
 						<IFTHENELSE Id="RDK:21032034">
@@ -25151,6 +26000,13 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</CASEGROUP>
+					<CASEGROUP Id="RDK:22071986" CaseType="0">
+						<EXP><![CDATA[$C$VarioFoerderer]]></EXP>
+						<SET Id="RDK:22071985" VarRef="color">
+							<EXP><![CDATA[$C$#0E499F]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</CASEGROUP>
 					<CASEGROUP Id="RDK:19435285" CaseType="0">
 						<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
 						<SET Id="RDK:19435284" VarRef="color">
@@ -25445,6 +26301,34 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							</GROUP>
 						</IFTHENELSE>
 					</CASEGROUP>
+					<CASEGROUP Id="RDK:22072002" CaseType="0">
+						<EXP><![CDATA[$C$VarioFoerderer]]></EXP>
+						<SET Id="RDK:22071995" VarRef="h1">
+							<EXP><![CDATA[$=$item.VarioFoerdererDefinition.H_Anfang]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:22071996" VarRef="h2">
+							<EXP><![CDATA[$=$item.VarioFoerdererDefinition.H_Ende]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<IFTHENELSE Id="RDK:22072001">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:22071998" SubType="Then">
+								<SET Id="RDK:22071997" VarRef="hoehe">
+									<EXP><![CDATA[$=$h1]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:22072000" SubType="Else">
+								<SET Id="RDK:22071999" VarRef="hoehe">
+									<EXP><![CDATA[$=$h2]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
+					</CASEGROUP>
 					<CASEGROUP Id="RDK:18741920" CaseType="1">
 						<EXP />
 						<SET Id="RDK:18928863" VarRef="hoehe">