From b47ea4b95d6187c59692d8eb98633475a89f31ff Mon Sep 17 00:00:00 2001
From: Simon Hensch <s.hensch@schoenenberger.de>
Date: Tue, 16 Sep 2025 09:35:33 +0200
Subject: [PATCH] Funktion IndexOfByFieldValue_SSG entfernt und mit interner
 Funktion ersetzt, da diese gefixt wurde.

---
 MAIN_SSG.rdx | 116 +++++++--------------------------------------------
 1 file changed, 15 insertions(+), 101 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index f3621bf..4434359 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="s.hensch [ANGEBOT-NB06]" ModDate="2025-09-15T10:23:45" LanguageVersion="2014.1.3.712" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.hensch [ANGEBOT-NB06]" ModDate="2025-09-16T09:33:39" 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">
@@ -25,7 +25,7 @@
 					<FIELD Id="RDK:20734834" Name="direction_x" Type="double" DesignTimeRemark="1 if direction posititve x-axis, -1 if is negative x-axis, 0 if it is in y-direction" />
 					<FIELD Id="RDK:20734836" Name="direction_y" Type="double" DesignTimeRemark="1 if direction posititve y-axis, -1 if is negative y-axis, 0 if it is in x-direction" />
 				</TYPE>
-				<TYPE Id="RDK:26388" Name="KreiselType" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:26388" Name="KreiselType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:95024" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:26389" Name="AbstandMS" Type="double" />
@@ -415,7 +415,7 @@
 					<FIELD Id="RDK:1013860" Name="PageShowPreview3DFloorThickness" Type="double" DesignTimeRemark="Positive value to start drawing the floor from z=0 up. Negative value to start drawing the floor from z=0 down." />
 					<FIELD Id="RDK:1013861" Name="PageShowPreview3DEnableWalls" Type="boolean" />
 					<FIELD Id="RDK:1013862" Name="PageShowPreview3DWallDimensions" Type="string" />
-					<FIELD Id="RDK:1013863" Name="PageShowToolsOnToolbar" Type="string" DesignTimeRemark="Comma separated list of tool ids to show on the toolbar: pagedrag,text,selectgroup,poly,connector,smartline,gridpattern,smartcopy,quote,link,customorigin,preview3d,paint,snapshot,custom1,custom2,custom3,togglegrid,toggleshadows,togglewalls" />
+					<FIELD Id="RDK:1013863" Name="PageShowToolsOnToolbar" Options="custom1" Type="string" DesignTimeRemark="Comma separated list of tool ids to show on the toolbar: pagedrag,text,selectgroup,poly,connector,smartline,gridpattern,smartcopy,quote,link,customorigin,preview3d,paint,snapshot,custom1,custom2,custom3,togglegrid,toggleshadows,togglewalls" />
 					<FIELD Id="RDK:1013864" Name="PageShowShapeProperties" Type="boolean" />
 					<FIELD Id="RDK:1013865" Name="PageShowQuoteUOM" Type="boolean" />
 					<FIELD Id="RDK:1013866" Name="PageIncludeConnectionPoints" Type="boolean" />
@@ -15887,6 +15887,7 @@ SSGConnectionPoint.x_M
 									<PAR Name="ValidateMsg" />
 									<PAR Name="DataSource" />
 									<PAR Name="Options" />
+									<PAR Name="WebviewSubType" />
 								</ACTION_CALL>
 								<ACTION_CALL Id="RDK:24796557" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}">
 									<PAR Name="RDLibraryName">
@@ -15946,6 +15947,7 @@ SSGConnectionPoint.x_M
 									<PAR Name="ValidateMsg" />
 									<PAR Name="DataSource" />
 									<PAR Name="Options" />
+									<PAR Name="WebviewSubType" />
 								</ACTION_CALL>
 								<ACTION_CALL Id="RDK:24796559" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}">
 									<PAR Name="RDLibraryName">
