From cc0ec77ea3df873db733eed7253e9a1598faafda Mon Sep 17 00:00:00 2001
From: Simon Schmutzler <s.schmutzler@schoenenberger.de>
Date: Mon, 27 May 2024 17:42:33 +0200
Subject: [PATCH] =?UTF-8?q?Objekteigenschaften=20wird=20nun=20als=20JSON?=
 =?UTF-8?q?=20f=C3=BCr=20die=20Konfiguration=20eingelesen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../SSG/Init/objekteigenschaften_ILS.json     |  22 +++
 MAIN_SSG.rdx                                  | 149 +++++++++++++++++-
 2 files changed, 168 insertions(+), 3 deletions(-)
 create mode 100644 Editor2DLibrary/SSG/Init/objekteigenschaften_ILS.json

diff --git a/Editor2DLibrary/SSG/Init/objekteigenschaften_ILS.json b/Editor2DLibrary/SSG/Init/objekteigenschaften_ILS.json
new file mode 100644
index 0000000..869088a
--- /dev/null
+++ b/Editor2DLibrary/SSG/Init/objekteigenschaften_ILS.json
@@ -0,0 +1,22 @@
+{
+    "Einschleuselement":{
+        "comment": "Höhen- und Längendifferenz zwischen Laufprofil des Kreisels und Ende einer angebundenen Gefällestrecke in Millimetern",
+        "delta_h": 50,
+        "delta_s": 30
+    },
+    "Ausschleuselement":{
+        "comment": "Höhen- und Längendifferenz zwischen Laufprofil des Kreisels und Ende einer angebundenen Gefällestrecke in Millimetern",
+        "delta_h": 50,
+        "delta_s": 30
+    },
+    "Einschleusung_Kreiselkopf":{
+        "comment": "Höhen- und Längendifferenz zwischen Kreiselkopf des Kreisels und Ende einer angebundenen Gefällestrecke in Millimetern",
+        "delta_h": 50,
+        "delta_s": 30
+    },
+    "Ausschleusung_Kreiselkopf":{
+        "comment": "Höhen- und Längendifferenz zwischen Kreiselkopf des Kreisels und Ende einer angebundenen Gefällestrecke in Millimetern",
+        "delta_h": 50,
+        "delta_s": 30
+    }
+}
\ No newline at end of file
diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 85b0761..cc72e3b 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="2024-05-24T18:18:52" LanguageVersion="2014.1.3.673" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-05-27T15:29:02" LanguageVersion="2014.1.3.673" />
 	<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">
@@ -17,7 +17,7 @@
 					<FIELD Id="RDK:313476" Name="label" Type="string" />
 					<FIELD Id="RDK:721671" Name="aktiv" Type="boolean" />
 				</TYPE>
-				<TYPE Id="RDK:26388" Name="KreiselType" SubType="structure">
+				<TYPE Id="RDK:26388" Name="KreiselType" Expanded="True" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:95024" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:26389" Name="AbstandMS" Type="double" />
@@ -162,6 +162,13 @@
 					<FIELD Id="RDK:18530562" Name="Weiche_top" Type="WeicheType" />
 					<FIELD Id="RDK:18530564" Name="Weiche_bot" Type="WeicheType" />
 				</TYPE>
+				<TYPE Id="RDK:19260062" Name="SSG_Attributes" Expanded="True" SubType="structure">
+					<TYPE_VALUES />
+					<FIELD Id="RDK:19260048" Name="Einschleuselement_delta_h" Type="double" />
+					<FIELD Id="RDK:19260066" Name="Einschleuselement_delta_s" Type="double" />
+					<FIELD Id="RDK:19260064" Name="Ausschleuselement_delta_h" Type="double" />
+					<FIELD Id="RDK:19260068" Name="Ausschleuselement_delta_s" Type="double" />
+				</TYPE>
 			</GROUP>
 			<TYPE Id="RDK:381" Name="ImportBackgroundType" SubType="structure">
 				<TYPE_VALUES />
