From cac4f6c4fede5efdf833f487a17d1eb773a2f4e9 Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Mon, 4 Nov 2024 17:53:08 +0100
Subject: [PATCH] =?UTF-8?q?Aufgrund=20des=20Dateinamens=20in=20shapeItem.s?=
 =?UTF-8?q?ource=20wird=20erkannt,=20ob=20es=20sich=20um=20eine=20Rechts-?=
 =?UTF-8?q?=20oder=20Linkskurve=20handelt=20mit=20Winkel=2030,60,90=20Grad?=
 =?UTF-8?q?.=20Entsprechend=20werden=20jetzt=20die=20Attribute=20von=20Kur?=
 =?UTF-8?q?ve=20oder=20KurvenFoerderer=20bef=C3=BCllt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 102 +++++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 98 insertions(+), 4 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 442abc6..466a8b6 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-04T15:58:03" LanguageVersion="2014.1.3.699" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-11-04T17:50: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">
@@ -83,6 +83,8 @@
 					<FIELD Id="RDK:18732231" Name="H_Anfang" Type="double" />
 					<FIELD Id="RDK:18732232" Name="H_Ende" Type="double" />
 					<FIELD Id="RDK:18732250" Name="Delta_h" Type="double" DesignTimeRemark="Höhendifferenz" />
+					<FIELD Id="RDK:22007215" Name="KurvenWinkel" Type="double" DesignTimeRemark="Angabe in Grad ob 30, 60 oder 90 Grad Bogen" />
+					<FIELD Id="RDK:22007211" Name="isRechts" Type="boolean" DesignTimeRemark="true, wenn eine Rechtskurve, ansonsten links" />
 					<FIELD Id="RDK:21700894" Name="isOk" Type="boolean" DesignTimeRemark="True beide Punkte angebunden sind und die Höhen der Nachbarn passen" />
 				</TYPE>
 				<TYPE Id="RDK:21686352" Name="KurveFoerdererType" SubType="structure">
@@ -91,6 +93,8 @@
 					<FIELD Id="RDK:21686346" Name="L1" Type="double" />
 					<FIELD Id="RDK:21686347" Name="H_Anfang" Type="double" />
 					<FIELD Id="RDK:21686348" Name="H_Ende" Type="double" />
+					<FIELD Id="RDK:22007217" Name="KurvenWinkel" Type="double" DesignTimeRemark="Angabe in Grad ob 30, 60 oder 90 Grad Bogen" />
+					<FIELD Id="RDK:22007213" Name="isRechts" Type="boolean" DesignTimeRemark="true, wenn eine Rechtskurve, ansonsten links" />
 					<FIELD Id="RDK:21700896" Name="isOk" Type="boolean" DesignTimeRemark="True beide Punkte angebunden sind und die Höhen der Nachbarn passen" />
 				</TYPE>
 				<TYPE Id="RDK:18116690" Name="FoerdererType" SubType="structure">
@@ -3624,7 +3628,10 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 						</GROUP>
 					</FUNCTION>
 					<FUNCTION Id="RDK:18732260" Name="CreatePrototype_Kurve">
-						<GROUP Id="RDK:18732256" Name="Local Variables" SubType="VarSet" IncludeDate="0" />
+						<GROUP Id="RDK:18732256" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+							<VAR Id="RDK:22007219" Name="KurvenWinkel" Type="double" />
+							<VAR Id="RDK:22007221" Name="isRechts" Type="boolean" />
+						</GROUP>
 						<SET Id="RDK:21004634" VarRef="KurveData_defaults" Suppressed="True" Bookmarked="True">
 							<EXP><![CDATA[$=$Shape_Prototype.KurveDefinition]]></EXP>
 							<PAR Name="AdvancedOptions" />
