From b6b5cd9808cbf3bab648efc0866ee8d8a0c49abb Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Mon, 4 Nov 2024 15:36:03 +0100
Subject: [PATCH] =?UTF-8?q?Status=C3=A4nderung=20wird=20nach=20jedem=202dl?=
 =?UTF-8?q?inked=20bzw.=20unlinked=20aufgerufen.=20L=C3=B6schen=20eines=20?=
 =?UTF-8?q?Objekts=20ruft=20die=20Callbackfunktion=20onRemoved=20auf,=20we?=
 =?UTF-8?q?lche=20das=20L=C3=B6schen=20jedes=20Items=20implementiert=20und?=
 =?UTF-8?q?=20jeweils=20auch=20die=20Objekte=20aus=20eventuell=20vorhanden?=
 =?UTF-8?q?en=20Strecken/Gruppen=20entfernt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 271 ++++++++++++++++++++++++++++++---------------------
 1 file changed, 162 insertions(+), 109 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 629c91d..d417182 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="m.stangl [ENTW-NB08]" ModDate="2024-10-31T11:16:32" LanguageVersion="2014.1.3.699" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-11-04T15:33:05" LanguageVersion="2014.1.3.699" />
 	<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">
@@ -1022,7 +1022,6 @@
 			<VAR Id="RDK:1007444" Name="Point2D" Type="Point2D" />
 			<VAR Id="RDK:1519830" Name="SessionZip" Type="string" />
 			<VAR Id="RDK:20857929" Name="groupStrings" Type="string[]" DesignTimeRemark="Enthält ; separtiert alle Strings, damit die Gruppen beschrieben werden können. a;b;c wäre z.B. eine Gruppe aus den Objekten a, b und c" />
-			<VAR Id="RDK:21866637" Name="cps_verbunden" Type="string" DesignTimeRemark="Generated by RD" />
 		</GROUP>
 		<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
 			<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -1159,7 +1158,7 @@
 							<EXP><![CDATA[$C$True]]></EXP>
 						</PAR>
 						<PAR Name="ShapeEvents">
-							<EXP><![CDATA[$C$INSERTED,PASTED,ROTATED,LINKED,STRETCHED,DOUBLECLICK,REGROUPED,POLYINSERTED]]></EXP>
+							<EXP><![CDATA[$C$INSERTED,PASTED,ROTATED,LINKED,STRETCHED,DOUBLECLICK,REGROUPED,POLYINSERTED,REMOVED]]></EXP>
 						</PAR>
 						<PAR Name="ShapeLibrary">
 							<EXP><![CDATA[$=$GS2DLibraryName]]></EXP>
@@ -10165,7 +10164,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 							<PAR Name="ExitCondExp">
 								<EXP><![CDATA[$V$]]></EXP>
 							</PAR>
-							<SET Id="RDK:20857952" VarRef="splitarr">
+							<SET Id="RDK:21993875" VarRef="splitarr">
 								<EXP><![CDATA[$=$splitStr(lineStr, ";")]]></EXP>
 								<PAR Name="AdvancedOptions" />
 							</SET>
@@ -16396,67 +16395,57 @@ me.x
 			</FUNCTION>
 			<FUNCTION Id="RDK:290" Name="OnEditor2DRemoved" InputTypeName="Editor2DEventArgumentsTypeList" Options="(TYPEFUNCTION)">
 				<GROUP Id="RDK:20931166" Name="Local Variables" SubType="VarSet" IncludeDate="0">
-					<VAR Id="RDK:20931168" Name="id0" Type="string">
-						<SET Id="RDK:20931172" VarRef="Me">
-							<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
-					</VAR>
-					<VAR Id="RDK:20931170" Name="id1" Type="string">
-						<SET Id="RDK:20931174" VarRef="Me">
-							<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
-					</VAR>
+					<VAR Id="RDK:21973665" Name="inputItem" Type="Editor2DEventArgumentsType" />
+					<VAR Id="RDK:21973663" Name="index" Type="integer" />
+					<VAR Id="RDK:21982051" Name="shapeId" Type="string" />
+					<VAR Id="RDK:21973697" Name="isUsed" Type="boolean" />
 				</GROUP>
