From 1fe5fdbe94122be96de6df7b74fc9e290332bac1 Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Thu, 23 Jan 2025 11:01:11 +0100
Subject: [PATCH] =?UTF-8?q?Code=20des=20Variof=C3=B6rderers=20war=20bei=20?=
 =?UTF-8?q?mir=20rausgeflogen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 76 ++++++++++++++++++++++++++++++++++++++++------------
 1 file changed, 59 insertions(+), 17 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 1e4538d..dbb26cf 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-23T10:05:34" LanguageVersion="2014.1.3.699" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2025-01-23T10:32:09" 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" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:22537047" Name="AutomationMerkmaleType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:22537043" Name="Anzahl Kreisel" Type="integer" />
 					<FIELD Id="RDK:22537044" Name="Anzahl Kreisel mit Pinband" Type="integer" />
@@ -1161,8 +1161,6 @@
 			<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:22537035" Name="CSVType" Type="string" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:22582164" Name="greoupHinten" Type="string" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:22582165" Name="greoupHinten" Type="string" DesignTimeRemark="Generated by RD" />
 		</GROUP>
 		<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
 			<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -15846,9 +15844,12 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								<VALUECONDITION Value="true" Oper="OR">
 									<EXP><![CDATA[$=$FieldAffected="L1"]]></EXP>
 								</VALUECONDITION>
-								<VALUECONDITION Value="true">
+								<VALUECONDITION Value="true" Oper="OR">
 									<EXP><![CDATA[$=$FieldAffected="FesteL1"]]></EXP>
 								</VALUECONDITION>
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$FieldAffected="Typ"]]></EXP>
+								</VALUECONDITION>
 								<COMMENTS Id="RDK:22128742" DesignTimeRemark="Änderung von Winkel und Länge" />
 								<CALLFUNCTION Id="RDK:22128743">
 									<PAR Name="FuncName">
@@ -25553,7 +25554,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						</SET>
 						<IFTHENELSE Id="RDK:22246719">
 							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$Shape_Prototype.VarioFoerdererDefinition.H_Anfang - Shape_Prototype.VarioFoerdererDefinition.H_Ende < 0.01]]></EXP>
+								<EXP><![CDATA[$=$Abs(Shape_Prototype.VarioFoerdererDefinition.H_Anfang - Shape_Prototype.VarioFoerdererDefinition.H_Ende) < 0.01]]></EXP>
 							</VALUECONDITION>
 							<GROUP Id="RDK:22246725" SubType="Then">
 								<SET Id="RDK:22304087" VarRef="shape_item.text" Suppressed="True">
@@ -25566,26 +25567,69 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</SET>
 							</GROUP>
 							<GROUP Id="RDK:22304080" SubType="Else">
