From f35c6f39f87fd6bd1c849be0919c8924d3f06b96 Mon Sep 17 00:00:00 2001
From: Yuelin Wang <y.wang@schoenenberger.de>
Date: Thu, 18 Apr 2024 09:48:59 +0200
Subject: [PATCH] Ueberpruefung der Tan-Wert bei Function Calculate Foerderer

---
 MAIN_SSG.rdx | 37 ++++++++++++++++++++++++++++++++-----
 1 file changed, 32 insertions(+), 5 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index eccc93e..c0ef205 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-04-16T12:15:23" LanguageVersion="2014.1.3.635" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="y.wang [ANGEBOT-NB02]" ModDate="2024-04-17T11:54:55" LanguageVersion="2014.1.3.635" />
 	<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">
@@ -784,7 +784,7 @@
 				<FIELD Id="RDK:1007391" Name="X" Type="double" />
 				<FIELD Id="RDK:1007392" Name="Y" Type="double" />
 			</TYPE>
-			<TYPE Id="RDK:1007741" Name="SSY_Shapes" Expanded="True" SubType="structure" HasArrayType="True">
+			<TYPE Id="RDK:1007741" Name="SSY_Shapes" SubType="structure" HasArrayType="True">
 				<TYPE_VALUES />
 				<FIELD Id="RDK:1007735" Name="name" Type="string" />
 				<FIELD Id="RDK:1007736" Name="ShapeID" Type="string" />
@@ -793,7 +793,7 @@
 				<FIELD Id="RDK:1007739" Name="Withdraw_Start" Type="double" />
 				<FIELD Id="RDK:1007740" Name="Withdraw_End" Type="double" />
 			</TYPE>
-			<TYPE Id="RDK:1345483" Name="InheritHeightType" Expanded="True" SubType="structure" DesignTimeNotes="20231005 -1-">
+			<TYPE Id="RDK:1345483" Name="InheritHeightType" SubType="structure" DesignTimeNotes="20231005 -1-">
 				<TYPE_VALUES />
 				<FIELD Id="RDK:1345484" Name="ParentIndex" Type="integer" />
 				<FIELD Id="RDK:1345485" Name="NewHoehe" Type="double" />
@@ -6321,8 +6321,12 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								<PAR Name="MsgText">
 									<EXP><![CDATA[$C$Die Winkel dürfen 90 Grad nicht überschreiten und die Gesamtlänge des Elements muss positiv sein.]]></EXP>
 								</PAR>
-								<PAR Name="MsgStyle" />
-								<PAR Name="BtnLayout" />
+								<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">
@@ -6336,6 +6340,29 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								<EXP><![CDATA[$=$IIF(HoeheOben>HoeheUnten, HoeheOben-HoeheUnten, HoeheUnten-HoeheOben)]]></EXP>
 								<PAR Name="AdvancedOptions" />
 							</SET>
+							<IFTHENELSE Id="RDK:18729636">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$-Delta_h/L1=Tan(DegToRad(winkel_s))]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:18729637" SubType="Then">
+									<ACTION_CALL Id="RDK:18729653" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
+										<PAR Name="RDLibraryName">
+											<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+										</PAR>
+										<PAR Name="MsgText">
+											<EXP><![CDATA[$C$HoeheDifferenz und Winkel der Strecke ergeben Division durch 0]]></EXP>
+										</PAR>
+										<PAR Name="MsgStyle" />
+										<PAR Name="BtnLayout" />
+										<PAR Name="MsgCaption" />
+										<PAR Name="BaloonType" />
+										<PAR Name="BtnPressed">
+											<EXP><![CDATA[$V$]]></EXP>
+										</PAR>
+									</ACTION_CALL>
+									<EXIT_PROCESS Id="RDK:18729654" BreakType="4" ExitStatus="0" />
+								</GROUP>
+							</IFTHENELSE>
 							<SET Id="RDK:18150160" VarRef="x_verhaeltnis">
 								<EXP><![CDATA[$=$(Tan(DegToRad(winkel_f))+Tan(DegToRad(winkel_s)))/(Delta_h/L1+Tan(DegToRad(winkel_s)))]]></EXP>
 								<PAR Name="AdvancedOptions" />