From e4d25e07e98f7dd61ea36c170b702d77e74e4666 Mon Sep 17 00:00:00 2001
From: Yuelin Wang <y.wang@schoenenberger.de>
Date: Fri, 27 Sep 2024 12:35:39 +0200
Subject: [PATCH] =?UTF-8?q?Status=C3=A4nderung=20in=20Farbe=20angepasst?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 178 ++++++++++++++++++++++++++++++++++++---------------
 1 file changed, 127 insertions(+), 51 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 4ea95aa..b052ed4 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="y.wang [ANGEBOT-NB02]" ModDate="2024-09-26T16:04:33" LanguageVersion="2014.1.3.679" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="y.wang [ANGEBOT-NB02]" ModDate="2024-09-27T11:30:25" LanguageVersion="2014.1.3.679" />
 	<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">
@@ -76,7 +76,7 @@
 					<FIELD Id="RDK:302575" Name="n_Sep" Type="integer" />
 					<FIELD Id="RDK:302576" Name="n_Scan" Type="integer" />
 				</TYPE>
-				<TYPE Id="RDK:18732236" Name="KurveType" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:18732236" Name="KurveType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:18732225" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:18732226" Name="L1" Type="double" />
@@ -125,7 +125,7 @@
 					<FIELD Id="RDK:16525231" Name="Drehung" Type="integer" DesignTimeNotes="1= im Uhrzeigersinn=rechts&#xD;&#xA;-1= Gegen Uhrzeigersinn=links" />
 					<FIELD Id="RDK:16577441" Name="Beschreibung" Type="string" />
 				</TYPE>
-				<TYPE Id="RDK:79642" Name="SSG_ShapeType" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:79642" Name="SSG_ShapeType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:79643" Name="SivasNummer" Type="string" />
 					<FIELD Id="RDK:1561689" Name="Rotationsklasse" Type="string" />
@@ -140,7 +140,7 @@
 					<FIELD Id="RDK:16525361" Name="BTMTEntladungDefinition" Type="BTMTEntladungType" />
 					<FIELD Id="RDK:19961198" Name="isDefined" Type="boolean" />
 				</TYPE>
-				<TYPE Id="RDK:18530527" Name="SSG_ShapeType_limit" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:18530527" Name="SSG_ShapeType_limit" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:18530520" Name="KreiselDefinition" Type="KreiselType" />
 					<FIELD Id="RDK:18530521" Name="EckradDefinition" Type="EckradType" />
@@ -20874,7 +20874,43 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						</IFTHENELSE>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:19602977" CaseType="0">
-						<EXP><![CDATA[$C$Weiche]]></EXP>
+						<EXP><![CDATA[$C$Kurve]]></EXP>
+						<IFTHENELSE Id="RDK:21032034">
+							<VALUECONDITION Value="true" Oper="OR">
+								<EXP><![CDATA[$=$ShapeList[shapeList_idx].KurveDefinition.H_0> 0]]></EXP>
+							</VALUECONDITION>
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$ShapeList[shapeList_idx].KurveDefinition.H_1> 0]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:21032047" SubType="Then">
+								<CALLFUNCTION Id="RDK:21032046">
+									<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:21032054" SubType="Else">
+								<CALLFUNCTION Id="RDK:21032053">
+									<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:19602978" CaseType="0">
 						<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
@@ -21104,10 +21140,23 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:19435281" CaseType="0">
 						<EXP><![CDATA[$C$Kurve]]></EXP>
