From 97b87a2961baccf15bfe1575e08f5b54a992b517 Mon Sep 17 00:00:00 2001
From: Yuelin Wang <y.wang@schoenenberger.de>
Date: Fri, 1 Aug 2025 13:28:17 +0200
Subject: [PATCH] Copy - Paste Funtion wurde erweitert und Bei Copy einer
 Gruppe wurde ein neue Gruppe erzeugt

---
 MAIN_SSG.rdx | 260 +++++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 253 insertions(+), 7 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 860a4ab..22b85ed 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="2025-07-31T15:39:51" LanguageVersion="2014.1.3.698" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="y.wang [ANGEBOT-NB02]" ModDate="2025-08-01T13:25:30" LanguageVersion="2014.1.3.698" />
 	<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">
@@ -17108,7 +17108,7 @@ SSGConnectionPoint.x_M
 							</REMOVE_ADD>
 						</FOREACHLOOP>
 					</FUNCTION>
-					<FUNCTION Id="RDK:20817720" Name="IsInGroup" DesignTimeRemark="Prüft ob das Element der gegeben Id in einer Gruppe ist" InputTypeName="string" ResultTypeName="boolean">
+					<FUNCTION Id="RDK:20817720" Name="GetGroupIndex" DesignTimeRemark="Prüft ob das Element der gegeben Id in einer Gruppe ist" InputTypeName="string" ResultTypeName="integer">
 						<GROUP Id="RDK:20832570" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 							<VAR Id="RDK:20832569" Name="id0" Type="string">
 								<SET Id="RDK:20832568" VarRef="Me">
@@ -17117,21 +17117,22 @@ SSGConnectionPoint.x_M
 								</SET>
 							</VAR>
 							<VAR Id="RDK:20927027" Name="lineStr" Type="string" />
+							<VAR Id="RDK:24583670" Name="cyclCtr" Type="integer" />
 						</GROUP>
-						<FOREACHLOOP Id="RDK:20924285" DesignTimeRemark="finde betroffene Gruppe" ItemVarRef="lineStr">
+						<FOREACHLOOP Id="RDK:20924285" DesignTimeRemark="finde betroffene Gruppe" ItemVarRef="lineStr" IndexVarRef="cyclCtr">
 							<PAR Name="ArrayValueExp">
 								<EXP><![CDATA[$=$groupStrings]]></EXP>
 							</PAR>
 							<PAR Name="ExitCondExp">
-								<EXP><![CDATA[$V$]]></EXP>
+								<EXP><![CDATA[$=$]]></EXP>
 							</PAR>
-							<IFTHENELSE Id="RDK:20924284" DesignTimeRemark="suche ob die Id in der Gruppe ist">
+							<IFTHENELSE Id="RDK:20924284" DesignTimeRemark="geb die GruppenID zurück, falls das Shape in eine Gruppe ist, ansonsten -1">
 								<VALUECONDITION Value="true">
 									<EXP><![CDATA[$=$StrIndexOf(lineStr, id0, 0) >= 0]]></EXP>
 								</VALUECONDITION>
 								<GROUP Id="RDK:20924283" SubType="Then">
 									<SET Id="RDK:20857800" VarRef="Param.Result">
-										<EXP><![CDATA[$C$True]]></EXP>
+										<EXP><![CDATA[$=$cyclCtr]]></EXP>
 										<PAR Name="AdvancedOptions" />
 									</SET>
 									<EXIT_PROCESS Id="RDK:20924282" BreakType="4" ExitStatus="0" />
@@ -17139,10 +17140,167 @@ SSGConnectionPoint.x_M
 							</IFTHENELSE>
 						</FOREACHLOOP>
 						<SET Id="RDK:20857782" VarRef="Param.Result">
