From 7e8a05da523a9d5d3551eb2eb77f86371d445021 Mon Sep 17 00:00:00 2001
From: Yuelin Wang <y.wang@schoenenberger.de>
Date: Tue, 14 May 2024 14:10:10 +0200
Subject: [PATCH] Funciton SetHeightOfStreckeOnConnet wurde angepasst

---
 MAIN_SSG.rdx | 232 ++++++++++++++++++++++++++++++++++++++++-----------
 1 file changed, 182 insertions(+), 50 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index edec8bc..e7e3464 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="2024-05-06T10:38:19" LanguageVersion="2014.1.3.635" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="y.wang [ANGEBOT-NB02]" ModDate="2024-05-14T13:50:00" LanguageVersion="2014.1.3.635" />
 	<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">
@@ -50,7 +50,7 @@
 					<FIELD Id="RDK:1520421" Name="Drehung" Type="integer" DesignTimeNotes="1= im Uhrzeigersinn=rechts&#xD;&#xA;-1= Gegen Uhrzeigersinn=links" />
 					<FIELD Id="RDK:1520424" Name="Durchmesser" Type="double" />
 				</TYPE>
-				<TYPE Id="RDK:302581" Name="GefaelleType" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:302581" Name="GefaelleType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:302571" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:880709" Name="L1" Type="double" />
@@ -796,7 +796,7 @@
 				</TYPE>
 			</GROUP>
 			<GROUP Id="RDK:18753242" Name="SE EXPORT" SubType="TypeSet" IncludeDate="0">
-				<TYPE Id="RDK:18753212" Name="SEType" Expanded="True" SubType="structure" HasArrayType="True" DesignTimeNotes="Der Rest der Datei ist eine Liste aller Objekte, welche vom Benutzer angelegt wurden.  Die Merkmale jedes Objektes werden wie in die Datei geschrieben, wie sie im RD verwendet werden. Eine Übersetzung in die Merkmale für das ERP findet ausserhalb statt.">
+				<TYPE Id="RDK:18753212" Name="SEType" SubType="structure" HasArrayType="True" DesignTimeNotes="Der Rest der Datei ist eine Liste aller Objekte, welche vom Benutzer angelegt wurden.  Die Merkmale jedes Objektes werden wie in die Datei geschrieben, wie sie im RD verwendet werden. Eine Übersetzung in die Merkmale für das ERP findet ausserhalb statt.">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:18753205" Name="Elementnummer" Type="integer" DesignTimeNotes="Die Elementnummer ist einfach eine laufende Nummer" />
 					<FIELD Id="RDK:18753206" Name="TeileArt" Type="string" />
@@ -12552,6 +12552,7 @@ me.x
 					<VAR Id="RDK:18372899" Name="ÜbergabeListe" Type="SSGParameter[]" />
 					<VAR Id="RDK:18374148" Name="RückgabeListe" Type="SSGParameter[]" />
 					<VAR Id="RDK:18399128" Name="shape_id" Type="string" />
+					<VAR Id="RDK:19089175" Name="item_1" Type="Editor2DShapeType" />
 				</GROUP>
 				<SET Id="RDK:1578954" VarRef="Shape_Prototype">
 					<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
@@ -12819,20 +12820,87 @@ me.x
 								</CALLFUNCTION>
 							</GROUP>
 						</IFTHENELSE>
