From eaf366e5001141bd909553a4227d326c13dd8578 Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Tue, 28 Jan 2025 11:53:50 +0100
Subject: [PATCH] Bezeichnung des Exports wird aus allen Namen der
 gleichartigen Elemente gebaut

---
 MAIN_SSG.rdx | 77 +++++++++++++++++++++++++++++++++++++++++++---------
 1 file changed, 64 insertions(+), 13 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 0b25133..4d38592 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-01-27T17:41:01" LanguageVersion="2014.1.3.699" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2025-01-28T11:52:28" LanguageVersion="2014.1.3.699" />
 	<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">
@@ -196,12 +196,12 @@
 					<FIELD Id="RDK:1783800" Name="Int" Type="integer" />
 					<FIELD Id="RDK:1783798" Name="Boo" Type="boolean" />
 				</TYPE>
-				<TYPE Id="RDK:22342703" Name="SSGDictInt" Expanded="True" SubType="structure" HasArrayType="True">
+				<TYPE Id="RDK:22342703" Name="SSGDictInt" SubType="structure" HasArrayType="True">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:22342729" Name="Key" Type="string" />
 					<FIELD Id="RDK:22342707" Name="Int" Type="integer" />
 				</TYPE>
-				<TYPE Id="RDK:22938804" Name="SSGDictArr" Expanded="True" SubType="structure" HasArrayType="True">
+				<TYPE Id="RDK:22938804" Name="SSGDictArr" SubType="structure" HasArrayType="True">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:22938802" Name="Key" Type="string" />
 					<FIELD Id="RDK:22938803" Name="StrArr" Type="string[]" />
@@ -1175,6 +1175,7 @@
 			<VAR Id="RDK:20857929" Name="groupStrings" Type="string[]" DesignTimeRemark="Enthält ; separtiert alle Strings, damit die Gruppen beschrieben werden können. a;b;c wäre z.B. eine Gruppe aus den Objekten a, b und c" />
 			<VAR Id="RDK:22342749" Name="CountKeys" Type="SSGDictInt[]" DesignTimeRemark="Array von Key-Value paaren, um sich die Anzahl von Key  in Value zu merken. Dient zum Zählen" />
 			<VAR Id="RDK:22938910" Name="KeyValues" Type="SSGDictArr[]" DesignTimeRemark="Array von Key-Value paaren, um sich eine liste von Begriffen zu einem Key zu merken" />
+			<VAR Id="RDK:22955433" Name="kv" Type="string" DesignTimeRemark="Generated by RD" />
 		</GROUP>
 		<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
 			<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -12874,18 +12875,12 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 							</REMOVE_ADD>
 						</FOREACHLOOP>
 					</FUNCTION>
-					<FUNCTION Id="RDK:22938907" Name="GetValues" DesignTimeRemark="gibt die germerkte Anzahl hinter diesem Key heraus" InputTypeName="string[]" ResultTypeName="string[]">
+					<FUNCTION Id="RDK:22938907" Name="GetValues" DesignTimeRemark="gibt die germerkte Anzahl hinter diesem Key heraus" InputTypeName="string" ResultTypeName="string[]">
 						<GROUP Id="RDK:22938900" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 							<VAR Id="RDK:22938897" Name="kv" Type="SSGDictArr" />
 							<VAR Id="RDK:22938949" Name="key" Type="string">
 								<SET Id="RDK:22938948" VarRef="Me">
