From add52813ffc2e675bf4c4dc120930d27069ee6eb Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Mon, 25 Nov 2024 15:22:49 +0100
Subject: [PATCH] =?UTF-8?q?OnConnect=20zwischen=20Variofoerderer=20und=20E?=
 =?UTF-8?q?ckrad/Kreisel=20implementiert.=20H=C3=B6he=20bei=20Anbindung=20?=
 =?UTF-8?q?wurde=20noch=20nicht=20gesetzt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 308 ++++++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 295 insertions(+), 13 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index adc805d..f0b9e50 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-19T11:43:17" LanguageVersion="2014.1.3.699" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-11-25T15:17:22" 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">
@@ -5736,7 +5736,7 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 										<PAR Name="BTMTEntladungDefinition" />
 										<PAR Name="isDefined" />
 										<PAR Name="source">
-											<EXP><![CDATA[$=$"VarioFoerderer"]]></EXP>
+											<EXP><![CDATA[$=$IIF(Shape_Prototype.VarioFoerdererDefinition.AntriebNebenStrecke="rechts","VarioFoerderer_Rechts","VarioFoerderer_Links")]]></EXP>
 										</PAR>
 										<PAR Name="sourceLibrary">
 											<EXP><![CDATA[$=$GS2DLibraryName]]></EXP>
@@ -15047,7 +15047,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 																<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
 															</PAR>
 															<PAR Name="MsgText">
-																<EXP><![CDATA[$C$Winkel  überschreitet die zulässigen Grenzen]]></EXP>
+																<EXP><![CDATA[$C$Winkel oder Länge  überschreitet die zulässigen Grenzen]]></EXP>
 															</PAR>
 															<PAR Name="MsgStyle">
 																<EXP><![CDATA[$C$-1]]></EXP>
@@ -15061,7 +15061,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 																<EXP><![CDATA[$V$]]></EXP>
 															</PAR>
 														</ACTION_CALL>
-														<SET Id="RDK:22069166" VarRef="Shape_Prototype.VarioFoerdererDefinition.H_Anfang">
+														<SET Id="RDK:22069166" VarRef="Shape_Prototype.VarioFoerdererDefinition.H_Anfang" Suppressed="True">
 															<EXP><![CDATA[$=$ShapeList["id="+Shape_Prototype.id].VarioFoerdererDefinition.H_Anfang]]></EXP>
 															<PAR Name="AdvancedOptions" />
 														</SET>
@@ -15077,7 +15077,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 																<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
 															</PAR>
 															<PAR Name="MsgText">
-																<EXP><![CDATA[$C$Winkel  überschreitet die zulässigen Grenzen]]></EXP>
+																<EXP><![CDATA[$C$Winkel oder Länge  überschreitet die zulässigen Grenzen]]></EXP>
 															</PAR>
 															<PAR Name="MsgStyle">
 																<EXP><![CDATA[$C$-1]]></EXP>
@@ -15091,7 +15091,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 																<EXP><![CDATA[$V$]]></EXP>
 															</PAR>
 														</ACTION_CALL>
-														<SET Id="RDK:22069170" VarRef="Shape_Prototype.VarioFoerdererDefinition.H_Ende">
+														<SET Id="RDK:22069170" VarRef="Shape_Prototype.VarioFoerdererDefinition.H_Ende" Suppressed="True">
 															<EXP><![CDATA[$=$ShapeList["id="+Shape_Prototype.id].VarioFoerdererDefinition.H_Ende]]></EXP>
 															<PAR Name="AdvancedOptions" />
 														</SET>
@@ -18907,6 +18907,9 @@ me.x
 							<VALUECONDITION Value="true">
 								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="KurveFoerderer"]]></EXP>
 							</VALUECONDITION>
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="VarioFoerderer"]]></EXP>
+							</VALUECONDITION>
 							<GROUP Id="RDK:18740515" SubType="Then">
 								<CALLFUNCTION Id="RDK:18740514">
 									<PAR Name="FuncName">
@@ -18959,9 +18962,12 @@ me.x
 							<VALUECONDITION Value="true" Oper="OR">
 								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="KurveFoerderer"]]></EXP>
 							</VALUECONDITION>
-							<VALUECONDITION Value="true">
+							<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="VarioFoerderer"]]></EXP>
+							</VALUECONDITION>
 							<GROUP Id="RDK:21692160" SubType="Then">
 								<CALLFUNCTION Id="RDK:21692159">
 									<PAR Name="FuncName">
