From 60bc5d179a84ae01ce71dd6739dcf15e31bc57fd Mon Sep 17 00:00:00 2001
From: Simon Schmutzler <s.schmutzler@schoenenberger.de>
Date: Thu, 6 Jun 2024 14:00:06 +0200
Subject: [PATCH] =?UTF-8?q?Bug=20fixing=20setStatus=20bei=20=C3=9Cbergabel?=
 =?UTF-8?q?iste=20-=20nicht=20abgeschlossen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 123 +++++++++++++++++++++++----------------------------
 1 file changed, 56 insertions(+), 67 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 0b1aba1..4b9f2be 100644
--- a/MAIN_SSG.rdx
+++ b/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="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-06-05T16:44:25" LanguageVersion="2014.1.3.673" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-06-06T13:59:09" 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">
@@ -137,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" Expanded="True" SubType="structure" HasArrayType="True">
+				<TYPE Id="RDK:1783792" Name="SSGParameter" SubType="structure" HasArrayType="True">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:1783794" Name="Key" Type="string" />
 					<FIELD Id="RDK:1789531" Name="Str" Type="string" />
@@ -12541,8 +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="UebergabeListe" Type="SSGParameter[]" />
-					<VAR Id="RDK:18374148" Name="RückgabeListe" Type="SSGParameter[]" />
+					<VAR Id="RDK:18374148" Name="RueckgabeListe" Type="SSGParameter[]" />
 					<VAR Id="RDK:18399128" Name="shape_id" Type="string" />
 					<VAR Id="RDK:19089175" Name="item_1" Type="Editor2DShapeType" />
 				</GROUP>
@@ -12785,17 +12784,17 @@ me.x
 								<EXP><![CDATA[$=$Param.Input]]></EXP>
 							</PAR>
 							<PAR Name="ResultRef">
-								<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+								<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
 							</PAR>
 							<PAR Name="Options" />
 						</CALLFUNCTION>
 						<IFTHENELSE Id="RDK:18397858" Suppressed="True">
 							<VALUECONDITION Value="false">
-								<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
+								<EXP><![CDATA[$=$IsEmpty(RueckgabeListe)]]></EXP>
 							</VALUECONDITION>
 							<GROUP Id="RDK:18397875" SubType="Then">
 								<SET Id="RDK:18399131" VarRef="shape_id">