-									<EXP><![CDATA[$=$Param.Input[0]]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</VAR>
-							<VAR Id="RDK:22938953" Name="value" Type="string">
-								<SET Id="RDK:22938952" VarRef="Me">
-									<EXP><![CDATA[$=$Param.Input[1]]]></EXP>
+									<EXP><![CDATA[$=$Param.Input]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</VAR>
@@ -12911,7 +12906,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 							</IFTHENELSE>
 						</FOREACHLOOP>
 						<SET Id="RDK:22938906" VarRef="Param.Result">
-							<EXP><![CDATA[$C$NewList()]]></EXP>
+							<EXP><![CDATA[$=$NewList()]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</FUNCTION>
@@ -22687,6 +22682,7 @@ me.x
 					<VAR Id="RDK:22353222" Name="alreadyWritten" Type="string[]" />
 					<VAR Id="RDK:22353208" Name="number" Type="integer" />
 					<VAR Id="RDK:22943902" Name="bezeichnungen" Type="string[]" />
+					<VAR Id="RDK:22955413" Name="name" Type="string" />
 				</GROUP>
 				<CALLFUNCTION Id="RDK:22305568">
 					<PAR Name="FuncName">
@@ -22811,6 +22807,18 @@ me.x
 						</PAR>
 						<PAR Name="Options" />
 					</CALLFUNCTION>
+					<CALLFUNCTION Id="RDK:22957106">
+						<PAR Name="FuncName">
+							<EXP><![CDATA[$C$BuildItemsName]]></EXP>
+						</PAR>
+						<PAR Name="InputExp">
+							<EXP><![CDATA[$=$bezeichnungen]]></EXP>
+						</PAR>
+						<PAR Name="ResultRef">
+							<EXP><![CDATA[$V$name]]></EXP>
+						</PAR>
+						<PAR Name="Options" />
+					</CALLFUNCTION>
 					<SET Id="RDK:22353237" VarRef="isWritten">
 						<EXP><![CDATA[$=$False]]></EXP>
 						<PAR Name="AdvancedOptions" />
@@ -22856,7 +22864,7 @@ me.x
 									<EXP><![CDATA[$=$CSV_Item.TeileId]]></EXP>
 								</PAR>
 								<PAR Name="Bezeichnung">
-									<EXP><![CDATA[$=$CSV_Item.Bezeichnung]]></EXP>
+									<EXP><![CDATA[$=$name]]></EXP>
 								</PAR>
 								<PAR Name="Anzahl">
 									<EXP><![CDATA[$=$number]]></EXP>
@@ -23001,6 +23009,49 @@ me.x
 					</ACTION_CALL>
 				</GROUP>
 			</FUNCTION>
+			<FUNCTION Id="RDK:22955414" Name="BuildItemsName" InputTypeName="string[]" ResultTypeName="string">
+				<GROUP Id="RDK:22955416" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:22955420" Name="name" Type="string" />
+					<VAR Id="RDK:22966977" Name="base" Type="string" />
+					<VAR Id="RDK:22955454" Name="allNames" Type="string[]">
+						<SET Id="RDK:22955456" VarRef="Me">
+							<EXP><![CDATA[$=$Param.Input]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
+					<VAR Id="RDK:22957108" Name="parts" Type="string[]" />
+				</GROUP>
+				<IFTHENELSE Id="RDK:22955440">
+					<VALUECONDITION Value="true">
+						<EXP><![CDATA[$=$Count(param.Input) < 1]]></EXP>
+					</VALUECONDITION>
+					<GROUP Id="RDK:22955441" SubType="Then">
+						<EXIT_PROCESS Id="RDK:22955446" BreakType="4" ExitStatus="0" />
+					</GROUP>
+				</IFTHENELSE>
+				<SET Id="RDK:22955452" VarRef="base">
+					<EXP><![CDATA[$=$StrBefore(RemoveQuote(allNames[0]), " :") + " :"]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<FOREACHLOOP Id="RDK:22955430" ItemVarRef="name">
+					<PAR Name="ArrayValueExp">
+						<EXP><![CDATA[$=$allNames]]></EXP>
+					</PAR>
+					<PAR Name="ExitCondExp">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<LIST_ADD Id="RDK:22957111" ListRef="parts">
+						<PAR Name="VALUE_TO_ADD">
+							<EXP><![CDATA[$=$ReplaceByRegExp(RemoveQuote(name), "^.*:", "")]]></EXP>
+						</PAR>
+						<PAR Name="POS_TO_ADD" />
+					</LIST_ADD>
+				</FOREACHLOOP>
+				<SET Id="RDK:22955426" VarRef="Param.Result">
+					<EXP><![CDATA[$=$addQuote(base + ListToStr(parts, ","))]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+			</FUNCTION>
 			<FUNCTION Id="RDK:22304434" Name="2DExport" Bookmarked="True" DesignTimeRemark="Exportiert jedes Element in einer Zeile einer CSV Datei">
 				<GROUP Id="RDK:22304277" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:22304276" Name="inGroup" Type="boolean" />