Funktion IndexOfByFieldValue_SSG entfernt und mit interner Funktion ersetzt, da diese gefixt wurde.

This commit is contained in:
2025-09-16 09:35:33 +02:00
parent 1f0af5f96f
commit b47ea4b95d
+15 -101
View File
@@ -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">