Set Status Funktionen hinzugefügt um jeweils die Farbe der Shapes nach Zustand zu ändern

Editor2DLibrary/SSG/shapes/props/Gefaellestrecke_Default.txt

@@ -0,0 +1,54 @@
+{
+  "shapeMode": 0,
+  "name": "Gefällestrecke_Falsch",
+  "family": "Gefaellestrecke",
+  "icon": "SSG/shapes/img/Gefaellestrecke.png",
+  "iconBig": "SSG/shapes/img/Gefaellestrecke.png",
+  "srcSVG": "SSG/shapes/svg/Gefaellestrecke_Default.xml",
+  "text": "^",
+  "width": 377.9528,
+  "height": 6047.2441,
+  "depth": 755.9055,
+  "behaviour": "(NOSTRETCH)(NOSTRETCHONVIEW)(NOROTATE)(NOROTATEONVIEW)(CONTAINER)(HIDEDIMENSIONS)(HIDEROTATION)(HIDEPIN)(ALWAYSFRONT)(ORIGIN=CENTER)",
+  "connectionPoints": [
+    {
+      "id": "cp1",
+      "x": 500.0,
+      "y": 0.0,
+      "z": 0.0,
+      "xMin": "",
+      "xMax": "",
+      "xStep": "",
+      "yMin": "",
+      "yMax": "",
+      "yStep": "",
+      "zMin": "",
+      "zMax": "",
+      "zStep": "",
+      "direction": 0.0,
+      "linkClass": "Gefaellestrecke",
+      "label": "Oben",
+      "isDimension": true
+    },
+    {
+      "id": "cp2",
+      "x": 500.0,
+      "y": 1000.0,
+      "z": 0.0,
+      "xMin": "",
+      "xMax": "",
+      "xStep": "",
+      "yMin": "",
+      "yMax": "",
+      "yStep": "",
+      "zMin": "",
+      "zMax": "",
+      "zStep": "",
+      "direction": 180.0,
+      "linkClass": "Gefaellestrecke",
+      "label": "Unten",
+      "isDimension": true
+    }
+  ],
+  "eventClass": "OnInserted,OnDoubleclick,OnPasted,OnLinked"
+}

Editor2DLibrary/SSG/shapes/svg/Gefaellestrecke_Default.xml

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<svg xmlns="http://www.w3.org/2000/svg">
+  <g transform="rotate(0)">
+    <svg viewBox="0 0 26.45833 264.58333" preserveAspectRatio="none" position="absolute" overflow="visible">
+      <defs />
+      <g transform="translate(0,-13.203638)">
+        <path style="opacity:0.94;fill:none;stroke-opacity:1" d="M 13.65157,13.203638 V 277.78696" stroke-width="1px" stroke="#ffa700" />
+      </g>
+    </svg>
+  </g>
+</svg>

Editor2DLibrary/SSG/shapes/svg/Gefaellestrecke_Falsch.xml

@@ -4,7 +4,7 @@
     <svg viewBox="0 0 26.45833 264.58333" preserveAspectRatio="none" position="absolute" overflow="visible">
       <defs />
       <g transform="translate(0,-13.203638)">
-        <path style="opacity:0.94;fill:none;stroke-opacity:1" d="M 13.65157,13.203638 V 277.78696" stroke-width="1px" stroke="#f44336" />
+        <path style="opacity:0.94;fill:none;stroke-opacity:1" d="M 13.65157,13.203638 V 277.78696" stroke-width="1px" stroke="#f33256" />
       </g>
     </svg>
   </g>

Editor2DLibrary/SSG/shapes/svg/Gefaellestrecke_Richtig.xml

@@ -4,7 +4,7 @@
     <svg viewBox="0 0 26.45833 264.58333" preserveAspectRatio="none" position="absolute" overflow="visible">
       <defs />
       <g transform="translate(0,-13.203638)">
-        <path style="opacity:0.94;fill:none;stroke-opacity:1" d="M 13.65157,13.203638 V 277.78696" stroke-width="1px" stroke="#00ff00" />
+        <path style="opacity:0.94;fill:none;stroke-opacity:1" d="M 13.65157,13.203638 V 277.78696" stroke-width="1px" stroke="#6C6E70" />
       </g>
     </svg>
   </g>

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="dre [NBDELP3561-04C]" ModDate="2024-06-03T16:11:02" LanguageVersion="2014.1.3.673" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-06-05T16:44:25" LanguageVersion="2014.1.3.673" />
 	<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">
