From dcc1012d9ef33bbbce89dad46e55066ff197f5ed Mon Sep 17 00:00:00 2001
From: Yuelin Wang <y.wang@schoenenberger.de>
Date: Fri, 28 Jun 2024 14:21:34 +0200
Subject: [PATCH] =?UTF-8?q?Einen=20Bug=20beim=20Hinzuf=C3=BCgen=20von=20Ve?=
 =?UTF-8?q?rbindungspunkten=20an=20der=20Motorsationseite=20beheben.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 230 +++++++++++++++++++++++++++++++++++++++++----------
 1 file changed, 186 insertions(+), 44 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 1a264a9..01131ec 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-06-27T17:05:03" LanguageVersion="2014.1.3.674" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="y.wang [ANGEBOT-NB02]" ModDate="2024-06-28T14:18:10" LanguageVersion="2014.1.3.674" />
 	<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">
@@ -17,7 +17,7 @@
 					<FIELD Id="RDK:313476" Name="label" Type="string" />
 					<FIELD Id="RDK:721671" Name="aktiv" Type="boolean" />
 				</TYPE>
-				<TYPE Id="RDK:26388" Name="KreiselType" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:26388" Name="KreiselType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:95024" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:26389" Name="AbstandMS" Type="double" />
@@ -44,7 +44,7 @@
 					<FIELD Id="RDK:1561130" Name="depth_PinBand" Type="integer" DesignTimeNotes="Höhe der BounddingBox für den Band" />
 					<FIELD Id="RDK:19929929" Name="height_PinBand" Type="integer" DesignTimeNotes="Breite der BounddingBox für den Band" />
 				</TYPE>
-				<TYPE Id="RDK:1520433" Name="EckradType" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:1520433" Name="EckradType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:1520415" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:1520416" Name="AbstandMS" Type="double" Suppressed="True" />
@@ -52,7 +52,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" />
@@ -114,7 +114,7 @@
 					<FIELD Id="RDK:16525231" Name="Drehung" Type="integer" DesignTimeNotes="1= im Uhrzeigersinn=rechts&#xD;&#xA;-1= Gegen Uhrzeigersinn=links" />
 					<FIELD Id="RDK:16577441" Name="Beschreibung" Type="string" />
 				</TYPE>
-				<TYPE Id="RDK:79642" Name="SSG_ShapeType" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:79642" Name="SSG_ShapeType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:79643" Name="SivasNummer" Type="string" />
 					<FIELD Id="RDK:1561689" Name="Rotationsklasse" Type="string" />
@@ -128,7 +128,7 @@
 					<FIELD Id="RDK:1652536" Name="BTMTBeladungDefinition" Type="BTMTBeladungType" />
 					<FIELD Id="RDK:16525361" Name="BTMTEntladungDefinition" Type="BTMTEntladungType" />
 				</TYPE>
-				<TYPE Id="RDK:18530527" Name="SSG_ShapeType_limit" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:18530527" Name="SSG_ShapeType_limit" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:18530520" Name="KreiselDefinition" Type="KreiselType" />
 					<FIELD Id="RDK:18530521" Name="EckradDefinition" Type="EckradType" />
@@ -10131,12 +10131,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 																	<EXP><![CDATA[$C$(COLOR=red)]]></EXP>
 																</PAR>
 															</ACTION_CALL>
-															<EXEC_ON_VALUES Id="RDK:19947516" VarRef="Shape_Prototype.KreiselDefinition.M_Strecke" ExecMode="1" FilterExp="Me_idx&gt;StrToInt(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0])+1&#xA;&#xA;">
-																<PAR Name="x_M">
-																	<EXP><![CDATA[$=$Me.x_M+Shape_Prototype.KreiselDefinition.d_cp]]></EXP>
-																</PAR>
-															</EXEC_ON_VALUES>
-															<SET_STRUCT Id="RDK:19947518" VarRef="SSGConnectionPoint" ClearAll="True" ListRef="Shape_Prototype.KreiselDefinition.M_Strecke" Options="$=$&quot;(INSERTIDX=&quot;+(StrToInt(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0])+1)+&quot;)&quot;">
+															<SET_STRUCT Id="RDK:19947518" VarRef="SSGConnectionPoint" ClearAll="True" ListRef="Shape_Prototype.KreiselDefinition.M_Strecke" Options="$=$&quot;(INSERTIDX=&quot;+(StrToInt(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0])+1)+&quot;)&quot;" Suppressed="True">
 																<PAR Name="id">
 																	<EXP><![CDATA[$=$"MCP_"+CPs]]></EXP>
 																</PAR>
