Sskf: update column R & S (#1946)

Author: TruongQuangSB

java/bundles/org.eclipse.set.feature.table.pt1/src/org/eclipse/set/feature/table/pt1/sskf/SskfTransformator.xtend

@@ -8,6 +8,7 @@
  */
 package org.eclipse.set.feature.table.pt1.sskf
 
+import java.math.BigDecimal
 import java.util.List
 import java.util.Set
 import org.eclipse.set.basis.Wrapper
@@ -40,6 +41,9 @@ import static extension org.eclipse.set.ppmodel.extensions.WKrGspKomponenteExten
  */
 class SskfTransformator extends AbstractPlanPro2TableModelTransformator {
 
+	// 1 Meter
+	static val BigDecimal MIN_GLEIS_SCHALTGRUPPE_OVERLAP_LENGTH = BigDecimal.ONE
+
 	new(Set<ColumnDescriptor> cols,
 		EnumTranslationService enumTranslationService, EventAdmin eventAdmin) {
 		super(cols, enumTranslationService, eventAdmin)
@@ -257,7 +261,7 @@ class SskfTransformator extends AbstractPlanPro2TableModelTransformator {
 			)
 
 			val List<Gleis_Schaltgruppe> schaltgruppen = fmaAnlage.
-				gleisSchaltgruppen
+				getGleisSchaltgruppen(MIN_GLEIS_SCHALTGRUPPE_OVERLAP_LENGTH)
 
 			// R: Sonstiges.OlA.Schaltgruppe
 			fillIterable(

java/bundles/org.eclipse.set.ppmodel.extensions/src/org/eclipse/set/ppmodel/extensions/FmaAnlageExtensions.xtend

@@ -21,6 +21,7 @@ import org.eclipse.set.model.planpro.Weichen_und_Gleissperren.Gleis_Abschluss
 import static extension org.eclipse.set.ppmodel.extensions.AussenelementansteuerungExtensions.*
 import static extension org.eclipse.set.ppmodel.extensions.BereichObjektExtensions.*
 import static extension org.eclipse.set.ppmodel.extensions.FmaKomponenteExtensions.*
+import java.math.BigDecimal
 
 /**
  * Diese Klasse erweitert {@link FMA_Anlage}.
@@ -107,11 +108,11 @@ class FmaAnlageExtensions extends BasisObjektExtensions {
 	 * 
 	 * @return the Gleisschaltgruppen intersecting the Gleisabschnitt of this FMA Anlage
 	 */
-	def static List<Gleis_Schaltgruppe> getGleisSchaltgruppen(
-		FMA_Anlage anlage) {
+	def static List<Gleis_Schaltgruppe> getGleisSchaltgruppen(FMA_Anlage anlage,
+		BigDecimal minOverlaplength) {
 		val gleisabschnitt = anlage.IDGleisAbschnitt?.value
 		return anlage.container.gleisSchaltgruppe.filter [
-			intersectsStrictly(gleisabschnitt)
+			getOverlappingLength(gleisabschnitt) > minOverlaplength
 		].toList
 	}