@@ -842,7 +849,7 @@
 				<FIELD Id="RDK:1345489" Name="NewHoeheUnten" Type="double" />
 				<FIELD Id="RDK:1370529" Name="Text" Type="string" />
 			</TYPE>
-			<TYPE Id="RDK:1529401" Name="IndirectConnGefaellestreckeType" SubType="structure" HasArrayType="True" DesignTimeNotes="20231011 -1-">
+			<TYPE Id="RDK:1529401" Name="IndirectConnGefaellestreckeType" Expanded="True" SubType="structure" HasArrayType="True" DesignTimeNotes="20231011 -1-">
 				<TYPE_VALUES />
 				<FIELD Id="RDK:1529402" Name="Id" Type="string" />
 				<FIELD Id="RDK:1529403" Name="Cp" Type="string" />
@@ -898,6 +905,7 @@
 				<VAR Id="RDK:1789532" Name="SSGParameterList" Type="SSGParameter[]" />
 				<VAR Id="RDK:1789534" Name="SSGParameter" Type="SSGParameter" />
 				<VAR Id="RDK:18530566" Name="SSG_Limits_data" Type="SSG_Limits" />
+				<VAR Id="RDK:19260001" Name="SSG_Attributes_data" Type="SSG_Attributes" />
 			</GROUP>
 			<GROUP Id="RDK:314272" Name="MUI" SubType="VarSet" IncludeDate="0">
 				<VAR Id="RDK:426767" Name="KreiselData" Type="KreiselType" />
@@ -16522,6 +16530,131 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</SELECTCASE>
 				</FOREACHLOOP>
 			</FUNCTION>