@@ -10158,6 +10153,60 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 																	<EXP><![CDATA[$C$true]]></EXP>
 																</PAR>
 															</SET_STRUCT>
+															<EXEC_ON_VALUES Id="RDK:19947516" VarRef="Shape_Prototype.KreiselDefinition.M_Strecke" ExecMode="1" FilterExp="Me_idx&gt;StrToInt(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0])+1&#xA;&#xA;" Suppressed="True">
+																<PAR Name="x_M">
+																	<EXP><![CDATA[$=$Me.x_M+Shape_Prototype.KreiselDefinition.d_cp]]></EXP>
+																</PAR>
+																<PAR Name="id" />
+																<PAR Name="x_S" />
+																<PAR Name="x" />
+																<PAR Name="y" />
+																<PAR Name="z" />
+																<PAR Name="direction" />
+																<PAR Name="linkClass" />
+																<PAR Name="label" />
+																<PAR Name="aktiv" />
+															</EXEC_ON_VALUES>
+															<EXEC_ON_VALUES Id="RDK:20255715" VarRef="Shape_Prototype.KreiselDefinition.M_Strecke" ExecMode="1" FilterExp="Me_idx&gt;StrToInt(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0])&#xA;&#xA;">
+																<PAR Name="id">
+																	<EXP><![CDATA[$=$"ncp"+Me_idx+"M"]]></EXP>
+																</PAR>
+																<PAR Name="x_M">
+																	<EXP><![CDATA[$=$Me.x_M]]></EXP>
+																</PAR>
+																<PAR Name="aktiv" />
+																<PAR Name="linkClass" />
+																<PAR Name="direction" />
+																<PAR Name="z" />
+																<PAR Name="y" />
+																<PAR Name="x" />
+																<PAR Name="label">
+																	<EXP><![CDATA[$=$"M"+IntToStr(Me_idx+1)]]></EXP>
+																</PAR>
+																<PAR Name="x_S" />
+															</EXEC_ON_VALUES>
+															<SET_STRUCT Id="RDK:20255717" VarRef="SSGConnectionPoint" ClearAll="True" ListRef="Shape_Prototype.KreiselDefinition.M_Strecke" Options="$=$&quot;(INSERTIDX=&quot;+(StrToInt(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0])+1)+&quot;)&quot;">
+																<PAR Name="id">
+																	<EXP><![CDATA[$=$"ncp"+IntToStr((Shape_Prototype.KreiselDefinition.M_Strecke_selected[0]+1))+"M"]]></EXP>
+																</PAR>
+																<PAR Name="x_M">
+																	<EXP><![CDATA[$=$Shape_Prototype.KreiselDefinition.M_Strecke[Shape_Prototype.KreiselDefinition.M_Strecke_selected[0]].x_M+Shape_Prototype.KreiselDefinition.d_cp]]></EXP>
+																</PAR>
+																<PAR Name="x_S" />
+																<PAR Name="x" />
+																<PAR Name="y" />
+																<PAR Name="z" />
+																<PAR Name="direction">
+																	<EXP><![CDATA[$C$180]]></EXP>
+																</PAR>
+																<PAR Name="linkClass" />
+																<PAR Name="label">
+																	<EXP><![CDATA[$=$"M"+IntToStr(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0]+1)]]></EXP>
+																</PAR>
+																<PAR Name="aktiv">
+																	<EXP><![CDATA[$C$true]]></EXP>
+																</PAR>
+															</SET_STRUCT>
 															<SET Id="RDK:20145915" VarRef="CPs">
 																<EXP><![CDATA[$=$Count(Shape_Prototype.KreiselDefinition.M_Strecke)]]></EXP>
 																<PAR Name="AdvancedOptions" />
@@ -10232,7 +10281,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 																</PAR>
 															</ACTION_CALL>
 														</GROUP>
-														<GROUP Id="RDK:20010206" SubType="Else">
+														<GROUP Id="RDK:20010206" SubType="Else" DesignTimeRemark="keine Meldung">
 															<ACTION_CALL Id="RDK:20079143" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}">
 																<PAR Name="RDLibraryName">
 																	<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