-				<SET Id="RDK:20932541" VarRef="Shape_Prototype">
-					<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
-					<PAR Name="AdvancedOptions" />
-				</SET>
-				<IFTHENELSE Id="RDK:20931161">
-					<VALUECONDITION Value="true" Oper="OR">
-						<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family = "Kurve"]]></EXP>
-					</VALUECONDITION>
-					<VALUECONDITION Value="true" Oper="OR">
-						<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family = "Foerderer"]]></EXP>
-					</VALUECONDITION>
-					<VALUECONDITION Value="true" Oper="OR">
-						<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family = "Gefaellestrecke"]]></EXP>
-					</VALUECONDITION>
-					<VALUECONDITION Value="true">
-						<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family = "KurveFoerderer"]]></EXP>
-					</VALUECONDITION>
-					<GROUP Id="RDK:20931160" SubType="Then">
-						<IFTHENELSE Id="RDK:20931159">
-							<VALUECONDITION Value="true" Oper="OR">
-								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family = "Kurve"]]></EXP>
-							</VALUECONDITION>
-							<VALUECONDITION Value="true" Oper="OR">
-								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family = "Foerderer"]]></EXP>
-							</VALUECONDITION>
-							<VALUECONDITION Value="true" Oper="OR">
-								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family = "Gefaellestrecke"]]></EXP>
-							</VALUECONDITION>
-							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family = "KurveFoerderer"]]></EXP>
-							</VALUECONDITION>
-							<GROUP Id="RDK:20931158" SubType="Then">
-								<CALLFUNCTION Id="RDK:20931157" DesignTimeNotes="20231005 -1-">
-									<PAR Name="FuncName">
-										<EXP><![CDATA[$C$RemoveFromGroup]]></EXP>
-									</PAR>
-									<PAR Name="InputExp">
-										<EXP><![CDATA[$=$NewList(id0, id1)]]></EXP>
-									</PAR>
-									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$]]></EXP>
-									</PAR>
-									<PAR Name="Options" />
-								</CALLFUNCTION>
-							</GROUP>
-						</IFTHENELSE>
-					</GROUP>
-				</IFTHENELSE>
+				<FOREACHLOOP Id="RDK:21973623" ItemVarRef="inputItem" IndexVarRef="index">
+					<PAR Name="ArrayValueExp">
+						<EXP><![CDATA[$=$Param.Input]]></EXP>
+					</PAR>
+					<PAR Name="ExitCondExp">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<SET Id="RDK:21973684" VarRef="shapeId">
+						<EXP><![CDATA[$=$Param.Input[index].shapeId]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<CALLFUNCTION Id="RDK:21973693">
+						<PAR Name="FuncName">
+							<EXP><![CDATA[$C$IsInGroup]]></EXP>
+						</PAR>
+						<PAR Name="InputExp">
+							<EXP><![CDATA[$=$shapeId]]></EXP>
+						</PAR>
+						<PAR Name="ResultRef">
+							<EXP><![CDATA[$V$IsUsed]]></EXP>
+						</PAR>
+						<PAR Name="Options" />
+					</CALLFUNCTION>
+					<IFTHENELSE Id="RDK:21973668">
+						<VALUECONDITION Value="true">
+							<EXP><![CDATA[$=$IsUsed]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:21973669" SubType="Then">
+							<CALLFUNCTION Id="RDK:20931157">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$RemoveFromGroup]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$shapeId]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+						</GROUP>
+					</IFTHENELSE>
+					<REMOVE_ADD Id="RDK:21993883" ListRef="ShapeList" Expr="Me.id = shapeId">
+						<EXP />
+					</REMOVE_ADD>
+				</FOREACHLOOP>
 			</FUNCTION>
 			<FUNCTION Id="RDK:291" Name="OnEditor2DRotated" InputTypeName="Editor2DEventArgumentsTypeList" Options="(TYPEFUNCTION)" />
 			<FUNCTION Id="RDK:292" Name="OnEditor2DMoved" InputTypeName="Editor2DEventArgumentsTypeList" Options="(TYPEFUNCTION)" />
