Index: vhDeploy/D20201020xInitieleSyncMVXSelectieKenmerken.cls.xml
===================================================================
diff -u -r62570 -r62715
--- vhDeploy/D20201020xInitieleSyncMVXSelectieKenmerken.cls.xml	(.../D20201020xInitieleSyncMVXSelectieKenmerken.cls.xml)	(revision 62570)
+++ vhDeploy/D20201020xInitieleSyncMVXSelectieKenmerken.cls.xml	(.../D20201020xInitieleSyncMVXSelectieKenmerken.cls.xml)	(revision 62715)
@@ -26,10 +26,8 @@
 	#dim Repository As DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.SelectieKenmerkenRepository = ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.SelectieKenmerkenRepository).%New()
 	#dim SelectieKenmerk As TECH.Iterator = Repository.GeefAlleMVXSelectiekenmerken()
 	#dim Producten As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
-	#dim Product As TECH.ListIterator
 	#dim SelectieKenmerkObject
 	#dim HalffabKlasse, Rol, Variant As %String
-	#dim ProdID As %Integer
 	
 	While (SelectieKenmerk.HasNext()) {
 		Set SelectieKenmerkObject = SelectieKenmerk.Next()
@@ -38,7 +36,7 @@
 		Set Rol = $Piece(SelectieKenmerkObject.KenmerkGroep,"_",3)		
 		Set HalffabKlasse = ..GeefKlasseNaamVanRol(Rol,Variant)
 		
-		If ($$$HasLength(HalffabKlasse)) {
+		If $$$HasLength(HalffabKlasse) {
 			Set Producten = ..GeefVolledigeProductenVanSelectieKenmerk(SelectieKenmerkObject,HalffabKlasse)
 		}
 	}
@@ -52,20 +50,31 @@
 <Implementation><![CDATA[
 	#dim Repository As DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.ProductPerSelectieKenmerkRepository = ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.ProductPerSelectieKenmerkRepository).%New(,,KlasseNaam)
 	#dim ProductIDsVanSelectieKenmerk As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
-	#dim Halffabist As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim HalffabList As %ListOfObjects = ##class(%ListOfObjects).%New()
 	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab
 	#dim Product As TECH.Iterator = Repository.GeefProductenVoorSelectiekenmerk()
+	#dim VorigeProductId As %Integer = 0	
 	
-	While (Product.HasNext()) {
-		Set Halffabist = ##class(%ListOfObjects).%New()
+	While (Product.HasNext()) {	
 		Set Halffab = Product.Next()
+		
+		If (VorigeProductId = 0) {
+			Set VorigeProductId = Halffab.ProductID
+		}
+		
+		If ($$$Not(VorigeProductId = Halffab.ProductID)) {
+			
+			Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.Halffabs).%New().SyncHalffabs(HalffabList)
+			Set VorigeProductId = Halffab.ProductID
+			Set HalffabList = ##class(%ListOfObjects).%New()
+		} 
+		
 		Set Halffab.GemaaktVoorKenmerkenSetID = $Piece(Halffab.GemaaktVoorKenmerkenSetID,".",1)
-		Do Halffabist.Insert(Halffab)
+		Do HalffabList.Insert(Halffab)
 		
-		Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.Halffabs).%New().SyncHalffabs(Halffabist)
-}
+	}	
+	Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.Halffabs).%New().SyncHalffabs(HalffabList)
 	
-	
 	Quit ProductIDsVanSelectieKenmerk
 ]]></Implementation>
 </Method>
Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml
===================================================================
diff -u -r62570 -r62715
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 62570)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 62715)
@@ -13,11 +13,17 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.impl.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <ReturnType>%Library.Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Connectie = ##class(%SQLGatewayConnection).%New()
 	Set ..Logger = ##class(vhLib.Logger).%New("DOTNET sync")
+	Set ..DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
  	Set sc = ..Connectie.GetConnection("DOTNET")
 	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
 	Quit $$$OK
@@ -38,26 +44,32 @@
 	#dim Rolstukje As %String
 	#dim TypeCode As %String
 	
