From e8d7471abf5170bcd9a39199b4cab88f2a18f75e Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Mon, 3 Mar 2025 10:45:03 +0100
Subject: [PATCH] =?UTF-8?q?Festsetzen=20des=20Dropdowns=20f=C3=BCr=20das?=
 =?UTF-8?q?=20Interface=20der=20Weichen=20nach=20dem=20Typ=20der=20gerade?=
 =?UTF-8?q?=20hereingezogenen=20Weiche?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 88 ++++++++++++++++++++++++++--------------------------
 1 file changed, 44 insertions(+), 44 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 24c68a9..7c72392 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="y.wang [ANGEBOT-NB02]" ModDate="2025-02-28T08:46:23" LanguageVersion="2014.1.3.698" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2025-03-03T10:42:18" 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">
@@ -184,7 +184,7 @@
 					<FIELD Id="RDK:23222856" Name="Länge" Options="Ausdehnung im Bild nach oben" Type="double" />
 					<FIELD Id="RDK:23222860" Name="Breite" Options="Ausdehnung im Bild nach rechts" Type="double" />
 				</TYPE>
-				<TYPE Id="RDK:23221861" Name="OFWeicheType" SubType="structure" HasArrayType="True">
+				<TYPE Id="RDK:23221861" Name="OFWeicheType" Expanded="True" SubType="structure" HasArrayType="True">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:23221848" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:23221857" Name="WeichenTyp" Type="string" />
@@ -20766,7 +20766,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 											<EXP><![CDATA[$C$0]]></EXP>
 										</PAR>
 										<PAR Name="shpId">
-											<EXP><![CDATA[$=$Shape_Prototype.OFBogenDefinition.Sivasnr]]></EXP>
+											<EXP><![CDATA[$=$Shape_Prototype.OFWeicheDefinition.Sivasnr]]></EXP>
 										</PAR>
 										<PAR Name="catId">
 											<EXP><![CDATA[$C$c_OmnifloParts]]></EXP>
@@ -20805,7 +20805,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 										<PAR Name="BTMTEntladungDefinition" />
 										<PAR Name="isDefined" />
 										<PAR Name="source">
-											<EXP><![CDATA[$=$Shape_Prototype.OFBogenDefinition.Sivasnr]]></EXP>
+											<EXP><![CDATA[$=$Shape_Prototype.OFWeicheDefinition.Sivasnr]]></EXP>
 										</PAR>
 										<PAR Name="sourceLibrary" />
 										<PAR Name="signature" />
@@ -22413,6 +22413,45 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								</PAR>
 								<PAR Name="Options" />
 							</CALLFUNCTION>
+							<GROUP Id="RDK:23404729" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+								<VAR Id="RDK:23404728" Name="Weiche" Type="OFWeicheType">
+									<SET_STRUCT Id="RDK:23404727" VarRef="Me" ClearAll="True" Bookmarked="True">
+										<PAR Name="Beschreibung" />
+										<PAR Name="WeichenTyp" />
+										<PAR Name="L1" />
+										<PAR Name="L2" />
+										<PAR Name="L3" />
+										<PAR Name="Hoehe" />
+										<PAR Name="KurvenWinkel">
+											<EXP><![CDATA[$=$Shape_Prototype.OFWeicheDefinition.KurvenWinkel]]></EXP>
+										</PAR>
+										<PAR Name="KurvenRichtung" />
+										<PAR Name="isOk" />
+										<PAR Name="Sivasnr" />
+										<PAR Name="ProfilTyp" />
+										<PAR Name="Schaltungstyp">
+											<EXP><![CDATA[$=$Shape_Prototype.OFWeicheDefinition.Schaltungstyp]]></EXP>
+										</PAR>
+										<PAR Name="AntriebKurve" />
+										<PAR Name="n_Sep" />
+										<PAR Name="n_Scan" />
+										<PAR Name="Länge" />
+										<PAR Name="Breite" />
+									</SET_STRUCT>
+								</VAR>
+							</GROUP>
+							<CALLFUNCTION Id="RDK:23404723" DesignTimeRemark="Setze die Dropdownlist der Weichen nach dem Typ des eben hereingezogenen Objekts fest.">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$SetDropdownOfWeiche]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$Weiche]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
 						</GROUP>
 						<SET Id="RDK:23222252" VarRef="Shape_Prototype.Rotationsklasse">
 							<EXP><![CDATA[$C$Rotationsobjekt]]></EXP>
@@ -44826,45 +44865,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</PAR>
 					<PAR Name="Options" />
 				</CALLFUNCTION>
-				<GROUP Id="RDK:23331141" Name="Local Variables" SubType="VarSet" IncludeDate="0">
-					<VAR Id="RDK:23331140" Name="Weiche" Type="OFWeicheType">
-						<SET_STRUCT Id="RDK:23331139" VarRef="Me" ClearAll="True" Bookmarked="True">
-							<PAR Name="Beschreibung" />
-							<PAR Name="WeichenTyp" />
-							<PAR Name="L1" />
-							<PAR Name="L2" />
-							<PAR Name="L3" />
-							<PAR Name="Hoehe" />
-							<PAR Name="KurvenWinkel">
-								<EXP><![CDATA[$C$90]]></EXP>
-							</PAR>
-							<PAR Name="KurvenRichtung" />
-							<PAR Name="isOk" />
-							<PAR Name="Sivasnr" />
-							<PAR Name="ProfilTyp" />
-							<PAR Name="Schaltungstyp">
-								<EXP><![CDATA[$C$M]]></EXP>
-							</PAR>
-							<PAR Name="AntriebKurve" />
-							<PAR Name="n_Sep" />
-							<PAR Name="n_Scan" />
-							<PAR Name="Länge" />
-							<PAR Name="Breite" />
-						</SET_STRUCT>
-					</VAR>
-				</GROUP>
-				<CALLFUNCTION Id="RDK:23331143" DesignTimeRemark="Setze die Dropdownlist der Weichen nach dem Default fest. ">
-					<PAR Name="FuncName">
-						<EXP><![CDATA[$C$SetDropdownOfWeiche]]></EXP>
-					</PAR>
-					<PAR Name="InputExp">
-						<EXP><![CDATA[$=$Weiche]]></EXP>
-					</PAR>
-					<PAR Name="ResultRef">
-						<EXP><![CDATA[$V$]]></EXP>
-					</PAR>
-					<PAR Name="Options" />
-				</CALLFUNCTION>
 			</GROUP>
 		</GROUP>
 		<GROUP Id="RDK:93787" Name="Default Settings" SubType="Generic">
@@ -46238,4 +46238,4 @@ ShapeList["id="+Param.Input[1].shapeID].name
 		</PROFILES_DATA>
 		<BOM_DATA />
 	</EXTERNAL_DATA>
-</PROCESS>
+</PROCESS>
\ No newline at end of file