@@ -10288,12 +10337,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 																	<EXP><![CDATA[$C$(COLOR=red)]]></EXP>
 																</PAR>
 															</ACTION_CALL>
-															<EXEC_ON_VALUES Id="RDK:19931300" VarRef="Shape_Prototype.KreiselDefinition.M_Strecke" ExecMode="1" FilterExp="Me_idx&gt;StrToInt(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0])+1&#xA;&#xA;">
-																<PAR Name="x_M">
-																	<EXP><![CDATA[$=$Me.x_M+Shape_Prototype.KreiselDefinition.d_cp]]></EXP>
-																</PAR>
-															</EXEC_ON_VALUES>
-															<SET_STRUCT Id="RDK:19931299" VarRef="SSGConnectionPoint" ClearAll="True" ListRef="Shape_Prototype.KreiselDefinition.M_Strecke" Options="$=$&quot;(INSERTIDX=&quot;+(StrToInt(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0])+1)+&quot;)&quot;">
+															<SET_STRUCT Id="RDK:19931299" VarRef="SSGConnectionPoint" ClearAll="True" ListRef="Shape_Prototype.KreiselDefinition.M_Strecke" Options="$=$&quot;(INSERTIDX=&quot;+(StrToInt(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0])+1)+&quot;)&quot;" Suppressed="True">
 																<PAR Name="id">
 																	<EXP><![CDATA[$=$"MCP_"+CPs]]></EXP>
 																</PAR>
@@ -10315,6 +10359,64 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 																	<EXP><![CDATA[$C$true]]></EXP>
 																</PAR>
 															</SET_STRUCT>
+															<EXEC_ON_VALUES Id="RDK:20219368" VarRef="Shape_Prototype.KreiselDefinition.M_Strecke" ExecMode="1" FilterExp="Me_idx&gt;StrToInt(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0])+1" Suppressed="True">
+																<PAR Name="id">
+																	<EXP><![CDATA[$=$"MCP_"+(IntToStr(IndexOfByFieldValue(Shape_Prototype.KreiselDefinition.M_Strecke, "id", Me.id)+1))]]></EXP>
+																</PAR>
+																<PAR Name="x_M">
+																	<EXP><![CDATA[$=$]]></EXP>
+																</PAR>
+																<PAR Name="aktiv" />
+																<PAR Name="linkClass" />
+																<PAR Name="direction" />
+																<PAR Name="z" />
+																<PAR Name="y" />
+																<PAR Name="x" />
+																<PAR Name="label">
+																	<EXP><![CDATA[$=$"M"+IntToStr(IndexOfByFieldValue(Shape_Prototype.KreiselDefinition.M_Strecke, "label", Me.label)+1)]]></EXP>
+																</PAR>
+																<PAR Name="x_S" />
+															</EXEC_ON_VALUES>
+															<EXEC_ON_VALUES Id="RDK:19931300" VarRef="Shape_Prototype.KreiselDefinition.M_Strecke" ExecMode="1" FilterExp="Me_idx&gt;StrToInt(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0])&#xA;&#xA;">
+																<PAR Name="id">
+																	<EXP><![CDATA[$=$"ncp"+Me_idx+"M"]]></EXP>
+																</PAR>
+																<PAR Name="x_M">
+																	<EXP><![CDATA[$=$Me.x_M]]></EXP>
+																</PAR>
+																<PAR Name="aktiv" />
+																<PAR Name="linkClass" />
+																<PAR Name="direction" />
+																<PAR Name="z" />
+																<PAR Name="y" />
+																<PAR Name="x" />
+																<PAR Name="label">
+																	<EXP><![CDATA[$=$"M"+IntToStr(Me_idx+1)]]></EXP>
+																</PAR>
+																<PAR Name="x_S" />
+															</EXEC_ON_VALUES>
+															<SET_STRUCT Id="RDK:20203207" VarRef="SSGConnectionPoint" ClearAll="True" ListRef="Shape_Prototype.KreiselDefinition.M_Strecke" Options="$=$&quot;(INSERTIDX=&quot;+(StrToInt(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0])+1)+&quot;)&quot;">
+																<PAR Name="id">
+																	<EXP><![CDATA[$=$"ncp"+IntToStr((Shape_Prototype.KreiselDefinition.M_Strecke_selected[0]+1))+"M"]]></EXP>
+																</PAR>
+																<PAR Name="x_M">
+																	<EXP><![CDATA[$=$Shape_Prototype.KreiselDefinition.M_Strecke[Shape_Prototype.KreiselDefinition.M_Strecke_selected[0]].x_M+Shape_Prototype.KreiselDefinition.d_cp]]></EXP>
+																</PAR>
+																<PAR Name="x_S" />
+																<PAR Name="x" />
+																<PAR Name="y" />
+																<PAR Name="z" />
+																<PAR Name="direction">
+																	<EXP><![CDATA[$C$180]]></EXP>
+																</PAR>
+																<PAR Name="linkClass" />
+																<PAR Name="label">
+																	<EXP><![CDATA[$=$"M"+IntToStr(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0]+1)]]></EXP>
+																</PAR>
+																<PAR Name="aktiv">
+																	<EXP><![CDATA[$C$true]]></EXP>
+																</PAR>
+															</SET_STRUCT>
 															<SET Id="RDK:20145917" VarRef="CPs">
 																<EXP><![CDATA[$=$Count(Shape_Prototype.KreiselDefinition.M_Strecke)]]></EXP>
 																<PAR Name="AdvancedOptions" />