@@ -3799,7 +3806,7 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 							<EXP><![CDATA[$=$Param.Input]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
-						<SET Id="RDK:476606" VarRef="i" Bookmarked="True">
+						<SET Id="RDK:476606" VarRef="i">
 							<EXP><![CDATA[$=$IndexOfByFieldValue(ShapeList, "id", ID)]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
@@ -4609,7 +4616,7 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 										<PAR Name="Options" />
 									</ACTION_CALL>
 									<COMMENTS Id="RDK:18732277" Bookmarked="True" DesignTimeRemark="Inherit Rotation" />
-									<SET_STRUCT Id="RDK:18732278" VarRef="Shape_Prototype" ListRef="ShapeList" Options="$=$&quot;(REPLACEIDX=&quot;+i+&quot;)&quot;" Bookmarked="True" DesignTimeNotes="Shape.depth*Inch/DPI&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;Shape_Prototype.KreiselDefinition.OrientierungHV&#xD;&#xA;IIF(Shape_Prototype.KreiselDefinition.OrientierungHV&lt;&gt;Shape_Prototype.rotation,Shape_Prototype.rotation,Shape_Prototype.KreiselDefinition.OrientierungHV)">
+									<SET_STRUCT Id="RDK:18732278" VarRef="Shape_Prototype" ListRef="ShapeList" Options="$=$&quot;(REPLACEIDX=&quot;+i+&quot;)&quot;" DesignTimeNotes="Shape.depth*Inch/DPI&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;Shape_Prototype.KreiselDefinition.OrientierungHV&#xD;&#xA;IIF(Shape_Prototype.KreiselDefinition.OrientierungHV&lt;&gt;Shape_Prototype.rotation,Shape_Prototype.rotation,Shape_Prototype.KreiselDefinition.OrientierungHV)">
 										<PAR Name="SivasNummer" />
 										<PAR Name="Rotationsklasse" />
 										<PAR Name="IDCounter" />
@@ -4687,6 +4694,49 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 										<PAR Name="includeInBOM" />
 										<PAR Name="KurveFoerdererDefinition" />
 									</SET_STRUCT>
+									<GROUP Id="RDK:22008032" Name="Setze Art der Kurve" SubType="Generic">
+										<SET Id="RDK:22007924" VarRef="ShapeList[i].KurveDefinition.isRechts">
+											<EXP><![CDATA[$=$False]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+										<IFTHENELSE Id="RDK:22007962" DesignTimeRemark="Rechtskurve, wenn der Name ein &quot;R&quot; enthält">
+											<VALUECONDITION Value="true">
+												<EXP><![CDATA[$=$StrIndexOf(ShapeList[i].source, "L", 0) >= 0]]></EXP>
+											</VALUECONDITION>
+											<GROUP Id="RDK:22007959" SubType="Then">
+												<SET Id="RDK:22007981" VarRef="ShapeList[i].KurveDefinition.isRechts">
+													<EXP><![CDATA[$=$True]]></EXP>
+													<PAR Name="AdvancedOptions" />
+												</SET>
+											</GROUP>
+										</IFTHENELSE>
+										<SET Id="RDK:22008029" VarRef="ShapeList[i].KurveDefinition.Kurvenwinkel">
+											<EXP><![CDATA[$=$90]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+										<IFTHENELSE Id="RDK:22007997" DesignTimeRemark="60  Grad, wenn 60 im Namen vorkommt">
+											<VALUECONDITION Value="true">
+												<EXP><![CDATA[$=$StrIndexOf(ShapeList[i].source, "60", 0) >= 0]]></EXP>
+											</VALUECONDITION>
+											<GROUP Id="RDK:22007996" SubType="Then">
+												<SET Id="RDK:22007922" VarRef="ShapeList[i].KurveDefinition.Kurvenwinkel">
+													<EXP><![CDATA[$=$60]]></EXP>
+													<PAR Name="AdvancedOptions" />
+												</SET>
+											</GROUP>
+										</IFTHENELSE>
+										<IFTHENELSE Id="RDK:22008039" DesignTimeRemark="30  Grad, wenn 30 im Namen vorkommt">
+											<VALUECONDITION Value="true">
+												<EXP><![CDATA[$=$StrIndexOf(ShapeList[i].source, "30", 0) >= 0]]></EXP>
+											</VALUECONDITION>
+											<GROUP Id="RDK:22008055" SubType="Then">
+												<SET Id="RDK:22008054" VarRef="ShapeList[i].KurveDefinition.Kurvenwinkel">
+													<EXP><![CDATA[$=$30]]></EXP>
+													<PAR Name="AdvancedOptions" />
+												</SET>
+											</GROUP>
+										</IFTHENELSE>
+									</GROUP>
 								</GROUP>
 							</CASEGROUP>
 							<CASEGROUP Id="RDK:21692053" CaseType="0">
@@ -4850,6 +4900,49 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 										<PAR Name="includeInBOM" />
 									</SET_STRUCT>
 								</GROUP>
+								<GROUP Id="RDK:22008810" Name="Setze Art der Kurve" SubType="Generic">
+									<SET Id="RDK:22008799" VarRef="ShapeList[i].KurveFoerdererDefinition.isRechts">
+										<EXP><![CDATA[$=$False]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<IFTHENELSE Id="RDK:22008802" DesignTimeRemark="Rechtskurve, wenn der Name ein &quot;R&quot; enthält">
+										<VALUECONDITION Value="true">
+											<EXP><![CDATA[$=$StrIndexOf(ShapeList[i].source, "L", 0) >= 0]]></EXP>
+										</VALUECONDITION>
+										<GROUP Id="RDK:22008801" SubType="Then">
+											<SET Id="RDK:22008800" VarRef="ShapeList[i].KurveFoerdererDefinition.isRechts">
+												<EXP><![CDATA[$=$True]]></EXP>
+												<PAR Name="AdvancedOptions" />
+											</SET>
+										</GROUP>
+									</IFTHENELSE>
+									<SET Id="RDK:22008803" VarRef="ShapeList[i].KurveFoerdererDefinition.Kurvenwinkel">
+										<EXP><![CDATA[$=$90]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<IFTHENELSE Id="RDK:22008806" DesignTimeRemark="60  Grad, wenn 60 im Namen vorkommt">
+										<VALUECONDITION Value="true">
+											<EXP><![CDATA[$=$StrIndexOf(ShapeList[i].source, "60", 0) >= 0]]></EXP>
+										</VALUECONDITION>
+										<GROUP Id="RDK:22008805" SubType="Then">
+											<SET Id="RDK:22008804" VarRef="ShapeList[i].KurveFoerdererDefinition.Kurvenwinkel">
+												<EXP><![CDATA[$=$60]]></EXP>
+												<PAR Name="AdvancedOptions" />
+											</SET>
+										</GROUP>
+									</IFTHENELSE>
+									<IFTHENELSE Id="RDK:22008809" DesignTimeRemark="30  Grad, wenn 30 im Namen vorkommt">
+										<VALUECONDITION Value="true">
+											<EXP><![CDATA[$=$StrIndexOf(ShapeList[i].source, "30", 0) >= 0]]></EXP>
+										</VALUECONDITION>
+										<GROUP Id="RDK:22008808" SubType="Then">
+											<SET Id="RDK:22008807" VarRef="ShapeList[i].KurveFoerdererDefinition.Kurvenwinkel">
+												<EXP><![CDATA[$=$30]]></EXP>
+												<PAR Name="AdvancedOptions" />
+											</SET>
+										</GROUP>
+									</IFTHENELSE>
+								</GROUP>
 							</CASEGROUP>
 							<CASEGROUP Id="RDK:1653130" CaseType="0">
 								<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
@@ -17417,6 +17510,7 @@ me.x
 						<EXP />
 					</CASEGROUP>
 				</SELECTCASE>
+				<COMMENTS Id="RDK:22006512" DesignTimeRemark="Nach der Neuberechnung ist eine Änderung des angezeigten Status beider Objekte fällig" />
 				<CALLFUNCTION Id="RDK:19633575">
 					<PAR Name="FuncName">
 						<EXP><![CDATA[$C$SetStatus]]></EXP>