From f506cbb162892e767145f787266c7770a738cad3 Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Wed, 22 Jan 2025 11:48:58 +0100
Subject: [PATCH] =?UTF-8?q?Export=20der=20Anzahl=20der=20einzelnen=20Gef?=
 =?UTF-8?q?=C3=A4llestrecken=20und=20Variof=C3=B6rderer?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 134 ++++++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 128 insertions(+), 6 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 4b3e189..854a7b5 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-21T16:19:32" LanguageVersion="2014.1.3.699" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2025-01-22T11:46:54" 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">
@@ -935,7 +935,7 @@
 					<FIELD Id="RDK:22028926" Name="GruppenteileGefälle" Type="GefälleStreckeMerkmaleType" />
 					<FIELD Id="RDK:22028928" Name="GruppenteileAngetrieben" Type="AngetriebeneStreckeMerkmaleType" />
 				</TYPE>
-				<TYPE Id="RDK:22537047" Name="AutomationMerkmaleType" SubType="structure">
+				<TYPE Id="RDK:22537047" Name="AutomationMerkmaleType" Expanded="True" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:22537043" Name="Anzahl Kreisel" Type="integer" />
 					<FIELD Id="RDK:22537044" Name="Anzahl Kreisel mit Pinband" Type="integer" />
@@ -943,11 +943,13 @@
 					<FIELD Id="RDK:22537055" Name="Längen aller Kreisel" Type="double" />
 					<FIELD Id="RDK:22537051" Name="Anzahl der Weichen" Type="integer" />
 					<FIELD Id="RDK:22537053" Name="Anzahl der Eckräder" Type="integer" />
-					<FIELD Id="RDK:22537057" Name="Anzahl der Streckengruppen" Type="integer" />
+					<FIELD Id="RDK:22537057" Name="Anzahl der einzelnen Gefällestrecken" Type="integer" />
+					<FIELD Id="RDK:22560904" Name="Anzahl der einzelnen Varioförderer" Type="integer" />
+					<FIELD Id="RDK:22560906" Name="Anzahl der Streckengruppen" Type="integer" />
 					<FIELD Id="RDK:22537059" Name="Längen aller Gefällestrecken" Type="double" />
 					<FIELD Id="RDK:22537061" Name="Anzahl der Motoren Varioförderer" Type="integer" />
 					<FIELD Id="RDK:22537063" Name="Längen aller Varioförderer" Type="double" />
-					<FIELD Id="RDK:22537065" Name="Anzahl ETs" Type="integer" />
+					<FIELD Id="RDK:22537065" Name="Anzahl ETFs" Type="integer" />
 					<FIELD Id="RDK:22537067" Name="Längen aller ETFs" Type="double" />
 					<FIELD Id="RDK:22537069" Name="Anzahl aller Separatoren" Type="integer" />
 					<FIELD Id="RDK:22537071" Name="Anzahl aller Scanner" Type="integer" />
@@ -12299,6 +12301,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 							</VAR>
 							<VAR Id="RDK:20895607" Name="groupHinten" Type="string" />
 							<VAR Id="RDK:20899146" Name="splitarr" Type="string[]" />
+							<VAR Id="RDK:22556841" Name="newGroup" Type="string[]" />
 							<VAR Id="RDK:20924261" Name="lineStr" Type="string" />
 						</GROUP>
 						<FOREACHLOOP Id="RDK:20895553" DesignTimeRemark="finde Anfang und Ende der beiden betroffenen Gruppen" ItemVarRef="lineStr">
@@ -12369,12 +12372,36 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 							<EXP />
 						</REMOVE_ADD>
 						<COMMENTS Id="RDK:20895726" DesignTimeRemark="und füge den neuen ein" />
-						<LIST_ADD Id="RDK:20895722" DesignTimeRemark="ist die neue Gruppe" ListRef="groupStrings">
+						<LIST_ADD Id="RDK:20895722" Suppressed="True" DesignTimeRemark="ist die neue Gruppe" ListRef="groupStrings">
 							<PAR Name="VALUE_TO_ADD">
 								<EXP><![CDATA[$=$groupVorn+";"+groupHinten]]></EXP>
 							</PAR>
 							<PAR Name="POS_TO_ADD" />
 						</LIST_ADD>
+						<LIST_ADD Id="RDK:22556843" ListRef="newGroup">
+							<PAR Name="VALUE_TO_ADD">
+								<EXP><![CDATA[$=$groupVorn]]></EXP>
+							</PAR>
+							<PAR Name="POS_TO_ADD" />
+						</LIST_ADD>
+						<LIST_ADD Id="RDK:22556845" ListRef="newGroup">
+							<PAR Name="VALUE_TO_ADD">
+								<EXP><![CDATA[$=$groupHinten]]></EXP>
+							</PAR>
+							<PAR Name="POS_TO_ADD" />
+						</LIST_ADD>
+						<CALLFUNCTION Id="RDK:22556839">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$CreateGroup]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$newGroup]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
 					</FUNCTION>
 					<FUNCTION Id="RDK:20817733" Name="SplitGroups" DesignTimeRemark="macht aus einer Gruppe zwei. Split erfolgt an der gegebenen Id, welche anschliessend auch als Element frei gestellt ist" InputTypeName="string" ResultTypeName="boolean">
 						<GROUP Id="RDK:20832540" Name="Local Variables" SubType="VarSet" IncludeDate="0">