-						<IFTHENELSE Id="RDK:18466094">
+						<SET Id="RDK:19089169" VarRef="item_1">
+							<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID]]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SELECTCASE Id="RDK:19089171">
+							<EXP><![CDATA[$=$item_1.family]]></EXP>
+							<CASEGROUP Id="RDK:19089173" CaseType="0">
+								<EXP><![CDATA[$C$Foerderer]]></EXP>
+								<CALLFUNCTION Id="RDK:19089253">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$Calculate Foerderer Data]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+								<IFTHENELSE Id="RDK:19089278">
+									<VALUECONDITION Value="false">
+										<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
+									</VALUECONDITION>
+									<GROUP Id="RDK:19089277" SubType="Then">
+										<SET_STRUCT Id="RDK:19089275" VarRef="SSGParameter" ClearAll="True" ListRef="RückgabeListe">
+											<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" />
+										</SET_STRUCT>
+										<CALLFUNCTION Id="RDK:19089276">
+											<PAR Name="FuncName">
+												<EXP><![CDATA[$C$WriteShapeDataFoerderer]]></EXP>
+											</PAR>
+											<PAR Name="InputExp">
+												<EXP><![CDATA[$=$RückgabeListe]]></EXP>
+											</PAR>
+											<PAR Name="ResultRef">
+												<EXP><![CDATA[$V$]]></EXP>
+											</PAR>
+											<PAR Name="Options" />
+										</CALLFUNCTION>
+									</GROUP>
+								</IFTHENELSE>
+							</CASEGROUP>
+							<CASEGROUP Id="RDK:19089284" CaseType="0">
+								<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
+								<CALLFUNCTION Id="RDK:19089286">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$Check_LH_fits_gefaelle]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</CASEGROUP>
+						</SELECTCASE>
+						<IFTHENELSE Id="RDK:18935850" Suppressed="True">
 							<VALUECONDITION Value="true" Oper="OR">
 								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Foerderer"]]></EXP>
 							</VALUECONDITION>
 							<VALUECONDITION Value="true">
 								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Foerderer"]]></EXP>
 							</VALUECONDITION>
-							<GROUP Id="RDK:18466091" SubType="Then">
-								<IFTHENELSE Id="RDK:18503552">
+							<GROUP Id="RDK:18935849" SubType="Then">
+								<IFTHENELSE Id="RDK:18935848">
 									<VALUECONDITION Value="true">
 										<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Foerderer"]]></EXP>
 									</VALUECONDITION>
-									<GROUP Id="RDK:18503553" SubType="Then">
-										<CALLFUNCTION Id="RDK:18474084">
+									<GROUP Id="RDK:18935841" SubType="Then">
+										<CALLFUNCTION Id="RDK:18935836">
 											<PAR Name="FuncName">
 												<EXP><![CDATA[$C$Calculate Foerderer Data]]></EXP>
 											</PAR>
@@ -12844,12 +12912,12 @@ me.x
 											</PAR>
 											<PAR Name="Options" />
 										</CALLFUNCTION>
-										<IFTHENELSE Id="RDK:18479093">
+										<IFTHENELSE Id="RDK:18935840">
 											<VALUECONDITION Value="false">
 												<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
 											</VALUECONDITION>
-											<GROUP Id="RDK:18479094" SubType="Then">
-												<SET_STRUCT Id="RDK:18479090" VarRef="SSGParameter" ClearAll="True" ListRef="RückgabeListe">
+											<GROUP Id="RDK:18935839" SubType="Then">
+												<SET_STRUCT Id="RDK:18935837" VarRef="SSGParameter" ClearAll="True" ListRef="RückgabeListe">
 													<PAR Name="Key">
 														<EXP><![CDATA[$C$shapeID]]></EXP>
 													</PAR>
@@ -12860,7 +12928,7 @@ me.x
 													<PAR Name="Int" />
 													<PAR Name="Boo" />
 												</SET_STRUCT>
-												<CALLFUNCTION Id="RDK:18474195">
+												<CALLFUNCTION Id="RDK:18935838">
 													<PAR Name="FuncName">
 														<EXP><![CDATA[$C$WriteShapeDataFoerderer]]></EXP>
 													</PAR>
@@ -12875,8 +12943,8 @@ me.x
 											</GROUP>
 										</IFTHENELSE>
 									</GROUP>
-									<GROUP Id="RDK:18503554" SubType="Else">
-										<CALLFUNCTION Id="RDK:18474199">
+									<GROUP Id="RDK:18935847" SubType="Else">
+										<CALLFUNCTION Id="RDK:18935842">
 											<PAR Name="FuncName">
 												<EXP><![CDATA[$C$Calculate Foerderer Data]]></EXP>
 											</PAR>
@@ -12888,12 +12956,12 @@ me.x
 											</PAR>
 											<PAR Name="Options" />
 										</CALLFUNCTION>
-										<IFTHENELSE Id="RDK:18479111">
+										<IFTHENELSE Id="RDK:18935846">
 											<VALUECONDITION Value="false">
 												<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
 											</VALUECONDITION>