@@ -16975,18 +16964,6 @@ me.x
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
-								<CALLFUNCTION Id="RDK:19633575">
-									<PAR Name="FuncName">
-										<EXP><![CDATA[$C$SetStatus]]></EXP>
-									</PAR>
-									<PAR Name="InputExp">
-										<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
-									</PAR>
-									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$]]></EXP>
-									</PAR>
-									<PAR Name="Options" />
-								</CALLFUNCTION>
 							</GROUP>
 						</IFTHENELSE>
 						<IFTHENELSE Id="RDK:18827051">
@@ -17053,7 +17030,7 @@ me.x
 										<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
 									</PAR>
 									<PAR Name="MsgText">
-										<EXP><![CDATA[$C$connect not allowed. No Data set. Please unlik it again. ]]></EXP>
+										<EXP><![CDATA[$C$connect not allowed. No Data set. Please unlink it again. ]]></EXP>
 									</PAR>
 									<PAR Name="MsgStyle">
 										<EXP><![CDATA[$C$-1]]></EXP>
@@ -17099,6 +17076,27 @@ me.x
 									<PAR Name="Options" />
 								</CALLFUNCTION>
 							</GROUP>
+							<GROUP Id="RDK:21970781" SubType="Else">
+								<ACTION_CALL Id="RDK:21970780" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
+									<PAR Name="RDLibraryName">
+										<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+									</PAR>
+									<PAR Name="MsgText">
+										<EXP><![CDATA[$C$connect not allowed. No Data set. Please unlink it again. ]]></EXP>
+									</PAR>
+									<PAR Name="MsgStyle">
+										<EXP><![CDATA[$C$-1]]></EXP>
+									</PAR>
+									<PAR Name="BtnLayout">
+										<EXP><![CDATA[$C$-1]]></EXP>
+									</PAR>
+									<PAR Name="MsgCaption" />
+									<PAR Name="BaloonType" />
+									<PAR Name="BtnPressed">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+								</ACTION_CALL>
+							</GROUP>
 						</IFTHENELSE>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:18221764" CaseType="0">
@@ -17416,6 +17414,30 @@ me.x
 						<EXP />
 					</CASEGROUP>
 				</SELECTCASE>
+				<CALLFUNCTION Id="RDK:19633575">
+					<PAR Name="FuncName">
+						<EXP><![CDATA[$C$SetStatus]]></EXP>
+					</PAR>
+					<PAR Name="InputExp">
+						<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
+					</PAR>
+					<PAR Name="ResultRef">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</CALLFUNCTION>
+				<CALLFUNCTION Id="RDK:21970763">
+					<PAR Name="FuncName">
+						<EXP><![CDATA[$C$SetStatus]]></EXP>
+					</PAR>
+					<PAR Name="InputExp">
+						<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
+					</PAR>
+					<PAR Name="ResultRef">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</CALLFUNCTION>
 				<COMMENTS Id="RDK:21073064" DesignTimeRemark="Berechne die zweite Höhe der Gefällestrecke/Kurve/Förderer, wenn eine Höhe vorgegeben ist" />
 				<IFTHENELSE Id="RDK:21073054" Suppressed="True">
 					<VALUECONDITION Value="true" Oper="OR">
@@ -17513,28 +17535,28 @@ me.x
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:19961124" CaseType="0">
 						<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