@@ -10636,11 +10738,51 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 																		<EXP><![CDATA[$C$(COLOR=red)]]></EXP>
 																	</PAR>
 																</ACTION_CALL>
-																<EXEC_ON_VALUES Id="RDK:20100739" VarRef="Shape_Prototype.KreiselDefinition.M_Strecke" ExecMode="1" FilterExp="Me_idx&gt;StrToInt(i)+1&#xA;&#xA;">
+																<EXEC_ON_VALUES Id="RDK:20255719" VarRef="Shape_Prototype.KreiselDefinition.M_Strecke" ExecMode="1" FilterExp="Me_idx&gt;StrToInt(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0])&#xA;&#xA;">
+																	<PAR Name="id">
+																		<EXP><![CDATA[$=$"ncp"+Me_idx+"M"]]></EXP>
+																	</PAR>
+																	<PAR Name="x_M">
+																		<EXP><![CDATA[$=$Me.x_M]]></EXP>
+																	</PAR>
+																	<PAR Name="aktiv" />
+																	<PAR Name="linkClass" />
+																	<PAR Name="direction" />
+																	<PAR Name="z" />
+																	<PAR Name="y" />
+																	<PAR Name="x" />
+																	<PAR Name="label">
+																		<EXP><![CDATA[$=$"M"+IntToStr(Me_idx+1)]]></EXP>
+																	</PAR>
+																	<PAR Name="x_S" />
+																</EXEC_ON_VALUES>
+																<SET_STRUCT Id="RDK:20255721" VarRef="SSGConnectionPoint" ClearAll="True" ListRef="Shape_Prototype.KreiselDefinition.M_Strecke" Options="$=$&quot;(INSERTIDX=&quot;+(StrToInt(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0])+1)+&quot;)&quot;">
+																	<PAR Name="id">
+																		<EXP><![CDATA[$=$"ncp"+IntToStr((Shape_Prototype.KreiselDefinition.M_Strecke_selected[0]+1))+"M"]]></EXP>
+																	</PAR>
+																	<PAR Name="x_M">
+																		<EXP><![CDATA[$=$Shape_Prototype.KreiselDefinition.M_Strecke[Shape_Prototype.KreiselDefinition.M_Strecke_selected[0]].x_M+Shape_Prototype.KreiselDefinition.d_cp]]></EXP>
+																	</PAR>
+																	<PAR Name="x_S" />
+																	<PAR Name="x" />
+																	<PAR Name="y" />
+																	<PAR Name="z" />
+																	<PAR Name="direction">
+																		<EXP><![CDATA[$C$180]]></EXP>
+																	</PAR>
+																	<PAR Name="linkClass" />
+																	<PAR Name="label">
+																		<EXP><![CDATA[$=$"M"+IntToStr(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0]+1)]]></EXP>
+																	</PAR>
+																	<PAR Name="aktiv">
+																		<EXP><![CDATA[$C$true]]></EXP>
+																	</PAR>
+																</SET_STRUCT>
+																<EXEC_ON_VALUES Id="RDK:20100739" VarRef="Shape_Prototype.KreiselDefinition.M_Strecke" ExecMode="1" FilterExp="Me_idx&gt;StrToInt(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0])+1&#xA;&#xA;" Suppressed="True">
+																	<PAR Name="aktiv" />
 																	<PAR Name="x_M">
 																		<EXP><![CDATA[$=$Me.x_M+Shape_Prototype.KreiselDefinition.d_cp]]></EXP>
 																	</PAR>
