From 1a380712b8e825e7b603a10e1cf3702133688e8e Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Thu, 7 Nov 2024 18:43:33 +0100
Subject: [PATCH] =?UTF-8?q?Export=20Strukt=20f=C3=BCr=20Gruppe=20um=20Wert?=
 =?UTF-8?q?e=20erg=C3=A4nzt,=20die=20SIVAS=20beim=20Import=20direkt=20brau?=
 =?UTF-8?q?cht.=20Damit=20mit=20Herr=20Jakob=20weniger=20zusammensammelnt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 252 +++++++++++++++++++++++++++++++++++++++++++++++----
 1 file changed, 234 insertions(+), 18 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 8b4809b..6437974 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-11-07T12:41:36" LanguageVersion="2014.1.3.699" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-11-07T18:42:53" 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">
@@ -76,7 +76,7 @@
 					<FIELD Id="RDK:302575" Name="n_Sep" Type="integer" />
 					<FIELD Id="RDK:302576" Name="n_Scan" Type="integer" />
 				</TYPE>
-				<TYPE Id="RDK:18732236" Name="KurveType" SubType="structure">
+				<TYPE Id="RDK:18732236" Name="KurveType" Expanded="True" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:18732225" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:18732226" Name="L1" Type="double" />
@@ -838,9 +838,21 @@
 					<TYPE_VALUES />
 					<FIELD Id="RDK:16685911" Name="Höhe in m" Type="string" Suppressed="True" />
 				</TYPE>
-				<TYPE Id="RDK:22023206" Name="GruppeMerkmaleType" SubType="structure">
+				<TYPE Id="RDK:22023206" Name="GruppeMerkmaleType" Expanded="True" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:22023208" Name="ids" Type="string" />
+					<FIELD Id="RDK:22028224" Name="MotorSeite" Type="string" />
+					<FIELD Id="RDK:22028225" Name="AnzahlGeraden" Type="integer" />
+					<FIELD Id="RDK:22028239" Name="LängenInMeter" Type="double[]" />
+					<FIELD Id="RDK:22028241" Name="RichtungAufAbHorizontal" Type="string[]" />
+					<FIELD Id="RDK:22028227" Name="AnzahlKurvenLinks90" Type="integer" />
+					<FIELD Id="RDK:22028231" Name="AnzahlKurvenLinks60" Type="integer" />
+					<FIELD Id="RDK:22028233" Name="AnzahlKurvenLinks30" Type="integer" />
+					<FIELD Id="RDK:22028229" Name="AnzahlKurvenRechts90" Type="integer" />
+					<FIELD Id="RDK:22028235" Name="AnzahlKurvenRechts60" Type="integer" />
+					<FIELD Id="RDK:22028237" Name="AnzahlKurvenRechts30" Type="integer" />
+					<FIELD Id="RDK:22028273" Name="Zusatzseparatoren" Type="integer" />
+					<FIELD Id="RDK:22028275" Name="AnzahlScanner" Type="integer" />
 				</TYPE>
 			</GROUP>
 			<GROUP Id="RDK:18753242" Name="SE EXPORT" SubType="TypeSet" IncludeDate="0">
@@ -6364,6 +6376,213 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						<PAR Name="AdvancedOptions" />
 					</SET>
 				</FUNCTION>