-						<SET Id="RDK:19961199" VarRef="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].isDefined" DesignTimeRemark="Wenn die Höhen nicht definiert sind, wird der Flag isDefined auf false gesetzt.">
+						<SET Id="RDK:19961199" VarRef="ShapeList[&quot;id=&quot;+id0].isDefined" DesignTimeRemark="Wenn die Höhen nicht definiert sind, wird der Flag isDefined auf false gesetzt.">
 							<EXP><![CDATA[$=$False]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:19961131" CaseType="0">
 						<EXP><![CDATA[$C$Kurve]]></EXP>
-						<SET Id="RDK:19961202" VarRef="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].isDefined" DesignTimeRemark="Wenn die Höhen nicht definiert sind, wird der Flag isDefined auf false gesetzt.">
+						<SET Id="RDK:19961202" VarRef="ShapeList[&quot;id=&quot;+id0].isDefined" DesignTimeRemark="Wenn die Höhen nicht definiert sind, wird der Flag isDefined auf false gesetzt.">
 							<EXP><![CDATA[$=$False]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:21692272" CaseType="0">
 						<EXP><![CDATA[$C$KurveFoerderer]]></EXP>
-						<SET Id="RDK:21692271" VarRef="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].isDefined" DesignTimeRemark="Wenn die Höhen nicht definiert sind, wird der Flag isDefined auf false gesetzt.">
+						<SET Id="RDK:21692271" VarRef="ShapeList[&quot;id=&quot;+id0].isDefined" DesignTimeRemark="Wenn die Höhen nicht definiert sind, wird der Flag isDefined auf false gesetzt.">
 							<EXP><![CDATA[$=$False]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:19961166" CaseType="0">
 						<EXP><![CDATA[$C$Foerderer]]></EXP>
-						<SET Id="RDK:19961204" VarRef="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].isDefined" DesignTimeRemark="Wenn die Höhen nicht definiert sind, wird der Flag isDefined auf false gesetzt.">
+						<SET Id="RDK:19961204" VarRef="ShapeList[&quot;id=&quot;+id0].isDefined" DesignTimeRemark="Wenn die Höhen nicht definiert sind, wird der Flag isDefined auf false gesetzt.">
 							<EXP><![CDATA[$=$False]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
@@ -17577,6 +17599,18 @@ me.x
 						</CALLFUNCTION>
 					</GROUP>
 				</IFTHENELSE>
+				<CALLFUNCTION Id="RDK:21954678">
+					<PAR Name="FuncName">
+						<EXP><![CDATA[$C$SetStatus]]></EXP>
+					</PAR>
+					<PAR Name="InputExp">
+						<EXP><![CDATA[$=$id0]]></EXP>
+					</PAR>
+					<PAR Name="ResultRef">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</CALLFUNCTION>
 			</FUNCTION>
 			<FUNCTION Id="RDK:296" Name="OnEditor2DRegrouped" InputTypeName="Editor2DShapePropertyType" Options="(TYPEFUNCTION)">
 				<COMMENTS Id="RDK:32100" />
@@ -20504,15 +20538,18 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:19265781" CaseType="0">
 						<EXP><![CDATA[$C$Kurve]]></EXP>
-						<IFTHENELSE Id="RDK:19265780">
-							<VALUECONDITION Value="true" Oper="OR">
-								<EXP><![CDATA[$=$IsEmpty(shape_item.KurveDefinition.H_Anfang)]]></EXP>
+						<IFTHENELSE Id="RDK:21960976">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$Count(shape_item.links) = 2]]></EXP>
 							</VALUECONDITION>
-							<VALUECONDITION Value="true" Oper="OR">
-								<EXP><![CDATA[$=$IsEmpty(shape_item.KurveDefinition.H_Ende)]]></EXP>
-							</VALUECONDITION>
-							<GROUP Id="RDK:19265779" SubType="Then">
-								<SET Id="RDK:19265778" VarRef="Param.Result">
+							<GROUP Id="RDK:21960973" SubType="Then">
+								<SET Id="RDK:21960972" VarRef="Param.Result">
+									<EXP><![CDATA[$=$True]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:21960975" SubType="Else">
+								<SET Id="RDK:21960974" VarRef="Param.Result">
 									<EXP><![CDATA[$=$False]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
@@ -20521,15 +20558,18 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:21692318" CaseType="0">
 						<EXP><![CDATA[$C$KurveFoerderer]]></EXP>
-						<IFTHENELSE Id="RDK:21692317">
-							<VALUECONDITION Value="true" Oper="OR">
-								<EXP><![CDATA[$=$IsEmpty(shape_item.KurveFoerdererDefinition.H_Anfang)]]></EXP>
+						<IFTHENELSE Id="RDK:21960988">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$Count(shape_item.links) = 2]]></EXP>
 							</VALUECONDITION>
-							<VALUECONDITION Value="true" Oper="OR">
-								<EXP><![CDATA[$=$IsEmpty(shape_item.KurveFoerdererDefinition.H_Ende)]]></EXP>
-							</VALUECONDITION>
-							<GROUP Id="RDK:21692316" SubType="Then">
-								<SET Id="RDK:21692315" VarRef="Param.Result">
+							<GROUP Id="RDK:21960985" SubType="Then">
+								<SET Id="RDK:21960984" VarRef="Param.Result">
+									<EXP><![CDATA[$=$True]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:21960987" SubType="Else">
+								<SET Id="RDK:21960986" VarRef="Param.Result">
 									<EXP><![CDATA[$=$False]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
@@ -20538,15 +20578,18 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</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.H_1)]]></EXP>
+						<IFTHENELSE Id="RDK:21961013">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$Count(shape_item.links) = 2]]></EXP>
 							</VALUECONDITION>