@@ -40,9 +40,7 @@
 					<FIELD Id="RDK:1561121" Name="depth_M" Type="integer" DesignTimeNotes="Höhe der BounddingBox für die Motorstation" />
 					<FIELD Id="RDK:1561123" Name="depth_S" Type="integer" DesignTimeNotes="Höhe der BounddingBox für die Spannstation" />
 					<FIELD Id="RDK:1561128" Name="depth_Band" Type="integer" DesignTimeNotes="Höhe der BounddingBox für den Band" />
-					<FIELD Id="RDK:19270335" Name="height_Band" Type="integer" DesignTimeNotes="Höhe der BounddingBox für den Band" />
 					<FIELD Id="RDK:1561130" Name="depth_PinBand" Type="integer" DesignTimeNotes="Höhe der BounddingBox für den Band" />
-					<FIELD Id="RDK:19270337" Name="height_PinBand" Type="integer" DesignTimeNotes="Höhe der BounddingBox für den Band" />
 				</TYPE>
 				<TYPE Id="RDK:1520433" Name="EckradType" SubType="structure">
 					<TYPE_VALUES />
@@ -139,7 +137,7 @@
 					<FIELD Id="RDK:18530523" Name="FoerdererDefinition" Type="FoerdererType" />
 					<FIELD Id="RDK:18732357" Name="StreckeDefinition" Type="StreckeType" />
 				</TYPE>
-				<TYPE Id="RDK:1783792" Name="SSGParameter" SubType="structure" HasArrayType="True">
+				<TYPE Id="RDK:1783792" Name="SSGParameter" Expanded="True" SubType="structure" HasArrayType="True">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:1783794" Name="Key" Type="string" />
 					<FIELD Id="RDK:1789531" Name="Str" Type="string" />
@@ -1014,10 +1012,10 @@
 			<VAR Id="RDK:1732132" Name="label" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:1759312" Name="cp_label" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:18295767" Name="L_s" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:18777657" Name="HoeheOben" Type="string" DesignTimeRemark="Generated by RD" />
+			<VAR Id="RDK:18777657" Name="HoeheOben" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:18777660" Name="HoeheUnten" Type="string" DesignTimeRemark="Generated by RD" />
+			<VAR Id="RDK:18777660" Name="HoeheUnten" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:18825603" Name="cpId" Type="string" DesignTimeRemark="Generated by RD" />
+			<VAR Id="RDK:18825603" Name="cpId" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:18826988" Name="shapeID" Type="string" DesignTimeRemark="Generated by RD" />
+			<VAR Id="RDK:18826988" Name="shapeID" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
 		</GROUP>
 		<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
 			<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -1118,7 +1116,7 @@
 							<EXP><![CDATA[$C$True]]></EXP>
 						</PAR>
 						<PAR Name="PageShowPreview3D">
-							<EXP><![CDATA[$C$True]]></EXP>
+							<EXP><![CDATA[$C$False]]></EXP>
 						</PAR>
 						<PAR Name="PageShowPreview3DDinamicLights" />
 						<PAR Name="PageShowPreview3DGround" />
@@ -2409,7 +2407,9 @@
 								<PAR Name="srcTexture3D" />
 								<PAR Name="width">
 									<EXP><![CDATA[$=$ConvertToPixel(ShapeTotalLength, "mm", 96)
-'Neue Länge aus der Eingabe]]></EXP>
+'Neue Länge aus der Eingabe
+
+]]></EXP>
 								</PAR>
 								<PAR Name="height">
 									<EXP><![CDATA[$=$ConvertToPixel(KreiselData.Durchmesser, "mm", 96)]]></EXP>
@@ -2523,7 +2523,7 @@
 											<EXP><![CDATA[$=$ConvertToPixel(KreiselData.AbstandMS, "mm", 96)]]></EXP>
 										</PAR>
 										<PAR Name="height">