+							<EXP><![CDATA[$C$-1]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</FUNCTION>
+					<FUNCTION Id="RDK:24583666" Name="IsInGroup" DesignTimeRemark="Prüft ob das Element der gegeben Id in einer Gruppe ist" InputTypeName="string" ResultTypeName="boolean">
+						<GROUP Id="RDK:24583659" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+							<VAR Id="RDK:24583657" Name="id0" Type="string">
+								<SET Id="RDK:24583656" VarRef="Me">
+									<EXP><![CDATA[$=$Param.Input]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</VAR>
+							<VAR Id="RDK:24583658" Name="lineStr" Type="string" />
+						</GROUP>
+						<FOREACHLOOP Id="RDK:24583664" DesignTimeRemark="finde betroffene Gruppe" ItemVarRef="lineStr">
+							<PAR Name="ArrayValueExp">
+								<EXP><![CDATA[$=$groupStrings]]></EXP>
+							</PAR>
+							<PAR Name="ExitCondExp">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<IFTHENELSE Id="RDK:24583663" DesignTimeRemark="suche ob die Id in der Gruppe ist">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$StrIndexOf(lineStr, id0, 0) >= 0]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:24583662" SubType="Then">
+									<SET Id="RDK:24583660" VarRef="Param.Result">
+										<EXP><![CDATA[$C$True]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<EXIT_PROCESS Id="RDK:24583661" BreakType="4" ExitStatus="0" />
+								</GROUP>
+							</IFTHENELSE>
+						</FOREACHLOOP>
+						<SET Id="RDK:24583665" VarRef="Param.Result">
 							<EXP><![CDATA[$C$False]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</FUNCTION>
+					<FUNCTION Id="RDK:24583616" Name="IDsAreInSameGroup" DesignTimeRemark="Prüft ob das Element der gegeben Id in einer Gruppe ist" InputTypeName="string[]" ResultTypeName="boolean">
+						<GROUP Id="RDK:24583609" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+							<VAR Id="RDK:24583607" Name="ids" Type="string[]">
+								<SET Id="RDK:24583606" VarRef="Me">
+									<EXP><![CDATA[$=$Param.Input]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</VAR>
+							<VAR Id="RDK:24583608" Name="id" Type="string" />
+							<VAR Id="RDK:24583622" Name="PartOfGroup" Type="boolean" />
+							<VAR Id="RDK:24583642" Name="groupId" Type="string" />
+							<VAR Id="RDK:24583695" Name="otherId" Type="integer" />
+						</GROUP>
+						<IFTHENELSE Id="RDK:24583682" DesignTimeRemark="keine ids gegeben ">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$Count(ids) < 1]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:24583681" SubType="Then">
+								<SET Id="RDK:24583690" VarRef="Param.Result">
+									<EXP><![CDATA[$C$False]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<EXIT_PROCESS Id="RDK:24583692" BreakType="4" ExitStatus="0" />
+							</GROUP>
+						</IFTHENELSE>
+						<CALLFUNCTION Id="RDK:24606398">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$GetGroupIndex]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$ids[0]]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$groupId]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
+						<FOREACHLOOP Id="RDK:24583614" DesignTimeRemark="finde betroffene Gruppe" ItemVarRef="id">
+							<PAR Name="ArrayValueExp">
+								<EXP><![CDATA[$=$ids]]></EXP>
+							</PAR>
+							<PAR Name="ExitCondExp">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<CALLFUNCTION Id="RDK:24583618">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$GetGroupIndex]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$id]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$otherId]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+							<IFTHENELSE Id="RDK:24583613" DesignTimeRemark="schau ob beide Shapes in derselben Gruppe liegen">
+								<VALUECONDITION Value="false">
+									<EXP><![CDATA[$=$groupId = otherId]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:24583612" SubType="Then">
+									<SET Id="RDK:24583610" VarRef="Param.Result">
+										<EXP><![CDATA[$C$False]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<EXIT_PROCESS Id="RDK:24583611" BreakType="4" ExitStatus="0" />
+								</GROUP>
+							</IFTHENELSE>
+						</FOREACHLOOP>
+						<SET Id="RDK:24583615" VarRef="Param.Result">
+							<EXP><![CDATA[$C$True]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</FUNCTION>
+					<FUNCTION Id="RDK:24613362" Name="AreInNoGroup" DesignTimeRemark="Prüft ob die Elemente der gegeben Ids in keiner Gruppe sind" InputTypeName="string[]" ResultTypeName="boolean">
+						<GROUP Id="RDK:24613349" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+							<VAR Id="RDK:24613344" Name="ids" Type="string[]">
+								<SET Id="RDK:24613343" VarRef="Me">
+									<EXP><![CDATA[$=$Param.Input]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</VAR>
+							<VAR Id="RDK:24613345" Name="id" Type="string" />
+							<VAR Id="RDK:24613346" Name="PartOfGroup" Type="boolean" />
+						</GROUP>
+						<FOREACHLOOP Id="RDK:24613360" DesignTimeRemark="finde betroffene Gruppe" ItemVarRef="id">
+							<PAR Name="ArrayValueExp">
+								<EXP><![CDATA[$=$ids]]></EXP>
+							</PAR>
+							<PAR Name="ExitCondExp">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<CALLFUNCTION Id="RDK:24613355">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$IsInGroup]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$id]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$PartOfGroup]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+							<IFTHENELSE Id="RDK:24613359" DesignTimeRemark="schau ob beide Shapes in derselben Gruppe liegen">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$PartOfGroup]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:24613358" SubType="Then">
+									<SET Id="RDK:24613356" VarRef="Param.Result">
+										<EXP><![CDATA[$C$False]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<EXIT_PROCESS Id="RDK:24613357" BreakType="4" ExitStatus="0" />
+								</GROUP>
+							</IFTHENELSE>
+						</FOREACHLOOP>
+						<SET Id="RDK:24613361" VarRef="Param.Result">
+							<EXP><![CDATA[$C$True]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</FUNCTION>
 					<FUNCTION Id="RDK:20817722" Name="GetFollowingIds" DesignTimeRemark="Gibt Alle Ids in der Gruppe zurüc, die dem gegebenen Element folgen" InputTypeName="string" ResultTypeName="string[]">
 						<GROUP Id="RDK:20832564" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 							<VAR Id="RDK:20832563" Name="id0" Type="string">
@@ -29218,11 +29376,90 @@ me.x
 				<GROUP Id="RDK:1645267" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:1645268" Name="IDs" Type="string[]" />
 					<VAR Id="RDK:20749809" Name="ID" Type="string" />
+					<VAR Id="RDK:24576690" Name="origIDs" Type="string[]" />
+					<VAR Id="RDK:24613390" Name="InNoGroup" Type="boolean" />
+					<VAR Id="RDK:24609360" Name="InSameGroup" Type="boolean" />
 				</GROUP>
 				<SET Id="RDK:1645269" VarRef="IDs">
 					<EXP><![CDATA[$=$StrArrayFromListOfStructs(Param.Input, "shapeID")]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
+				<SET Id="RDK:24576692" VarRef="origIDs">
+					<EXP><![CDATA[$=$StrReplaceOnItems(StrReplaceOnItems(StrArrayFromListOfStructs(Param.Input, "options"),"(ORIGSHAPEID=", ""), ")", "")
+]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<CALLFUNCTION Id="RDK:24613378">
+					<PAR Name="FuncName">
+						<EXP><![CDATA[$C$AreInNoGroup]]></EXP>
+					</PAR>
+					<PAR Name="InputExp">
+						<EXP><![CDATA[$=$origIDs]]></EXP>
+					</PAR>
+					<PAR Name="ResultRef">
+						<EXP><![CDATA[$V$InNoGroup]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</CALLFUNCTION>
+				<IFTHENELSE Id="RDK:24613382">
+					<VALUECONDITION Value="false">
+						<EXP><![CDATA[$=$InNoGroup]]></EXP>
+					</VALUECONDITION>
+					<GROUP Id="RDK:24613379" SubType="Then">
+						<CALLFUNCTION Id="RDK:24583703">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$IDsAreInSameGroup]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$origIDs]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$InSameGroup]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
+						<IFTHENELSE Id="RDK:24609364">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$InSameGroup]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:24609370" SubType="Then">
+								<CALLFUNCTION Id="RDK:24609374">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$CreateGroup]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$IDs]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+							<GROUP Id="RDK:24613320" SubType="Else">
+								<ACTION_CALL Id="RDK:24613322" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
+									<PAR Name="RDLibraryName">
+										<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+									</PAR>
+									<PAR Name="MsgText">
+										<EXP><![CDATA[$C$Items waren in meherer verschiedene Gruppen zugeordnet. not yet implentiert.]]></EXP>
+									</PAR>
+									<PAR Name="MsgStyle">
+										<EXP><![CDATA[$C$-1]]></EXP>
+									</PAR>
+									<PAR Name="BtnLayout">
+										<EXP><![CDATA[$C$-1]]></EXP>
+									</PAR>
+									<PAR Name="MsgCaption" />
+									<PAR Name="BaloonType" />
+									<PAR Name="BtnPressed">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+								</ACTION_CALL>
+							</GROUP>
+						</IFTHENELSE>
+					</GROUP>
+				</IFTHENELSE>
 				<FOREACHLOOP Id="RDK:1620226" ItemVarRef="ID">
 					<PAR Name="ArrayValueExp">
 						<EXP><![CDATA[$=$IDs]]></EXP>