@@ -16119,6 +16121,7 @@ SSGConnectionPoint.x_M
 									<PAR Name="Options">
 										<EXP><![CDATA[$C$(RANGE=0,5,0.1)]]></EXP>
 									</PAR>
+									<PAR Name="WebviewSubType" />
 								</ACTION_CALL>
 							</GROUP>
 						</IFTHENELSE>
@@ -18479,6 +18482,7 @@ SSGConnectionPoint.x_M
 											<PAR Name="Options">
 												<EXP><![CDATA[$C$(SINGLESELECT)]]></EXP>
 											</PAR>
+											<PAR Name="WebviewSubType" />
 										</ACTION_CALL>
 										<SET Id="RDK:24704517" VarRef="shape_item.VarioFoerdererDefinition.winkel_GF">
 											<EXP><![CDATA[$=$]]></EXP>
@@ -23287,23 +23291,10 @@ SSGConnectionPoint.x_M
 								<PAR Name="AdvancedOptions" />
 							</SET>
 						</VAR>
-						<VAR Id="RDK:19927864" Name="shapeList_idx" Type="integer" />
 						<VAR Id="RDK:19927893" Name="foerdererData" Type="FoerdererType" DesignTimeRemark="Übergabeparameter" />
 					</GROUP>
-					<CALLFUNCTION Id="RDK:19927867">
-						<PAR Name="FuncName">
-							<EXP><![CDATA[$C$IndexOfByFieldValue_SSG]]></EXP>
-						</PAR>
-						<PAR Name="InputExp">
-							<EXP><![CDATA[$=$shapeId]]></EXP>
-						</PAR>
-						<PAR Name="ResultRef">
-							<EXP><![CDATA[$V$shapeList_idx]]></EXP>
-						</PAR>
-						<PAR Name="Options" />
-					</CALLFUNCTION>
 					<SELECTCASE Id="RDK:19927910">
-						<EXP><![CDATA[$=$ShapeList[shapeList_idx].family]]></EXP>
+						<EXP><![CDATA[$=$ShapeList["id="+shapeId].family]]></EXP>
 						<CASEGROUP Id="RDK:19927911" CaseType="0">
 							<EXP><![CDATA[$C$Foerderer]]></EXP>
 							<CALLFUNCTION Id="RDK:19927895">
@@ -23447,44 +23438,6 @@ SSGConnectionPoint.x_M
 						<PAR Name="eventHandlers" />
 					</SET_STRUCT>
 				</FUNCTION>
