From 9365e5d6419fa404c3d423f5184418115944b408 Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Tue, 18 Feb 2025 17:30:28 +0100
Subject: [PATCH] BogenRadius in Gui von OFBogen integriert

---
 MAIN_SSG.rdx | 154 +++++++++++++++++++++++++++++++++++++++++++++++----
 1 file changed, 142 insertions(+), 12 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 313df2d..162a1e8 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-02-14T17:01:35" LanguageVersion="2014.1.3.699" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2025-02-18T17:29:47" 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">
@@ -167,7 +167,7 @@
 					<FIELD Id="RDK:23017101" Name="n_Sep" Type="integer" />
 					<FIELD Id="RDK:23017102" Name="n_Scan" Type="integer" />
 				</TYPE>
-				<TYPE Id="RDK:23017447" Name="OFBogenType" SubType="structure">
+				<TYPE Id="RDK:23017447" Name="OFBogenType" Expanded="True" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:23017438" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:23017439" Name="L1" Type="double" />
@@ -178,6 +178,8 @@
 					<FIELD Id="RDK:23017444" Name="KurvenRichtung" Type="string" DesignTimeRemark="true, wenn eine Rechtskurve, ansonsten links" />
 					<FIELD Id="RDK:23017445" Name="isOk" Type="boolean" DesignTimeRemark="True beide Punkte angebunden sind und die Höhen der Nachbarn passen" />
 					<FIELD Id="RDK:23017446" Name="Sivasnr" Type="string" />
+					<FIELD Id="RDK:23020536" Name="Radius" Type="double" />
+					<FIELD Id="RDK:23020538" Name="AntriebInnen" Type="boolean" />
 				</TYPE>
 				<TYPE Id="RDK:1652525" Name="BTMTBeladungType" SubType="structure">
 					<TYPE_VALUES />
@@ -940,7 +942,7 @@
 					<TYPE_VALUES />
 					<FIELD Id="RDK:16685911" Name="Höhe in m" Type="string" Suppressed="True" />
 				</TYPE>
-				<TYPE Id="RDK:23017780" Name="OFGeradeMerkmaleType" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:23017780" Name="OFGeradeMerkmaleType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:23017774" Name="Anzahl der Separatoren" Type="string" />
 					<FIELD Id="RDK:23017775" Name="Länge in Meter" Type="string" />
@@ -949,7 +951,7 @@
 					<FIELD Id="RDK:23017778" Name="Höhe oben" Type="string" />
 					<FIELD Id="RDK:23017779" Name="Höhe unten" Type="string" />
 				</TYPE>
-				<TYPE Id="RDK:23017792" Name="OFBogenMerkmaleType" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:23017792" Name="OFBogenMerkmaleType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:23017787" Name="Länge in Meter" Type="string" />
 					<FIELD Id="RDK:23017788" Name="Kurvenrichtung" Type="string" />
@@ -1144,6 +1146,10 @@
 					<VAR Id="RDK:22228348" Name="VarioFoerdererTypItem" Type="DataSourceValInfo" />
 					<VAR Id="RDK:22228350" Name="VarioFoerdererTypList" Type="DataSourceValInfo[]" />
 				</GROUP>
+				<GROUP Id="RDK:23018787" Name="OFBogenRadius" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:23018783" Name="OFBogenRadiusltem" Type="DataSourceValInfo" />
+					<VAR Id="RDK:23018784" Name="OFBogenRadiusList" Type="DataSourceValInfo[]" />
+				</GROUP>
 				<GROUP Id="RDK:331223" Name="Steigung" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:331221" Name="SteigungItem" Type="DataSourceValInfo" />
 					<VAR Id="RDK:331222" Name="SteigungList" Type="DataSourceValInfo[]" />
@@ -1235,6 +1241,7 @@
 			<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:22938910" Name="KeyValues" Type="SSGDictArr[]" DesignTimeRemark="Array von Key-Value paaren, um sich eine liste von Begriffen zu einem Key zu merken" />
+			<VAR Id="RDK:23017880" Name="Sivasnr" Type="string" DesignTimeRemark="Generated by RD" />
 		</GROUP>
 		<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
 			<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -4778,6 +4785,8 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 										<PAR Name="VarioFoerdererDefinition" />
 										<PAR Name="KurveDefinition" />
 										<PAR Name="KurveFoerdererDefinition" />
+										<PAR Name="OFGeradeDefinition" />
+										<PAR Name="OFBogenDefinition" />
 										<PAR Name="WeicheDefinition" />
 										<PAR Name="BTMTBeladungDefinition" />
 										<PAR Name="BTMTEntladungDefinition" />
@@ -6711,7 +6720,7 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 										<PAR Name="includeInBOM" />
 									</SET_STRUCT>
 									<GROUP Id="RDK:23016594" Name="Setze Art der Kurve" SubType="Generic">
-										<SET Id="RDK:23016583" VarRef="ShapeList[i].KurveDefinition.KurvenRichtung">
+										<SET Id="RDK:23016583" VarRef="ShapeList[i].OFBogenDefinition.KurvenRichtung">
 											<EXP><![CDATA[$C$rechts]]></EXP>
 											<PAR Name="AdvancedOptions" />
 										</SET>