@@ -30936,7 +31173,16 @@ me.x
 			</FUNCTION>
 			<FUNCTION Id="RDK:298" Name="OnEditor2DValidate" InputTypeName="string[]" Options="(TYPEFUNCTION)" />
 			<FUNCTION Id="RDK:297" Name="OnEditor2DConfigure" InputTypeName="string[]" Options="(TYPEFUNCTION)" />
-			<FUNCTION Id="RDK:299" Name="OnEditor2DSmartCopy" InputTypeName="string[]" Options="(TYPEFUNCTION)" />
+			<FUNCTION Id="RDK:299" Name="OnEditor2DSmartCopy" InputTypeName="string[]" Options="(TYPEFUNCTION)">
+				<GROUP Id="RDK:24568796" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:24568794" Name="IDs" Type="string[]" />
+					<VAR Id="RDK:24568795" Name="ID" Type="string" />
+				</GROUP>
+				<SET Id="RDK:24568800" VarRef="IDs">
+					<EXP><![CDATA[$=$StrArrayFromListOfStructs(Param.Input, "shapeID")]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+			</FUNCTION>
 			<FUNCTION Id="RDK:300" Name="OnEditor2DSave" Options="(TYPEFUNCTION)" />
 			<FUNCTION Id="RDK:301" Name="OnEditor2DUndo" Options="(TYPEFUNCTION)" />
 			<FUNCTION Id="RDK:302" Name="OnEditor2DRedo" Options="(TYPEFUNCTION)" />