+				<FUNCTION Id="RDK:22028265" Name="SetGroupAttributes" InputTypeName="string">
+					<GROUP Id="RDK:22028256" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+						<VAR Id="RDK:22028283" Name="group" Type="string">
+							<SET Id="RDK:22028285" VarRef="Me">
+								<EXP><![CDATA[$=$Param.Input]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+						</VAR>
+						<VAR Id="RDK:22028867" Name="splitArr" Type="string[]" />
+						<VAR Id="RDK:22028317" Name="shapeId" Type="string" />
+						<VAR Id="RDK:22028300" Name="shapeItem" Type="Editor2DShapeType" />
+						<VAR Id="RDK:22028296" Name="GruppeMerkmale" Type="GruppeMerkmaleType" />
+						<VAR Id="RDK:22028298" Name="motorSeite" Type="string" />
+						<VAR Id="RDK:22028644" Name="anzahlGeraden" Type="integer" />
+						<VAR Id="RDK:22028579" Name="längenInMeter" Type="double[]" />
+						<VAR Id="RDK:22028577" Name="richtungAufAbHorizontal" Type="string[]" />
+						<VAR Id="RDK:22028646" Name="anzahlKurvenLinks90" Type="integer" />
+						<VAR Id="RDK:22028648" Name="anzahlKurvenLinks60" Type="integer" />
+						<VAR Id="RDK:22028650" Name="anzahlKurvenLinks30" Type="integer" />
+						<VAR Id="RDK:22028656" Name="anzahlKurvenRechts90" Type="integer" />
+						<VAR Id="RDK:22028658" Name="anzahlKurvenRechts60" Type="integer" />
+						<VAR Id="RDK:22028660" Name="anzahlKurvenRechts30" Type="integer" />
+						<VAR Id="RDK:22028662" Name="anzahlZusatzseparatoren" Type="integer" />
+						<VAR Id="RDK:22028664" Name="anzahlScanner" Type="integer" />
+					</GROUP>
+					<SET Id="RDK:22028868" VarRef="splitArr">
+						<EXP><![CDATA[$=$splitStr(group, ";")]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<FOREACHLOOP Id="RDK:22028287" ItemVarRef="shapeId" IndexVarRef="i">
+						<PAR Name="ArrayValueExp">
+							<EXP><![CDATA[$=$splitArr]]></EXP>
+						</PAR>
+						<PAR Name="ExitCondExp">
+							<EXP><![CDATA[$V$]]></EXP>
+						</PAR>
+						<SET Id="RDK:22028314" VarRef="shapeItem">
+							<EXP><![CDATA[$=$ShapeList["id="+shapeId]]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SELECTCASE Id="RDK:22028529">
+							<EXP><![CDATA[$=$shapeItem.family]]></EXP>
+							<CASEGROUP Id="RDK:22028450" CaseType="0">
+								<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
+							</CASEGROUP>
+							<CASEGROUP Id="RDK:22028461" CaseType="0" Suppressed="True">
+								<EXP><![CDATA[$C$Foerderer]]></EXP>
+								<LIST_ADD Id="RDK:22028612" ListRef="RichtungAufAbHorizontal">
+									<PAR Name="VALUE_TO_ADD">
+										<EXP><![CDATA[$=$ShapeItem.KurveFoerdererDefinition.KurvenRichtung]]></EXP>
+									</PAR>
+									<PAR Name="POS_TO_ADD" />
+								</LIST_ADD>
+								<LIST_ADD Id="RDK:22028618" ListRef="LaengenInMeter">
+									<PAR Name="VALUE_TO_ADD">
+										<EXP><![CDATA[$=$ShapeItem.KurveFoerdererDefinition.KurvenLaenge]]></EXP>
+									</PAR>
+									<PAR Name="POS_TO_ADD" />
+								</LIST_ADD>
+							</CASEGROUP>
+							<CASEGROUP Id="RDK:22028483" CaseType="0">
+								<EXP><![CDATA[$C$Kurve]]></EXP>
+								<IFTHENELSE Id="RDK:22028557" Suppressed="True">
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$ShapeItem.KurveFoerdererDefinition.KurvenRichtung = "Auf"]]></EXP>
+									</VALUECONDITION>
+									<GROUP Id="RDK:22028556" SubType="Then" />
+								</IFTHENELSE>
+							</CASEGROUP>
+							<CASEGROUP Id="RDK:22028494" CaseType="0">
+								<EXP><![CDATA[$C$KurveFoerderer]]></EXP>
+								<IFTHENELSE Id="RDK:22028706">
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$shapeItem.KurveDefinition.KurvenRichtung = "links"]]></EXP>
+									</VALUECONDITION>
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$shapeItem.KurveDefinition.KurvenWinkel < 31]]></EXP>
+									</VALUECONDITION>
+									<GROUP Id="RDK:22028714" SubType="Then">
+										<SET Id="RDK:22028715" VarRef="anzahlKurvenLinks30">
+											<EXP><![CDATA[$=$anzahlKurvenLinks30 + 1]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+									</GROUP>
+								</IFTHENELSE>
+								<IFTHENELSE Id="RDK:22028760">
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$shapeItem.KurveDefinition.KurvenRichtung = "rechts"]]></EXP>
+									</VALUECONDITION>
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$shapeItem.KurveDefinition.KurvenWinkel < 31]]></EXP>
+									</VALUECONDITION>
+									<GROUP Id="RDK:22028771" SubType="Then">
+										<SET Id="RDK:22028773" VarRef="anzahlKurvenRechts30">
+											<EXP><![CDATA[$=$anzahlKurvenRechts30 + 1]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+									</GROUP>
+								</IFTHENELSE>
+								<IFTHENELSE Id="RDK:22028800">
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$shapeItem.KurveDefinition.KurvenRichtung = "links"]]></EXP>
+									</VALUECONDITION>
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$shapeItem.KurveDefinition.KurvenWinkel < 61]]></EXP>
+									</VALUECONDITION>
+									<GROUP Id="RDK:22028799" SubType="Then">
+										<SET Id="RDK:22028798" VarRef="anzahlKurvenLinks60">
+											<EXP><![CDATA[$=$anzahlKurvenLinks60 + 1]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+									</GROUP>
+								</IFTHENELSE>
+								<IFTHENELSE Id="RDK:22028809">
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$shapeItem.KurveDefinition.KurvenRichtung = "rechts"]]></EXP>
+									</VALUECONDITION>
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$shapeItem.KurveDefinition.KurvenWinkel < 61]]></EXP>
+									</VALUECONDITION>
+									<GROUP Id="RDK:22028808" SubType="Then">
+										<SET Id="RDK:22028807" VarRef="anzahlKurvenRechts60">
+											<EXP><![CDATA[$=$anzahlKurvenRechts60 + 1]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+									</GROUP>
+								</IFTHENELSE>
+								<IFTHENELSE Id="RDK:22028841">
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$shapeItem.KurveDefinition.KurvenRichtung = "links"]]></EXP>
+									</VALUECONDITION>
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$shapeItem.KurveDefinition.KurvenWinkel < 91]]></EXP>
+									</VALUECONDITION>
+									<GROUP Id="RDK:22028840" SubType="Then">
+										<SET Id="RDK:22028839" VarRef="anzahlKurvenLinks90">
+											<EXP><![CDATA[$=$anzahlKurvenLinks90 + 1]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+									</GROUP>
+								</IFTHENELSE>
+								<IFTHENELSE Id="RDK:22028859">
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$shapeItem.KurveDefinition.KurvenRichtung = "rechts"]]></EXP>
+									</VALUECONDITION>
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$shapeItem.KurveDefinition.KurvenWinkel < 91]]></EXP>
+									</VALUECONDITION>
+									<GROUP Id="RDK:22028858" SubType="Then">
+										<SET Id="RDK:22028857" VarRef="anzahlKurvenRechts90">
+											<EXP><![CDATA[$=$anzahlKurvenRechts90 + 1]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+									</GROUP>
+								</IFTHENELSE>
+							</CASEGROUP>
+							<CASEGROUP Id="RDK:22028528" CaseType="1">
+								<EXP />
+							</CASEGROUP>
+						</SELECTCASE>
+					</FOREACHLOOP>
+					<SET_STRUCT Id="RDK:22028573" VarRef="GruppeMerkmale" ClearAll="True">
+						<PAR Name="ids">
+							<EXP><![CDATA[$=$]]></EXP>
+						</PAR>
+						<PAR Name="MotorSeite">
+							<EXP><![CDATA[$=$motorSeite]]></EXP>
+						</PAR>
+						<PAR Name="AnzahlGeraden">
+							<EXP><![CDATA[$=$anzahlGeraden]]></EXP>
+						</PAR>
+						<PAR Name="LängenInMeter">
+							<EXP><![CDATA[$=$längenInMeter]]></EXP>
+						</PAR>
+						<PAR Name="RichtungAufAbHorizontal">
+							<EXP><![CDATA[$=$richtungAufAbHorizontal]]></EXP>
+						</PAR>
+						<PAR Name="AnzahlKurvenLinks90">
+							<EXP><![CDATA[$=$anzahlKurvenLinks90]]></EXP>
+						</PAR>
+						<PAR Name="AnzahlKurvenLinks60">
+							<EXP><![CDATA[$=$anzahlKurvenLinks60]]></EXP>
+						</PAR>
+						<PAR Name="AnzahlKurvenLinks30">
+							<EXP><![CDATA[$=$anzahlKurvenLinks30]]></EXP>
+						</PAR>
+						<PAR Name="AnzahlKurvenRechts90">
+							<EXP><![CDATA[$=$anzahlKurvenRechts90]]></EXP>
+						</PAR>
+						<PAR Name="AnzahlKurvenRechts60">
+							<EXP><![CDATA[$=$anzahlKurvenRechts60]]></EXP>
+						</PAR>
+						<PAR Name="AnzahlKurvenRechts30">
+							<EXP><![CDATA[$=$anzahlKurvenRechts30]]></EXP>
+						</PAR>
+						<PAR Name="Zusatzseparatoren">
+							<EXP><![CDATA[$=$anzahlZusatzseparatoren]]></EXP>
+						</PAR>
+						<PAR Name="AnzahlScanner">
+							<EXP><![CDATA[$=$anzahlScanner]]></EXP>
+						</PAR>
+					</SET_STRUCT>
+					<SET Id="RDK:22028271" VarRef="CSV_Item.Merkmale">
+						<EXP><![CDATA[$=$ToJSON(GruppeMerkmale)]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+				</FUNCTION>
 				<GROUP Id="RDK:1004851" Name="POLYLINE" SubType="FunctionSet" IncludeDate="0">
 					<FUNCTION Id="RDK:1007457" Name="ConvertPolyLineToShapes">
 						<GROUP Id="RDK:1007450" Name="Local Variables" SubType="VarSet" IncludeDate="0">
@@ -19150,7 +19369,6 @@ me.x
 						<VAR Id="RDK:1668589" Name="BTMTEntladungMerkmale" Type="BTMTEntladungMerkmaleType" />
 						<VAR Id="RDK:1516847" Name="CSVFileName" Type="string" />
 						<VAR Id="RDK:1516848" Name="CSVFile" Type="string" />
-						<VAR Id="RDK:22023213" Name="GruppeMerkmale" Type="GruppeMerkmaleType" />
 					</GROUP>
 					<VAR Id="RDK:22023177" Name="group" Type="string" Suppressed="True" />
 					<VAR Id="RDK:22023186" Name="i" Type="integer" Suppressed="True" />
@@ -19648,8 +19866,7 @@ me.x
 				</FOREACHLOOP>
 				<GROUP Id="RDK:22023225" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:22023223" Name="id" Type="string" />
-					<VAR Id="RDK:22023224" Name="lineStr" Type="string" />
-					<VAR Id="RDK:22023227" Name="splitarr" Type="string[]" />
+					<VAR Id="RDK:22028864" Name="group" Type="string" />
 				</GROUP>
 				<FOREACHLOOP Id="RDK:22023174" ItemVarRef="group" IndexVarRef="i">
 					<PAR Name="ArrayValueExp">
@@ -19658,10 +19875,6 @@ me.x
 					<PAR Name="ExitCondExp">
 						<EXP><![CDATA[$V$]]></EXP>
 					</PAR>
-					<SET Id="RDK:22023229" VarRef="splitarr">
-						<EXP><![CDATA[$=$splitStr(group, ";")]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
 					<GROUP Id="RDK:22023064" Name="TeileId" SubType="Generic">
 						<SET Id="RDK:22023063" VarRef="CSV_Item.TeileId">
 							<EXP><![CDATA[$=$ToJSON("Gruppe"+i)]]></EXP>
@@ -19693,15 +19906,18 @@ me.x
 						</SET>
 					</GROUP>
 					<GROUP Id="RDK:22023080" Name="Merkmale" SubType="Generic">
-						<SET_STRUCT Id="RDK:22023211" VarRef="GruppeMerkmale" ClearAll="True">
-							<PAR Name="ids">
-								<EXP><![CDATA[$=$StrReplace(group, ";", ",")]]></EXP>
+						<CALLFUNCTION Id="RDK:22028281">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$SetGroupAttributes]]></EXP>
 							</PAR>
-						</SET_STRUCT>
-						<SET Id="RDK:22023079" VarRef="CSV_Item.Merkmale">
-							<EXP><![CDATA[$=$ToJSON(GruppeMerkmale)]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$group]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
 					</GROUP>
 					<LIST_ADD Id="RDK:22023125" ListRef="CSV_List">
 						<PAR Name="VALUE_TO_ADD">