Schoenenberger_Systeme_GmbH/SSG-Ruledesigner-Konfigurator
3
0
Fork 0
Code Issues Pull Requests Packages Projects 1 Releases Wiki Activity

Allgemeine SetStatus FUnktion erstellt und SetHeight

Browse Source
This commit is contained in:
Simon Schmutzler
2024-06-11 16:12:45 +02:00
parent 33f8fdc875
commit a02b5947ea
1 changed files with 450 additions and 154 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MAIN_SSG.rdx
+450 -154
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.schmutzler [ANGEBOT-NB06]" ModDate="2024-06-11T11:49:03" LanguageVersion="2014.1.3.674" />
<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-06-11T16:07:56" LanguageVersion="2014.1.3.674" />
<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">
@@ -103,11 +103,9 @@
</TYPE>
<TYPE Id="RDK:1652525" Name="BTMTBeladungType" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:1652521" Name="AbstandMS" Type="double" Suppressed="True" />
<FIELD Id="RDK:1652522" Name="Hoehe" Type="double" />
<FIELD Id="RDK:1652523" Name="Drehung" Type="integer" DesignTimeNotes="1= im Uhrzeigersinn=rechts&#xD;&#xA;-1= Gegen Uhrzeigersinn=links" />
<FIELD Id="RDK:1657744" Name="Beschreibung" Type="string" />
<FIELD Id="RDK:1652524" Name="Durchmesser" Type="double" Suppressed="True" />
</TYPE>
<TYPE Id="RDK:16525251" Name="BTMTEntladungType" SubType="structure">
<TYPE_VALUES />
@@ -1018,6 +1016,7 @@
<VAR Id="RDK:18826988" Name="shapeID" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
<VAR Id="RDK:19440094" Name="item" Type="Editor2DShapeType" DesignTimeRemark="Generated by RD" />
<VAR Id="RDK:19440102" Name="shapeID" Type="string" DesignTimeRemark="Generated by RD" />
<VAR Id="RDK:19603024" Name="isDefined" Type="string" DesignTimeRemark="Generated by RD" />
</GROUP>
<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -4182,6 +4181,7 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
<PAR Name="KreiselDefinition" />
<PAR Name="EckradDefinition" />
<PAR Name="GefaelleDefinition" />
<PAR Name="StreckeDefinition" />
<PAR Name="FoerdererDefinition" />
<PAR Name="WeicheDefinition" />
<PAR Name="BTMTBeladungDefinition" />
@@ -4567,6 +4567,18 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
</GROUP>
</CASEGROUP>
</SELECTCASE>
<CALLFUNCTION Id="RDK:19615241">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetStatus]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$ID]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</FUNCTION>
<FUNCTION Id="RDK:604706" Name="Write CPs From Data to Prototype">
<SET Id="RDK:592704" VarRef="ConnectionPointList">
@@ -8136,6 +8148,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:19600826" Name="UebergabeListe" Type="SSGParameter[]" />
</GROUP>
<GROUP Id="RDK:1194293" Name="Debug" SubType="Generic">
<VALUECONDITION Value="true">
@@ -8550,10 +8563,45 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:1350847" VarRef="ShapeList[&quot;id=&quot; + Link].KreiselDefinition.Hoehe">
<SET Id="RDK:1350847" VarRef="ShapeList[&quot;id=&quot; + Link].KreiselDefinition.Hoehe" Suppressed="True">
<EXP><![CDATA[$=$Param.Input.NewHoeheOben]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<COMMENTS Id="RDK:19600831" DesignTimeRemark="Bitte Rücksprache: Technisch ist es nicht zu empfehlen, die Höhe des Kreisel nach der Gefällestreckenhöhe zu setzen. Beim Verbinden von Kreisel und Gefällestrecke soll immer die Höhe des Kreisel an die Gefällestrecke übergeben werden." />
<SET_STRUCT Id="RDK:19600833" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$ShapeId]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$Link]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:19600835" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$Hoehe]]></EXP>
</PAR>
<PAR Name="Str" />
<PAR Name="Dbl">
<EXP><![CDATA[$=$Param.Input.NewHoeheOben]]></EXP>
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:19600837">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetHeight]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
</GROUP>
<GROUP Id="RDK:1473132" SubType="Else">
@@ -8584,10 +8632,45 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:1350852" VarRef="ShapeList[&quot;id=&quot; + Link].KreiselDefinition.Hoehe">
<SET Id="RDK:1350852" VarRef="ShapeList[&quot;id=&quot; + Link].KreiselDefinition.Hoehe" Suppressed="True">
<EXP><![CDATA[$=$Param.Input.NewHoeheUnten]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<COMMENTS Id="RDK:19602881" DesignTimeRemark="Bitte Rücksprache: Technisch ist es nicht zu empfehlen, die Höhe des Kreisel nach der Gefällestreckenhöhe zu setzen. Beim Verbinden von Kreisel und Gefällestrecke soll immer die Höhe des Kreisel an die Gefällestrecke übergeben werden." />
<SET_STRUCT Id="RDK:19602879" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$ShapeId]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$Link]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:19602877" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$Hoehe]]></EXP>
</PAR>
<PAR Name="Str" />
<PAR Name="Dbl">
<EXP><![CDATA[$=$Param.Input.NewHoeheUnten]]></EXP>
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:19602875">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetHeight]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
</GROUP>
</IFTHENELSE>
@@ -8614,10 +8697,44 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:1128711" VarRef="ShapeList[&quot;id=&quot; + Link].KreiselDefinition.Hoehe">
<SET Id="RDK:1128711" VarRef="ShapeList[&quot;id=&quot; + Link].KreiselDefinition.Hoehe" Suppressed="True">
<EXP><![CDATA[$=$Param.Input.NewHoehe]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET_STRUCT Id="RDK:19600828" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$ShapeId]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$Link]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:19600830" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$Hoehe]]></EXP>
</PAR>
<PAR Name="Str" />
<PAR Name="Dbl">
<EXP><![CDATA[$=$Param.Input.NewHoehe]]></EXP>
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:19600824">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetHeight]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</CASEGROUP>
</SELECTCASE>
<LIST_ADD Id="RDK:1228215" ListRef="HeightAllreadySetList">
@@ -10156,9 +10273,6 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
</SELECTCASE>
</FUNCTION>
<FUNCTION Id="RDK:314271" Name="GefaelleStreckeUI">
<GROUP Id="RDK:19470591" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:19470592" Name="isDefined" Type="boolean" />
</GROUP>
<ACTION_CALL Id="RDK:397364" Name="RDEngineering_ModernUIRender">
<PAR Name="RDLibraryName">
<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
@@ -10332,74 +10446,18 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<GROUP Id="RDK:19436667" Name="SetStatus" SubType="Generic">
<CALLFUNCTION Id="RDK:19470590">
<PAR Name="FuncName">
<EXP><![CDATA[$C$Check_is_defined]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$isDefined]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<IFTHENELSE Id="RDK:19470579">
<VALUECONDITION Value="false">
<EXP><![CDATA[$=$isDefined]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:19470580" SubType="Then">
<CALLFUNCTION Id="RDK:19470598">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetStatus_Undef]]></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>
<GROUP Id="RDK:19470581" SubType="Else">
<IFTHENELSE Id="RDK:19418256">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Shape_Prototype.GefaelleDefinition.LH_fits]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:19418253" SubType="Then">
<CALLFUNCTION Id="RDK:19418252">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetStatus_Ok]]></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>
<GROUP Id="RDK:19418255" SubType="Else">
<CALLFUNCTION Id="RDK:19418254">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetStatus_False]]></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>
</IFTHENELSE>
</GROUP>
</IFTHENELSE>
</GROUP>
<CALLFUNCTION Id="RDK:19470590" Suppressed="True">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetStatus]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<EXIT_PROCESS Id="RDK:847707" BreakType="3" ExitStatus="0" />
</CASEGROUP>
<CASEGROUP Id="RDK:18338597" CaseType="0">
@@ -13395,6 +13453,7 @@ me.x
</GROUP>
</IFTHENELSE>
</GROUP>
<COMMENTS Id="RDK:19602905" DesignTimeRemark="InheritHeight wird hier nicht benötigt; Höhe wird durch Funktion SetHeightOnConnect gesetzt" />
<CALLFUNCTION Id="RDK:1698068">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
@@ -13407,77 +13466,6 @@ me.x
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:19089169" VarRef="item_1">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SELECTCASE Id="RDK:19089171" Suppressed="True">
<EXP><![CDATA[$=$item_1.family]]></EXP>
<CASEGROUP Id="RDK:19089173" CaseType="0">
<EXP><![CDATA[$C$Foerderer]]></EXP>
<CALLFUNCTION Id="RDK:19089253">
<PAR Name="FuncName">
<EXP><![CDATA[$C$Calculate Foerderer Data]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<IFTHENELSE Id="RDK:19089278">
<VALUECONDITION Value="false">
<EXP><![CDATA[$=$IsEmpty(RueckgabeListe)]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:19089277" SubType="Then">
<SET_STRUCT Id="RDK:19089275" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeID]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET Id="RDK:19482836" VarRef="LH_fits">
<EXP><![CDATA[$=$RueckgabeListe["key=LH_fits"].Boo]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<CALLFUNCTION Id="RDK:19089276">
<PAR Name="FuncName">
<EXP><![CDATA[$C$WriteShapeDataFoerderer]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$RueckgabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
</IFTHENELSE>
</CASEGROUP>
<CASEGROUP Id="RDK:19089284" CaseType="0">
<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
<CALLFUNCTION Id="RDK:19089286">
<PAR Name="FuncName">
<EXP><![CDATA[$C$Calculate Gefaellestrecke]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$LH_fits]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</CASEGROUP>
</SELECTCASE>
<IFTHENELSE Id="RDK:19474663">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$LH_fits]]></EXP>
@@ -15548,7 +15536,315 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="AdvancedOptions" />
</SET>
</FUNCTION>
<FUNCTION Id="RDK:1772330" Name="SetGefaellestreckeHeight" InputTypeName="SSGParameter[]">
<FUNCTION Id="RDK:19595231" Name="SetHeight" InputTypeName="SSGParameter[]">
<GROUP Id="RDK:19595239" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:19595236" Name="shapeId" Type="string">
<SET Id="RDK:19595241" VarRef="Me">
<EXP><![CDATA[$=$Param.Input["key=ShapeId"].Str]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:19595237" Name="label" Type="string">
<SET Id="RDK:19595243" VarRef="Me">
<EXP><![CDATA[$=$Param.Input["key=Label"].Str]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:19595238" Name="hoehe" Type="double">
<SET Id="RDK:19595245" VarRef="Me">
<EXP><![CDATA[$=$Param.Input["key=Hoehe"].Dbl]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:19595247" Name="shape_item" Type="Editor2DShapeType">
<SET Id="RDK:19595248" VarRef="Me">
<EXP><![CDATA[$=$ShapeList["id="+shapeId]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
</GROUP>
<SELECTCASE Id="RDK:19595360">
<EXP><![CDATA[$=$shape_item.family]]></EXP>
<CASEGROUP Id="RDK:19595346" CaseType="0">
<EXP><![CDATA[$C$Kreisel]]></EXP>
</CASEGROUP>
<CASEGROUP Id="RDK:19595362" CaseType="0">
<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
<IFTHENELSE Id="RDK:19595387">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$label="Oben"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:19595384" SubType="Then">
<SET Id="RDK:19595383" VarRef="ShapeList[&quot;id=&quot;+shapeId].GefaelleDefinition.HoeheOben">
<EXP><![CDATA[$=$hoehe]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:19595386" SubType="Else">
<SET Id="RDK:19595385" VarRef="ShapeList[&quot;id=&quot;+shapeId].GefaelleDefinition.HoeheUnten">
<EXP><![CDATA[$=$hoehe]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
<CALLFUNCTION Id="RDK:19595391">
<PAR Name="FuncName">
<EXP><![CDATA[$C$Calculate Gefaellestrecke]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$shapeId]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</CASEGROUP>
<CASEGROUP Id="RDK:19595364" CaseType="0">
<EXP><![CDATA[$C$Foerderer]]></EXP>
<IFTHENELSE Id="RDK:19595403">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$label="H_1"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:19595400" SubType="Then">
<SET Id="RDK:19595399" VarRef="ShapeList[&quot;id=&quot;+shapeId].FoerdererDefinition.H_1">
<EXP><![CDATA[$=$hoehe]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:19595402" SubType="Else">
<SET Id="RDK:19595401" VarRef="ShapeList[&quot;id=&quot;+shapeId].FoerdererDefinition.H_0">
<EXP><![CDATA[$=$hoehe]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
<SET Id="RDK:19595407" VarRef="Shape_Prototype">
<EXP><![CDATA[$=$ShapeList["id="+shapeId]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<CALLFUNCTION Id="RDK:19595409">
<PAR Name="FuncName">
<EXP><![CDATA[$C$Calculate Foerderer]]></EXP>
</PAR>
<PAR Name="InputExp" />
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</CASEGROUP>
<CASEGROUP Id="RDK:19595347" CaseType="0">
<EXP><![CDATA[$C$Weiche]]></EXP>
</CASEGROUP>
<CASEGROUP Id="RDK:19595348" CaseType="0">
<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
</CASEGROUP>
<CASEGROUP Id="RDK:19595349" CaseType="0">
<EXP><![CDATA[$C$BTMTEntladung]]></EXP>
</CASEGROUP>
<CASEGROUP Id="RDK:19595375" CaseType="0">
<EXP><![CDATA[$C$Eckrad]]></EXP>
</CASEGROUP>
<CASEGROUP Id="RDK:19595359" CaseType="1">
<EXP />
</CASEGROUP>
</SELECTCASE>
</FUNCTION>
<FUNCTION Id="RDK:19602983" Name="SetStatus" InputTypeName="string">
<GROUP Id="RDK:19602960" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:19602953" Name="shapeId" Type="string">
<SET Id="RDK:19602952" VarRef="Me">
<EXP><![CDATA[$=$Param.Input]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
</GROUP>
<SELECTCASE Id="RDK:19602982">
<EXP><![CDATA[$=$ShapeList["id="+shapeId].family]]></EXP>
<CASEGROUP Id="RDK:19602961" CaseType="0">
<EXP><![CDATA[$C$Kreisel]]></EXP>
<CALLFUNCTION Id="RDK:19603037">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$shapeId]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</CASEGROUP>
<CASEGROUP Id="RDK:19602968" CaseType="0">
<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
<IFTHENELSE Id="RDK:19603003">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$(ShapeList["id="+shapeId].GefaelleDefinition.LH_fits = True)]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:19603000" SubType="Then">
<CALLFUNCTION Id="RDK:19602999">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$shapeId]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<GROUP Id="RDK:19603002" SubType="Else">
<CALLFUNCTION Id="RDK:19603001">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetStatus_False]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$shapeId]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
</IFTHENELSE>
</CASEGROUP>
<CASEGROUP Id="RDK:19602976" CaseType="0">
<EXP><![CDATA[$C$Foerderer]]></EXP>
<IFTHENELSE Id="RDK:19603049">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$ShapeList["id="+shapeId].FoerdererDefinition.LH_fits]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:19603046" SubType="Then">
<CALLFUNCTION Id="RDK:19603045">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$shapeId]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<GROUP Id="RDK:19603048" SubType="Else">
<CALLFUNCTION Id="RDK:19603047">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetStatus_False]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$shapeId]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
</IFTHENELSE>
</CASEGROUP>
<CASEGROUP Id="RDK:19602977" CaseType="0">
<EXP><![CDATA[$C$Weiche]]></EXP>
</CASEGROUP>
<CASEGROUP Id="RDK:19602978" CaseType="0">
<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
<IFTHENELSE Id="RDK:19603057">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$ShapeList["id="+shapeId].BTMTBeladungDefinition.Drehung > 0]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:19603063" SubType="Then">
<CALLFUNCTION Id="RDK:19603069">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$shapeId]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<GROUP Id="RDK:19603067" SubType="Else">
<CALLFUNCTION Id="RDK:19603071">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetStatus_False]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$shapeId]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
</IFTHENELSE>
</CASEGROUP>
<CASEGROUP Id="RDK:19602979" CaseType="0">
<EXP><![CDATA[$C$BTMTEntladung]]></EXP>
<IFTHENELSE Id="RDK:19603081">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$ShapeList["id="+shapeId].BTMTBeladungDefinition.Drehung < 0]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:19603078" SubType="Then">
<CALLFUNCTION Id="RDK:19603077">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$shapeId]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<GROUP Id="RDK:19603080" SubType="Else">
<CALLFUNCTION Id="RDK:19603079">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetStatus_False]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$shapeId]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
</IFTHENELSE>
</CASEGROUP>
<CASEGROUP Id="RDK:19602980" CaseType="0">
<EXP><![CDATA[$C$Eckrad]]></EXP>
<CALLFUNCTION Id="RDK:19603085">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$shapeId]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</CASEGROUP>
<CASEGROUP Id="RDK:19602981" CaseType="1">
<EXP />
</CASEGROUP>
</SELECTCASE>
</FUNCTION>
<FUNCTION Id="RDK:1772330" Name="SetGefaellestreckeHeight" Suppressed="True" InputTypeName="SSGParameter[]">
<GROUP Id="RDK:1773485" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:1773487" Name="shapeId" Type="string" />
<VAR Id="RDK:1773489" Name="label" Type="string" />
@@ -15596,7 +15892,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Options" />
</CALLFUNCTION>
</FUNCTION>
<FUNCTION Id="RDK:19545872" Name="SetFoerdererHeight" InputTypeName="SSGParameter[]">
<FUNCTION Id="RDK:19545872" Name="SetFoerdererHeight" Suppressed="True" InputTypeName="SSGParameter[]">
<GROUP Id="RDK:19545852" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:19545849" Name="shapeId" Type="string" />
<VAR Id="RDK:19545850" Name="label" Type="string" />
@@ -15946,7 +16242,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
</SET_STRUCT>
<CALLFUNCTION Id="RDK:1802731">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetGefaellestreckeHeight]]></EXP>
<EXP><![CDATA[$C$SetHeight]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
@@ -16028,7 +16324,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
</SET_STRUCT>
<CALLFUNCTION Id="RDK:1773534">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetGefaellestreckeHeight]]></EXP>
<EXP><![CDATA[$C$SetHeight]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
@@ -16121,7 +16417,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
</SET_STRUCT>
<CALLFUNCTION Id="RDK:19545784">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetFoerdererHeight]]></EXP>
<EXP><![CDATA[$C$SetHeight]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
@@ -16203,7 +16499,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
</SET_STRUCT>
<CALLFUNCTION Id="RDK:19545801">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetFoerdererHeight]]></EXP>
<EXP><![CDATA[$C$SetHeight]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>