From af14a878bce0b737c393a3ab4cda2fbf4bc777fd Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Thu, 20 Mar 2025 11:23:17 +0100
Subject: [PATCH] Dropdown der OF Weichen werden jedes Mal beim Aufruf des
 Interfaces neu gesetzt. Nicht nur wenn man einen speziellen Callback hatte

---
 MAIN_SSG.rdx | 103 +++++++++++++++++++++++++++++++++++----------------
 1 file changed, 72 insertions(+), 31 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 7f905c5..ac5bebe 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-03-19T12:40:25" LanguageVersion="2014.1.3.710" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2025-03-20T11:19:41" LanguageVersion="2014.1.3.710" />
 	<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">
@@ -1099,7 +1099,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" />
@@ -23937,6 +23937,75 @@ SSGConnectionPoint.x_M
 					</SELECTCASE>
 				</FUNCTION>
 				<FUNCTION Id="RDK:23222230" Name="OFWeicheUI">
+					<GROUP Id="RDK:23270581" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+						<VAR Id="RDK:23270583" Name="Weiche" Type="OFWeicheType">
+							<SET_STRUCT Id="RDK:23270650" VarRef="Me" ClearAll="True" Suppressed="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>
+						<VAR Id="RDK:23340329" Name="newItemId" Type="string" />
+					</GROUP>
+					<SET_STRUCT Id="RDK:24026393" VarRef="Weiche" ClearAll="True">
+						<PAR Name="Beschreibung" />
+						<PAR Name="WeichenTyp">
+							<EXP><![CDATA[$=$Shape_Prototype.OFWeicheDefinition.WeichenTyp]]></EXP>
+						</PAR>
+						<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">
+							<EXP><![CDATA[$=$Shape_Prototype.OFWeicheDefinition.KurvenRichtung]]></EXP>
+						</PAR>
+						<PAR Name="isOk" />
+						<PAR Name="Sivasnr">
+							<EXP><![CDATA[$=$]]></EXP>
+						</PAR>
+						<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>
+					<CALLFUNCTION Id="RDK:24026397">
+						<PAR Name="FuncName">
+							<EXP><![CDATA[$C$SetDropdownOfWeiche]]></EXP>
+						</PAR>
+						<PAR Name="InputExp">
+							<EXP><![CDATA[$=$Weiche]]></EXP>
+						</PAR>
+						<PAR Name="ResultRef">
+							<EXP><![CDATA[$V$newItemId]]></EXP>
+						</PAR>
+						<PAR Name="Options" />
+					</CALLFUNCTION>
 					<ACTION_CALL Id="RDK:23222215" Name="RDEngineering_ModernUIRender">
 						<PAR Name="RDLibraryName">
 							<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
@@ -23968,34 +24037,6 @@ SSGConnectionPoint.x_M
 						<PAR Name="Options" />
 						<PAR Name="ProfileName" />
 					</ACTION_CALL>
-					<GROUP Id="RDK:23270581" Name="Local Variables" SubType="VarSet" IncludeDate="0">
-						<VAR Id="RDK:23270583" Name="Weiche" Type="OFWeicheType">
-							<SET_STRUCT Id="RDK:23270650" 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>
-						<VAR Id="RDK:23340329" Name="newItemId" Type="string" />
-					</GROUP>
 					<SELECTCASE Id="RDK:23222229">
 						<EXP><![CDATA[$=$Button]]></EXP>
 						<CASEGROUP Id="RDK:23222221" CaseType="0">
@@ -52888,4 +52929,4 @@ ShapeList["id="+Param.Input[1].shapeID].name
 		</PROFILES_DATA>
 		<BOM_DATA />
 	</EXTERNAL_DATA>
-</PROCESS>
+</PROCESS>
\ No newline at end of file