@@ -23206,14 +23212,14 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								<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>
+								<SET Id="RDK:22071845" VarRef="shape_item.VarioFoerdererDefinition.H_Ende">
+									<EXP><![CDATA[$=$shape_item.VarioFoerdererDefinition.H_Anfang - 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>
+								<SET Id="RDK:22071847" VarRef="shape_item.VarioFoerdererDefinition.H_Anfang">
+									<EXP><![CDATA[$=$shape_item.VarioFoerdererDefinition.H_Ende + H_th]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</GROUP>
@@ -23414,7 +23420,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<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>
+							<EXP><![CDATA[$=$(shape_item.VarioFoerdererDefinition.H_Anfang-shape_item.VarioFoerdererDefinition.H_Ende)/Tan(DegToRad(shape_item.VarioFoerdererDefinition.winkel))]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
 						<SET Id="RDK:22071907" VarRef="H_th">
@@ -23463,7 +23469,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							</GROUP>
 						</IFTHENELSE>
 						<SET Id="RDK:22071919" VarRef="shape_item.z">
-							<EXP><![CDATA[$=$shape_item.VarioFoerdererDefinition.HoeheOben/2 + shape_item.VarioFoerdererDefinition.HoeheUnten/2]]></EXP>
+							<EXP><![CDATA[$=$shape_item.VarioFoerdererDefinition.H_Anfang/2 + shape_item.VarioFoerdererDefinition.H_Ende/2]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
 						<SET Id="RDK:22071920" VarRef="ShapeList[&quot;id=&quot;+Param.Input]">
@@ -25032,6 +25038,144 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						</GROUP>
 					</IFTHENELSE>
 				</GROUP>
+				<GROUP Id="RDK:22185426" Name="Filter" SubType="Generic" DesignTimeNotes="(ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot;and IsTagInString(Param.Input[1].connectionPointID, &quot;defcp&quot;)))  &#xA;Or &#xA;(ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot; and IsTagInString(Param.Input[0].connectionPointID, &quot;defcp&quot;)))  &#xA;">
+					<VALUECONDITION Value="true">
+						<EXP><![CDATA[$=$(item_0.family="Kreisel" and item_1.family="VarioFoerderer") or
+(item_1.family="Kreisel" and item_0.family="VarioFoerderer") ]]></EXP>
+					</VALUECONDITION>
+					<COMMENTS Id="RDK:22185410" DesignTimeRemark="Kreisel-VarioFoerderer" />
+					<IFTHENELSE Id="RDK:22185425">
+						<VALUECONDITION Value="true">
+							<EXP><![CDATA[$=$item_0.family="Kreisel"]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:22185417" SubType="Then">
+							<COMMENTS Id="RDK:22185411" DesignTimeRemark="//VarioFoerderer Index == 1" />
+							<SET_STRUCT Id="RDK:22185412" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$ShapeId]]></EXP>
+								</PAR>
+								<PAR Name="StrArr" />
+								<PAR Name="Str">
+									<EXP><![CDATA[$=$item_1.id]]></EXP>
+								</PAR>
+								<PAR Name="Dbl" />
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+							</SET_STRUCT>
+							<SET_STRUCT Id="RDK:22185413" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$Hoehe]]></EXP>
+								</PAR>
+								<PAR Name="Str" />
+								<PAR Name="Dbl">
+									<EXP><![CDATA[$=$item_0.KreiselDefinition.Hoehe]]></EXP>
+								</PAR>
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+								<PAR Name="StrArr" />
+							</SET_STRUCT>
+							<SET_STRUCT Id="RDK:22185414" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$Label]]></EXP>
+								</PAR>
+								<PAR Name="Str">
+									<EXP><![CDATA[$=$cps_verbunden[1]]]></EXP>
+								</PAR>
+								<PAR Name="Dbl" />
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+								<PAR Name="StrArr" />
+							</SET_STRUCT>
+							<CALLFUNCTION Id="RDK:22185415">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$SetHeight]]></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:22185416">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$SetStatus]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$item_1.id]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+						</GROUP>
+						<GROUP Id="RDK:22185424" SubType="Else">
+							<COMMENTS Id="RDK:22185418" DesignTimeRemark="//VarioFoerderer Index == 0" />
+							<SET_STRUCT Id="RDK:22185419" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$ShapeId]]></EXP>
+								</PAR>
+								<PAR Name="Str">
+									<EXP><![CDATA[$=$item_0.id]]></EXP>
+								</PAR>
+								<PAR Name="Dbl" />
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+								<PAR Name="StrArr" />
+							</SET_STRUCT>
+							<SET_STRUCT Id="RDK:22185420" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$Hoehe]]></EXP>
+								</PAR>
+								<PAR Name="StrArr" />
+								<PAR Name="Str" />
+								<PAR Name="Dbl">
+									<EXP><![CDATA[$=$item_1.KreiselDefinition.Hoehe]]></EXP>
+								</PAR>
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+							</SET_STRUCT>
+							<SET_STRUCT Id="RDK:22185421" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$Label]]></EXP>
+								</PAR>
+								<PAR Name="StrArr" />
+								<PAR Name="Str">
+									<EXP><![CDATA[$=$cps_verbunden[0]]]></EXP>
+								</PAR>
+								<PAR Name="Dbl" />
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+							</SET_STRUCT>
+							<CALLFUNCTION Id="RDK:22185422">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$SetHeight]]></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:22185423">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$SetStatus]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$item_0.id]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+						</GROUP>
+					</IFTHENELSE>
+				</GROUP>
 				<GROUP Id="RDK:19545806" Name="Filter" SubType="Generic" DesignTimeNotes="(ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot;and IsTagInString(Param.Input[1].connectionPointID, &quot;defcp&quot;)))  &#xA;Or &#xA;(ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot; and IsTagInString(Param.Input[0].connectionPointID, &quot;defcp&quot;)))  &#xA;">
 					<VALUECONDITION Value="true">
 						<EXP><![CDATA[$=$(item_0.family="Kreisel" and item_1.family="Foerderer") or
@@ -25470,6 +25614,144 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						</GROUP>
 					</IFTHENELSE>
 				</GROUP>
+				<GROUP Id="RDK:22199211" Name="Filter" SubType="Generic" DesignTimeNotes="(ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot;and IsTagInString(Param.Input[1].connectionPointID, &quot;defcp&quot;)))  &#xA;Or &#xA;(ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot; and IsTagInString(Param.Input[0].connectionPointID, &quot;defcp&quot;)))  &#xA;">
+					<VALUECONDITION Value="true">
+						<EXP><![CDATA[$=$(item_0.family="Eckrad" and item_1.family="VarioFoerderer") or
+(item_1.family="Eckrad" and item_0.family="VarioFoerderer") ]]></EXP>
+					</VALUECONDITION>
+					<COMMENTS Id="RDK:22199195" DesignTimeRemark="Eckrad-VarioFoerderer" />
+					<IFTHENELSE Id="RDK:22199210">
+						<VALUECONDITION Value="true">
+							<EXP><![CDATA[$=$item_0.family="Eckrad"]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:22199202" SubType="Then">
+							<COMMENTS Id="RDK:22199196" DesignTimeRemark="//VarioFoerderer Index == 1" />
+							<SET_STRUCT Id="RDK:22199197" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$ShapeId]]></EXP>
+								</PAR>
+								<PAR Name="Str">
+									<EXP><![CDATA[$=$item_1.id]]></EXP>
+								</PAR>
+								<PAR Name="Dbl" />
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+								<PAR Name="StrArr" />
+							</SET_STRUCT>
+							<SET_STRUCT Id="RDK:22199198" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$Hoehe]]></EXP>
+								</PAR>
+								<PAR Name="Str" />
+								<PAR Name="Dbl">
+									<EXP><![CDATA[$=$item_0.EckradDefinition.Hoehe]]></EXP>
+								</PAR>
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+								<PAR Name="StrArr" />
+							</SET_STRUCT>
+							<SET_STRUCT Id="RDK:22199199" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$Label]]></EXP>
+								</PAR>
+								<PAR Name="Str">
+									<EXP><![CDATA[$=$cps_verbunden[1]]]></EXP>
+								</PAR>
+								<PAR Name="Dbl" />
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+								<PAR Name="StrArr" />
+							</SET_STRUCT>
+							<CALLFUNCTION Id="RDK:22199200">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$SetHeight]]></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:22199201">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$SetStatus]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$item_1.id]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+						</GROUP>
+						<GROUP Id="RDK:22199209" SubType="Else">
+							<COMMENTS Id="RDK:22199203" DesignTimeRemark="//VarioFoerderer Index == 0" />
+							<SET_STRUCT Id="RDK:22199204" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$ShapeId]]></EXP>
+								</PAR>
+								<PAR Name="Str">
+									<EXP><![CDATA[$=$item_0.id]]></EXP>
+								</PAR>
+								<PAR Name="Dbl" />
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+								<PAR Name="StrArr" />
+							</SET_STRUCT>
+							<SET_STRUCT Id="RDK:22199205" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$Hoehe]]></EXP>
+								</PAR>
+								<PAR Name="Str" />
+								<PAR Name="Dbl">
+									<EXP><![CDATA[$=$item_1.EckradDefinition.Hoehe]]></EXP>
+								</PAR>
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+								<PAR Name="StrArr" />
+							</SET_STRUCT>
+							<SET_STRUCT Id="RDK:22199206" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$Label]]></EXP>
+								</PAR>
+								<PAR Name="Str">
+									<EXP><![CDATA[$=$cps_verbunden[0]]]></EXP>
+								</PAR>
+								<PAR Name="Dbl" />
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+								<PAR Name="StrArr" />
+							</SET_STRUCT>
+							<CALLFUNCTION Id="RDK:22199207">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$SetHeight]]></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:22199208">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$SetStatus]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$item_0.id]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+						</GROUP>
+					</IFTHENELSE>
+				</GROUP>
 				<GROUP Id="RDK:19762301" Name="Filter" SubType="Generic" DesignTimeNotes="(ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot;and IsTagInString(Param.Input[1].connectionPointID, &quot;defcp&quot;)))  &#xA;Or &#xA;(ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot; and IsTagInString(Param.Input[0].connectionPointID, &quot;defcp&quot;)))  &#xA;">
 					<VALUECONDITION Value="true">
 						<EXP><![CDATA[$=$(item_0.family="Eckrad" and item_1.family="Foerderer") or