-																	<PAR Name="aktiv" />
 																	<PAR Name="label" />
 																	<PAR Name="linkClass" />
 																	<PAR Name="direction" />
@@ -10650,7 +10792,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 																	<PAR Name="x_S" />
 																	<PAR Name="id" />
 																</EXEC_ON_VALUES>
-																<SET_STRUCT Id="RDK:20100740" VarRef="SSGConnectionPoint" ClearAll="True" ListRef="Shape_Prototype.KreiselDefinition.M_Strecke" Options="$=$&quot;(INSERTIDX=&quot;+(StrToInt(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0])+1)+&quot;)&quot;">
+																<SET_STRUCT Id="RDK:20100740" VarRef="SSGConnectionPoint" ClearAll="True" ListRef="Shape_Prototype.KreiselDefinition.M_Strecke" Options="$=$&quot;(INSERTIDX=&quot;+(StrToInt(Shape_Prototype.KreiselDefinition.M_Strecke_selected[0])+1)+&quot;)&quot;" Suppressed="True">
 																	<PAR Name="id">
 																		<EXP><![CDATA[$=$"MCP_"+CPs]]></EXP>
 																	</PAR>
@@ -11198,6 +11340,15 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 														<PAR Name="x_M">
 															<EXP><![CDATA[$=$Me.x_M+Shape_Prototype.KreiselDefinition.d_cp]]></EXP>
 														</PAR>
+														<PAR Name="id" />
+														<PAR Name="x_S" />
+														<PAR Name="x" />
+														<PAR Name="y" />
+														<PAR Name="z" />
+														<PAR Name="direction" />
+														<PAR Name="linkClass" />
+														<PAR Name="label" />
+														<PAR Name="aktiv" />
 													</EXEC_ON_VALUES>
 													<SET Id="RDK:714933" VarRef="Shape_Prototype.KreiselDefinition.M_Strecke_selected">
 														<EXP><![CDATA[$C$NOTHING]]></EXP>
@@ -11528,15 +11679,15 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 																<PAR Name="x_S">
 																	<EXP><![CDATA[$=$Me.x_S+Shape_Prototype.KreiselDefinition.d_cp]]></EXP>
 																</PAR>
-																<PAR Name="id" />
-																<PAR Name="x_M" />
-																<PAR Name="x" />
-																<PAR Name="y" />
-																<PAR Name="z" />
-																<PAR Name="direction" />
-																<PAR Name="linkClass" />
-																<PAR Name="label" />
 																<PAR Name="aktiv" />
+																<PAR Name="label" />
+																<PAR Name="linkClass" />
+																<PAR Name="direction" />
+																<PAR Name="z" />
+																<PAR Name="y" />
+																<PAR Name="x" />
+																<PAR Name="x_M" />
+																<PAR Name="id" />
 															</EXEC_ON_VALUES>
 															<SET_STRUCT Id="RDK:20029182" VarRef="SSGConnectionPoint" ClearAll="True" ListRef="Shape_Prototype.KreiselDefinition.S_Strecke" Options="$=$&quot;(INSERTIDX=&quot;+(StrToInt(Shape_Prototype.KreiselDefinition.S_Strecke_selected[0])+1)+&quot;)&quot;">
 																<PAR Name="id">
@@ -11574,7 +11725,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 												<GROUP Id="RDK:20160749" SubType="Else" DesignTimeRemark="keine Meldung">
 													<IFTHENELSE Id="RDK:20160748">
 														<VALUECONDITION Value="false">