-									<EXP><![CDATA[$=$RückgabeListe["key=ShapeId"].Str]]></EXP>
+									<EXP><![CDATA[$=$RueckgabeListe["key=ShapeId"].Str]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 								<CALLFUNCTION Id="RDK:18369218">
@@ -12828,16 +12827,16 @@ me.x
 										<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+										<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
 								<IFTHENELSE Id="RDK:19089278">
 									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
+										<EXP><![CDATA[$=$IsEmpty(RueckgabeListe)]]></EXP>
 									</VALUECONDITION>
 									<GROUP Id="RDK:19089277" SubType="Then">
-										<SET_STRUCT Id="RDK:19089275" VarRef="SSGParameter" ClearAll="True" ListRef="RückgabeListe">
+										<SET_STRUCT Id="RDK:19089275" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
 											<PAR Name="Key">
 												<EXP><![CDATA[$C$shapeID]]></EXP>
 											</PAR>
@@ -12853,7 +12852,7 @@ me.x
 												<EXP><![CDATA[$C$WriteShapeDataFoerderer]]></EXP>
 											</PAR>
 											<PAR Name="InputExp">
-												<EXP><![CDATA[$=$RückgabeListe]]></EXP>
+												<EXP><![CDATA[$=$RueckgabeListe]]></EXP>
 											</PAR>
 											<PAR Name="ResultRef">
 												<EXP><![CDATA[$V$]]></EXP>
@@ -12900,16 +12899,16 @@ me.x
 												<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
 											</PAR>
 											<PAR Name="ResultRef">
-												<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+												<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
 											</PAR>
 											<PAR Name="Options" />
 										</CALLFUNCTION>
 										<IFTHENELSE Id="RDK:18935840">
 											<VALUECONDITION Value="false">
-												<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
+												<EXP><![CDATA[$=$IsEmpty(RueckgabeListe)]]></EXP>
 											</VALUECONDITION>
 											<GROUP Id="RDK:18935839" SubType="Then">
-												<SET_STRUCT Id="RDK:18935837" VarRef="SSGParameter" ClearAll="True" ListRef="RückgabeListe">
+												<SET_STRUCT Id="RDK:18935837" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
 													<PAR Name="Key">
 														<EXP><![CDATA[$C$shapeID]]></EXP>
 													</PAR>
@@ -12925,7 +12924,7 @@ me.x
 														<EXP><![CDATA[$C$WriteShapeDataFoerderer]]></EXP>
 													</PAR>
 													<PAR Name="InputExp">
-														<EXP><![CDATA[$=$RückgabeListe]]></EXP>
+														<EXP><![CDATA[$=$RueckgabeListe]]></EXP>
 													</PAR>
 													<PAR Name="ResultRef">
 														<EXP><![CDATA[$V$]]></EXP>
@@ -12944,16 +12943,16 @@ me.x
 												<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
 											</PAR>
 											<PAR Name="ResultRef">
-												<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+												<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
 											</PAR>
 											<PAR Name="Options" />
 										</CALLFUNCTION>
 										<IFTHENELSE Id="RDK:18935846">
 											<VALUECONDITION Value="false">
-												<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
+												<EXP><![CDATA[$=$IsEmpty(RueckgabeListe)]]></EXP>
 											</VALUECONDITION>
 											<GROUP Id="RDK:18935845" SubType="Then">
-												<SET_STRUCT Id="RDK:18935843" VarRef="SSGParameter" ClearAll="True" ListRef="RückgabeListe">
+												<SET_STRUCT Id="RDK:18935843" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
 													<PAR Name="Key">
 														<EXP><![CDATA[$C$shapeID]]></EXP>
 													</PAR>
@@ -12969,7 +12968,7 @@ me.x
 														<EXP><![CDATA[$C$WriteShapeDataFoerderer]]></EXP>
 													</PAR>
 													<PAR Name="InputExp">
-														<EXP><![CDATA[$=$RückgabeListe]]></EXP>
+														<EXP><![CDATA[$=$RueckgabeListe]]></EXP>
 													</PAR>
 													<PAR Name="ResultRef">
 														<EXP><![CDATA[$V$]]></EXP>
@@ -13198,17 +13197,17 @@ me.x
 										<EXP><![CDATA[$=$Param.Input]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+										<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
 								<IFTHENELSE Id="RDK:18397881">
 									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
+										<EXP><![CDATA[$=$IsEmpty(RueckgabeListe)]]></EXP>
 									</VALUECONDITION>
 									<GROUP Id="RDK:18397897" SubType="Then">
 										<SET Id="RDK:18399135" VarRef="shape_id">
-											<EXP><![CDATA[$=$RückgabeListe["key=ShapeId"].Str]]></EXP>
+											<EXP><![CDATA[$=$RueckgabeListe["key=ShapeId"].Str]]></EXP>
 											<PAR Name="AdvancedOptions" />
 										</SET>
 										<IFTHENELSE Id="RDK:18535115">
@@ -13274,7 +13273,7 @@ me.x
 										<EXP><![CDATA[$=$Param.Input]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+										<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
@@ -13305,13 +13304,13 @@ me.x
 										<EXP><![CDATA[$=$Param.Input]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+										<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
 								<IFTHENELSE Id="RDK:18827015">
 									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
+										<EXP><![CDATA[$=$IsEmpty(RueckgabeListe)]]></EXP>
 									</VALUECONDITION>
 									<GROUP Id="RDK:18827014" SubType="Then">
 										<CALLFUNCTION Id="RDK:18827007">
@@ -13346,7 +13345,7 @@ me.x
 										<EXP><![CDATA[$=$Param.Input]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+										<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
@@ -13368,7 +13367,7 @@ me.x
 										<EXP><![CDATA[$=$Param.Input]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+										<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
@@ -13387,7 +13386,7 @@ me.x
 										<EXP><![CDATA[$=$Param.Input]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+										<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
@@ -13440,7 +13439,7 @@ me.x
 										<EXP><![CDATA[$=$Param.Input]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+										<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
@@ -13452,16 +13451,16 @@ me.x
 										<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+										<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
 								<IFTHENELSE Id="RDK:18895329">
 									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
+										<EXP><![CDATA[$=$IsEmpty(RueckgabeListe)]]></EXP>
 									</VALUECONDITION>
 									<GROUP Id="RDK:18895328" SubType="Then">
-										<SET_STRUCT Id="RDK:18895326" VarRef="SSGParameter" ClearAll="True" ListRef="RückgabeListe">
+										<SET_STRUCT Id="RDK:18895326" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
 											<PAR Name="Key">
 												<EXP><![CDATA[$C$shapeID]]></EXP>
 											</PAR>
@@ -13477,7 +13476,7 @@ me.x
 												<EXP><![CDATA[$C$WriteShapeDataFoerderer]]></EXP>
 											</PAR>
 											<PAR Name="InputExp">
-												<EXP><![CDATA[$=$RückgabeListe]]></EXP>
+												<EXP><![CDATA[$=$RueckgabeListe]]></EXP>
 											</PAR>
 											<PAR Name="ResultRef">
 												<EXP><![CDATA[$V$]]></EXP>
@@ -13501,7 +13500,7 @@ me.x
 										<EXP><![CDATA[$=$Param.Input]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+										<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
@@ -13513,16 +13512,16 @@ me.x
 										<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+										<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
 								<IFTHENELSE Id="RDK:18979617">
 									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
+										<EXP><![CDATA[$=$IsEmpty(RueckgabeListe)]]></EXP>
 									</VALUECONDITION>
 									<GROUP Id="RDK:18979616" SubType="Then">
-										<SET_STRUCT Id="RDK:18979614" VarRef="SSGParameter" ClearAll="True" ListRef="RückgabeListe">
+										<SET_STRUCT Id="RDK:18979614" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
 											<PAR Name="Key">
 												<EXP><![CDATA[$C$shapeID]]></EXP>
 											</PAR>
@@ -13538,7 +13537,7 @@ me.x
 												<EXP><![CDATA[$C$WriteShapeDataFoerderer]]></EXP>
 											</PAR>
 											<PAR Name="InputExp">
-												<EXP><![CDATA[$=$RückgabeListe]]></EXP>
+												<EXP><![CDATA[$=$RueckgabeListe]]></EXP>
 											</PAR>
 											<PAR Name="ResultRef">
 												<EXP><![CDATA[$V$]]></EXP>
@@ -13563,16 +13562,16 @@ me.x
 										<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+										<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
 								<IFTHENELSE Id="RDK:18503589">
 									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
+										<EXP><![CDATA[$=$IsEmpty(RueckgabeListe)]]></EXP>
 									</VALUECONDITION>
 									<GROUP Id="RDK:18503588" SubType="Then">
-										<SET_STRUCT Id="RDK:18503586" VarRef="SSGParameter" ClearAll="True" ListRef="RückgabeListe">
+										<SET_STRUCT Id="RDK:18503586" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
 											<PAR Name="Key">
 												<EXP><![CDATA[$C$shapeID]]></EXP>
 											</PAR>
@@ -13588,7 +13587,7 @@ me.x
 												<EXP><![CDATA[$C$WriteShapeDataFoerderer]]></EXP>
 											</PAR>
 											<PAR Name="InputExp">
-												<EXP><![CDATA[$=$RückgabeListe]]></EXP>
+												<EXP><![CDATA[$=$RueckgabeListe]]></EXP>
 											</PAR>
 											<PAR Name="ResultRef">
 												<EXP><![CDATA[$V$]]></EXP>
@@ -13607,16 +13606,16 @@ me.x
 										<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$RückgabeListe]]></EXP>
+										<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
 								<IFTHENELSE Id="RDK:18503603">
 									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
+										<EXP><![CDATA[$=$IsEmpty(RueckgabeListe)]]></EXP>
 									</VALUECONDITION>
 									<GROUP Id="RDK:18503602" SubType="Then">
-										<SET_STRUCT Id="RDK:18503600" VarRef="SSGParameter" ClearAll="True" ListRef="RückgabeListe">
+										<SET_STRUCT Id="RDK:18503600" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
 											<PAR Name="Key">
 												<EXP><![CDATA[$C$shapeID]]></EXP>
 											</PAR>
@@ -13632,7 +13631,7 @@ me.x
 												<EXP><![CDATA[$C$WriteShapeDataFoerderer]]></EXP>
 											</PAR>
 											<PAR Name="InputExp">
-												<EXP><![CDATA[$=$RückgabeListe]]></EXP>
+												<EXP><![CDATA[$=$RueckgabeListe]]></EXP>
 											</PAR>
 											<PAR Name="ResultRef">
 												<EXP><![CDATA[$V$]]></EXP>
@@ -13762,22 +13761,17 @@ 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="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="UebergabeListe">
-					<EXP><![CDATA[$=$Param.Input]]></EXP>
-					<PAR Name="AdvancedOptions" />
-				</SET>
 				<IFTHENELSE Id="RDK:18474143">
 					<VALUECONDITION Value="false">
-						<EXP><![CDATA[$=$IsEmpty(UebergabeListe)]]></EXP>
+						<EXP><![CDATA[$=$IsEmpty(Param.Input)]]></EXP>
 					</VALUECONDITION>
 					<GROUP Id="RDK:18474142" SubType="Then">
 						<SET Id="RDK:18474140" VarRef="shape_id">
-							<EXP><![CDATA[$=$UebergabeListe["key=shapeID"].Str]]></EXP>
+							<EXP><![CDATA[$=$Param.Input["key=shapeID"].Str]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
 						<SET Id="RDK:18474171" VarRef="shape_item">
@@ -15289,10 +15283,10 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						<EXP><![CDATA[$C$Foerderer]]></EXP>
 						<IFTHENELSE Id="RDK:19265784">
 							<VALUECONDITION Value="true" Oper="OR">
-								<EXP><![CDATA[$=$IsEmpty(shape_item.FoerdererDefinition.HoeheOben)]]></EXP>
+								<EXP><![CDATA[$=$IsEmpty(shape_item.FoerdererDefinition.H_1)]]></EXP>
 							</VALUECONDITION>
 							<VALUECONDITION Value="true" Oper="OR">
-								<EXP><![CDATA[$=$IsEmpty(shape_item.FoerdererDefinition.HoeheUnten)]]></EXP>
+								<EXP><![CDATA[$=$IsEmpty(shape_item.FoerdererDefinition.H_0)]]></EXP>
 							</VALUECONDITION>
 							<GROUP Id="RDK:19265783" SubType="Then">
 								<SET Id="RDK:19265782" VarRef="Param.Result">
@@ -15319,7 +15313,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<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">
@@ -15375,7 +15368,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<EXP><![CDATA[$=$shape_item]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
-						<CALLFUNCTION Id="RDK:19281369" Suppressed="True">
+						<CALLFUNCTION Id="RDK:19281369">
 							<PAR Name="FuncName">
 								<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
 							</PAR>
@@ -15682,21 +15675,13 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							</SET_STRUCT>
 						</GROUP>
 					</IFTHENELSE>
-					<SET Id="RDK:18375372" VarRef="Param.Result">
-						<EXP><![CDATA[$=$RueckgabeListe]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<EXIT_PROCESS Id="RDK:18435232" BreakType="4" ExitStatus="0" />
-				</GROUP>
-				<GROUP Id="RDK:18396546" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
-					<VAR Id="RDK:18396545" Name="RueckgabeListe" Type="SSGParameter[]" />
 				</GROUP>
 				<SET Id="RDK:18396528" VarRef="Param.Result">
 					<EXP><![CDATA[$=$RueckgabeListe]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
 			</FUNCTION>
-			<FUNCTION Id="RDK:19287453" Name="SetColorOfShape" InputTypeName="string" ResultTypeName="boolean">
+			<FUNCTION Id="RDK:19287453" Name="SetColorOfShape" InputTypeName="SSGParameter[]" 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" />
@@ -15843,13 +15828,17 @@ ShapeList["id="+Param.Input[1].shapeID].name
 				</GROUP>
 				<IFTHENELSE Id="RDK:19290423">
 					<VALUECONDITION Value="true">
-						<EXP><![CDATA[$=$IndexOfByFieldValue(ShapeList, "id", shape_item.id) > 0]]></EXP>
+						<EXP><![CDATA[$=$IndexOfByFieldValue(ShapeList, "id", shape_item.id) > -1]]></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>
+								<SET Id="RDK:19302622" VarRef="color">
+									<EXP><![CDATA[$C$#0E499F]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
 							</CASEGROUP>
 							<CASEGROUP Id="RDK:19290403" CaseType="0">
 								<EXP><![CDATA[$C$Eckrad]]></EXP>