-						<SET Id="RDK:19435280" VarRef="color">
-							<EXP><![CDATA[$C$#6C6E70]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
+						<IFTHENELSE Id="RDK:21040948">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$shape_item.KurveDefinition.Art="Gefällestrecke"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:21040949" SubType="Then">
+								<SET Id="RDK:19435280" VarRef="color">
+									<EXP><![CDATA[$C$#6C6E70]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:21040950" SubType="Else">
+								<SET Id="RDK:21040958" VarRef="color">
+									<EXP><![CDATA[$C$#0E499F]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:19435283" CaseType="0">
 						<EXP><![CDATA[$C$Foerderer]]></EXP>
@@ -21392,7 +21441,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
 							</VALUECONDITION>
 							<GROUP Id="RDK:18827230" SubType="Then">
-								<SET Id="RDK:19223114" VarRef="item_0.KurveDefinition.H_1">
+								<SET Id="RDK:19223114" VarRef="item_0.KurveDefinition.H_0">
 									<EXP><![CDATA[$=$hoehe]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
@@ -21401,13 +21450,13 @@ ShapeList["id="+Param.Input[1].shapeID].name
 										<EXP><![CDATA[$=$Richtung=1]]></EXP>
 									</VALUECONDITION>
 									<GROUP Id="RDK:20622285" SubType="Then">
-										<SET Id="RDK:19223116" VarRef="item_0.KurveDefinition.H_0">
+										<SET Id="RDK:19223116" VarRef="item_0.KurveDefinition.H_1">
 											<EXP><![CDATA[$=$hoehe+KurveData_defaults.Delta_h]]></EXP>
 											<PAR Name="AdvancedOptions" />
 										</SET>
 									</GROUP>
 									<GROUP Id="RDK:20622286" SubType="Else">
-										<SET Id="RDK:20622290" VarRef="item_0.KurveDefinition.H_0">
+										<SET Id="RDK:20622290" VarRef="item_0.KurveDefinition.H_1">
 											<EXP><![CDATA[$=$hoehe-KurveData_defaults.Delta_h]]></EXP>
 											<PAR Name="AdvancedOptions" />
 										</SET>
@@ -21415,7 +21464,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</IFTHENELSE>
 							</GROUP>
 							<GROUP Id="RDK:18827232" SubType="Else">
-								<SET Id="RDK:18827241" VarRef="item_0.KurveDefinition.H0">
+								<SET Id="RDK:18827241" VarRef="item_0.KurveDefinition.H_1">
 									<EXP><![CDATA[$=$hoehe]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
@@ -21424,13 +21473,13 @@ ShapeList["id="+Param.Input[1].shapeID].name
 										<EXP><![CDATA[$=$Richtung=1]]></EXP>
 									</VALUECONDITION>
 									<GROUP Id="RDK:20622304" SubType="Then">
-										<SET Id="RDK:18827246" VarRef="item_0.KurveDefinition.H_1">
+										<SET Id="RDK:18827246" VarRef="item_0.KurveDefinition.H_0">
 											<EXP><![CDATA[$=$hoehe+KurveData_defaults.Delta_h]]></EXP>
 											<PAR Name="AdvancedOptions" />
 										</SET>
 									</GROUP>
 									<GROUP Id="RDK:20622305" SubType="Else">
-										<SET Id="RDK:20622315" VarRef="item_0.KurveDefinition.H_1">
+										<SET Id="RDK:20622315" VarRef="item_0.KurveDefinition.H_0">
 											<EXP><![CDATA[$=$hoehe-KurveData_defaults.Delta_h]]></EXP>
 											<PAR Name="AdvancedOptions" />
 										</SET>
@@ -21583,7 +21632,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<VAR Id="RDK:20622270" Name="richtung" Type="integer" />
 					<VAR Id="RDK:18741950" Name="RueckgabeListe" Type="SSGParameter[]" />
 					<VAR Id="RDK:18741959" Name="h1" Type="double" />
-					<VAR Id="RDK:18741961" Name="h0" Type="double" />
+					<VAR Id="RDK:18741961" Name="h2" Type="double" />
 				</GROUP>
 				<SET Id="RDK:18742630" VarRef="cpId">
 					<EXP><![CDATA[$=$Param.Input["key=cpId"].Str]]></EXP>
@@ -21601,7 +21650,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<EXP><![CDATA[$=$item.KurveDefinition.H_0]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
-						<SET Id="RDK:18827173" VarRef="h0">
+						<SET Id="RDK:18827173" VarRef="h2">
 							<EXP><![CDATA[$=$item.KurveDefinition.H_1]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
@@ -21617,7 +21666,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							</GROUP>
 							<GROUP Id="RDK:18895306" SubType="Else">
 								<SET Id="RDK:18895305" VarRef="hoehe">
-									<EXP><![CDATA[$=$h0]]></EXP>
+									<EXP><![CDATA[$=$h2]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</GROUP>
@@ -21629,21 +21678,21 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<EXP><![CDATA[$=$item.GefaelleDefinition.HoeheOben]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
-						<SET Id="RDK:18741954" VarRef="h0">
+						<SET Id="RDK:18741954" VarRef="h2">
 							<EXP><![CDATA[$=$item.GefaelleDefinition.HoeheUnten]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
 						<IFTHENELSE Id="RDK:20622273">
 							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$h0>h1]]></EXP>
+								<EXP><![CDATA[$=$h1>h2]]></EXP>
 							</VALUECONDITION>
-							<GROUP Id="RDK:20622274" SubType="Then">
+							<GROUP Id="RDK:20622274" SubType="Then" DesignTimeRemark="richtung=1, von cp1 nach cp2 abfallen">
 								<SET Id="RDK:20622279" VarRef="richtung">
 									<EXP><![CDATA[$=$1]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</GROUP>
-							<GROUP Id="RDK:20622275" SubType="Else">
+							<GROUP Id="RDK:20622275" SubType="Else" DesignTimeRemark="richtung=0, von cp2 nach cp1 abfallen">
 								<SET Id="RDK:20622281" VarRef="richtung">
 									<EXP><![CDATA[$=$0]]></EXP>
 									<PAR Name="AdvancedOptions" />
@@ -21674,32 +21723,63 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</IFTHENELSE>
 							</GROUP>
 							<GROUP Id="RDK:18912103" SubType="Else">
-								<IFTHENELSE Id="RDK:18912144" Suppressed="True">
-									<VALUECONDITION Value="true">
-										<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
-									</VALUECONDITION>
-									<GROUP Id="RDK:18912141" SubType="Then">
-										<SET Id="RDK:18912142" VarRef="hoehe">
-											<EXP><![CDATA[$=$h0+item.GefaelleDefinition.H_th]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-									</GROUP>
-									<GROUP Id="RDK:18912143" SubType="Else">
-										<SET Id="RDK:18912140" VarRef="hoehe">
-											<EXP><![CDATA[$=$h1- item.GefaelleDefinition.H_th]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-									</GROUP>
-								</IFTHENELSE>
+								<COMMENTS Id="RDK:21041036" DesignTimeRemark="//Gefällehoehe sind nicht definiert." />
+								<ACTION_CALL Id="RDK:21041038" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
+									<PAR Name="RDLibraryName">
+										<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+									</PAR>
+									<PAR Name="MsgText">
+										<EXP><![CDATA[$C$Hoehe der Gefällestrecke sind nicht definiert.]]></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>
+								<SET Id="RDK:21041040" VarRef="hoehe">
+									<EXP><![CDATA[$=$0]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
 							</GROUP>
 						</IFTHENELSE>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:18741926" CaseType="0">
 						<EXP><![CDATA[$C$Foerderer]]></EXP>
-						<SET Id="RDK:18741965" VarRef="hoehe_unten" Suppressed="True">
-							<EXP><![CDATA[$=$IIF(item.FoerdererDefinition.H_1>item.FoerdererDefinition.H_0, item.FoerdererDefinition.H_0, item.FoerdererDefinition.H_1)]]></EXP>
+						<SET Id="RDK:21040987" VarRef="h1">
+							<EXP><![CDATA[$=$item.FoerdererDefinition.H_1]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
+						<SET Id="RDK:21040989" VarRef="h2">
+							<EXP><![CDATA[$=$item.FoerdererDefinition.H_0]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<IFTHENELSE Id="RDK:21040993">
+							<VALUECONDITION Value="true" Oper="OR">
+								<EXP><![CDATA[$=$h1>h2 and item.FoerdererDefinition.Richtung=0]]></EXP>
+							</VALUECONDITION>
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$h1<h2 and item.FoerdererDefinition.Richtung=1]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:21041005" SubType="Then" DesignTimeRemark="richtung=1, von cp1 nach cp2 abfallen/aufsteigen">
+								<SET Id="RDK:21041028" VarRef="richtung">
+									<EXP><![CDATA[$=$1]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<GROUP Id="RDK:21041032" SubType="Else" DesignTimeRemark="richtung=0, von cp2 nach cp1 abfallen/ aufsteigen">
+								<SET Id="RDK:21041031" VarRef="richtung">
+									<EXP><![CDATA[$=$0]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+						</IFTHENELSE>
 						<IFTHENELSE Id="RDK:18928848">
 							<VALUECONDITION Value="true">
 								<EXP><![CDATA[$=$item.FoerdererDefinition.LH_fits]]></EXP>
@@ -21720,10 +21800,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
 											<EXP><![CDATA[$=$item.FoerdererDefinition.H_0]]></EXP>
 											<PAR Name="AdvancedOptions" />
 										</SET>
-										<SET Id="RDK:18741963" VarRef="Fahrtrichtung" Suppressed="True">
-											<EXP><![CDATA[$=$IIF(item.FoerdererDefinition.H_1>item.FoerdererDefinition.H_0, item.FoerdererDefinition.H_1, item.FoerdererDefinition.H_0)]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
 									</GROUP>
 								</IFTHENELSE>
 							</GROUP>
@@ -21754,10 +21830,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</SET>
 							</GROUP>
 						</IFTHENELSE>
-						<SET Id="RDK:18753165" VarRef="hoehe" Suppressed="True">
-							<EXP><![CDATA[$=$IIF(hoehe_oben<0.001, StrToDbl(hoehe_unten), StrToDbl(hoehe_oben))]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:18741920" CaseType="1">
 						<EXP />
@@ -26771,8 +26843,12 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<PAR Name="L1">
 						<EXP><![CDATA[$C$628]]></EXP>
 					</PAR>
-					<PAR Name="H_0" />
-					<PAR Name="H_1" />
+					<PAR Name="H_0">
+						<EXP><![CDATA[$C$0]]></EXP>
+					</PAR>
+					<PAR Name="H_1">
+						<EXP><![CDATA[$C$-22]]></EXP>
+					</PAR>
 					<PAR Name="Delta_h">
 						<EXP><![CDATA[$C$22]]></EXP>
 					</PAR>