From e3570d1287d542a30660462634cb4c4112e0c9e7 Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Tue, 25 Nov 2025 15:06:56 +0100
Subject: [PATCH] =?UTF-8?q?Fixes=20an=20de=20Gui=20Funktionen=20f=C3=BCr?=
 =?UTF-8?q?=20den=20Kettenf=C3=B6rderer?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 178 +++++++++++++++++++++++++++++++++++++--------------
 1 file changed, 129 insertions(+), 49 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 1c4d13a..859c7db 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-11-24T15:18:03" LanguageVersion="2014.1.3.712" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2025-11-25T15:06:05" LanguageVersion="2014.1.3.712" />
 	<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">
@@ -80,7 +80,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" />
@@ -123,7 +123,7 @@
 					<FIELD Id="RDK:24351631" Name="AsmName" Type="string" />
 					<FIELD Id="RDK:24351633" Name="Parts" Type="string" DesignTimeTip=";separated string with all necessary files for this assembly" />
 				</TYPE>
-				<TYPE Id="RDK:21686352" Name="KurveFoerdererType" SubType="structure">
+				<TYPE Id="RDK:21686352" Name="KurveFoerdererType" Expanded="True" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:21686345" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:21686346" Name="L1" Type="double" />
@@ -134,7 +134,7 @@
 					<FIELD Id="RDK:22007213" Name="KurvenRichtung" Type="string" DesignTimeRemark="rechts oder links, je nach Wahl des Nutzers" />
 					<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:26502276" Name="KettenFoerdererType" SubType="structure">
+				<TYPE Id="RDK:26502276" Name="KettenFoerdererType" Expanded="True" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:26502268" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:26502269" Name="L1" Type="double" />
@@ -144,7 +144,7 @@
 					<FIELD Id="RDK:26502274" Name="Richtung" Type="string" DesignTimeRemark="ab oder auf" />
 					<FIELD Id="RDK:26502275" Name="isOk" Type="boolean" DesignTimeRemark="True beide Punkte angebunden sind und die Höhen der Nachbarn passen" />
 				</TYPE>
-				<TYPE Id="RDK:18116690" Name="FoerdererType" Expanded="True" Suppressed="True" SubType="structure">
+				<TYPE Id="RDK:18116690" Name="FoerdererType" Suppressed="True" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:18116683" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:18116696" Name="Typ" Type="string" DesignTimeRemark="Auf oder Ab" />
@@ -268,7 +268,7 @@
 					<FIELD Id="RDK:16525231" Name="Drehung" Type="integer" DesignTimeNotes="1= im Uhrzeigersinn=rechts&#xD;&#xA;-1= Gegen Uhrzeigersinn=links" />
 					<FIELD Id="RDK:16577441" Name="Beschreibung" Type="string" />
 				</TYPE>
-				<TYPE Id="RDK:79642" Name="SSG_ShapeType" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:79642" Name="SSG_ShapeType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:79643" Name="SivasNummer" Type="string" />
 					<FIELD Id="RDK:1561689" Name="Rotationsklasse" Type="string" />
@@ -292,7 +292,7 @@
 					<FIELD Id="RDK:16525361" Name="BTMTEntladungDefinition" Type="BTMTEntladungType" />
 					<FIELD Id="RDK:19961198" Name="isDefined" Type="boolean" />
 				</TYPE>
-				<TYPE Id="RDK:18530527" Name="SSG_ShapeType_limit" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:18530527" Name="SSG_ShapeType_limit" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:18530520" Name="KreiselDefinition" Type="KreiselType" />
 					<FIELD Id="RDK:18530521" Name="EckradDefinition" Type="EckradType" />
@@ -329,7 +329,7 @@
 					<FIELD Id="RDK:22938802" Name="Key" Type="string" />
 					<FIELD Id="RDK:22938803" Name="StrArr" Type="string[]" />
 				</TYPE>
-				<TYPE Id="RDK:18530545" Name="SSG_Limits" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:18530545" Name="SSG_Limits" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:18530548" Name="Kreisel_top" Type="KreiselType" />
 					<FIELD Id="RDK:18530546" Name="Kreisel_bot" Type="KreiselType" />