@@ -6720,13 +6729,13 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 												<EXP><![CDATA[$=$StrIndexOf(ShapeList[i].source, "_L", 0) >= 0]]></EXP>
 											</VALUECONDITION>
 											<GROUP Id="RDK:23016585" SubType="Then">
-												<SET Id="RDK:23016584" VarRef="ShapeList[i].KurveDefinition.KurvenRichtung">
+												<SET Id="RDK:23016584" VarRef="ShapeList[i].OFBogenDefinition.KurvenRichtung">
 													<EXP><![CDATA[$C$links]]></EXP>
 													<PAR Name="AdvancedOptions" />
 												</SET>
 											</GROUP>
 										</IFTHENELSE>
-										<SET Id="RDK:23016587" VarRef="ShapeList[i].KurveDefinition.Kurvenwinkel">
+										<SET Id="RDK:23016587" VarRef="ShapeList[i].OFBogenDefinition.Kurvenwinkel">
 											<EXP><![CDATA[$=$90]]></EXP>
 											<PAR Name="AdvancedOptions" />
 										</SET>
@@ -6735,7 +6744,7 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 												<EXP><![CDATA[$=$StrIndexOf(ShapeList[i].source, "60", 0) >= 0]]></EXP>
 											</VALUECONDITION>
 											<GROUP Id="RDK:23016589" SubType="Then">
-												<SET Id="RDK:23016588" VarRef="ShapeList[i].KurveDefinition.Kurvenwinkel">
+												<SET Id="RDK:23016588" VarRef="ShapeList[i].OFBogenDefinition.Kurvenwinkel">
 													<EXP><![CDATA[$=$60]]></EXP>
 													<PAR Name="AdvancedOptions" />
 												</SET>
@@ -6746,7 +6755,7 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 												<EXP><![CDATA[$=$StrIndexOf(ShapeList[i].source, "30", 0) >= 0]]></EXP>
 											</VALUECONDITION>
 											<GROUP Id="RDK:23016592" SubType="Then">
-												<SET Id="RDK:23016591" VarRef="ShapeList[i].KurveDefinition.Kurvenwinkel">
+												<SET Id="RDK:23016591" VarRef="ShapeList[i].OFBogenDefinition.Kurvenwinkel">
 													<EXP><![CDATA[$=$30]]></EXP>
 													<PAR Name="AdvancedOptions" />
 												</SET>
@@ -14607,6 +14616,15 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<PAR Name="aktiv">
 										<EXP><![CDATA[$=$IIF(me.x_M<=(Shape_Prototype.KreiselDefinition.AbstandMS-Shape_Prototype.KreiselDefinition.d_min),TRUE,FALSE)]]></EXP>
 									</PAR>
+									<PAR Name="id" />
+									<PAR Name="x_M" />
+									<PAR Name="x_S" />
+									<PAR Name="x" />
+									<PAR Name="y" />
+									<PAR Name="z" />
+									<PAR Name="direction" />
+									<PAR Name="linkClass" />
+									<PAR Name="label" />
 								</EXEC_ON_VALUES>
 								<EXEC_ON_VALUES Id="RDK:812298" VarRef="Shape_Prototype.KreiselDefinition.S_Strecke">
 									<PAR Name="aktiv">
@@ -18644,7 +18662,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 							<EXP><![CDATA[$C$0]]></EXP>
 						</PAR>
 						<PAR Name="InputData">
-							<EXP><![CDATA[$=$Shape_Prototype.KurveDefinition]]></EXP>
+							<EXP><![CDATA[$=$Shape_Prototype.OFBogenDefinition]]></EXP>
 						</PAR>
 						<PAR Name="CSSStyle" />
 						<PAR Name="RDActionTimeOut" />
@@ -39802,6 +39820,63 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</GROUP>
 				</GROUP>
 				<GROUP Id="RDK:23016549" Name="OFBogenUI" SubType="Generic">
