Funktion für das holen von Wert für BogenDefinition beim Einfügen auf Basis der Sivasnummer eingefügt. Analog zur OF Weiche.

This commit is contained in:
2025-09-23 11:21:36 +02:00
parent 7cffe4203b
commit 490c2517b2
+75 -2
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-23T10:38:41" LanguageVersion="2014.1.3.712" />
<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.hensch [ANGEBOT-NB06]" ModDate="2025-09-23T11:18:20" 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">
@@ -21186,6 +21186,7 @@ SSGConnectionPoint.x_M
<EXP><![CDATA[$=$OFBogenItemList]]></EXP>
</PAR>
<PAR Name="Options" />
<PAR Name="WebviewSubType" />
</ACTION_CALL>
</FUNCTION>
<FUNCTION Id="RDK:23222151" Name="GetOFWeicheData" InputTypeName="string" ResultTypeName="OFWeicheType">
@@ -21248,6 +21249,66 @@ SSGConnectionPoint.x_M
<PAR Name="AdvancedOptions" />
</SET>
</FUNCTION>
<FUNCTION Id="RDK:25777780" Name="GetOFBogenData" InputTypeName="string" ResultTypeName="OFWeicheType">
<GROUP Id="RDK:25777772" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:25777770" Name="SivasNummer" Type="string">
<SET Id="RDK:25777769" VarRef="Me">
<EXP><![CDATA[$=$Param.Input]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:25777771" Name="Ergebnis" Type="OFBogenType" />
</GROUP>
<FOREACHLOOP Id="RDK:25777777" ItemVarRef="Ergebnis">
<PAR Name="ArrayValueExp">
<EXP><![CDATA[$=$OFBogenData]]></EXP>
</PAR>
<PAR Name="ExitCondExp">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<IFTHENELSE Id="RDK:25777776">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$SivasNummer = Ergebnis.Sivasnr]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:25777775" SubType="Then">
<SET Id="RDK:25777773" VarRef="Param.Result">
<EXP><![CDATA[$=$Ergebnis]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<EXIT_PROCESS Id="RDK:25777774" BreakType="4" ExitStatus="0" />
</GROUP>
</IFTHENELSE>
</FOREACHLOOP>
<SET_STRUCT Id="RDK:25777778" VarRef="Ergebnis" ClearAll="True">
<PAR Name="Beschreibung" />
<PAR Name="L1" />
<PAR Name="H_Anfang" />
<PAR Name="H_Ende" />
<PAR Name="Delta_h" />
<PAR Name="KurvenWinkel" />
<PAR Name="KurvenRichtung" />
<PAR Name="isOk" />
<PAR Name="Sivasnr" />
<PAR Name="ProfilTyp" />
<PAR Name="Radius" />
<PAR Name="AntriebInnen" />
<PAR Name="AntriebAussen" />
<PAR Name="WeichenTyp" />
<PAR Name="L2" />
<PAR Name="L3" />
<PAR Name="Hoehe" />
<PAR Name="Schaltungstyp" />
<PAR Name="AntriebKurve" />
<PAR Name="n_Sep" />
<PAR Name="n_Scan" />
<PAR Name="Länge" />
<PAR Name="Breite" />
</SET_STRUCT>
<SET Id="RDK:25777779" VarRef="Param.Result">
<EXP><![CDATA[$=$Ergebnis]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</FUNCTION>
<FUNCTION Id="RDK:23222556" Name="GetOFWeicheWinkelFromId" InputTypeName="string" ResultTypeName="double">
<GROUP Id="RDK:23222553" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:23222551" Name="SivasNummer" Type="string">
@@ -35027,7 +35088,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<EXP><![CDATA[$=$LibID]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<CALLFUNCTION Id="RDK:23067144">
<CALLFUNCTION Id="RDK:23067144" Suppressed="True">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetOFBogenWinkelFromId]]></EXP>
</PAR>
@@ -35039,6 +35100,18 @@ ShapeList["id="+Param.Input[1].shapeID].name
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:25777784">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetOFBogenData]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Shape_Prototype.source]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$Shape_Prototype.OFBogenDefinition]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<SET Id="RDK:23016703" VarRef="Shape_Prototype.Rotationsklasse">
<EXP><![CDATA[$C$Rotationsobjekt]]></EXP>