@@ -1014,15 +1014,25 @@
 					<FIELD Id="RDK:22305681" Name="Höhe Ende" Type="string" />
 					<FIELD Id="RDK:25719740" Name="Drehung" Type="double" />
 				</TYPE>
-				<TYPE Id="RDK:21693243" Name="KurveFoerdererMerkmaleType" SubType="structure">
+				<TYPE Id="RDK:21693243" Name="KurveFoerdererMerkmaleType" Expanded="True" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:21693241" Name="Länge in Meter" Type="string" />
-					<FIELD Id="RDK:22010911" Name="Kurvenrichtung" Type="string" />
-					<FIELD Id="RDK:22010913" Name="Kurvenwinkel" Type="double" />
+					<FIELD Id="RDK:22010911" Name="Kurvenrichtung" Type="string" DesignTimeRemark="rechts oder links, je nach Wahl des Nutzers" />
+					<FIELD Id="RDK:22010913" Name="Kurvenwinkel" Type="double" DesignTimeRemark="Angabe in Grad ob 30, 60 oder 90 Grad Bogen" />
+					<FIELD Id="RDK:26514166" Name="AntriebNebenStrecke" Type="string" DesignTimeRemark="TEF Antrieb rechts oder links von der Fahrstrecke" />
 					<FIELD Id="RDK:22305684" Name="Höhe Anfang" Type="string" />
 					<FIELD Id="RDK:22305686" Name="Höhe Ende" Type="string" />
 					<FIELD Id="RDK:25719738" Name="Drehung" Type="double" />
 				</TYPE>
+				<TYPE Id="RDK:26514233" Name="KettenFoerdererMerkmaleType" Expanded="True" SubType="structure">
+					<TYPE_VALUES />
+					<FIELD Id="RDK:26514226" Name="Länge in Meter" Type="string" />
+					<FIELD Id="RDK:26514230" Name="Höhe Anfang" Type="string" />
+					<FIELD Id="RDK:26514231" Name="Höhe Ende" Type="string" />
+					<FIELD Id="RDK:26514235" Name="KurvenWinkel" Type="double" DesignTimeRemark="default 26°, sonderlösung 30°" />
+					<FIELD Id="RDK:26514237" Name="Rrichtung" Type="string" DesignTimeRemark="auf oder ab" />
+					<FIELD Id="RDK:26514232" Name="Drehung" Type="double" />
+				</TYPE>
 				<TYPE Id="RDK:18111807" Name="FoerdererMerkmaleType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:18131140" Name="Höhe ETF oben in Meter" Type="string" />
@@ -1312,6 +1322,7 @@
 				<VAR Id="RDK:23221905" Name="Render_OFWeiche" Type="MUIPanelType[]" />
 				<VAR Id="RDK:18732363" Name="Render_Kurve" Type="MUIPanelType[]" />
 				<VAR Id="RDK:21692033" Name="Render_KurveFoerderer" Type="MUIPanelType[]" />
+				<VAR Id="RDK:26514168" Name="Render_KettenFoerderer" Type="MUIPanelType[]" />
 				<VAR Id="RDK:18119699" Name="Render_Foerderer" Type="MUIPanelType[]" />
 				<VAR Id="RDK:22028987" Name="Render_VarioFoerderer" Type="MUIPanelType[]" />
 				<VAR Id="RDK:973744" Name="Render_Weiche" Type="MUIPanelType[]" />
@@ -1451,6 +1462,7 @@
 			<VAR Id="RDK:23222557" Name="OFBogenData" Type="OFBogenType[]" DesignTimeRemark="Dropdown Liste aller Bögen im Interface" />
 			<VAR Id="RDK:23222658" Name="OFWeichenData" Type="OFWeicheType[]" DesignTimeRemark="Dropdown Liste aller Weichen im Interface" />
 			<VAR Id="RDK:23747696" Name="TEFBogenData" Type="TEFBogenType[]" DesignTimeRemark="Liste aller TEF Bögen" />