-	Set It = ##class(TECH.ListIterator).%New(Halffabs)
-	While (It.HasNext()) {
-		#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = It.Next()
-		
-		Set Count = Count + 1
-		If (Count = 1) {
-			Set UnId = Halffab.GemaaktVoorKenmerkenSetID
-			#dim Klassenaam As %String = Halffab.%ClassName(1)
-			Set Rolstukje = ##class(TECH.StringUtils).GetLastPart(Klassenaam, ".")
-			Set TypeCode = $Piece(Klassenaam, ".", 7)
-		} Else {
-			If (Halffab.GemaaktVoorKenmerkenSetID '! UnId) {
-				Do ..Logger.Error("DotnetSync [HalffabSyncer]", "Halffab UnId wijkt af:" _ Halffab.GemaaktVoorKenmerkenSetID)
-				Throw ##class(TECH.Exceptions.InvalidInputException).%New("Halffabsyncer: alle halffabs moeten tot dezelfde kenmerkenset behoren")
+	try {
+		Set It = ##class(TECH.ListIterator).%New(Halffabs)
+		While (It.HasNext()) {
+			#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = It.Next()
+			
+			Set Count = Count + 1
+			If (Count = 1) {
+				Set UnId = Halffab.GemaaktVoorKenmerkenSetID
+				#dim Klassenaam As %String = Halffab.%ClassName(1)
+				Set Rolstukje = ##class(TECH.StringUtils).GetLastPart(Klassenaam, ".")
+				Set TypeCode = $Piece(Klassenaam, ".", 7)
+			} Else {
+				If (Halffab.GemaaktVoorKenmerkenSetID '! UnId) {
+					Do ..Logger.Error("DotnetSync [HalffabSyncer]", "Halffab UnId wijkt af:" _ Halffab.GemaaktVoorKenmerkenSetID)
+					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 ..SchrijfHalffab(Halffab, Klassenaam, Rolstukje, TypeCode)
 		}
-		Do ..Logger.Debug("DotnetSync [HalffabSyncer]", "Schrijf halffab UnId=" _ Halffab.GemaaktVoorKenmerkenSetID _ ": " _ Halffab.GeefOmschrijvingVoorDocs())
-		Do ..SchrijfHalffab(Halffab, Klassenaam, Rolstukje, TypeCode)
-	}
-	Do ..CommitNieuweVersie(UnId, Rolstukje, TypeCode)
+		
+		Do ..CommitNieuweVersie(UnId, Rolstukje, TypeCode)
+	} catch {
+		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		#dim Logger = ##class(vhLib.Logger).%New("Sync naar .Net heeft gefaald!").ErrorMail("Fout bij sync van halffabs naar .Net. " _Exceptie.ToString())
+	}	
 	Do ..Logger.Debug("DotnetSync [HalffabSyncer]", "Eind sync")
 ]]></Implementation>
 </Method>
@@ -81,6 +93,9 @@
 			
 			Set Waarde = $zobjproperty(Halffab, PropertyNaam)
 			If (Waarde '= "") {
+				If ((PropertyNaam = "GeldigVan") || (PropertyNaam = "GeldigTot"))  {
+					Set Waarde = ..DateTimeAPI.HorologToTimeStamp(Waarde)
+				}
 				Set IntoStuk = IntoStuk _ "," _ PropertyNaam
 				Set ValuesStuk = ValuesStuk _ ",'" _ Waarde _ "'"
 			}
@@ -95,6 +110,7 @@
 	// We gebruiken SCOPE_IDENTITY() voor de foreign key, dit is de autogenerated ID
 	// van de eerste INSERT.  De scope is hier de batch van queries
 	// (2 inserts gescheiden door ;).
+
 	Set IntoStuk = "INSERT INTO " _ ..GeefRoltabelNaam(Rolstukje, TypeCode) _ " (Id"
 	Set ValuesStuk = "VALUES (SCOPE_IDENTITY()"
 	
@@ -164,10 +180,7 @@
 <FormalSpec>Rolstukje:%String,TypeCode:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	// Voorlopig
-	//Quit "dbo.DOM_PM_Maatwerk_Calc_HF_Framework_" _ TypeCode _ "_" _ Rolstukje
-	Quit "dbo." _ TypeCode _ "_" _ Rolstukje
+<Implementation><![CDATA[	Quit "dbo." _ TypeCode _ "_" _ Rolstukje
 ]]></Implementation>
 </Method>