-				<FUNCTION Id="RDK:19440091" Name="IndexOfByFieldValue_SSG" InputTypeName="string" ResultTypeName="integer">
-					<GROUP Id="RDK:19440092" Name="Local Variables" SubType="VarSet" IncludeDate="0">
-						<VAR Id="RDK:19440103" Name="id_array" Type="string[]">
-							<SET Id="RDK:19440104" VarRef="Me">
-								<EXP><![CDATA[$=$StrArrayFromListOfStructs(ShapeList, "id")]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-						</VAR>
-						<VAR Id="RDK:19440105" Name="idx" Type="integer" />
-						<VAR Id="RDK:19615246" Name="temp_link" Type="string" />
-						<VAR Id="RDK:19440117" Name="shape_id" Type="string">
-							<SET Id="RDK:19440124" VarRef="Me">
-								<EXP><![CDATA[$=$Param.Input]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-						</VAR>
-					</GROUP>
-					<FOREACHLOOP Id="RDK:19440093" ItemVarRef="temp_link" IndexVarRef="idx">
-						<PAR Name="ArrayValueExp">
-							<EXP><![CDATA[$=$id_array]]></EXP>
-						</PAR>
-						<PAR Name="ExitCondExp">
-							<EXP><![CDATA[$V$]]></EXP>
-						</PAR>
-						<IFTHENELSE Id="RDK:19440095">
-							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$temp_link=shape_id]]></EXP>
-							</VALUECONDITION>
-							<GROUP Id="RDK:19440096" SubType="Then">
-								<SET Id="RDK:19441477" VarRef="Param.Result">
-									<EXP><![CDATA[$=$idx]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-								<EXIT_PROCESS Id="RDK:19647781" BreakType="4" ExitStatus="0" />
-							</GROUP>
-						</IFTHENELSE>
-					</FOREACHLOOP>
-				</FUNCTION>
 				<FUNCTION Id="RDK:20841567" Name="getWeichenConnected" DesignTimeRemark="gib alle Weichen zurück, die an dieses Item angebunden sind/waren. " DesignTimeTip="Suche nach dem gegebenen Item über alle existierenden Weichen" InputTypeName="string" ResultTypeName="string[]">
 					<GROUP Id="RDK:20841605" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 						<VAR Id="RDK:20841600" Name="shapeItem" Type="Editor2DShapeType" />
@@ -40612,7 +40565,6 @@ me.x
 					</PAR>
 					<GROUP Id="RDK:20689948" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 						<VAR Id="RDK:20689950" Name="oldName" Type="string" />
-						<VAR Id="RDK:22972768" Name="shape_index" Type="string" />
 						<VAR Id="RDK:20733338" Name="newId" Type="string" />
 						<VAR Id="RDK:20741541" Name="orientierung" Type="string" />
 						<VAR Id="RDK:20689944" Name="shapeId_kreisel1" Type="string" />
@@ -40627,36 +40579,24 @@ me.x
 						<VAR Id="RDK:20734842" Name="cp_pairs" Type="SSGConnectionPointPairs[]" />
 						<VAR Id="RDK:20741506" Name="pair" Type="SSGConnectionPointPairs" />
 					</GROUP>
-					<CALLFUNCTION Id="RDK:20579087">
-						<PAR Name="FuncName">
-							<EXP><![CDATA[$C$IndexOfByFieldValue_SSG]]></EXP>
-						</PAR>
-						<PAR Name="InputExp">
-							<EXP><![CDATA[$=$shapeId]]></EXP>
-						</PAR>
-						<PAR Name="ResultRef">
-							<EXP><![CDATA[$V$shape_index]]></EXP>
-						</PAR>
-						<PAR Name="Options" />
-					</CALLFUNCTION>
 					<COMMENTS Id="RDK:20689223" DesignTimeRemark="hole beide angebundenen Kreisel. Falls keine da sind, schluss" />
 					<IFTHENELSE Id="RDK:20719994">
 						<VALUECONDITION Value="true" Oper="OR">
-							<EXP><![CDATA[$=$Count(ShapeList[shape_index].links) = 0]]></EXP>
+							<EXP><![CDATA[$=$Count(ShapeList["id="+shapeId].links) = 0]]></EXP>
 						</VALUECONDITION>
 						<VALUECONDITION Value="true">
-							<EXP><![CDATA[$=$Count(ShapeList[shape_index].links) = 1]]></EXP>
+							<EXP><![CDATA[$=$Count(ShapeList["id="+shapeId].links) = 1]]></EXP>
 						</VALUECONDITION>
 						<GROUP Id="RDK:20719995" SubType="Then">
 							<EXIT_PROCESS Id="RDK:20720002" BreakType="4" ExitStatus="0" />
 						</GROUP>
 					</IFTHENELSE>
 					<SET Id="RDK:20689231" VarRef="shapeId_kreisel1">
-						<EXP><![CDATA[$=$StrAfter(ShapeList[shape_index].links[0], ";")]]></EXP>
+						<EXP><![CDATA[$=$StrAfter(ShapeList["id="+shapeId].links[0], ";")]]></EXP>
 						<PAR Name="AdvancedOptions" />
 					</SET>
 					<SET Id="RDK:20689233" VarRef="shapeId_kreisel2">
-						<EXP><![CDATA[$=$StrAfter(ShapeList[shape_index].links[1], ";")]]></EXP>
+						<EXP><![CDATA[$=$StrAfter(ShapeList["id="+shapeId].links[1], ";")]]></EXP>
 						<PAR Name="AdvancedOptions" />
 					</SET>
 					<COMMENTS Id="RDK:20725692" DesignTimeRemark="dazu die belegten Conection points im jeweiligen Kreisel feststellen" />
@@ -47827,7 +47767,6 @@ me.x
 				<GROUP Id="RDK:19287454" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:19290238" Name="shapeID" Type="string" />
 					<VAR Id="RDK:19290240" Name="color" Type="string" />
-					<VAR Id="RDK:19441478" Name="shapeList_idx" Type="integer" />
 				</GROUP>
 				<SET Id="RDK:19290237" VarRef="shapeID">
 					<EXP><![CDATA[$=$Param.Input["key=id"].Str]]></EXP>
@@ -47839,23 +47778,11 @@ me.x
 ]]></EXP>
 					</VALUECONDITION>
 					<GROUP Id="RDK:19434525" SubType="Then">