-											<GROUP Id="RDK:18479110" SubType="Then">
-												<SET_STRUCT Id="RDK:18479108" VarRef="SSGParameter" ClearAll="True" ListRef="RückgabeListe">
+											<GROUP Id="RDK:18935845" SubType="Then">
+												<SET_STRUCT Id="RDK:18935843" VarRef="SSGParameter" ClearAll="True" ListRef="RückgabeListe">
 													<PAR Name="Key">
 														<EXP><![CDATA[$C$shapeID]]></EXP>
 													</PAR>
@@ -12904,7 +12972,7 @@ me.x
 													<PAR Name="Int" />
 													<PAR Name="Boo" />
 												</SET_STRUCT>
-												<CALLFUNCTION Id="RDK:18479109">
+												<CALLFUNCTION Id="RDK:18935844">
 													<PAR Name="FuncName">
 														<EXP><![CDATA[$C$WriteShapeDataFoerderer]]></EXP>
 													</PAR>
@@ -12922,20 +12990,20 @@ me.x
 								</IFTHENELSE>
 							</GROUP>
 						</IFTHENELSE>
-						<IFTHENELSE Id="RDK:18535060">
+						<IFTHENELSE Id="RDK:18935870" Suppressed="True">
 							<VALUECONDITION Value="true" Oper="OR">
 								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Gefaellestrecke"]]></EXP>
 							</VALUECONDITION>
 							<VALUECONDITION Value="true">
 								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Gefaellestrecke"]]></EXP>
 							</VALUECONDITION>
-							<GROUP Id="RDK:18535070" SubType="Then">
-								<IFTHENELSE Id="RDK:18535074">
+							<GROUP Id="RDK:18935869" SubType="Then">
+								<IFTHENELSE Id="RDK:18935868">
 									<VALUECONDITION Value="true">
 										<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Gefaellestrecke"]]></EXP>
 									</VALUECONDITION>
-									<GROUP Id="RDK:18535087" SubType="Then">
-										<CALLFUNCTION Id="RDK:18535091">
+									<GROUP Id="RDK:18935865" SubType="Then">
+										<CALLFUNCTION Id="RDK:18935864">
 											<PAR Name="FuncName">
 												<EXP><![CDATA[$C$Check_LH_fits_gefaelle]]></EXP>
 											</PAR>
@@ -12948,8 +13016,8 @@ me.x
 											<PAR Name="Options" />
 										</CALLFUNCTION>
 									</GROUP>
-									<GROUP Id="RDK:18535094" SubType="Else">
-										<CALLFUNCTION Id="RDK:18535096">
+									<GROUP Id="RDK:18935867" SubType="Else">
+										<CALLFUNCTION Id="RDK:18935866">
 											<PAR Name="FuncName">
 												<EXP><![CDATA[$C$Check_LH_fits_gefaelle]]></EXP>
 											</PAR>
@@ -13340,23 +13408,23 @@ me.x
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:18221764" CaseType="0">
 						<EXP><![CDATA[$C$Foerderer]]></EXP>
-						<CALLFUNCTION Id="RDK:18221762" 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>
 						<IFTHENELSE Id="RDK:18895373">
 							<VALUECONDITION Value="true">
 								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Kreisel"]]></EXP>
 							</VALUECONDITION>
 							<GROUP Id="RDK:18895372" SubType="Then">
+								<CALLFUNCTION Id="RDK:18221762" 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:18221763">
 									<PAR Name="FuncName">
 										<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
@@ -13436,9 +13504,6 @@ me.x
 							<VALUECONDITION Value="true" Oper="OR">
 								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Strecke"]]></EXP>
 							</VALUECONDITION>
-							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Foerderer"]]></EXP>
-							</VALUECONDITION>
 							<GROUP Id="RDK:18895450" SubType="Then">
 								<CALLFUNCTION Id="RDK:18895449">
 									<PAR Name="FuncName">