+			<FUNCTION Id="RDK:19259865" Name="InitObjectAttributes">
+				<GROUP Id="RDK:19259883" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:19259876" Name="jsonfilepath" Type="string">
+						<SET Id="RDK:19259875" VarRef="Me">
+							<EXP><![CDATA[$=$WebRootPath()+"Editor2D\SSG\Init\objekteigenschaften_ILS.json"]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
+					<VAR Id="RDK:19259877" Name="json" Type="string" />
+					<VAR Id="RDK:19259878" Name="attribute" Type="structure" />
+					<VAR Id="RDK:19259879" Name="komponenten_list" Type="string[]" DesignTimeRemark="Alle Komponenten, die im JSON den Attributen enthalten sind" />
+					<VAR Id="RDK:19259880" Name="str_item" Type="string" />
+					<VAR Id="RDK:19259881" Name="attr_item" Type="structure" />
+					<VAR Id="RDK:19259882" Name="werte" Type="string[]" DesignTimeRemark="Alle JSON Felder, die unter einer Komponente enthalten sind (z.B. &quot;Höhendifferenz&quot;)" />
+				</GROUP>
+				<ACTION_CALL Id="RDK:19259921" Name="RDEngineering_ReadFromTextFile">
+					<PAR Name="RDLibraryName">
+						<EXP><![CDATA[$C$RDEngineering_FILE_TEXT]]></EXP>
+					</PAR>
+					<PAR Name="FileName">
+						<EXP><![CDATA[$=$jsonfilepath]]></EXP>
+					</PAR>
+					<PAR Name="DataType">
+						<EXP><![CDATA[$C$0]]></EXP>
+					</PAR>
+					<PAR Name="StringText">
+						<EXP><![CDATA[$V$json]]></EXP>
+					</PAR>
+					<PAR Name="StringVector">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="StringTable">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="NumberVector">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="NumberTable">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="XmlTokens">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="FileFormat">
+						<EXP><![CDATA[$C$2]]></EXP>
+					</PAR>
+					<PAR Name="IniSection" />
+					<PAR Name="IniProperty" />
+					<PAR Name="Options">
+						<EXP><![CDATA[$=$]]></EXP>
+					</PAR>
+				</ACTION_CALL>
+				<SET Id="RDK:19259923" VarRef="attribute" DesignTimeRemark="Hole Daten der Eigenschaften aus JSON Datei">
+					<EXP><![CDATA[$=$FromJSON(json)]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SET Id="RDK:19259925" VarRef="komponenten_list" DesignTimeRemark="Alle Komponenten, die in der JSON Datei enthalten sind">
+					<EXP><![CDATA[$=$FieldNames(attribute)]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<FOREACHLOOP Id="RDK:19259979" ItemVarRef="str_item">
+					<PAR Name="ArrayValueExp">
+						<EXP><![CDATA[$=$komponenten_list]]></EXP>
+					</PAR>
+					<PAR Name="ExitCondExp">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<SELECTCASE Id="RDK:19259978">
+						<EXP><![CDATA[$=$str_item]]></EXP>
+						<CASEGROUP Id="RDK:19259969" CaseType="0">
+							<EXP><![CDATA[$C$Einschleuselement]]></EXP>
+							<IFTHENELSE Id="RDK:19260123">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$FieldExist(FieldValue(attribute, str_item), "delta_h")]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:19260122" SubType="Then">
+									<SET Id="RDK:19260117" VarRef="SSG_Attributes_data.Einschleuselement_delta_h">
+										<EXP><![CDATA[$=$FieldValue(FieldValue(attribute, str_item), "delta_h")]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+							</IFTHENELSE>
+							<IFTHENELSE Id="RDK:19260174">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$FieldExist(FieldValue(attribute, str_item), "delta_s")]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:19260173" SubType="Then">
+									<SET Id="RDK:19260172" VarRef="SSG_Attributes_data.Einschleuselement_delta_s">
+										<EXP><![CDATA[$=$FieldValue(FieldValue(attribute, str_item), "delta_s")]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+							</IFTHENELSE>
+						</CASEGROUP>
+						<CASEGROUP Id="RDK:19260194" CaseType="0">
+							<EXP><![CDATA[$C$Ausschleuselement]]></EXP>
+							<IFTHENELSE Id="RDK:19260190">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$FieldExist(FieldValue(attribute, str_item), "delta_h")]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:19260189" SubType="Then">
+									<SET Id="RDK:19260188" VarRef="SSG_Attributes_data.Ausschleuselement_delta_h">
+										<EXP><![CDATA[$=$FieldValue(FieldValue(attribute, str_item), "delta_h")]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+							</IFTHENELSE>
+							<IFTHENELSE Id="RDK:19260193">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$FieldExist(FieldValue(attribute, str_item), "delta_s")]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:19260192" SubType="Then">
+									<SET Id="RDK:19260191" VarRef="SSG_Attributes_data.Ausschleuselement_delta_s">
+										<EXP><![CDATA[$=$FieldValue(FieldValue(attribute, str_item), "delta_s")]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+							</IFTHENELSE>
+						</CASEGROUP>
+						<CASEGROUP Id="RDK:19259977" CaseType="1">
+							<EXP />
+						</CASEGROUP>
+					</SELECTCASE>
+				</FOREACHLOOP>
+			</FUNCTION>
 		</GROUP>
 	</GROUP>
 	<GROUP Id="RDK:0008" Name="Main Group" SubType="Generic" Expanded="True">
@@ -20429,6 +20562,16 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</PAR>
 					<PAR Name="Options" />
 				</CALLFUNCTION>
+				<CALLFUNCTION Id="RDK:19260089">
+					<PAR Name="FuncName">
+						<EXP><![CDATA[$C$InitObjectAttributes]]></EXP>
+					</PAR>
+					<PAR Name="InputExp" />
+					<PAR Name="ResultRef">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</CALLFUNCTION>
 			</GROUP>
 		</GROUP>
 		<GROUP Id="RDK:93787" Name="Default Settings" SubType="Generic">