Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml
===================================================================
diff -u -r63413 -r63676
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 63413)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 63676)
@@ -45,9 +45,11 @@
 	#dim TypeCode As %String
 	
 	try {
+		#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = Halffabs.GetAt(1)
+		Set Halffabs = ..GeefVolledigeHalffabListVanProductVoorRol(Halffab.%ClassName(1), $Piece(Halffab.GemaaktVoorKenmerkenSetID,".",1))		//Sommige halffabs hebben meerdere lijnen in vhintra voor zelfde kenmer. Zonder dit zou een lijn worden toegevoegd en al de rest wordt iedere keer verwijderd
 		Set It = ##class(TECH.ListIterator).%New(Halffabs)
 		While (It.HasNext()) {
-			#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = It.Next()
+			Set Halffab = It.Next()
 			
 			Set Count = Count + 1
 			If (Count = 1) {
@@ -61,7 +63,7 @@
 					Throw ##class(TECH.Exceptions.InvalidInputException).%New("Halffabsyncer: alle halffabs moeten tot dezelfde kenmerkenset behoren")
 				}
 			}
-			Do ..Logger.Debug("DotnetSync [HalffabSyncer]", "Schrijf halffab UnId=" _ Halffab.GemaaktVoorKenmerkenSetID _ ": " _ Halffab.GeefOmschrijvingVoorDocs())
+			Do ..Logger.Debug("DotnetSync [HalffabSyncer]", "Schrijf halffab UnId=" _ $Piece(Halffab.GemaaktVoorKenmerkenSetID,".",1) _ ": " _ Halffab.GeefOmschrijvingVoorDocs())
 			Do ..SchrijfHalffab(Halffab, Klassenaam, Rolstukje, TypeCode)
 		}
 		
@@ -204,6 +206,31 @@
 	Quit res
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVolledigeHalffabListVanProductVoorRol">
+<FormalSpec>KlasseNaam:%String,ProductID:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set DynamischeRepository = ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.ProductPerSelectieKenmerkRepository).%New(,,KlasseNaam)
+	
+	#dim ProductIDsVanSelectieKenmerk As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim HalffabList As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab
+	#dim OrderStatement As %String = "ORDER BY GemaaktVoorKenmerkenSetID"
+	#dim Product As TECH.Iterator = DynamischeRepository.ZoekProductenVoorSelectiekenmerk(OrderStatement)
+	
+	While (Product.HasNext()) {	
+		Set Halffab = Product.Next()
+		
+		If ($Piece(Halffab.GemaaktVoorKenmerkenSetID,".",1) = ProductID) {
+			Set Halffab.GemaaktVoorKenmerkenSetID = $Piece(Halffab.GemaaktVoorKenmerkenSetID,".",1)
+			Do HalffabList.Insert(Halffab)
+		}
+	}
+	
+	Quit HalffabList
+]]></Implementation>
+</Method>
 </Class>