+			<VAR Id="RDK:26514277" Name="KurvenWinkel" Type="string" DesignTimeRemark="Generated by RD" />
 		</GROUP>
 		<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
 			<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -29272,41 +29284,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
 									<PAR Name="Options" />
 								</CALLFUNCTION>
 							</GROUP>
-							<GROUP Id="RDK:21689206" Name="Kurve HoeheOben OR HoeheUnten was changed" SubType="Generic" Suppressed="True" DesignTimeNotes="20231005 -1-&#xD;&#xA;&#xD;&#xA;Inherit height to direct Shaps and set others to Gelb (except Kreisel Groups).">
-								<VALUECONDITION Value="true" Oper="OR">
-									<EXP><![CDATA[$=$ShapeList["id=" + Shape_Prototype.id].KurveDefinition.H_Anfang <> Shape_Prototype.KurveDefinition.H_Anfang]]></EXP>
-								</VALUECONDITION>
-								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$ShapeList["id=" + Shape_Prototype.id].KurveDefinition.H_Ende <> Shape_Prototype.KurveDefinition.H_Ende]]></EXP>
-								</VALUECONDITION>
-								<SET_STRUCT Id="RDK:21689204" VarRef="InheritHeightData" ClearAll="True">
-									<PAR Name="ParentIndex">
-										<EXP><![CDATA[$=$i]]></EXP>
-									</PAR>
-									<PAR Name="NewHoehe" />
-									<PAR Name="NewHoeheOben">
-										<EXP><![CDATA[$=$Shape_Prototype.KurveDefinition.H_Anfang]]></EXP>
-									</PAR>
-									<PAR Name="NewHoeheUnten">
-										<EXP><![CDATA[$=$Shape_Prototype.KurveDefinition.H_Ende]]></EXP>
-									</PAR>
-									<PAR Name="Text">
-										<EXP><![CDATA[$C$^]]></EXP>
-									</PAR>
-								</SET_STRUCT>
-								<CALLFUNCTION Id="RDK:21689205">
-									<PAR Name="FuncName">
-										<EXP><![CDATA[$C$InheritHeight]]></EXP>
-									</PAR>
-									<PAR Name="InputExp">
-										<EXP><![CDATA[$=$InheritHeightData]]></EXP>
-									</PAR>
-									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$]]></EXP>
-									</PAR>
-									<PAR Name="Options" />
-								</CALLFUNCTION>
-							</GROUP>
 							<EXIT_PROCESS Id="RDK:21689207" BreakType="3" ExitStatus="0" />
 						</CASEGROUP>
 						<CASEGROUP Id="RDK:21689210" CaseType="0">
@@ -29334,6 +29311,106 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						</CASEGROUP>
 					</SELECTCASE>
 				</FUNCTION>