-						<CALLFUNCTION Id="RDK:19440119">
-							<PAR Name="FuncName">
-								<EXP><![CDATA[$C$IndexOfByFieldValue_SSG]]></EXP>
-							</PAR>
-							<PAR Name="InputExp">
-								<EXP><![CDATA[$=$shapeID]]></EXP>
-							</PAR>
-							<PAR Name="ResultRef">
-								<EXP><![CDATA[$V$shapeList_idx]]></EXP>
-							</PAR>
-							<PAR Name="Options" />
-						</CALLFUNCTION>
 						<SET Id="RDK:19290242" VarRef="color">
 							<EXP><![CDATA[$=$Param.Input["key=color"].Str]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
-						<SET Id="RDK:19290213" VarRef="ShapeList[shapeList_idx].lineColor">
+						<SET Id="RDK:19290213" VarRef="ShapeList[&quot;id=&quot;+shapeID].lineColor">
 							<EXP><![CDATA[$=$color]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
@@ -47880,21 +47807,8 @@ me.x
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</VAR>
-					<VAR Id="RDK:19632172" Name="shapeList_idx" Type="integer" />
 					<VAR Id="RDK:20700337" Name="isDefined" Type="boolean" />
 				</GROUP>
-				<CALLFUNCTION Id="RDK:19632170">
-					<PAR Name="FuncName">
-						<EXP><![CDATA[$C$IndexOfByFieldValue_SSG]]></EXP>
-					</PAR>
-					<PAR Name="InputExp">
-						<EXP><![CDATA[$=$shapeId]]></EXP>
-					</PAR>
-					<PAR Name="ResultRef">
-						<EXP><![CDATA[$V$shapeList_idx]]></EXP>
-					</PAR>
-					<PAR Name="Options" />
-				</CALLFUNCTION>
 				<CALLFUNCTION Id="RDK:20700335">
 					<PAR Name="FuncName">
 						<EXP><![CDATA[$C$Check_is_defined]]></EXP>
@@ -47908,7 +47822,7 @@ me.x
 					<PAR Name="Options" />
 				</CALLFUNCTION>
 				<SELECTCASE Id="RDK:23387297" DesignTimeRemark="Diese Elemente haben nur 2 Zustände. OK oder nicht OK">
-					<EXP><![CDATA[$=$ShapeList[shapeList_idx].family]]></EXP>
+					<EXP><![CDATA[$=$ShapeList["id="+shapeId].family]]></EXP>
 					<CASEGROUP Id="RDK:23387289" CaseType="0">
 						<EXP><![CDATA[$C$OFBogen]]></EXP>
 						<IFTHENELSE Id="RDK:23387288">
@@ -48136,7 +48050,7 @@ me.x
 					</GROUP>
 				</IFTHENELSE>
 				<SELECTCASE Id="RDK:19602982">
-					<EXP><![CDATA[$=$ShapeList[shapeList_idx].family]]></EXP>
+					<EXP><![CDATA[$=$ShapeList["id="+shapeId].family]]></EXP>
 					<CASEGROUP Id="RDK:19602961" CaseType="0">
 						<EXP><![CDATA[$C$Kreisel]]></EXP>
 						<CALLFUNCTION Id="RDK:19603037">