@@ -13452,6 +13517,48 @@ me.x
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
+								<CALLFUNCTION Id="RDK:18979603">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$Calculate Foerderer Data]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+								<IFTHENELSE Id="RDK:18979617">
+									<VALUECONDITION Value="false">
+										<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
+									</VALUECONDITION>
+									<GROUP Id="RDK:18979616" SubType="Then">
+										<SET_STRUCT Id="RDK:18979614" VarRef="SSGParameter" ClearAll="True" ListRef="RückgabeListe">
+											<PAR Name="Key">
+												<EXP><![CDATA[$C$shapeID]]></EXP>
+											</PAR>
+											<PAR Name="Str">
+												<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
+											</PAR>
+											<PAR Name="Dbl" />
+											<PAR Name="Int" />
+											<PAR Name="Boo" />
+										</SET_STRUCT>
+										<CALLFUNCTION Id="RDK:18979615">
+											<PAR Name="FuncName">
+												<EXP><![CDATA[$C$WriteShapeDataFoerderer]]></EXP>
+											</PAR>
+											<PAR Name="InputExp">
+												<EXP><![CDATA[$=$RückgabeListe]]></EXP>
+											</PAR>
+											<PAR Name="ResultRef">
+												<EXP><![CDATA[$V$]]></EXP>
+											</PAR>
+											<PAR Name="Options" />
+										</CALLFUNCTION>
+									</GROUP>
+								</IFTHENELSE>
 							</GROUP>
 						</IFTHENELSE>
 						<COMMENTS Id="RDK:18895415" DesignTimeRemark="//TODO" />
@@ -14943,9 +15050,10 @@ ShapeList["id="+Param.Input[1].shapeID].name
 			</FUNCTION>
 			<FUNCTION Id="RDK:18732540" Name="SetHeightOfStreckeOnConnect" InputTypeName="Editor2DEventArgumentsTypeList" ResultTypeName="SSGParameter[]">
 				<GROUP Id="RDK:18742673" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
-					<VAR Id="RDK:18742667" Name="item_strecke" Type="Editor2DShapeType" />
+					<VAR Id="RDK:18742667" Name="shape_item" Type="Editor2DShapeType" />
 					<VAR Id="RDK:18742737" Name="item_0" Type="Editor2DShapeType" />
 					<VAR Id="RDK:18742668" Name="item_1" Type="Editor2DShapeType" />
+					<VAR Id="RDK:18935909" Name="cp_partner" Type="SSGConnectionPoint" />
 					<VAR Id="RDK:18742670" Name="streckenhoehe" Type="double" Suppressed="True" />
 					<VAR Id="RDK:18827203" Name="hoehe" Type="double" />
 					<VAR Id="RDK:18742671" Name="UebergabeListe" Type="SSGParameter[]" />
@@ -14964,7 +15072,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<CASEGROUP Id="RDK:18827142" CaseType="0">
 						<EXP><![CDATA[$C$Foerderer]]></EXP>
 						<COMMENTS Id="RDK:18827135" DesignTimeRemark="//Foerderer hat Index == 0" />
-						<SET Id="RDK:18827136" VarRef="item_strecke" Suppressed="True">
+						<SET Id="RDK:18827136" VarRef="shape_item" Suppressed="True">
 							<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
@@ -15032,11 +15140,11 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
 							</VALUECONDITION>
 							<GROUP Id="RDK:18895273" SubType="Then">
-								<SET Id="RDK:18895271" VarRef="item_0.FoerdererDefinition.HoeheOben">
+								<SET Id="RDK:18895271" VarRef="item_0.FoerdererDefinition.H_1">
 									<EXP><![CDATA[$=$hoehe]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
-								<SET Id="RDK:18895281" VarRef="Shape_Prototype">
+								<SET Id="RDK:18960875" VarRef="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID]">
 									<EXP><![CDATA[$=$item_0]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
@@ -15044,7 +15152,9 @@ ShapeList["id="+Param.Input[1].shapeID].name
 									<PAR Name="FuncName">
 										<EXP><![CDATA[$C$Calculate Foerderer]]></EXP>
 									</PAR>
-									<PAR Name="InputExp" />
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$C$Param.Input[0].shapeID]]></EXP>
+									</PAR>
 									<PAR Name="ResultRef">
 										<EXP><![CDATA[$V$]]></EXP>
 									</PAR>
@@ -15052,11 +15162,11 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</CALLFUNCTION>
 							</GROUP>
 							<GROUP Id="RDK:18895276" SubType="Else">