+					<GROUP Id="RDK:23018775" Name="Orientierung" SubType="Generic">
+						<SET_STRUCT Id="RDK:23018766" VarRef="OFBogenRadiusltem" ClearAll="True" ListRef="OFBogenRadiusList">
+							<PAR Name="Value">
+								<EXP><![CDATA[$C$400]]></EXP>
+							</PAR>
+							<PAR Name="Prompt">
+								<EXP><![CDATA[$C$400]]></EXP>
+							</PAR>
+							<PAR Name="Image" />
+							<PAR Name="Tooltip" />
+							<PAR Name="Tags" />
+						</SET_STRUCT>
+						<SET_STRUCT Id="RDK:23018767" VarRef="OFBogenRadiusltem" ClearAll="True" ListRef="OFBogenRadiusList">
+							<PAR Name="Value">
+								<EXP><![CDATA[$C$500]]></EXP>
+							</PAR>
+							<PAR Name="Prompt">
+								<EXP><![CDATA[$C$500]]></EXP>
+							</PAR>
+							<PAR Name="Image" />
+							<PAR Name="Tooltip" />
+							<PAR Name="Tags" />
+						</SET_STRUCT>
+						<SET_STRUCT Id="RDK:23018768" VarRef="OFBogenRadiusltem" ClearAll="True" ListRef="OFBogenRadiusList">
+							<PAR Name="Value">
+								<EXP><![CDATA[$C$550]]></EXP>
+							</PAR>
+							<PAR Name="Prompt">
+								<EXP><![CDATA[$C$550]]></EXP>
+							</PAR>
+							<PAR Name="Image" />
+							<PAR Name="Tooltip" />
+							<PAR Name="Tags" />
+						</SET_STRUCT>
+						<SET_STRUCT Id="RDK:23018769" VarRef="OFBogenRadiusltem" ClearAll="True" ListRef="OFBogenRadiusList">
+							<PAR Name="Value">
+								<EXP><![CDATA[$C$630]]></EXP>
+							</PAR>
+							<PAR Name="Prompt">
+								<EXP><![CDATA[$C$630]]></EXP>
+							</PAR>
+							<PAR Name="Image" />
+							<PAR Name="Tooltip" />
+							<PAR Name="Tags" />
+						</SET_STRUCT>
+						<SET_STRUCT Id="RDK:23020534" VarRef="OFBogenRadiusltem" ClearAll="True" ListRef="OFBogenRadiusList">
+							<PAR Name="Value">
+								<EXP><![CDATA[$C$650]]></EXP>
+							</PAR>
+							<PAR Name="Prompt">
+								<EXP><![CDATA[$C$650]]></EXP>
+							</PAR>
+							<PAR Name="Image" />
+							<PAR Name="Tooltip" />
+							<PAR Name="Tags" />
+						</SET_STRUCT>
+					</GROUP>
 					<GROUP Id="RDK:23016539" Name="Kurvenrichtung" SubType="Generic">
 						<SET_STRUCT Id="RDK:23016537" VarRef="KurvenRichtungItem" ClearAll="True" ListRef="KurvenRichtungList">
 							<PAR Name="Value">
@@ -39857,6 +39932,61 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<PAR Name="RenderStatus" />
 							<PAR Name="Options" />
 						</ACTION_CALL>
+						<ACTION_CALL Id="RDK:23017879" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}" DesignTimeTip="cp1 top point">
+							<PAR Name="RDLibraryName">
+								<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+							</PAR>
+							<PAR Name="RenderList">
+								<EXP><![CDATA[$=$Render_OFBogen]]></EXP>
+							</PAR>
+							<PAR Name="PanelName">
+								<EXP><![CDATA[$C$0]]></EXP>
+							</PAR>
+							<PAR Name="CustomPanel" />
+							<PAR Name="ActionType">
+								<EXP><![CDATA[$C$0]]></EXP>
+							</PAR>
+							<PAR Name="Id">
+								<EXP><![CDATA[$C$Radius]]></EXP>
+							</PAR>
+							<PAR Name="ParentId" />
+							<PAR Name="Label">
+								<EXP><![CDATA[$C$Radius]]></EXP>
+							</PAR>
+							<PAR Name="Field">
+								<EXP><![CDATA[$=$Radius]]></EXP>
+							</PAR>
+							<PAR Name="Value" />
+							<PAR Name="Uom" />
+							<PAR Name="Tooltip" />
+							<PAR Name="Styles" />
+							<PAR Name="Classes">
+								<EXP><![CDATA[$C$col-6]]></EXP>
+							</PAR>
+							<PAR Name="Rules" />
+							<PAR Name="Image" />
+							<PAR Name="ControlType">
+								<EXP><![CDATA[$C$dropdown]]></EXP>
+							</PAR>
+							<PAR Name="ButtonSubType" />
+							<PAR Name="DropdownSubType" />
+							<PAR Name="TextboxSubType" />
+							<PAR Name="Action" />
+							<PAR Name="Required" />
+							<PAR Name="Hidden" />
+							<PAR Name="ROnly" />
+							<PAR Name="Disabled" />
+							<PAR Name="Pressed" />
+							<PAR Name="AutoCommit">
+								<EXP><![CDATA[$=$]]></EXP>
+							</PAR>
+							<PAR Name="ValidateFail" />
+							<PAR Name="ValidateMsg" />
+							<PAR Name="DataSource">
+								<EXP><![CDATA[$=$OFBogenRadiusList]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</ACTION_CALL>
 						<ACTION_CALL Id="RDK:23016541" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}" DesignTimeTip="cp2 top point">
 							<PAR Name="RDLibraryName">
 								<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
@@ -39886,7 +40016,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<PAR Name="Tooltip" />
 							<PAR Name="Styles" />
 							<PAR Name="Classes">
-								<EXP><![CDATA[$C$col-6]]></EXP>
+								<EXP><![CDATA[$C$col-3]]></EXP>
 							</PAR>
 							<PAR Name="Rules" />
 							<PAR Name="Image" />
@@ -41516,4 +41646,4 @@ ShapeList["id="+Param.Input[1].shapeID].name
 		</PROFILES_DATA>
 		<BOM_DATA />
 	</EXTERNAL_DATA>
-</PROCESS>
+</PROCESS>
\ No newline at end of file