-											<EXP><![CDATA[$=$ConvertToPixel(KreiselData.height_Band, "mm", 96)]]></EXP>
+											<EXP><![CDATA[$=$ConvertToPixel(KreiselData.depth_Band, "mm", 96)]]></EXP>
 										</PAR>
 										<PAR Name="depth">
 											<EXP><![CDATA[$=$ConvertToPixel(KreiselData.depth_Band, "mm", 96)]]></EXP>
@@ -2553,7 +2553,7 @@
 											<EXP><![CDATA[$=$ConvertToPixel(KreiselData.AbstandMS, "mm", 96)]]></EXP>
 										</PAR>
 										<PAR Name="height">
-											<EXP><![CDATA[$=$ConvertToPixel(KreiselData.height_Band, "mm", 96)]]></EXP>
+											<EXP><![CDATA[$=$ConvertToPixel(KreiselData.depth_Band, "mm", 96)]]></EXP>
 										</PAR>
 										<PAR Name="depth">
 											<EXP><![CDATA[$=$ConvertToPixel(KreiselData.depth_Band, "mm", 96)]]></EXP>
@@ -2588,7 +2588,7 @@
 											<EXP><![CDATA[$=$ConvertToPixel(KreiselData.AbstandMS, "mm", 96)]]></EXP>
 										</PAR>
 										<PAR Name="height">
-											<EXP><![CDATA[$=$ConvertToPixel(KreiselData.height_PinBand, "mm", 96)]]></EXP>
+											<EXP><![CDATA[$=$ConvertToPixel(KreiselData.depth_Band, "mm", 96)]]></EXP>
 										</PAR>
 										<PAR Name="depth">
 											<EXP><![CDATA[$=$ConvertToPixel(KreiselData.depth_Band, "mm", 96)]]></EXP>
@@ -2618,7 +2618,7 @@
 											<EXP><![CDATA[$=$ConvertToPixel(KreiselData.AbstandMS, "mm", 96)]]></EXP>
 										</PAR>
 										<PAR Name="height">
-											<EXP><![CDATA[$=$ConvertToPixel(KreiselData.height_PinBand, "mm", 96)]]></EXP>
+											<EXP><![CDATA[$=$ConvertToPixel(KreiselData.depth_Band, "mm", 96)]]></EXP>
 										</PAR>
 										<PAR Name="depth">
 											<EXP><![CDATA[$=$ConvertToPixel(KreiselData.depth_Band, "mm", 96)]]></EXP>
@@ -3302,6 +3302,7 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 						<GROUP Id="RDK:439268" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 							<VAR Id="RDK:439269" Name="ID" Type="string" />
 							<VAR Id="RDK:476605" Name="i" Type="integer" />
+							<VAR Id="RDK:19265050" Name="isDefined" Type="boolean" />
 						</GROUP>
 						<SET Id="RDK:439276" VarRef="ID">
 							<EXP><![CDATA[$=$Param.Input]]></EXP>
@@ -3311,6 +3312,18 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 							<EXP><![CDATA[$=$IndexOfByFieldValue(ShapeList, "id", ID)]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
+						<CALLFUNCTION Id="RDK:19269861">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$Check_is_defined]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$ID]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$isDefined]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
 						<SELECTCASE Id="RDK:439273">
 							<EXP><![CDATA[$=$Shape_Prototype.family]]></EXP>
 							<CASEGROUP Id="RDK:439275" CaseType="0">
@@ -3404,7 +3417,6 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 										</PAR>
 										<PAR Name="EckradDefinition" />
 										<PAR Name="GefaelleDefinition" />
-										<PAR Name="StreckeDefinition" />
 										<PAR Name="FoerdererDefinition" />
 										<PAR Name="WeicheDefinition" />
 										<PAR Name="BTMTBeladungDefinition" />
@@ -3424,9 +3436,7 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 										<PAR Name="description" />
 										<PAR Name="x" />
 										<PAR Name="y" />
-										<PAR Name="z">
+										<PAR Name="z" />
-											<EXP><![CDATA[$=$KreiselData.Hoehe]]></EXP>
-										</PAR>
 										<PAR Name="width">
 											<EXP><![CDATA[$=$ConvertFromPixel(Shape_Prototype.width, "mm", 96)]]></EXP>
 										</PAR>
