From d6d13968ab3252af9e97bb8b443e8ed217ff3c16 Mon Sep 17 00:00:00 2001
From: Yuelin Wang <y.wang@schoenenberger.de>
Date: Tue, 9 Jul 2024 13:31:49 +0200
Subject: [PATCH] Den Bug bei der Umbennenung des Namens der Shapes in der
 Funktion Pasted beheben

---
 MAIN_SSG.rdx | 30 ++++++++----------------------
 1 file changed, 8 insertions(+), 22 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index c2ed227..a60f896 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-07-09T09:34:14" LanguageVersion="2014.1.3.679" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="y.wang [ANGEBOT-NB02]" ModDate="2024-07-09T13:27:55" LanguageVersion="2014.1.3.679" />
 	<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">
@@ -994,6 +994,7 @@
 			<VAR Id="RDK:20579082" Name="shapeId" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:20579085" Name="shapeList_idx_0" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:20579088" Name="shape_index" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
+			<VAR Id="RDK:20647980" 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" />
@@ -10011,15 +10012,6 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<PAR Name="aktiv">
 										<EXP><![CDATA[$=$IIF(me.x_M<=(Shape_Prototype.KreiselDefinition.AbstandMS-Shape_Prototype.KreiselDefinition.d_min),TRUE,FALSE)]]></EXP>
 									</PAR>
-									<PAR Name="id" />
-									<PAR Name="x_M" />
-									<PAR Name="x_S" />
-									<PAR Name="x" />
-									<PAR Name="y" />
-									<PAR Name="z" />
-									<PAR Name="direction" />
-									<PAR Name="linkClass" />
-									<PAR Name="label" />
 								</EXEC_ON_VALUES>
 								<EXEC_ON_VALUES Id="RDK:812298" VarRef="Shape_Prototype.KreiselDefinition.S_Strecke">
 									<PAR Name="aktiv">
@@ -13600,15 +13592,6 @@ ShapeTotalLength
 me.x
 ))-(Shape_Prototype.KreiselDefinition.Durchmesser/2)]]></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>
 									</GROUP>
 									<GROUP Id="RDK:607197" Name="Spannstation" SubType="Generic">
@@ -14252,7 +14235,7 @@ me.x
 					<EXP><![CDATA[$=$StrArrayFromListOfStructs(Param.Input, "shapeID")]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
-				<FOREACHLOOP Id="RDK:1620226" ItemVarRef="ID" ByRefMode="True">
+				<FOREACHLOOP Id="RDK:1620226" ItemVarRef="ID">
 					<PAR Name="ArrayValueExp">
 						<EXP><![CDATA[$=$IDs]]></EXP>
 					</PAR>
@@ -14263,7 +14246,7 @@ me.x
 						<EXP><![CDATA[$=$ShapeList["id="+ID]]]></EXP>
 						<PAR Name="AdvancedOptions" />
 					</SET>
-					<CALLFUNCTION Id="RDK:1630771">
+					<CALLFUNCTION Id="RDK:1630771" Suppressed="True">
 						<PAR Name="FuncName">
 							<EXP><![CDATA[$C$GetNewShapeID]]></EXP>
 						</PAR>
@@ -14346,6 +14329,9 @@ me.x
 						</PAR>
 						<PAR Name="Options" />
 					</CALLFUNCTION>
+					<REMOVE_ADD Id="RDK:20656094" ListRef="Param.Input" Expr="Me.shapeID=ID">
+						<EXP />
+					</REMOVE_ADD>
 				</FOREACHLOOP>
 			</FUNCTION>
 			<FUNCTION Id="RDK:290" Name="OnEditor2DRemoved" InputTypeName="Editor2DEventArgumentsTypeList" Options="(TYPEFUNCTION)" />
@@ -24869,4 +24855,4 @@ ShapeList["id="+Param.Input[1].shapeID].name
 		</PROFILES_DATA>
 		<BOM_DATA />
 	</EXTERNAL_DATA>
-</PROCESS>
+</PROCESS>
\ No newline at end of file