From 810432ff7226c7229c7893a637ea5045b5ff4cc7 Mon Sep 17 00:00:00 2001
From: dre <reif@pbu-cad.de>
Date: Tue, 6 Feb 2024 11:33:39 +0100
Subject: [PATCH] ERK-66
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Kopierte Shapes werden neu erzeugt, damit sind diese vom Original über ID nicht mehr abhängig.
---
 MAIN_SSG.rdx | 27 ++++++++++++++++++++++++---
 1 file changed, 24 insertions(+), 3 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 0017b4e..2a7d257 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="dre [NBDELP3561-04C]" ModDate="2023-12-15T10:00:06" LanguageVersion="2014.1.3.627" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="dre [NBDELP3561-04C]" ModDate="2024-02-06T11:32:27" LanguageVersion="2014.1.3.593" />
 	<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">
@@ -65,7 +65,7 @@
 					<FIELD Id="RDK:973716" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:973714" Name="Weichenart" Type="string" />
 				</TYPE>
-				<TYPE Id="RDK:1652525" Name="BTMTBeladungType" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:1652525" Name="BTMTBeladungType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:1652521" Name="AbstandMS" Type="double" Suppressed="True" />
 					<FIELD Id="RDK:1652522" Name="Hoehe" Type="double" />
@@ -8148,6 +8148,9 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 							<PAR Name="Options" />
 						</CALLFUNCTION>
 						<GROUP Id="RDK:623665" Name="UI" SubType="Generic">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$Param.Input[0].class<>"OnPasted"]]></EXP>
+							</VALUECONDITION>
 							<ACTION_CALL Id="RDK:433616" Name="RDEngineering_RemoteRedirect" DesignTimeRemark="{Action Mode} {Url}">
 								<PAR Name="RDLibraryName">
 									<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
@@ -8283,6 +8286,9 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 							<PAR Name="Options" />
 						</CALLFUNCTION>
 						<GROUP Id="RDK:1545843" Name="UI" SubType="Generic">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$Param.Input[0].class<>"OnPasted"]]></EXP>
+							</VALUECONDITION>
 							<ACTION_CALL Id="RDK:1545839" Name="RDEngineering_RemoteRedirect" DesignTimeRemark="{Action Mode} {Url}">
 								<PAR Name="RDLibraryName">
 									<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
@@ -8398,6 +8404,9 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 							<PAR Name="AdvancedOptions" />
 						</SET>
 						<GROUP Id="RDK:837502" Name="UI" SubType="Generic">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$Param.Input[0].class<>"OnPasted"]]></EXP>
+							</VALUECONDITION>
 							<ACTION_CALL Id="RDK:837498" Name="RDEngineering_RemoteRedirect" DesignTimeRemark="{Action Mode} {Url}" DesignTimeNotes="(CLOSEBUTTON)(TITLE=TITOLO DEL POP UP)(TITLECOLOR=#000000)(TITLEBACKCOLOR=RED)(STARTPOSITION=bottom)(NOPADDING)(DRAGGABLE)">
 								<PAR Name="RDLibraryName">
 									<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
@@ -9258,6 +9267,18 @@ me.x
 						</PAR>
 						<PAR Name="Options" />
 					</CALLFUNCTION>
+					<CALLFUNCTION Id="RDK:1663943">
+						<PAR Name="FuncName">
+							<EXP><![CDATA[$C$OnEditor2DInserted]]></EXP>
+						</PAR>
+						<PAR Name="InputExp">
+							<EXP><![CDATA[$=$Param.Input]]></EXP>
+						</PAR>
+						<PAR Name="ResultRef">
+							<EXP><![CDATA[$V$]]></EXP>
+						</PAR>
+						<PAR Name="Options" />
+					</CALLFUNCTION>
 					<SET Id="RDK:1632455" VarRef="ShapeList[&quot;id=&quot;+ID].IDCounter">
 						<EXP><![CDATA[$=$Shape_Prototype.IDCounter]]></EXP>
 						<PAR Name="AdvancedOptions" />
@@ -10279,7 +10300,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 				</GROUP>
 			</FUNCTION>
 			<FUNCTION Id="RDK:1630766" Name="GetNewShapeID" InputTypeName="string">
-				<SET Id="RDK:1630768" VarRef="Shape_Prototype.IDCounter" ByRef="True">
+				<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>