-							<VALUECONDITION Value="true" Oper="OR">
-								<EXP><![CDATA[$=$IsEmpty(shape_item.FoerdererDefinition.H_0)]]></EXP>
-							</VALUECONDITION>
-							<GROUP Id="RDK:19265783" SubType="Then">
-								<SET Id="RDK:19265782" VarRef="Param.Result">
+							<GROUP Id="RDK:21961010" SubType="Then">
+								<SET Id="RDK:21961009" VarRef="Param.Result">
+									<EXP><![CDATA[$=$True]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:21961012" SubType="Else">
+								<SET Id="RDK:21961011" VarRef="Param.Result">
 									<EXP><![CDATA[$=$False]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
@@ -21698,6 +21741,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</SET>
 							</GROUP>
 						</IFTHENELSE>
+						<COMMENTS Id="RDK:21940039" DesignTimeRemark="Berechne Zustand und Höhen/Längen zum Vergleichen von Soll und Ist" />
 						<CALLFUNCTION Id="RDK:21920364">
 							<PAR Name="FuncName">
 								<EXP><![CDATA[$C$Calculate Foerderer]]></EXP>
@@ -21742,7 +21786,12 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</SET>
 							</GROUP>
 						</IFTHENELSE>
-						<SET Id="RDK:21920374" VarRef="ShapeList[&quot;id=&quot;+shapeId].z">
+						<COMMENTS Id="RDK:21940035" DesignTimeRemark="Setze den Zustand erst einmal auf ok, nachdem die Höhe definiert ist" />
+						<SET Id="RDK:21920374" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveDefinition.isOk">
+							<EXP><![CDATA[$C$True]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:21940029" VarRef="ShapeList[&quot;id=&quot;+shapeId].z">
 							<EXP><![CDATA[$=$ShapeList["id="+shapeId].KurveDefinition.H_Anfang/2 + ShapeList["id="+shapeId].KurveDefinition.H_Ende/2]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
@@ -21774,6 +21823,11 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</SET>
 							</GROUP>
 						</IFTHENELSE>
+						<COMMENTS Id="RDK:21940033" DesignTimeRemark="Setze den Zustand erst einmal auf ok, nachdem die Höhe definiert ist" />
+						<SET Id="RDK:21940031" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveFoerdererDefinition.isOk">
+							<EXP><![CDATA[$C$True]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
 						<SET Id="RDK:21920383" VarRef="ShapeList[&quot;id=&quot;+shapeId].z">
 							<EXP><![CDATA[$=$hoehe]]></EXP>
 							<PAR Name="AdvancedOptions" />
@@ -29277,6 +29331,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<PAR Name="Delta_h">
 						<EXP><![CDATA[$C$22]]></EXP>
 					</PAR>
+					<PAR Name="isOk" />
 				</SET_STRUCT>
 			</GROUP>
 			<GROUP Id="RDK:21692029" Name="KurveFoerderer" SubType="Generic">
@@ -29287,9 +29342,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</PAR>
 					<PAR Name="H_Anfang" />
 					<PAR Name="H_Ende" />
-					<PAR Name="Delta_h">
-						<EXP><![CDATA[$C$22]]></EXP>
-					</PAR>
+					<PAR Name="isOk" />
 				</SET_STRUCT>
 			</GROUP>
 			<GROUP Id="RDK:18118499" Name="Foerderer" SubType="Generic">