-								<SET Id="RDK:18895274" VarRef="item_0.FoerdererDefinition.HoeheUnten">
+								<SET Id="RDK:18895274" VarRef="item_0.FoerdererDefinition.H_0">
 									<EXP><![CDATA[$=$hoehe]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
-								<SET Id="RDK:18895285" VarRef="Shape_Prototype">
+								<SET Id="RDK:18960877" VarRef="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID]">
 									<EXP><![CDATA[$=$item_0]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
@@ -15064,7 +15174,9 @@ ShapeList["id="+Param.Input[1].shapeID].name
 									<PAR Name="FuncName">
 										<EXP><![CDATA[$C$Calculate Foerderer]]></EXP>
 									</PAR>
-									<PAR Name="InputExp" />
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$C$Param.Input[0].shapeID]]></EXP>
+									</PAR>
 									<PAR Name="ResultRef">
 										<EXP><![CDATA[$V$]]></EXP>
 									</PAR>
@@ -15076,7 +15188,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<CASEGROUP Id="RDK:18827084" CaseType="0">
 						<EXP><![CDATA[$C$Strecke]]></EXP>
 						<COMMENTS Id="RDK:18827100" DesignTimeRemark="//Strecke hat Index == 0" />
-						<SET Id="RDK:18827088" VarRef="item_strecke" Suppressed="True">
+						<SET Id="RDK:18827088" VarRef="shape_item" Suppressed="True">
 							<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
@@ -15084,6 +15196,10 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<EXP><![CDATA[$=$Param.Input[0].connectionPointID]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
+						<SET Id="RDK:19123969" VarRef="cp_partner" DesignTimeNotes="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].connectionPoints[&quot;cpId=&quot;+cpId]">
+							<EXP><![CDATA[$=$FromJSON(ShapeList["id="+Param.Input[1].shapeID].connectionPoints)["cpId="+cpId]]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
 						<SET_STRUCT Id="RDK:18827090" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 							<PAR Name="Key">
 								<EXP><![CDATA[$C$shapeID]]></EXP>
@@ -15148,6 +15264,10 @@ ShapeList["id="+Param.Input[1].shapeID].name
 									<EXP><![CDATA[$=$hoehe-StreckeData_defaults.Delta_h]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
+								<SET Id="RDK:18956018" VarRef="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID]">
+									<EXP><![CDATA[$=$item_0]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
 							</GROUP>
 							<GROUP Id="RDK:18827232" SubType="Else">
 								<SET Id="RDK:18827243" VarRef="item_0.StreckeDefinition.HoeheUnten">
@@ -15158,13 +15278,17 @@ ShapeList["id="+Param.Input[1].shapeID].name
 									<EXP><![CDATA[$=$hoehe+StreckeData_defaults.Delta_h]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
+								<SET Id="RDK:18956020" VarRef="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID]">
+									<EXP><![CDATA[$=$item_0]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
 							</GROUP>
 						</IFTHENELSE>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:18827160" CaseType="0">
 						<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
 						<COMMENTS Id="RDK:18827153" DesignTimeRemark="//Gefaellestrecke hat Index == 0" />
-						<SET Id="RDK:18827154" VarRef="item_strecke" Suppressed="True">
+						<SET Id="RDK:18827154" VarRef="shape_item" Suppressed="True">
 							<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
@@ -15236,6 +15360,10 @@ ShapeList["id="+Param.Input[1].shapeID].name
 									<EXP><![CDATA[$=$hoehe]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
+								<SET Id="RDK:18966425" VarRef="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID]">
+									<EXP><![CDATA[$=$item_0]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
 								<CALLFUNCTION Id="RDK:18895245">
 									<PAR Name="FuncName">
 										<EXP><![CDATA[$C$Check_LH_fits_gefaelle]]></EXP>
@@ -15254,6 +15382,10 @@ ShapeList["id="+Param.Input[1].shapeID].name
 									<EXP><![CDATA[$=$hoehe]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
+								<SET Id="RDK:18966427" VarRef="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID]">
+									<EXP><![CDATA[$=$item_0]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
 								<CALLFUNCTION Id="RDK:18895247">
 									<PAR Name="FuncName">
 										<EXP><![CDATA[$C$Check_LH_fits_gefaelle]]></EXP>