From 8b827ccb7ce147350659b450dde07861a632a313 Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Thu, 6 Nov 2025 17:13:55 +0100
Subject: [PATCH] =?UTF-8?q?Erzeugungsfunktion=20der=20TEFGerade=20mit=20de?=
 =?UTF-8?q?nselben=20=20Werten=20versehen=20die=20auch=20ein=20Objekt=20au?=
 =?UTF-8?q?s=20dem=20Men=C3=BCbaum=20mitbekommt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 343 +++++++++++++++++++++++++++++++++++++++++++++++----
 1 file changed, 319 insertions(+), 24 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 16f9428..fbf924b 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="2025-11-03T17:13:37" LanguageVersion="2014.1.3.712" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2025-11-06T17:05:38" 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">
@@ -1421,6 +1421,7 @@
 			<VAR Id="RDK:23222557" Name="OFBogenData" Type="OFBogenType[]" DesignTimeRemark="Dropdown Liste aller Bögen im Interface" />
 			<VAR Id="RDK:23222658" Name="OFWeichenData" Type="OFWeicheType[]" DesignTimeRemark="Dropdown Liste aller Weichen im Interface" />
 			<VAR Id="RDK:23747696" Name="TEFBogenData" Type="TEFBogenType[]" DesignTimeRemark="Liste aller TEF Bögen" />
+			<VAR Id="RDK:26417372" Name="ID" Type="string" DesignTimeRemark="Generated by RD" />
 		</GROUP>
 		<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
 			<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -5281,12 +5282,15 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 											<EXP><![CDATA[$=$Shape_Prototype.EckradDefinition]]></EXP>
 										</PAR>
 										<PAR Name="GefaelleDefinition" />
-										<PAR Name="FoerdererDefinition" />
 										<PAR Name="VarioFoerdererDefinition" />
 										<PAR Name="KurveDefinition" />
+										<PAR Name="TEFBogenDefinition" />
+										<PAR Name="TEFGeradeDefinition" />
+										<PAR Name="TEFUmlenkDefinition" />
 										<PAR Name="KurveFoerdererDefinition" />
 										<PAR Name="OFGeradeDefinition" />
 										<PAR Name="OFBogenDefinition" />
+										<PAR Name="OFWeicheDefinition" />
 										<PAR Name="WeicheDefinition" />
 										<PAR Name="BTMTBeladungDefinition" />
 										<PAR Name="BTMTEntladungDefinition" />
@@ -5352,10 +5356,6 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 										<PAR Name="pinned" />
 										<PAR Name="selected" />
 										<PAR Name="includeInBOM" />
-										<PAR Name="TEFBogenDefinition" />
-										<PAR Name="TEFGeradeDefinition" />
-										<PAR Name="TEFUmlenkDefinition" />
-										<PAR Name="OFWeicheDefinition" />
 									</SET_STRUCT>
 								</GROUP>
 							</CASEGROUP>
@@ -11881,7 +11881,7 @@ SSGConnectionPoint.x_M
 					</FUNCTION>
 				</GROUP>
 				<GROUP Id="RDK:26409349" Name="LINE" SubType="FunctionSet" IncludeDate="0">
-					<FUNCTION Id="RDK:26409350" Name="createTEFConnection">
+					<FUNCTION Id="RDK:26409350" Name="createTEFConnection" ResultTypeName="string">
 						<GROUP Id="RDK:26409353" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 							<VAR Id="RDK:26409357" Name="shapeId" Type="string">
 								<SET Id="RDK:26409356" VarRef="Me">
@@ -11920,6 +11920,8 @@ SSGConnectionPoint.x_M
 							<VAR Id="RDK:26416298" Name="ConTypeList1" Type="Editor2DConnectionPointTypeList" />
 							<VAR Id="RDK:26416325" Name="ConTypeList2" Type="Editor2DConnectionPointTypeList" />
 							<VAR Id="RDK:26416337" Name="distance" Type="double" />