-								<IFTHENELSE Id="RDK:22069264">
+								<IFTHENELSE Id="RDK:22572366">
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$Shape_Prototype.VarioFoerdererDefinition.Typ="Auf"]]></EXP>
+									</VALUECONDITION>
+									<GROUP Id="RDK:22572388" SubType="Then">
+										<IFTHENELSE Id="RDK:22069264">
+											<VALUECONDITION Value="true">
+												<EXP><![CDATA[$=$Shape_Prototype.VarioFoerdererDefinition.H_Anfang>Shape_Prototype.VarioFoerdererDefinition.H_Ende]]></EXP>
+											</VALUECONDITION>
+											<GROUP Id="RDK:22069261" SubType="Then">
+												<SET Id="RDK:22069262" VarRef="Shape_Prototype.text" DesignTimeTip="↓">
+													<EXP><![CDATA[$=$IIF(Shape_Prototype.VarioFoerdererDefinition.LH_fits, "↑", "O")]]></EXP>
+													<PAR Name="AdvancedOptions" />
+												</SET>
+											</GROUP>
+											<GROUP Id="RDK:22069263" SubType="Else">
+												<SET Id="RDK:22069260" VarRef="Shape_Prototype.text">
+													<EXP><![CDATA[$=$IIF(Shape_Prototype.VarioFoerdererDefinition.LH_fits, "↓", "O")]]></EXP>
+													<PAR Name="AdvancedOptions" />
+												</SET>
+											</GROUP>
+										</IFTHENELSE>
+									</GROUP>
+									<GROUP Id="RDK:22572390" SubType="Else">
+										<IFTHENELSE Id="RDK:22572406">
+											<VALUECONDITION Value="true">
+												<EXP><![CDATA[$=$Shape_Prototype.VarioFoerdererDefinition.H_Anfang>Shape_Prototype.VarioFoerdererDefinition.H_Ende]]></EXP>
+											</VALUECONDITION>
+											<GROUP Id="RDK:22572403" SubType="Then">
+												<SET Id="RDK:22572404" VarRef="Shape_Prototype.text">
+													<EXP><![CDATA[$=$IIF(Shape_Prototype.VarioFoerdererDefinition.LH_fits, "↓", "O")]]></EXP>
+													<PAR Name="AdvancedOptions" />
+												</SET>
+											</GROUP>
+											<GROUP Id="RDK:22572405" SubType="Else">
+												<SET Id="RDK:22572402" VarRef="Shape_Prototype.text" DesignTimeTip="↓">
+													<EXP><![CDATA[$=$IIF(Shape_Prototype.VarioFoerdererDefinition.LH_fits, "↑", "O")]]></EXP>
+													<PAR Name="AdvancedOptions" />
+												</SET>
+											</GROUP>
+										</IFTHENELSE>
+									</GROUP>
+								</IFTHENELSE>
+								<IFTHENELSE Id="RDK:22572356" Suppressed="True">
 									<VALUECONDITION Value="true">
 										<EXP><![CDATA[$=$Shape_Prototype.VarioFoerdererDefinition.H_Anfang>Shape_Prototype.VarioFoerdererDefinition.H_Ende]]></EXP>
 									</VALUECONDITION>
-									<GROUP Id="RDK:22069261" SubType="Then">
-										<SET Id="RDK:22069260" VarRef="Shape_Prototype.text">
+									<GROUP Id="RDK:22572352" SubType="Then">
+										<SET Id="RDK:22572350" VarRef="Shape_Prototype.text">
 											<EXP><![CDATA[$=$IIF(Shape_Prototype.VarioFoerdererDefinition.LH_fits, "↓", "O")]]></EXP>
 											<PAR Name="AdvancedOptions" />
 										</SET>
-										<SET Id="RDK:22246711" VarRef="Shape_Prototype.VarioFoerdererDefinition.Typ">
+										<SET Id="RDK:22572351" VarRef="Shape_Prototype.VarioFoerdererDefinition.Typ">
 											<EXP><![CDATA[$C$Ab]]></EXP>
 											<PAR Name="AdvancedOptions" />
 										</SET>
 									</GROUP>
-									<GROUP Id="RDK:22069263" SubType="Else">
-										<SET Id="RDK:22069262" VarRef="Shape_Prototype.text" DesignTimeTip="↓">
+									<GROUP Id="RDK:22572355" SubType="Else">
+										<SET Id="RDK:22572353" VarRef="Shape_Prototype.text" DesignTimeTip="↓">
 											<EXP><![CDATA[$=$IIF(Shape_Prototype.VarioFoerdererDefinition.LH_fits, "↑", "O")]]></EXP>
 											<PAR Name="AdvancedOptions" />
 										</SET>
-										<SET Id="RDK:22246713" VarRef="Shape_Prototype.VarioFoerdererDefinition.Typ">
+										<SET Id="RDK:22572354" VarRef="Shape_Prototype.VarioFoerdererDefinition.Typ">
 											<EXP><![CDATA[$C$Auf]]></EXP>
 											<PAR Name="AdvancedOptions" />
 										</SET>
@@ -34278,9 +34322,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								<EXP><![CDATA[$C$True]]></EXP>
 							</PAR>
 							<PAR Name="Hidden" />
-							<PAR Name="ROnly">
-								<EXP><![CDATA[$C$True]]></EXP>
-							</PAR>
+							<PAR Name="ROnly" />
 							<PAR Name="Disabled" />
 							<PAR Name="Pressed" />
 							<PAR Name="AutoCommit">
@@ -36247,4 +36289,4 @@ ShapeList["id="+Param.Input[1].shapeID].name
 		</PROFILES_DATA>
 		<BOM_DATA />
 	</EXTERNAL_DATA>
-</PROCESS>
\ No newline at end of file
+</PROCESS>