@@ -3472,6 +3482,7 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 										<PAR Name="pinned" />
 										<PAR Name="selected" />
 										<PAR Name="includeInBOM" />
+										<PAR Name="StreckeDefinition" />
 									</SET_STRUCT>
 								</GROUP>
 							</CASEGROUP>
@@ -3730,7 +3741,7 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 										<PAR Name="BTMTBeladungDefinition" />
 										<PAR Name="BTMTEntladungDefinition" />
 										<PAR Name="source">
-											<EXP><![CDATA[$=$IIF(Shape_Prototype.GefaelleDefinition.LH_fits=True,"Gefaellestrecke_Richtig","Gefaellestrecke_Falsch")]]></EXP>
+											<EXP><![CDATA[$=$IIF(isDefined=False, "Gefaellestrecke_Default", IIF(Shape_Prototype.GefaelleDefinition.LH_fits=True,"Gefaellestrecke_Richtig","Gefaellestrecke_Falsch"))]]></EXP>
 										</PAR>
 										<PAR Name="sourceLibrary">
 											<EXP><![CDATA[$=$GS2DLibraryName]]></EXP>
@@ -11753,10 +11764,6 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 									<EXP><![CDATA[$=$Shape_Prototype.KreiselDefinition.Drehung]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
-								<SET Id="RDK:19276451" VarRef="Shape_Prototype.KreiselDefinition.Hoehe" Bookmarked="True">
-									<EXP><![CDATA[$=$Shape_Prototype.z]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
 								<GROUP Id="RDK:607198" Name="Read CPs From Data" SubType="Generic">
 									<SET Id="RDK:607191" VarRef="SSGConnectionPointList">
 										<EXP><![CDATA[$=$FromJSON(Property_Prototype.connectionPoints)]]></EXP>
@@ -12534,7 +12541,7 @@ me.x
 					<VAR Id="RDK:203618" Name="ShapeTotalLength" Type="double" Suppressed="True" />
 					<VAR Id="RDK:506783" Name="PrototypeLink" Type="string" DesignTimeRemark="Generated by RD" />
 					<VAR Id="RDK:514766" Name="OriginalRatation" Type="integer" />
-					<VAR Id="RDK:18372899" Name="ÜbergabeListe" Type="SSGParameter[]" />
+					<VAR Id="RDK:18372899" Name="UebergabeListe" Type="SSGParameter[]" />
 					<VAR Id="RDK:18374148" Name="RückgabeListe" Type="SSGParameter[]" />
 					<VAR Id="RDK:18399128" Name="shape_id" Type="string" />
 					<VAR Id="RDK:19089175" Name="item_1" Type="Editor2DShapeType" />
@@ -13307,10 +13314,6 @@ me.x
 										<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
 									</VALUECONDITION>
 									<GROUP Id="RDK:18827014" SubType="Then">
-										<SET Id="RDK:18827006" VarRef="shape_id">
-											<EXP><![CDATA[$=$RückgabeListe["key=ShapeId"].Str]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
 										<CALLFUNCTION Id="RDK:18827007">
 											<PAR Name="FuncName">
 												<EXP><![CDATA[$C$Check_LH_fits_gefaelle]]></EXP>
@@ -13759,22 +13762,22 @@ me.x
 			<FUNCTION Id="RDK:529791" Name="OnEditor2DCreateCategory" Options="(TYPEFUNCTION)" />
 			<FUNCTION Id="RDK:18474112" Name="WriteShapeDataFoerderer" InputTypeName="SSGParameter[]">
 				<GROUP Id="RDK:18474116" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
-					<VAR Id="RDK:18474115" Name="ÜbergabeListe" Type="SSGParameter[]" />
+					<VAR Id="RDK:18474115" Name="UebergabeListe" Type="SSGParameter[]" />
 					<VAR Id="RDK:18474151" Name="shape_id" Type="string" />
 					<VAR Id="RDK:18474166" Name="ind" Type="integer" />
 					<VAR Id="RDK:18474167" Name="shape_item" Type="Editor2DShapeType" />
 				</GROUP>
-				<SET Id="RDK:18474121" VarRef="ÜbergabeListe">
+				<SET Id="RDK:18474121" VarRef="UebergabeListe">
 					<EXP><![CDATA[$=$Param.Input]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
 				<IFTHENELSE Id="RDK:18474143">
 					<VALUECONDITION Value="false">
-						<EXP><![CDATA[$=$IsEmpty(ÜbergabeListe)]]></EXP>
+						<EXP><![CDATA[$=$IsEmpty(UebergabeListe)]]></EXP>
 					</VALUECONDITION>
 					<GROUP Id="RDK:18474142" SubType="Then">
 						<SET Id="RDK:18474140" VarRef="shape_id">
-							<EXP><![CDATA[$=$ÜbergabeListe["key=shapeID"].Str]]></EXP>
+							<EXP><![CDATA[$=$UebergabeListe["key=shapeID"].Str]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
 						<SET Id="RDK:18474171" VarRef="shape_item">
@@ -15222,12 +15225,101 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</GROUP>
 				</IFTHENELSE>
 			</FUNCTION>
+			<FUNCTION Id="RDK:19265800" Name="Check_is_defined" InputTypeName="string" ResultTypeName="boolean">
+				<COMMENTS Id="RDK:19265764" DesignTimeRemark="Wenn beide Connection-Points verbunden sind, dann gibt diese Funktion &quot;True&quot; zurück, sonst &quot;False&quot;" />
+				<GROUP Id="RDK:19265766" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:19265765" Name="shape_item" Type="Editor2DShapeType" />
+				</GROUP>
+				<IFTHENELSE Id="RDK:19265769">
+					<VALUECONDITION Value="true">
+						<EXP><![CDATA[$=$IsEmpty(Param.Input)]]></EXP>
+					</VALUECONDITION>
+					<GROUP Id="RDK:19265768" SubType="Then">
+						<EXIT_PROCESS Id="RDK:19265767" BreakType="4" ExitStatus="0" />
+					</GROUP>
+				</IFTHENELSE>
+				<COMMENTS Id="RDK:19265770" DesignTimeRemark="Param.Input" />
+				<SET Id="RDK:19265771" VarRef="shape_item">
+					<EXP><![CDATA[$=$ShapeList["id="+Param.Input]]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SELECTCASE Id="RDK:19265789">
+					<EXP><![CDATA[$=$shape_item.family]]></EXP>
+					<CASEGROUP Id="RDK:19265772" CaseType="0">
+						<EXP><![CDATA[$C$Kreisel]]></EXP>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:19265773" CaseType="0">
+						<EXP><![CDATA[$C$Eckrad]]></EXP>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:19265777" CaseType="0">
+						<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
+						<IFTHENELSE Id="RDK:19265776">
+							<VALUECONDITION Value="true" Oper="OR">
+								<EXP><![CDATA[$=$IsEmpty(shape_item.GefaelleDefinition.HoeheOben)]]></EXP>
+							</VALUECONDITION>
+							<VALUECONDITION Value="true" Oper="OR">
+								<EXP><![CDATA[$=$IsEmpty(shape_item.GefaelleDefinition.HoeheUnten)]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:19265775" SubType="Then">
+								<SET Id="RDK:19265774" VarRef="Param.Result">
+									<EXP><![CDATA[$=$False]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:19265781" CaseType="0">
+						<EXP><![CDATA[$C$Strecke]]></EXP>
+						<IFTHENELSE Id="RDK:19265780">
+							<VALUECONDITION Value="true" Oper="OR">
+								<EXP><![CDATA[$=$IsEmpty(shape_item.StreckeDefinition.HoeheOben)]]></EXP>
+							</VALUECONDITION>
+							<VALUECONDITION Value="true" Oper="OR">
+								<EXP><![CDATA[$=$IsEmpty(shape_item.StreckeDefinition.HoeheUnten)]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:19265779" SubType="Then">
+								<SET Id="RDK:19265778" VarRef="Param.Result">
+									<EXP><![CDATA[$=$False]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:19265785" CaseType="0">
+						<EXP><![CDATA[$C$Foerderer]]></EXP>
+						<IFTHENELSE Id="RDK:19265784">
+							<VALUECONDITION Value="true" Oper="OR">
+								<EXP><![CDATA[$=$IsEmpty(shape_item.FoerdererDefinition.HoeheOben)]]></EXP>
+							</VALUECONDITION>
+							<VALUECONDITION Value="true" Oper="OR">
+								<EXP><![CDATA[$=$IsEmpty(shape_item.FoerdererDefinition.HoeheUnten)]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:19265783" SubType="Then">
+								<SET Id="RDK:19265782" VarRef="Param.Result">
+									<EXP><![CDATA[$=$False]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:19265786" CaseType="0">
+						<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:19265787" CaseType="0">
+						<EXP><![CDATA[$C$BTMTEntladung]]></EXP>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:19265788" CaseType="1">
+						<EXP />
+					</CASEGROUP>
+				</SELECTCASE>
+			</FUNCTION>
 			<FUNCTION Id="RDK:18326311" Name="Check_LH_fits_gefaelle" InputTypeName="string">
 				<COMMENTS Id="RDK:1792975" DesignTimeRemark="Wenn die theoretische Länge L_f und die Länge des Shapes L1 übereinstimmen, dann wird der Gefaelle als &quot;in Ordnung&quot; betrachtet" />
 				<GROUP Id="RDK:18329391" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:18329384" Name="L_th" Type="double" />
 					<VAR Id="RDK:18539553" Name="H_th" Type="double" />
 					<VAR Id="RDK:18376628" Name="shape_item" Type="Editor2DShapeType" />
+					<VAR Id="RDK:19290186" Name="UebergabeListe" Type="SSGParameter[]" />
 				</GROUP>
 				<IFTHENELSE Id="RDK:18396608">
 					<VALUECONDITION Value="true">
@@ -15283,6 +15375,18 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<EXP><![CDATA[$=$shape_item]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
+						<CALLFUNCTION Id="RDK:19281369" Suppressed="True">
+							<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>
 				</IFTHENELSE>
 			</FUNCTION>
@@ -15592,6 +15696,248 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<PAR Name="AdvancedOptions" />
 				</SET>
 			</FUNCTION>
+			<FUNCTION Id="RDK:19287453" Name="SetColorOfShape" InputTypeName="string" ResultTypeName="boolean">
+				<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" />
+				</GROUP>
+				<COMMENTS Id="RDK:19302617" DesignTimeRemark="Param.Input" />
+				<COMMENTS Id="RDK:19302619" DesignTimeRemark="Param.Input[&quot;Key=id&quot;].Str" />
+				<SET Id="RDK:19290237" VarRef="shapeID">
+					<EXP><![CDATA[$=$Param.Input["key=id"].Str]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SET Id="RDK:19290242" VarRef="color">
+					<EXP><![CDATA[$=$Param.Input["key=color"].Str]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SET Id="RDK:19290213" VarRef="ShapeList[IndexOfByFieldValue(ShapeList, &quot;id&quot;, shapeID)].lineColor">
+					<EXP><![CDATA[$=$color]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+			</FUNCTION>
+			<FUNCTION Id="RDK:19290191" Name="SetStatus_False" InputTypeName="string" ResultTypeName="boolean">
+				<GROUP Id="RDK:19290203" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:19290201" Name="shape_item" Type="Editor2DShapeType">
+						<SET Id="RDK:19290200" VarRef="Me">
+							<EXP><![CDATA[$=$ShapeList["id="+Param.Input]]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
+					<VAR Id="RDK:19290202" Name="UebergabeListe" Type="SSGParameter[]" />
+					<VAR Id="RDK:19290288" Name="color" Type="string" />
+				</GROUP>
+				<IFTHENELSE Id="RDK:19290219">
+					<VALUECONDITION Value="true">
+						<EXP><![CDATA[$=$IndexOfByFieldValue(ShapeList, "id", shape_item.id) > 0]]></EXP>
+					</VALUECONDITION>
+					<GROUP Id="RDK:19290215" SubType="Then">
+						<SET Id="RDK:19290301" VarRef="color">
+							<EXP><![CDATA[$C$#f33256]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET_STRUCT Id="RDK:19290187" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$id]]></EXP>
+							</PAR>
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
+							</PAR>
+							<PAR Name="Dbl" />
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+						</SET_STRUCT>
+						<SET_STRUCT Id="RDK:19290189" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$color]]></EXP>
+							</PAR>
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$color]]></EXP>
+							</PAR>
+							<PAR Name="Dbl" />
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+						</SET_STRUCT>
+						<CALLFUNCTION Id="RDK:19290445">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$SetColorOfShape]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$UebergabeListe]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
+					</GROUP>
+				</IFTHENELSE>
+			</FUNCTION>
+			<FUNCTION Id="RDK:19290193" Name="SetStatus_Undef" InputTypeName="string" ResultTypeName="boolean">
+				<GROUP Id="RDK:19290315" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:19290312" Name="shape_item" Type="Editor2DShapeType">
+						<SET Id="RDK:19290311" VarRef="Me">
+							<EXP><![CDATA[$=$ShapeList["id="+Param.Input]]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
+					<VAR Id="RDK:19290313" Name="UebergabeListe" Type="SSGParameter[]" />
+					<VAR Id="RDK:19290314" Name="color" Type="string" />
+				</GROUP>
+				<IFTHENELSE Id="RDK:19290373">
+					<VALUECONDITION Value="true">
+						<EXP><![CDATA[$=$IndexOfByFieldValue(ShapeList, "id", shape_item.id) > 0]]></EXP>
+					</VALUECONDITION>
+					<GROUP Id="RDK:19290370" SubType="Then">
+						<SET Id="RDK:19290442" VarRef="color">
+							<EXP><![CDATA[$C$#ffa700]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET_STRUCT Id="RDK:19290367" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$id]]></EXP>
+							</PAR>
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
+							</PAR>
+							<PAR Name="Dbl" />
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+						</SET_STRUCT>
+						<SET_STRUCT Id="RDK:19290368" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$color]]></EXP>
+							</PAR>
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$color]]></EXP>
+							</PAR>
+							<PAR Name="Dbl" />
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+						</SET_STRUCT>
+						<CALLFUNCTION Id="RDK:19290447">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$SetColorOfShape]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$UebergabeListe]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
+					</GROUP>
+				</IFTHENELSE>
+			</FUNCTION>
+			<FUNCTION Id="RDK:19290195" Name="SetStatus_Ok" InputTypeName="string" ResultTypeName="boolean">
+				<GROUP Id="RDK:19290325" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:19290322" Name="shape_item" Type="Editor2DShapeType">
+						<SET Id="RDK:19290321" VarRef="Me">
+							<EXP><![CDATA[$=$ShapeList["id="+Param.Input]]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
+					<VAR Id="RDK:19290323" Name="UebergabeListe" Type="SSGParameter[]" />
+					<VAR Id="RDK:19290324" Name="color" Type="string" />
+				</GROUP>
+				<IFTHENELSE Id="RDK:19290423">
+					<VALUECONDITION Value="true">
+						<EXP><![CDATA[$=$IndexOfByFieldValue(ShapeList, "id", shape_item.id) > 0]]></EXP>
+					</VALUECONDITION>
+					<GROUP Id="RDK:19290420" SubType="Then">
+						<SELECTCASE Id="RDK:19290416">
+							<EXP><![CDATA[$=$shape_item.family]]></EXP>
+							<CASEGROUP Id="RDK:19290401" CaseType="0">
+								<EXP><![CDATA[$C$Kreisel]]></EXP>
+							</CASEGROUP>
+							<CASEGROUP Id="RDK:19290403" CaseType="0">
+								<EXP><![CDATA[$C$Eckrad]]></EXP>
+								<SET Id="RDK:19290402" VarRef="color">
+									<EXP><![CDATA[$C$#0E499F]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</CASEGROUP>
+							<CASEGROUP Id="RDK:19290405" CaseType="0">
+								<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
+								<SET Id="RDK:19290404" VarRef="color">
+									<EXP><![CDATA[$C$#6C6E70]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</CASEGROUP>
+							<CASEGROUP Id="RDK:19290407" CaseType="0">
+								<EXP><![CDATA[$C$Strecke]]></EXP>
+								<SET Id="RDK:19290406" VarRef="color">
+									<EXP><![CDATA[$C$#6C6E70]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</CASEGROUP>
+							<CASEGROUP Id="RDK:19290409" CaseType="0">
+								<EXP><![CDATA[$C$Foerderer]]></EXP>
+								<SET Id="RDK:19290408" VarRef="color">
+									<EXP><![CDATA[$C$#0E499F]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</CASEGROUP>
+							<CASEGROUP Id="RDK:19290411" CaseType="0">
+								<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
+								<SET Id="RDK:19290410" VarRef="color">
+									<EXP><![CDATA[$C$#DBDBDB]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</CASEGROUP>
+							<CASEGROUP Id="RDK:19290413" CaseType="0">
+								<EXP><![CDATA[$C$BTMTEntladung]]></EXP>
+								<SET Id="RDK:19290412" VarRef="color">
+									<EXP><![CDATA[$C$#DBDBDB]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</CASEGROUP>
+							<CASEGROUP Id="RDK:19290415" CaseType="1">
+								<EXP />
+								<SET Id="RDK:19290414" VarRef="color">
+									<EXP><![CDATA[$C$#ffffff]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</CASEGROUP>
+						</SELECTCASE>
+						<SET_STRUCT Id="RDK:19290417" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$id]]></EXP>
+							</PAR>
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
+							</PAR>
+							<PAR Name="Dbl" />
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+						</SET_STRUCT>
+						<SET_STRUCT Id="RDK:19290418" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<PAR Name="Key">
+								<EXP><![CDATA[$C$color]]></EXP>
+							</PAR>
+							<PAR Name="Str">
+								<EXP><![CDATA[$=$color]]></EXP>
+							</PAR>
+							<PAR Name="Dbl" />
+							<PAR Name="Int" />
+							<PAR Name="Boo" />
+						</SET_STRUCT>
+						<CALLFUNCTION Id="RDK:19290449">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$SetColorOfShape]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$UebergabeListe]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
+					</GROUP>
+				</IFTHENELSE>
+			</FUNCTION>
 			<FUNCTION Id="RDK:18732540" Name="SetHeightOfStreckeOnConnect" InputTypeName="Editor2DEventArgumentsTypeList" ResultTypeName="SSGParameter[]">
 				<GROUP Id="RDK:18742673" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:18742667" Name="shape_item" Type="Editor2DShapeType" />
@@ -16081,7 +16427,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<VAR Id="RDK:18741864" Name="item" Type="Editor2DShapeType" />
 					<VAR Id="RDK:18732502" Name="cpId" Type="string" />
 					<VAR Id="RDK:18741868" Name="hoehe" Type="double" />
-					<VAR Id="RDK:18741872" Name="UebergabeListe" Type="SSGParameter[]" />
 					<VAR Id="RDK:18741950" Name="RueckgabeListe" Type="SSGParameter[]" />
 					<VAR Id="RDK:18741959" Name="hoehe_oben" Type="double" />
 					<VAR Id="RDK:18741961" Name="hoehe_unten" Type="double" />
@@ -20628,22 +20973,16 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<PAR Name="x" />
 					<PAR Name="y" />
 					<PAR Name="depth_M">
-						<EXP><![CDATA[$C$500]]></EXP>
+						<EXP><![CDATA[$C$200]]></EXP>
 					</PAR>
 					<PAR Name="depth_S">
-						<EXP><![CDATA[$C$400]]></EXP>
+						<EXP><![CDATA[$C$200]]></EXP>
 					</PAR>
 					<PAR Name="depth_Band">
-						<EXP><![CDATA[$C$5]]></EXP>
+						<EXP><![CDATA[$C$30]]></EXP>
-					</PAR>
-					<PAR Name="height_Band">
-						<EXP><![CDATA[$C$2]]></EXP>
 					</PAR>
 					<PAR Name="depth_PinBand">
-						<EXP><![CDATA[$C$5]]></EXP>
+						<EXP><![CDATA[$C$30]]></EXP>
-					</PAR>
-					<PAR Name="height_PinBand">
-						<EXP><![CDATA[$C$2]]></EXP>
 					</PAR>
 				</SET_STRUCT>
 			</GROUP>