Fixes an de Gui Funktionen für den Kettenförderer

This commit is contained in:
2025-11-25 15:06:56 +01:00
parent 01416077ed
commit e3570d1287
+129 -49
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="m.stangl [ENTW-NB08]" ModDate="2025-11-24T15:18:03" LanguageVersion="2014.1.3.712" />
<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2025-11-25T15:06:05" 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">
@@ -80,7 +80,7 @@
<FIELD Id="RDK:302575" Name="n_Sep" Type="integer" />
<FIELD Id="RDK:302576" Name="n_Scan" Type="integer" />
</TYPE>
<TYPE Id="RDK:18732236" Name="KurveType" SubType="structure">
<TYPE Id="RDK:18732236" Name="KurveType" Expanded="True" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:18732225" Name="Beschreibung" Type="string" />
<FIELD Id="RDK:18732226" Name="L1" Type="double" />
@@ -123,7 +123,7 @@
<FIELD Id="RDK:24351631" Name="AsmName" Type="string" />
<FIELD Id="RDK:24351633" Name="Parts" Type="string" DesignTimeTip=";separated string with all necessary files for this assembly" />
</TYPE>
<TYPE Id="RDK:21686352" Name="KurveFoerdererType" SubType="structure">
<TYPE Id="RDK:21686352" Name="KurveFoerdererType" Expanded="True" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:21686345" Name="Beschreibung" Type="string" />
<FIELD Id="RDK:21686346" Name="L1" Type="double" />
@@ -134,7 +134,7 @@
<FIELD Id="RDK:22007213" Name="KurvenRichtung" Type="string" DesignTimeRemark="rechts oder links, je nach Wahl des Nutzers" />
<FIELD Id="RDK:21700896" Name="isOk" Type="boolean" DesignTimeRemark="True beide Punkte angebunden sind und die Höhen der Nachbarn passen" />
</TYPE>
<TYPE Id="RDK:26502276" Name="KettenFoerdererType" SubType="structure">
<TYPE Id="RDK:26502276" Name="KettenFoerdererType" Expanded="True" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:26502268" Name="Beschreibung" Type="string" />
<FIELD Id="RDK:26502269" Name="L1" Type="double" />
@@ -144,7 +144,7 @@
<FIELD Id="RDK:26502274" Name="Richtung" Type="string" DesignTimeRemark="ab oder auf" />
<FIELD Id="RDK:26502275" Name="isOk" Type="boolean" DesignTimeRemark="True beide Punkte angebunden sind und die Höhen der Nachbarn passen" />
</TYPE>
<TYPE Id="RDK:18116690" Name="FoerdererType" Expanded="True" Suppressed="True" SubType="structure">
<TYPE Id="RDK:18116690" Name="FoerdererType" Suppressed="True" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:18116683" Name="Beschreibung" Type="string" />
<FIELD Id="RDK:18116696" Name="Typ" Type="string" DesignTimeRemark="Auf oder Ab" />
@@ -268,7 +268,7 @@
<FIELD Id="RDK:16525231" Name="Drehung" Type="integer" DesignTimeNotes="1= im Uhrzeigersinn=rechts&#xD;&#xA;-1= Gegen Uhrzeigersinn=links" />
<FIELD Id="RDK:16577441" Name="Beschreibung" Type="string" />
</TYPE>
<TYPE Id="RDK:79642" Name="SSG_ShapeType" Expanded="True" SubType="structure">
<TYPE Id="RDK:79642" Name="SSG_ShapeType" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:79643" Name="SivasNummer" Type="string" />
<FIELD Id="RDK:1561689" Name="Rotationsklasse" Type="string" />
@@ -292,7 +292,7 @@
<FIELD Id="RDK:16525361" Name="BTMTEntladungDefinition" Type="BTMTEntladungType" />
<FIELD Id="RDK:19961198" Name="isDefined" Type="boolean" />
</TYPE>
<TYPE Id="RDK:18530527" Name="SSG_ShapeType_limit" Expanded="True" SubType="structure">
<TYPE Id="RDK:18530527" Name="SSG_ShapeType_limit" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:18530520" Name="KreiselDefinition" Type="KreiselType" />
<FIELD Id="RDK:18530521" Name="EckradDefinition" Type="EckradType" />
@@ -329,7 +329,7 @@
<FIELD Id="RDK:22938802" Name="Key" Type="string" />
<FIELD Id="RDK:22938803" Name="StrArr" Type="string[]" />
</TYPE>
<TYPE Id="RDK:18530545" Name="SSG_Limits" Expanded="True" SubType="structure">
<TYPE Id="RDK:18530545" Name="SSG_Limits" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:18530548" Name="Kreisel_top" Type="KreiselType" />
<FIELD Id="RDK:18530546" Name="Kreisel_bot" Type="KreiselType" />
@@ -1014,15 +1014,25 @@
<FIELD Id="RDK:22305681" Name="Höhe Ende" Type="string" />
<FIELD Id="RDK:25719740" Name="Drehung" Type="double" />
</TYPE>
<TYPE Id="RDK:21693243" Name="KurveFoerdererMerkmaleType" SubType="structure">
<TYPE Id="RDK:21693243" Name="KurveFoerdererMerkmaleType" Expanded="True" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:21693241" Name="Länge in Meter" Type="string" />
<FIELD Id="RDK:22010911" Name="Kurvenrichtung" Type="string" />
<FIELD Id="RDK:22010913" Name="Kurvenwinkel" Type="double" />
<FIELD Id="RDK:22010911" Name="Kurvenrichtung" Type="string" DesignTimeRemark="rechts oder links, je nach Wahl des Nutzers" />
<FIELD Id="RDK:22010913" Name="Kurvenwinkel" Type="double" DesignTimeRemark="Angabe in Grad ob 30, 60 oder 90 Grad Bogen" />
<FIELD Id="RDK:26514166" Name="AntriebNebenStrecke" Type="string" DesignTimeRemark="TEF Antrieb rechts oder links von der Fahrstrecke" />
<FIELD Id="RDK:22305684" Name="Höhe Anfang" Type="string" />
<FIELD Id="RDK:22305686" Name="Höhe Ende" Type="string" />
<FIELD Id="RDK:25719738" Name="Drehung" Type="double" />
</TYPE>
<TYPE Id="RDK:26514233" Name="KettenFoerdererMerkmaleType" Expanded="True" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:26514226" Name="Länge in Meter" Type="string" />
<FIELD Id="RDK:26514230" Name="Höhe Anfang" Type="string" />
<FIELD Id="RDK:26514231" Name="Höhe Ende" Type="string" />
<FIELD Id="RDK:26514235" Name="KurvenWinkel" Type="double" DesignTimeRemark="default 26°, sonderlösung 30°" />
<FIELD Id="RDK:26514237" Name="Rrichtung" Type="string" DesignTimeRemark="auf oder ab" />
<FIELD Id="RDK:26514232" Name="Drehung" Type="double" />
</TYPE>
<TYPE Id="RDK:18111807" Name="FoerdererMerkmaleType" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:18131140" Name="Höhe ETF oben in Meter" Type="string" />
@@ -1312,6 +1322,7 @@
<VAR Id="RDK:23221905" Name="Render_OFWeiche" Type="MUIPanelType[]" />
<VAR Id="RDK:18732363" Name="Render_Kurve" Type="MUIPanelType[]" />
<VAR Id="RDK:21692033" Name="Render_KurveFoerderer" Type="MUIPanelType[]" />
<VAR Id="RDK:26514168" Name="Render_KettenFoerderer" Type="MUIPanelType[]" />
<VAR Id="RDK:18119699" Name="Render_Foerderer" Type="MUIPanelType[]" />
<VAR Id="RDK:22028987" Name="Render_VarioFoerderer" Type="MUIPanelType[]" />
<VAR Id="RDK:973744" Name="Render_Weiche" Type="MUIPanelType[]" />
@@ -1451,6 +1462,7 @@
<VAR Id="RDK:23222557" Name="OFBogenData" Type="OFBogenType[]" DesignTimeRemark="Dropdown Liste aller Bögen im Interface" />
<VAR Id="RDK:23222658" Name="OFWeichenData" Type="OFWeicheType[]" DesignTimeRemark="Dropdown Liste aller Weichen im Interface" />
<VAR Id="RDK:23747696" Name="TEFBogenData" Type="TEFBogenType[]" DesignTimeRemark="Liste aller TEF Bögen" />
<VAR Id="RDK:26514277" Name="KurvenWinkel" Type="string" DesignTimeRemark="Generated by RD" />
</GROUP>
<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -29272,41 +29284,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<GROUP Id="RDK:21689206" Name="Kurve HoeheOben OR HoeheUnten was changed" SubType="Generic" Suppressed="True" DesignTimeNotes="20231005 -1-&#xD;&#xA;&#xD;&#xA;Inherit height to direct Shaps and set others to Gelb (except Kreisel Groups).">
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$ShapeList["id=" + Shape_Prototype.id].KurveDefinition.H_Anfang <> Shape_Prototype.KurveDefinition.H_Anfang]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$ShapeList["id=" + Shape_Prototype.id].KurveDefinition.H_Ende <> Shape_Prototype.KurveDefinition.H_Ende]]></EXP>
</VALUECONDITION>
<SET_STRUCT Id="RDK:21689204" VarRef="InheritHeightData" ClearAll="True">
<PAR Name="ParentIndex">
<EXP><![CDATA[$=$i]]></EXP>
</PAR>
<PAR Name="NewHoehe" />
<PAR Name="NewHoeheOben">
<EXP><![CDATA[$=$Shape_Prototype.KurveDefinition.H_Anfang]]></EXP>
</PAR>
<PAR Name="NewHoeheUnten">
<EXP><![CDATA[$=$Shape_Prototype.KurveDefinition.H_Ende]]></EXP>
</PAR>
<PAR Name="Text">
<EXP><![CDATA[$C$^]]></EXP>
</PAR>
</SET_STRUCT>
<CALLFUNCTION Id="RDK:21689205">
<PAR Name="FuncName">
<EXP><![CDATA[$C$InheritHeight]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$InheritHeightData]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<EXIT_PROCESS Id="RDK:21689207" BreakType="3" ExitStatus="0" />
</CASEGROUP>
<CASEGROUP Id="RDK:21689210" CaseType="0">
@@ -29334,6 +29311,106 @@ ShapeList["id="+Param.Input[1].shapeID].name
</CASEGROUP>
</SELECTCASE>
</FUNCTION>
<FUNCTION Id="RDK:26514206" Name="KettenFoerdererUI">
<ACTION_CALL Id="RDK:26514188" Name="RDEngineering_ModernUIRender">
<PAR Name="RDLibraryName">
<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
</PAR>
<PAR Name="RenderList">
<EXP><![CDATA[$=$Render_KettenFoerderer]]></EXP>
</PAR>
<PAR Name="BindingMode">
<EXP><![CDATA[$C$0]]></EXP>
</PAR>
<PAR Name="InputData">
<EXP><![CDATA[$=$Shape_Prototype.KettenFoerdererDefinition]]></EXP>
</PAR>
<PAR Name="CSSStyle" />
<PAR Name="RDActionTimeOut" />
<PAR Name="ButtonPressed">
<EXP><![CDATA[$V$Button]]></EXP>
</PAR>
<PAR Name="FieldAffected">
<EXP><![CDATA[$V$FieldAffected]]></EXP>
</PAR>
<PAR Name="IndexAffected">
<EXP><![CDATA[$V$IndexAffected]]></EXP>
</PAR>
<PAR Name="EventData">
<EXP><![CDATA[$V$EventData]]></EXP>
</PAR>
<PAR Name="Options" />
<PAR Name="ProfileName" />
</ACTION_CALL>
<SELECTCASE Id="RDK:26514205">
<EXP><![CDATA[$=$Button]]></EXP>
<CASEGROUP Id="RDK:26514198" CaseType="0">
<EXP><![CDATA[$C$OK]]></EXP>
<GROUP Id="RDK:26514193" Name="Write Properties" SubType="Generic">
<CALLFUNCTION Id="RDK:26514190">
<PAR Name="FuncName">
<EXP><![CDATA[$C$CreatePrototype_KettenFoerderer]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:26514191">
<PAR Name="FuncName">
<EXP><![CDATA[$C$Create/Update Shape]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:26514192">
<PAR Name="FuncName">
<EXP><![CDATA[$C$ResetHeightsOfStrecke]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<EXIT_PROCESS Id="RDK:26514197" BreakType="3" ExitStatus="0" />
</CASEGROUP>
<CASEGROUP Id="RDK:26514200" CaseType="0">
<EXP><![CDATA[$C$AUTOCOMMIT]]></EXP>
<GROUP Id="RDK:26514199" Name="Group" SubType="Generic">
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$FieldAffected="Richtung"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$FieldAffected="KurvenWinkel"]]></EXP>
</VALUECONDITION>
</GROUP>
</CASEGROUP>
<CASEGROUP Id="RDK:26514204" CaseType="0">
<EXP><![CDATA[$C$CLOSEPOPUP]]></EXP>
<GROUP Id="RDK:26514202" Name="Group" SubType="Generic">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Param.Input="OnInserted"]]></EXP>
</VALUECONDITION>
<REMOVE_ADD Id="RDK:26514201" ListRef="ShapeList" Expr="Me.id=Shape_Prototype.id">
<EXP />
</REMOVE_ADD>
</GROUP>
<EXIT_PROCESS Id="RDK:26514203" BreakType="3" ExitStatus="0" />
</CASEGROUP>
</SELECTCASE>
</FUNCTION>
<FUNCTION Id="RDK:18116648" Name="FoerdererUI" Suppressed="True">
<GROUP Id="RDK:19887827" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:19887828" Name="Rueckgabe" Type="FoerdererType" />
@@ -47240,6 +47317,9 @@ me.x
<PAR Name="Kurvenwinkel">
<EXP><![CDATA[$=$ShapeItem.KurveFoerdererDefinition.KurvenWinkel]]></EXP>
</PAR>
<PAR Name="AntriebNebenStrecke">
<EXP><![CDATA[$=$ShapeItem.KurveFoerdererDefinition.AntriebNebenStrecke]]></EXP>
</PAR>
<PAR Name="Höhe Anfang">
<EXP><![CDATA[$=$StrReplace(ShapeItem.KurveFoerdererDefinition.H_Anfang/1000, ",", ".")]]></EXP>
</PAR>
@@ -60520,7 +60600,7 @@ me.x
<EXP><![CDATA[$C$Neigungswinkel]]></EXP>
</PAR>
<PAR Name="Field">
<EXP><![CDATA[$C$winkel]]></EXP>
<EXP><![CDATA[$C$KurvenWinkel]]></EXP>
</PAR>
<PAR Name="Value" />
<PAR Name="Uom" />
@@ -60578,7 +60658,7 @@ me.x
<EXP><![CDATA[$C$Richtung]]></EXP>
</PAR>
<PAR Name="Field">
<EXP><![CDATA[$C$FoerderRichtung]]></EXP>
<EXP><![CDATA[$C$Richtung]]></EXP>
</PAR>
<PAR Name="Value" />
<PAR Name="Uom" />
@@ -66647,4 +66727,4 @@ me.x
</PROFILES_DATA>
<BOM_DATA />
</EXTERNAL_DATA>
</PROCESS>
</PROCESS>