@@ -22024,6 +22051,18 @@ me.x
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</VAR>
+					<VAR Id="RDK:22560910" Name="AnzahlEinzelnerGefällestrecken" Type="integer">
+						<SET Id="RDK:22560909" VarRef="Me">
+							<EXP><![CDATA[$C$0]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
+					<VAR Id="RDK:22560914" Name="AnzahlEinzelnerVarioförderer" Type="integer">
+						<SET Id="RDK:22560913" VarRef="Me">
+							<EXP><![CDATA[$C$0]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
 					<VAR Id="RDK:22537093" Name="AnzahlStreckengruppen" Type="integer" />
 					<VAR Id="RDK:22537095" Name="AnzahlMotorenVarioFörderer" Type="integer">
 						<SET Id="RDK:22537264" VarRef="Me">
@@ -22085,6 +22124,7 @@ me.x
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</VAR>
+					<VAR Id="RDK:22560925" Name="inGroup" Type="boolean" />
 				</GROUP>
 				<CALLFUNCTION Id="RDK:22537313">
 					<PAR Name="FuncName">
@@ -22171,6 +22211,29 @@ me.x
 								<EXP><![CDATA[$=$AnzahlScanner+ShapeItem.GefaelleDefinition.n_Scan]]></EXP>
 								<PAR Name="AdvancedOptions" />
 							</SET>
+							<CALLFUNCTION Id="RDK:22560924">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$IsInGroup]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$ShapeItem.id]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$inGroup]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+							<IFTHENELSE Id="RDK:22560926">
+								<VALUECONDITION Value="false">
+									<EXP><![CDATA[$=$inGroup]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:22560927" SubType="Then">
+									<SET Id="RDK:22560918" VarRef="AnzahlEinzelnerGefällestrecken">
+										<EXP><![CDATA[$=$AnzahlEinzelnerGefällestrecken+1]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+							</IFTHENELSE>
 						</CASEGROUP>
 						<CASEGROUP Id="RDK:22537121" CaseType="0">
 							<EXP><![CDATA[$C$VarioFoerderer]]></EXP>
@@ -22190,6 +22253,29 @@ me.x
 								<EXP><![CDATA[$=$AnzahlScanner+ShapeItem.VarioFoerdererDefinition.n_Scan]]></EXP>
 								<PAR Name="AdvancedOptions" />
 							</SET>
+							<CALLFUNCTION Id="RDK:22560922">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$IsInGroup]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$ShapeItem.id]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$inGroup]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+							<IFTHENELSE Id="RDK:22560940">
+								<VALUECONDITION Value="false">
+									<EXP><![CDATA[$=$inGroup]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:22560939" SubType="Then">
+									<SET Id="RDK:22560916" VarRef="AnzahlEinzelnerVarioförderer">
+										<EXP><![CDATA[$=$AnzahlEinzelnerVarioförderer+1]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+							</IFTHENELSE>
 						</CASEGROUP>
 						<CASEGROUP Id="RDK:22537119" CaseType="0">
 							<EXP><![CDATA[$C$Foerderer]]></EXP>
@@ -22278,6 +22364,12 @@ me.x
 					<PAR Name="Anzahl der Eckräder">
 						<EXP><![CDATA[$=$AnzahlEckräder]]></EXP>
 					</PAR>
+					<PAR Name="Anzahl der einzelnen Gefällestrecken">
+						<EXP><![CDATA[$=$AnzahlEinzelnerGefällestrecken]]></EXP>
+					</PAR>
+					<PAR Name="Anzahl der einzelnen Varioförderer">
+						<EXP><![CDATA[$=$AnzahlEinzelnerVarioförderer]]></EXP>
+					</PAR>
 					<PAR Name="Anzahl der Streckengruppen">
 						<EXP><![CDATA[$=$AnzahlStreckengruppen]]></EXP>
 					</PAR>
@@ -22290,7 +22382,7 @@ me.x
 					<PAR Name="Längen aller Varioförderer">
 						<EXP><![CDATA[$=$Round(LängenVarioFörderer,2)]]></EXP>
 					</PAR>
-					<PAR Name="Anzahl ETs">
+					<PAR Name="Anzahl ETFs">
 						<EXP><![CDATA[$=$AnzahlETFs]]></EXP>
 					</PAR>
 					<PAR Name="Längen aller ETFs">
@@ -25661,6 +25753,36 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<VAR Id="RDK:1772345" Name="cpId_0" Type="string" />
 					<VAR Id="RDK:19664800" Name="cpId_1" Type="string" />
 				</GROUP>
+				<IFTHENELSE Id="RDK:22547059">
+					<VALUECONDITION Value="true" Oper="OR">
+						<EXP><![CDATA[$=$StrLength(Param.Input["key=shapeId_0"].Str) = 0]]></EXP>
+					</VALUECONDITION>
+					<VALUECONDITION Value="true">
+						<EXP><![CDATA[$=$StrLength(Param.Input["key=shapeId_1"].Str) = 0]]></EXP>
+					</VALUECONDITION>
+					<GROUP Id="RDK:22547060" SubType="Then">
+						<ACTION_CALL Id="RDK:22547072" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
+							<PAR Name="RDLibraryName">
+								<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+							</PAR>
+							<PAR Name="MsgText">
+								<EXP><![CDATA[$C$nur eine Id gegeben. Bitte Angaben prüfen]]></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>
+						<EXIT_PROCESS Id="RDK:22547068" BreakType="4" ExitStatus="0" />
+					</GROUP>
+				</IFTHENELSE>
 				<SET Id="RDK:19718915" VarRef="item_0">
 					<EXP><![CDATA[$=$ShapeList["id="+Param.Input["key=shapeId_0"].Str]]]></EXP>
 					<PAR Name="AdvancedOptions" />