From 804b572384457e6e2ef0552b6fcc23c67b9a9868 Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Mon, 27 Jan 2025 17:41:32 +0100
Subject: [PATCH] =?UTF-8?q?Erste=20Fassung=20f=C3=BCr=20die=20Erzeugung=20?=
 =?UTF-8?q?von=20nachvollziehbaren=20Bezeichnungen=20gebaut?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 186 +++++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 182 insertions(+), 4 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 4e09aa0..0b25133 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-01-27T15:45:26" LanguageVersion="2014.1.3.698" />
+	<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" />
 	<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">
@@ -60,7 +60,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" />
@@ -160,7 +160,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" />
@@ -196,11 +196,16 @@
 					<FIELD Id="RDK:1783800" Name="Int" Type="integer" />
 					<FIELD Id="RDK:1783798" Name="Boo" Type="boolean" />
 				</TYPE>
-				<TYPE Id="RDK:22342703" Name="SSGDictInt" SubType="structure" HasArrayType="True">
+				<TYPE Id="RDK:22342703" Name="SSGDictInt" Expanded="True" 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_VALUES />
+					<FIELD Id="RDK:22938802" Name="Key" Type="string" />
+					<FIELD Id="RDK:22938803" Name="StrArr" Type="string[]" />
+				</TYPE>
 				<TYPE Id="RDK:18530545" Name="SSG_Limits" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:18530548" Name="Kreisel_top" Type="KreiselType" />
@@ -1169,6 +1174,7 @@
 			<VAR Id="RDK:1519830" Name="SessionZip" Type="string" />
 			<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" />
 		</GROUP>
 		<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
 			<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -12776,6 +12782,140 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						</SET>
 					</FUNCTION>
 				</GROUP>