+							<VAR Id="RDK:26416351" Name="LinkListe" Type="SSGParameter[]" />
+							<VAR Id="RDK:26417385" Name="Offsets" Type="SSGParameter[]" />
 						</GROUP>
 						<IFTHENELSE Id="RDK:26415267">
 							<VALUECONDITION Value="true">
@@ -11949,6 +11951,268 @@ SSGConnectionPoint.x_M
 									<EXP><![CDATA[$=$IIF(Abs(cp1.x - cp2.x)>=Abs(cp1.y - cp2.y), Abs(cp1.x - cp2.x), Abs(cp1.y - cp2.y))]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
+								<SET Id="RDK:26417397" VarRef="Property_Prototype">
+									<EXP><![CDATA[$C$NOTHING]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<ACTION_CALL Id="RDK:26417399" Name="RDEngineering_E2DManageShape" Suppressed="True" DesignTimeRemark="Eigenschaften des Shape_Prototype nach Property_Prototype kopieren">
+									<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[$=$Property_Prototype.id]]></EXP>
+									</PAR>
+									<PAR Name="catId" />
+									<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" />
+								</ACTION_CALL>
+								<SET Id="RDK:26422344" VarRef="Property_Prototype.eventClass">
+									<EXP><![CDATA[$C$OnDoubleclick,OnInserted,OnLinked,OnPasted]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<SET_STRUCT Id="RDK:26417403" VarRef="Property_Prototype" DesignTimeRemark="Id Nullen, damit in Folge eine neue erzeugt wird.">
+									<PAR Name="id">
+										<EXP><![CDATA[$C$NOTHING]]></EXP>
+									</PAR>
+									<PAR Name="name" />
+									<PAR Name="family" />
+									<PAR Name="description" />
+									<PAR Name="text" />
+									<PAR Name="shapeMode" />
+									<PAR Name="icon" />
+									<PAR Name="iconBig" />
+									<PAR Name="image" />
+									<PAR Name="srcSVG" />
+									<PAR Name="src3D" />
+									<PAR Name="srcTexture3D" />
+									<PAR Name="width" />
+									<PAR Name="height" />
+									<PAR Name="depth" />
+									<PAR Name="behaviour" />
+									<PAR Name="help" />
+									<PAR Name="eventClass" />
+									<PAR Name="linkClass" />
+									<PAR Name="collisionClass" />
+									<PAR Name="containerClass" />
+									<PAR Name="snapClass" />
+									<PAR Name="color" />
+									<PAR Name="colorOpacity" />
+									<PAR Name="lineColor" />
+									<PAR Name="lineColorOpacity" />
+									<PAR Name="color3D" />
+									<PAR Name="colorOpacity3D" />
+									<PAR Name="lineColor3D" />
+									<PAR Name="lineColorOpacity3D" />
+									<PAR Name="custom" />
+									<PAR Name="connectionPoints" />
+									<PAR Name="group2dShapes" />
+									<PAR Name="group2dConnectors" />
+									<PAR Name="group3d" />
+									<PAR Name="eventHandler" />
+									<PAR Name="eventHandlers" />
+								</SET_STRUCT>
+								<SET_STRUCT Id="RDK:26417401" VarRef="Shape_Prototype">
+									<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="OFGeradeDefinition" />
+									<PAR Name="OFBogenDefinition" />
+									<PAR Name="OFWeicheDefinition" />
+									<PAR Name="WeicheDefinition" />
+									<PAR Name="BTMTBeladungDefinition" />
+									<PAR Name="BTMTEntladungDefinition" />
+									<PAR Name="isDefined">
+										<EXP><![CDATA[$C$True]]></EXP>
+									</PAR>
+									<PAR Name="source">
+										<EXP><![CDATA[$C$s_TEFGerade]]></EXP>
+									</PAR>
+									<PAR Name="sourceLibrary">
+										<EXP><![CDATA[$C$SSG]]></EXP>
+									</PAR>
+									<PAR Name="signature" />
+									<PAR Name="id">
+										<EXP><![CDATA[$C$NOTHING]]></EXP>
+									</PAR>
+									<PAR Name="name" />
+									<PAR Name="family">
+										<EXP><![CDATA[$C$TEFGerade]]></EXP>
+									</PAR>
+									<PAR Name="description" />
+									<PAR Name="x">
+										<EXP><![CDATA[$=$(cp1.x+cp2.x)/2]]></EXP>
+									</PAR>
+									<PAR Name="y">
+										<EXP><![CDATA[$=$(cp1.y+cp2.y)/2]]></EXP>
+									</PAR>
+									<PAR Name="z">
+										<EXP><![CDATA[$C$0]]></EXP>
+									</PAR>
+									<PAR Name="width">
+										<EXP><![CDATA[$C$42]]></EXP>
+									</PAR>
+									<PAR Name="height">
+										<EXP><![CDATA[$C$1000]]></EXP>
+									</PAR>
+									<PAR Name="depth">
+										<EXP><![CDATA[$C$110]]></EXP>
+									</PAR>
+									<PAR Name="rotation" />
+									<PAR Name="text" />
+									<PAR Name="behaviour">
+										<EXP><![CDATA[$C$(NOSTRETCH)(NOSTRETCHONVIEW)(NOROTATE)(NOROTATEONVIEW)(CONTAINER)(HIDEDIMENSIONS)(HIDEROTATION)(HIDEPIN)(ALWAYSFRONT)(ORIGIN=CENTER)]]></EXP>
+									</PAR>
+									<PAR Name="datadump" />
+									<PAR Name="path" />
+									<PAR Name="ctrl1x">
+										<EXP><![CDATA[$C$-1]]></EXP>
+									</PAR>
+									<PAR Name="ctrl1y">
+										<EXP><![CDATA[$C$-1]]></EXP>
+									</PAR>
+									<PAR Name="ctrl2x">
+										<EXP><![CDATA[$C$-1]]></EXP>
+									</PAR>
+									<PAR Name="ctrl2y">
+										<EXP><![CDATA[$C$-1]]></EXP>
+									</PAR>
+									<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">
+										<EXP><![CDATA[$C$#f33256]]></EXP>
+									</PAR>
+									<PAR Name="lineOpacity">
+										<EXP><![CDATA[$C$1]]></EXP>
+									</PAR>
+									<PAR Name="lineColor3D">
+										<EXP><![CDATA[$C$1]]></EXP>
+									</PAR>
+									<PAR Name="lineOpacity3D" />
+									<PAR Name="links" />
+									<PAR Name="group" />
+									<PAR Name="layer">
+										<EXP><![CDATA[$C$Strecke]]></EXP>
+									</PAR>
+									<PAR Name="connectionPoints" />
+									<PAR Name="modified">
+										<EXP><![CDATA[$C$True]]></EXP>
+									</PAR>
+									<PAR Name="pinned" />
+									<PAR Name="selected" />
+									<PAR Name="includeInBOM" />
+								</SET_STRUCT>
+								<ACTION_CALL Id="RDK:26417405" 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[$C$c_Session]]></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" />
+								</ACTION_CALL>
+								<CALLFUNCTION Id="RDK:26417407">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$GetNewShapeIDCounter]]></EXP>
+									</PAR>
+									<PAR Name="InputExp" />
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+								<SET Id="RDK:26417409" VarRef="Shape_Prototype.name">
+									<EXP><![CDATA[$=$Shape_Prototype.family+" :"+Shape_Prototype.IDCounter]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<SET Id="RDK:26417411" VarRef="Shape_Prototype.id">
+									<EXP><![CDATA[$=$"Created_"+CreateGUID()]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<SET Id="RDK:26417413" VarRef="Shape_Prototype.links">
+									<EXP><![CDATA[$C$NOTHING]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<SET Id="RDK:26417395" VarRef="Shape_Prototype.TEFGeradeDefinition.L1">
+									<EXP><![CDATA[$=$distance]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<LIST_ADD Id="RDK:26417418" ListRef="ShapeList">
+									<PAR Name="VALUE_TO_ADD">
+										<EXP><![CDATA[$=$Shape_Prototype]]></EXP>
+									</PAR>
+									<PAR Name="POS_TO_ADD" />
+								</LIST_ADD>
+								<SET Id="RDK:26418413" VarRef="Param.Result">
+									<EXP><![CDATA[$=$Shape_Prototype.id
+]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
 							</GROUP>
 						</IFTHENELSE>
 					</FUNCTION>
@@ -28921,7 +29185,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						<PAR Name="ValidateMsg" />
 						<PAR Name="DataSource" />
 						<PAR Name="Options" />
-						<PAR Name="WebviewSubType" />
 					</ACTION_CALL>
 					<ACTION_CALL Id="RDK:24757631" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}" DesignTimeTip="cp1 top point" DesignTimeNotes="20231005 -1-&#xD;&#xA;Read only changed&#xD;&#xA;&#xD;&#xA;20230928 -1-&#xD;&#xA;Label changed&#xD;&#xA;&#xD;&#xA;20241001 -1-&#xD;&#xA;set H0 and H1 to Read only &#xD;&#xA;">
 						<PAR Name="RDLibraryName">
@@ -28981,7 +29244,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						<PAR Name="ValidateMsg" />
 						<PAR Name="DataSource" />
 						<PAR Name="Options" />
-						<PAR Name="WebviewSubType" />
 					</ACTION_CALL>
 					<IFTHENELSE Id="RDK:25379282">
 						<VALUECONDITION Value="true">
@@ -39180,11 +39442,8 @@ me.x
 							<VALUECONDITION Value="true" Oper="OR">
 								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Gefaellestrecke"]]></EXP>
 							</VALUECONDITION>
-							<VALUECONDITION Value="true" Oper="OR">
-								<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>
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="KurveFoerderer"]]></EXP>
 							</VALUECONDITION>
 							<GROUP Id="RDK:18827050" SubType="Then">
 								<CALLFUNCTION Id="RDK:18827049">
@@ -41596,6 +41855,7 @@ me.x
 						</PAR>
 						<PAR Name="Int" />
 						<PAR Name="Boo" />
+						<PAR Name="StrArr2D" />
 					</SET_STRUCT>
 					<SET_STRUCT Id="RDK:25953848" VarRef="SSGParameter" ClearAll="True" ListRef="Offsets">
 						<PAR Name="Key">
@@ -41608,6 +41868,7 @@ me.x
 						</PAR>
 						<PAR Name="Int" />
 						<PAR Name="Boo" />
+						<PAR Name="StrArr2D" />
 					</SET_STRUCT>
 					<SELECTCASE Id="RDK:25953863">
 						<EXP><![CDATA[$=$Shape_Prototype.family]]></EXP>
@@ -41680,6 +41941,29 @@ me.x
 								<PAR Name="AdvancedOptions" />
 							</SET>
 						</CASEGROUP>
+						<CASEGROUP Id="RDK:26417381" CaseType="0">
+							<EXP><![CDATA[$C$TEFGerade]]></EXP>
+							<CALLFUNCTION Id="RDK:26417378">
+								<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 Id="RDK:26417379" VarRef="ShapeList[&quot;id=&quot;+newId].TEFGeradeDefinition.Beschreibung" Bookmarked="True">
+								<EXP><![CDATA[$=$Shape_Prototype.name]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+							<SET Id="RDK:26417380" VarRef="Param.Result">
+								<EXP><![CDATA[$=$newId]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+						</CASEGROUP>
 						<CASEGROUP Id="RDK:25953862" CaseType="1">
 							<EXP />
 							<ACTION_CALL Id="RDK:25953861" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
@@ -41867,6 +42151,7 @@ me.x
 								<PAR Name="Dbl" />
 								<PAR Name="Int" />
 								<PAR Name="Boo" />
+								<PAR Name="StrArr2D" />
 							</SET_STRUCT>
 							<SET_STRUCT Id="RDK:25982989" VarRef="SSGParameter" ClearAll="True" ListRef="Offsets">
 								<PAR Name="Key">
@@ -47175,10 +47460,23 @@ me.x
 				</FUNCTION>
 			</GROUP>
 			<FUNCTION Id="RDK:1630766" Name="GetNewShapeIDCounter" InputTypeName="string">
-				<SET Id="RDK:1630768" VarRef="Shape_Prototype.IDCounter">
-					<EXP><![CDATA[$=$FieldValue(LastOf(SortListOfStructs(FilterByFieldValue(ShapeList, "family", Shape_Prototype.family), "IDCounter", false)), "IDCounter")+1]]></EXP>
-					<PAR Name="AdvancedOptions" />
-				</SET>
+				<IFTHENELSE Id="RDK:26418401">
+					<VALUECONDITION Value="true">
+						<EXP><![CDATA[$=$IsEmpty(FilterByFieldValue(ShapeList, "family", Shape_Prototype.family))]]></EXP>
+					</VALUECONDITION>
+					<GROUP Id="RDK:26418402" SubType="Then">
+						<SET Id="RDK:26418409" VarRef="Shape_Prototype.IDCounter">
+							<EXP><![CDATA[$=$1]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</GROUP>
+					<GROUP Id="RDK:26418403" SubType="Else">
+						<SET Id="RDK:1630768" VarRef="Shape_Prototype.IDCounter">
+							<EXP><![CDATA[$=$FieldValue(LastOf(SortListOfStructs(FilterByFieldValue(ShapeList, "family", Shape_Prototype.family), "IDCounter", false)), "IDCounter")+1]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</GROUP>
+				</IFTHENELSE>
 			</FUNCTION>
 			<FUNCTION Id="RDK:1772330" Name="SetGefaellestreckeHeight" Suppressed="True" InputTypeName="SSGParameter[]">
 				<GROUP Id="RDK:1773485" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
@@ -49489,7 +49787,6 @@ me.x
 						<PAR Name="Dbl" />
 						<PAR Name="Int" />
 						<PAR Name="Boo" />
-						<PAR Name="StrArr2D" />
 					</SET_STRUCT>
 					<SET_STRUCT Id="RDK:21554464" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 						<PAR Name="Key">
@@ -49502,7 +49799,6 @@ me.x
 						<PAR Name="Dbl" />
 						<PAR Name="Int" />
 						<PAR Name="Boo" />
-						<PAR Name="StrArr2D" />
 					</SET_STRUCT>
 					<CALLFUNCTION Id="RDK:21554466">
 						<PAR Name="FuncName">
@@ -51709,14 +52005,13 @@ me.x
 					<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" />
+					<PAR Name="StrArr" />
 				</SET_STRUCT>
 				<SET_STRUCT Id="RDK:18827138" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 					<PAR Name="Key">
@@ -51941,13 +52236,13 @@ me.x
 							</VALUECONDITION>
 							<GROUP Id="RDK:22071998" SubType="Then">
 								<SET Id="RDK:22071997" VarRef="hoehe">
-									<EXP><![CDATA[$=$h2]]></EXP>
+									<EXP><![CDATA[$=$h1]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</GROUP>
 							<GROUP Id="RDK:22072000" SubType="Else">
 								<SET Id="RDK:22071999" VarRef="hoehe">
-									<EXP><![CDATA[$=$h1]]></EXP>
+									<EXP><![CDATA[$=$h2]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</GROUP>
@@ -64812,4 +65107,4 @@ me.x
 		</PROFILES_DATA>
 		<BOM_DATA />
 	</EXTERNAL_DATA>
-</PROCESS>
+</PROCESS>
\ No newline at end of file