-															<EXP><![CDATA[$=$IsEmpty(ListFindByFieldValue(Shape_Prototype.KreiselDefinition.S_Strecke,"x_S",i+Shape_Prototype.KreiselDefinition.d_cp))
+															<EXP><![CDATA[$=$IsEmpty(ListFindByFieldValue(Shape_Prototype.KreiselDefinition.S_Strecke,"x_S",Shape_Prototype.KreiselDefinition.S_Strecke[Shape_Prototype.KreiselDefinition.S_Strecke_selected[0]].x_S+Shape_Prototype.KreiselDefinition.d_cp))
 ]]></EXP>
 														</VALUECONDITION>
 														<GROUP Id="RDK:20160744" SubType="Then" DesignTimeRemark="Meldung">
@@ -11690,7 +11841,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 																	<EXP><![CDATA[$C$(COLOR=red)]]></EXP>
 																</PAR>
 															</ACTION_CALL>
-															<EXEC_ON_VALUES Id="RDK:20160746" VarRef="Shape_Prototype.KreiselDefinition.S_Strecke" ExecMode="1" FilterExp="Me_idx&gt;StrToInt(Shape_Prototype.KreiselDefinition.S_Strecke_selected[i-1])+1&#xA;&#xA;">
+															<EXEC_ON_VALUES Id="RDK:20160746" VarRef="Shape_Prototype.KreiselDefinition.S_Strecke" ExecMode="1" FilterExp="Me_idx&gt;StrToInt(Shape_Prototype.KreiselDefinition.S_Strecke_selected[0])+1&#xA;&#xA;">
 																<PAR Name="id" />
 																<PAR Name="x_M" />
 																<PAR Name="x_S">
@@ -11710,7 +11861,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 																</PAR>
 																<PAR Name="x_M" />
 																<PAR Name="x_S">
-																	<EXP><![CDATA[$=$Shape_Prototype.KreiselDefinition.S_Strecke[Shape_Prototype.KreiselDefinition.S_Strecke_selected[i-1]].x_S+Shape_Prototype.KreiselDefinition.d_cp]]></EXP>
+																	<EXP><![CDATA[$=$Shape_Prototype.KreiselDefinition.S_Strecke[Shape_Prototype.KreiselDefinition.S_Strecke_selected[0]].x_S+Shape_Prototype.KreiselDefinition.d_cp]]></EXP>
 																</PAR>
 																<PAR Name="x" />
 																<PAR Name="y" />
@@ -12047,19 +12198,10 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 																		<EXP><![CDATA[$C$(COLOR=red)]]></EXP>
 																	</PAR>
 																</ACTION_CALL>
-																<EXEC_ON_VALUES Id="RDK:20029301" VarRef="Shape_Prototype.KreiselDefinition.S_Strecke" ExecMode="1" FilterExp="Me_idx&gt;StrToInt(Shape_Prototype.KreiselDefinition.S_Strecke_selected[i-1])+1&#xA;&#xA;" Suppressed="True">
-																	<PAR Name="id" />
-																	<PAR Name="x_M" />
+																<EXEC_ON_VALUES Id="RDK:20029301" VarRef="Shape_Prototype.KreiselDefinition.S_Strecke" ExecMode="1" FilterExp="Me_idx&gt;StrToInt(Shape_Prototype.KreiselDefinition.S_Strecke_selected[0])+1&#xA;&#xA;">
 																	<PAR Name="x_S">
 																		<EXP><![CDATA[$=$Me.x_S+Shape_Prototype.KreiselDefinition.d_cp]]></EXP>
 																	</PAR>
-																	<PAR Name="x" />
-																	<PAR Name="y" />
-																	<PAR Name="z" />
-																	<PAR Name="direction" />
-																	<PAR Name="linkClass" />
-																	<PAR Name="label" />
-																	<PAR Name="aktiv" />
 																</EXEC_ON_VALUES>
 																<SET_STRUCT Id="RDK:20029299" VarRef="SSGConnectionPoint" ClearAll="True" ListRef="Shape_Prototype.KreiselDefinition.S_Strecke" Options="$=$&quot;(INSERTIDX=&quot;+(StrToInt(Shape_Prototype.KreiselDefinition.S_Strecke_selected[0])+1)+&quot;)&quot;">
 																	<PAR Name="id">
@@ -25586,4 +25728,4 @@ ShapeList["id="+Param.Input[1].shapeID].name
 		</PROFILES_DATA>
 		<BOM_DATA />
 	</EXTERNAL_DATA>
-</PROCESS>
+</PROCESS>
\ No newline at end of file