+				<GROUP Id="RDK:22938908" Name="DictCollectMethods" SubType="FunctionSet" IncludeDate="0">
+					<FUNCTION Id="RDK:22938891" Name="AddKeyValue" DesignTimeRemark="Zählt die Anzahl hinter diesem Key um 1 hoch" InputTypeName="string[]" ResultTypeName="boolean">
+						<GROUP Id="RDK:22938881" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+							<VAR Id="RDK:22938877" Name="kv" Type="SSGDictArr" />
+							<VAR Id="RDK:22938879" Name="key" Type="string">
+								<SET Id="RDK:22938878" VarRef="Me">
+									<EXP><![CDATA[$=$Param.Input[0]]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</VAR>
+							<VAR Id="RDK:22938931" Name="value" Type="string">
+								<SET Id="RDK:22938930" VarRef="Me">
+									<EXP><![CDATA[$=$Param.Input[1]]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</VAR>
+							<VAR Id="RDK:22938937" Name="oldValues" Type="string[]" />
+						</GROUP>
+						<FOREACHLOOP Id="RDK:22938888" DesignTimeRemark="finde den Key wenn er schon einmal gemerkt wurde" ItemVarRef="kv" CountVarRef="i">
+							<PAR Name="ArrayValueExp">
+								<EXP><![CDATA[$=$KeyValues]]></EXP>
+							</PAR>
+							<PAR Name="ExitCondExp">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<IFTHENELSE Id="RDK:22938887" DesignTimeRemark="ein Element mit diesem Key wurde gefunden">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$key = kv.Key]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:22938886" SubType="Then">
+									<SET Id="RDK:22938940" VarRef="oldValues">
+										<EXP><![CDATA[$=$kv.StrArr]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<REMOVE_ADD Id="RDK:22938882" ListRef="KeyValues" Value="$=$kv">
+										<EXP />
+									</REMOVE_ADD>
+									<LIST_ADD Id="RDK:22938941" ListRef="oldValues">
+										<PAR Name="VALUE_TO_ADD">
+											<EXP><![CDATA[$=$value]]></EXP>
+										</PAR>
+										<PAR Name="POS_TO_ADD" />
+									</LIST_ADD>
+									<SET_STRUCT Id="RDK:22938883" VarRef="kv" ClearAll="True">
+										<PAR Name="Key">
+											<EXP><![CDATA[$=$kv.Key]]></EXP>
+										</PAR>
+										<PAR Name="StrArr">
+											<EXP><![CDATA[$=$oldValues]]></EXP>
+										</PAR>
+									</SET_STRUCT>
+									<LIST_ADD Id="RDK:22938884" ListRef="KeyValues">
+										<PAR Name="VALUE_TO_ADD">
+											<EXP><![CDATA[$=$kv]]></EXP>
+										</PAR>
+										<PAR Name="POS_TO_ADD" />
+									</LIST_ADD>
+									<EXIT_PROCESS Id="RDK:22938885" BreakType="4" ExitStatus="0" />
+								</GROUP>
+							</IFTHENELSE>
+						</FOREACHLOOP>
+						<SET_STRUCT Id="RDK:22938889" VarRef="kv" ClearAll="True">
+							<PAR Name="Key">
+								<EXP><![CDATA[$=$key]]></EXP>
+							</PAR>
+							<PAR Name="StrArr">
+								<EXP><![CDATA[$=$NewList(value)]]></EXP>
+							</PAR>
+						</SET_STRUCT>
+						<LIST_ADD Id="RDK:22938890" ListRef="KeyValues">
+							<PAR Name="VALUE_TO_ADD">
+								<EXP><![CDATA[$=$kv]]></EXP>
+							</PAR>
+							<PAR Name="POS_TO_ADD" />
+						</LIST_ADD>
+					</FUNCTION>
+					<FUNCTION Id="RDK:22938896" Name="AddKeyValueInit" DesignTimeRemark="Initialisiert das Dictionary, leert es wenn gefüllt" InputTypeName="string[]">
+						<GROUP Id="RDK:22938893" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+							<VAR Id="RDK:22938892" Name="kv" Type="SSGDictArr" />
+						</GROUP>
+						<FOREACHLOOP Id="RDK:22938895" ItemVarRef="kv">
+							<PAR Name="ArrayValueExp">
+								<EXP><![CDATA[$=$KeyValues]]></EXP>
+							</PAR>
+							<PAR Name="ExitCondExp">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<REMOVE_ADD Id="RDK:22938894" ListRef="KeyValues" Value="$=$kv">
+								<EXP><![CDATA[$=$]]></EXP>
+							</REMOVE_ADD>
+						</FOREACHLOOP>
+					</FUNCTION>
+					<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>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</VAR>
+						</GROUP>
+						<FOREACHLOOP Id="RDK:22938905" ItemVarRef="kv">
+							<PAR Name="ArrayValueExp">
+								<EXP><![CDATA[$=$KeyValues]]></EXP>
+							</PAR>
+							<PAR Name="ExitCondExp">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<IFTHENELSE Id="RDK:22938904" DesignTimeRemark="gib die gefundenen Werte zurück">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$key = kv.Key]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:22938903" SubType="Then">
+									<SET Id="RDK:22938901" VarRef="Param.Result">
+										<EXP><![CDATA[$=$kv.StrArr]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<EXIT_PROCESS Id="RDK:22938902" BreakType="4" ExitStatus="0" />
+								</GROUP>
+							</IFTHENELSE>
+						</FOREACHLOOP>
+						<SET Id="RDK:22938906" VarRef="Param.Result">
+							<EXP><![CDATA[$C$NewList()]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</FUNCTION>
+				</GROUP>
 			</GROUP>
 			<FUNCTION Id="RDK:1332780" Name="InheritHeight" DesignTimeNotes="20231005 -1-" InputTypeName="string">
 				<COMMENTS Id="RDK:20494467" DesignTimeRemark="Bekommt als Parameter ParentId (ID zum Shape, dessen Höhe an alle anderen (direkt und über weitere Kreisel) angebundenen Shapes vererbt werden soll (Param.Input[0])" DesignTimeTip="ParentId bzw. Item0 ist das Objekt, dessen Höhe weitergegeben wird." />
@@ -21659,6 +21799,7 @@ me.x
 						<PAR Name="Dbl" />
 						<PAR Name="Int" />
 						<PAR Name="Boo" />
+						<PAR Name="StrArr" />
 					</SET_STRUCT>
 					<SET_STRUCT Id="RDK:20725711" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 						<PAR Name="Key">
@@ -22545,6 +22686,7 @@ me.x
 					<VAR Id="RDK:22353236" Name="isWritten" Type="boolean" />
 					<VAR Id="RDK:22353222" Name="alreadyWritten" Type="string[]" />
 					<VAR Id="RDK:22353208" Name="number" Type="integer" />
+					<VAR Id="RDK:22943902" Name="bezeichnungen" Type="string[]" />
 				</GROUP>
 				<CALLFUNCTION Id="RDK:22305568">
 					<PAR Name="FuncName">
@@ -22570,6 +22712,18 @@ me.x
 					</PAR>
 					<PAR Name="Options" />
 				</CALLFUNCTION>
+				<CALLFUNCTION Id="RDK:22943897">
+					<PAR Name="FuncName">
+						<EXP><![CDATA[$C$AddKeyValueInit]]></EXP>
+					</PAR>
+					<PAR Name="InputExp">
+						<EXP><![CDATA[$=$]]></EXP>
+					</PAR>
+					<PAR Name="ResultRef">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</CALLFUNCTION>
 				<FOREACHLOOP Id="RDK:22305601" DesignTimeRemark="Zähle wie viele Einheiten davon insgesamt existieren" ItemVarRef="CSV_Item">
 					<PAR Name="ArrayValueExp">
 						<EXP><![CDATA[$=$CSV_List]]></EXP>
@@ -22601,6 +22755,18 @@ me.x
 						</PAR>
 						<PAR Name="Options" />
 					</CALLFUNCTION>
+					<CALLFUNCTION Id="RDK:22938925">
+						<PAR Name="FuncName">
+							<EXP><![CDATA[$C$AddKeyValue]]></EXP>
+						</PAR>
+						<PAR Name="InputExp">
+							<EXP><![CDATA[$=$NewList(attributeId, CSV_Item.Bezeichnung)]]></EXP>
+						</PAR>
+						<PAR Name="ResultRef">
+							<EXP><![CDATA[$V$]]></EXP>
+						</PAR>
+						<PAR Name="Options" />
+					</CALLFUNCTION>
 				</FOREACHLOOP>
 				<FOREACHLOOP Id="RDK:22342697" DesignTimeRemark="Gehe durch alle Items und zähle wie viele davon existieren" ItemVarRef="CSV_Item">
 					<PAR Name="ArrayValueExp">
@@ -22633,6 +22799,18 @@ me.x
 						</PAR>
 						<PAR Name="Options" />
 					</CALLFUNCTION>
+					<CALLFUNCTION Id="RDK:22943899">
+						<PAR Name="FuncName">
+							<EXP><![CDATA[$C$GetValues]]></EXP>
+						</PAR>
+						<PAR Name="InputExp">
+							<EXP><![CDATA[$=$attributeId]]></EXP>
+						</PAR>
+						<PAR Name="ResultRef">
+							<EXP><![CDATA[$V$bezeichnungen]]></EXP>
+						</PAR>
+						<PAR Name="Options" />
+					</CALLFUNCTION>
 					<SET Id="RDK:22353237" VarRef="isWritten">
 						<EXP><![CDATA[$=$False]]></EXP>
 						<PAR Name="AdvancedOptions" />