+				<FUNCTION Id="RDK:26514206" Name="KettenFoerdererUI">
+					<ACTION_CALL Id="RDK:26514188" Name="RDEngineering_ModernUIRender">
+						<PAR Name="RDLibraryName">
+							<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+						</PAR>
+						<PAR Name="RenderList">
+							<EXP><![CDATA[$=$Render_KettenFoerderer]]></EXP>
+						</PAR>
+						<PAR Name="BindingMode">
+							<EXP><![CDATA[$C$0]]></EXP>
+						</PAR>
+						<PAR Name="InputData">
+							<EXP><![CDATA[$=$Shape_Prototype.KettenFoerdererDefinition]]></EXP>
+						</PAR>
+						<PAR Name="CSSStyle" />
+						<PAR Name="RDActionTimeOut" />
+						<PAR Name="ButtonPressed">
+							<EXP><![CDATA[$V$Button]]></EXP>
+						</PAR>
+						<PAR Name="FieldAffected">
+							<EXP><![CDATA[$V$FieldAffected]]></EXP>
+						</PAR>
+						<PAR Name="IndexAffected">
+							<EXP><![CDATA[$V$IndexAffected]]></EXP>
+						</PAR>
+						<PAR Name="EventData">
+							<EXP><![CDATA[$V$EventData]]></EXP>
+						</PAR>
+						<PAR Name="Options" />
+						<PAR Name="ProfileName" />
+					</ACTION_CALL>
+					<SELECTCASE Id="RDK:26514205">
+						<EXP><![CDATA[$=$Button]]></EXP>
+						<CASEGROUP Id="RDK:26514198" CaseType="0">
+							<EXP><![CDATA[$C$OK]]></EXP>
+							<GROUP Id="RDK:26514193" Name="Write Properties" SubType="Generic">
+								<CALLFUNCTION Id="RDK:26514190">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$CreatePrototype_KettenFoerderer]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+								<CALLFUNCTION Id="RDK:26514191">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$Create/Update Shape]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+								<CALLFUNCTION Id="RDK:26514192">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$ResetHeightsOfStrecke]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+							<EXIT_PROCESS Id="RDK:26514197" BreakType="3" ExitStatus="0" />
+						</CASEGROUP>
+						<CASEGROUP Id="RDK:26514200" CaseType="0">
+							<EXP><![CDATA[$C$AUTOCOMMIT]]></EXP>
+							<GROUP Id="RDK:26514199" Name="Group" SubType="Generic">
+								<VALUECONDITION Value="true" Oper="OR">
+									<EXP><![CDATA[$=$FieldAffected="Richtung"]]></EXP>
+								</VALUECONDITION>
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$FieldAffected="KurvenWinkel"]]></EXP>
+								</VALUECONDITION>
+							</GROUP>
+						</CASEGROUP>
+						<CASEGROUP Id="RDK:26514204" CaseType="0">
+							<EXP><![CDATA[$C$CLOSEPOPUP]]></EXP>
+							<GROUP Id="RDK:26514202" Name="Group" SubType="Generic">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$Param.Input="OnInserted"]]></EXP>
+								</VALUECONDITION>
+								<REMOVE_ADD Id="RDK:26514201" ListRef="ShapeList" Expr="Me.id=Shape_Prototype.id">
+									<EXP />
+								</REMOVE_ADD>
+							</GROUP>
+							<EXIT_PROCESS Id="RDK:26514203" BreakType="3" ExitStatus="0" />
+						</CASEGROUP>
+					</SELECTCASE>
+				</FUNCTION>
 				<FUNCTION Id="RDK:18116648" Name="FoerdererUI" Suppressed="True">
 					<GROUP Id="RDK:19887827" SubType="VarSet" IncludeDate="0">
 						<VAR Id="RDK:19887828" Name="Rueckgabe" Type="FoerdererType" />
@@ -47240,6 +47317,9 @@ me.x
 											<PAR Name="Kurvenwinkel">
 												<EXP><![CDATA[$=$ShapeItem.KurveFoerdererDefinition.KurvenWinkel]]></EXP>
 											</PAR>
+											<PAR Name="AntriebNebenStrecke">
+												<EXP><![CDATA[$=$ShapeItem.KurveFoerdererDefinition.AntriebNebenStrecke]]></EXP>
+											</PAR>
 											<PAR Name="Höhe Anfang">
 												<EXP><![CDATA[$=$StrReplace(ShapeItem.KurveFoerdererDefinition.H_Anfang/1000, ",", ".")]]></EXP>
 											</PAR>
@@ -60520,7 +60600,7 @@ me.x
 								<EXP><![CDATA[$C$Neigungswinkel]]></EXP>
 							</PAR>
 							<PAR Name="Field">
-								<EXP><![CDATA[$C$winkel]]></EXP>
+								<EXP><![CDATA[$C$KurvenWinkel]]></EXP>
 							</PAR>
 							<PAR Name="Value" />
 							<PAR Name="Uom" />
@@ -60578,7 +60658,7 @@ me.x
 								<EXP><![CDATA[$C$Richtung]]></EXP>
 							</PAR>
 							<PAR Name="Field">
-								<EXP><![CDATA[$C$FoerderRichtung]]></EXP>
+								<EXP><![CDATA[$C$Richtung]]></EXP>
 							</PAR>
 							<PAR Name="Value" />
 							<PAR Name="Uom" />
@@ -66647,4 +66727,4 @@ me.x
 		</PROFILES_DATA>
 		<BOM_DATA />
 	</EXTERNAL_DATA>
-</PROCESS>
+</PROCESS>
\ No newline at end of file