Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/BewerkingsInfo.cls.xml
===================================================================
diff -u -r62754 -r62769
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/BewerkingsInfo.cls.xml	(.../BewerkingsInfo.cls.xml)	(revision 62754)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/BewerkingsInfo.cls.xml	(.../BewerkingsInfo.cls.xml)	(revision 62769)
@@ -37,12 +37,10 @@
 	Do ..Logger.Debug("DotnetSync [BewerkingsInfoSyncer]", "Schrijf BewerkingsInfo met ProductId = " _ BewerkingsInfo.ProductID _ " en bewerkingDimensie = "_BewerkingsInfo.BewerkingDimensie)
 	
 	try {
-		//Do ##class(Tools.Wlip).%New(110).ObjToText(BewerkingsInfo)
 		Do ..SchrijfBewerkingsInfo(BewerkingsInfo)		
 		Do ..CommitNieuweVersie(BewerkingsInfo)
 	} catch {
 		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Do ##class(Tools.Wlip).%New(110).String(Exceptie.ToString())
 		#dim Logger = ##class(vhLib.Logger).%New("Sync naar .Net heeft gefaald!").ErrorMail("Fout bij sync van BewerkingsInfo naar .Net. " _Exceptie.ToString())
 	}
 	
@@ -57,22 +55,51 @@
 	Set BewerkingsCalculatorKlasse = ##class(%Dictionary.CompiledClass).%OpenId("DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsCalculator")
 	Set BewerkingsInfoKlasse = ##class(%Dictionary.CompiledClass).%OpenId("DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo")
 	
-	#dim IntoStuk As %String = "INSERT INTO " _ ..GeefBasistabelNaam() _ " (AantalGedeeltes,Discriminator,MaximumPercentage,BrutoAfmetingHalffabrikaat"
+	#dim IntoStuk As %String = "INSERT INTO " _ ..GeefBasistabelNaam() _ " (AantalGedeeltes,Discriminator,MaximumPercentage,BrutoAfmetingHalffabrikaat,BrutoPercentage,BrutoVast,NettoAfmetingHalffabrikaat,UitvalPercentage,UitvalVast"
 	#dim ValuesStuk As %String = "VALUES (" _ ..GeefAantalGedeeltes(BewerkingsInfo) _ ",'" _ ..GeefDiscriminator(BewerkingsInfo) _ "'," _ ..GeefMaximumPercentage(BewerkingsInfo) _ "," _ BewerkingsInfo.BewerkingsCalculator.GeefBrutoAfmetingHalffabrikaat() 
+	
+	If (BewerkingsInfo.BewerkingsCalculator.BrutoPercentage = "") {
+		Set ValuesStuk = ValuesStuk _ "," _ "0.00"_""
+	} Else {
+		Set ValuesStuk = ValuesStuk _ ","_ BewerkingsInfo.BewerkingsCalculator.BrutoPercentage
+	}
+	
+	If (BewerkingsInfo.BewerkingsCalculator.BrutoVast = "") {
+		Set ValuesStuk = ValuesStuk _ "," _ "0.00"_""
+	} Else {
+		Set ValuesStuk = ValuesStuk _ ","_ BewerkingsInfo.BewerkingsCalculator.BrutoVast
+	}
+	
+	If (BewerkingsInfo.BewerkingsCalculator.NettoAfmetingHalffabrikaat = "") {
+		Set ValuesStuk = ValuesStuk _ "," _ "0.00"_""
+	} Else {
+		Set ValuesStuk = ValuesStuk _ ","_ BewerkingsInfo.BewerkingsCalculator.NettoAfmetingHalffabrikaat
+	}
+	
+	If (BewerkingsInfo.BewerkingsCalculator.UitvalPercentage = "") {
+		Set ValuesStuk = ValuesStuk _ "," _ "0.00"_""
+	} Else {
+		Set ValuesStuk = ValuesStuk _ ","_ BewerkingsInfo.BewerkingsCalculator.UitvalPercentage
+	}
+	
+	If (BewerkingsInfo.BewerkingsCalculator.UitvalVast = "") {
+		Set ValuesStuk = ValuesStuk _ "," _ "0.00"_""
+	} Else {
+		Set ValuesStuk = ValuesStuk _ ","_ BewerkingsInfo.BewerkingsCalculator.UitvalVast
+	}
+	
 	Set PropertiesIterator = ##class(TECH.ListIterator).%New(BewerkingsCalculatorKlasse.Properties)
 	while (PropertiesIterator.HasNext()) {
 		#dim Property As %Dictionary.CompiledProperty = PropertiesIterator.Next()
 		Set PropertyNaam = Property.Name
 		
-		Continue:((PropertyNaam = "BrutoAfmetingHalffabrikaat") || (PropertyNaam = "%Concurrency") || (PropertyNaam = "%%OID"))
+		Continue:(##class(TECH.StringUtils).Equals(PropertyNaam,"BrutoAfmetingHalffabrikaat","%Concurrency","%%OID","BrutoPercentage","BrutoVast","NettoAfmetingHalffabrikaat", "UitvalPercentage", "UitvalVast")) 
 		
 		Set PropertyNaam = Property.Name
 		
 		Set Waarde = $zobjproperty(BewerkingsInfo.BewerkingsCalculator, PropertyNaam)
 		If (Waarde '= "") { //enkel voor waarden van type int -> Strings toevoegen in intostuk en valuesstuk
-			If ((PropertyNaam = "GeldigVan") || (PropertyNaam = "GeldigTot"))  {
-					Set Waarde = ..DateTimeAPI.HorologToTimeStamp(Waarde)
-				}
+			
 			Set IntoStuk = IntoStuk _ "," _ PropertyNaam
 			Set ValuesStuk = ValuesStuk _ "," _ Waarde _ ""
 		}
@@ -98,6 +125,9 @@
 		Set Waarde = $zobjproperty(BewerkingsInfo, PropertyNaam)
 		Continue:((PropertyNaam = "BewerkingsCalculator") || (PropertyNaam = "%Concurrency") || (PropertyNaam = "%%OID"))
 		If (Waarde '= "") {
+			If ((PropertyNaam = "GeldigVan") || (PropertyNaam = "GeldigTot"))  {
+				Set Waarde = ..DateTimeAPI.HorologToTimeStamp(Waarde)
+			}
 			Set IntoStuk = IntoStuk _ ", " _ PropertyNaam
 			Set ValuesStuk = ValuesStuk _ ", '" _ Waarde _ "'"
 		}
@@ -118,36 +148,22 @@
 	
 	Set Statement = "BEGIN TRAN;"
 	
-	Set Statement = Statement _ "DELETE b FROM "  _ ..GeefBewerkingInfotabelNaam() _ " b "_ 
-		"WHERE b.Versie = 0 AND Variant = '"_BewerkingsInfo.Variant_
-		"' AND Familie = '"_BewerkingsInfo.Familie_
-		"' AND ProductID = "_BewerkingsInfo.ProductID_
-		" AND BewerkingDimensie = '"_BewerkingsInfo.BewerkingDimensie_"';"
-		
+	
 	Set Statement = Statement _ "DELETE b FROM "  _ ..GeefBasistabelNaam() _ " b "_
 		"WHERE b.Id IN (SELECT BewerkingCalculator_Id from dbo.BewerkingInfo WHERE Variant = '"_BewerkingsInfo.Variant_
 		"' AND Familie = '"_BewerkingsInfo.Familie_
 		"' AND ProductID = "_BewerkingsInfo.ProductID_
-		" AND BewerkingDimensie = '"_BewerkingsInfo.BewerkingDimensie_"');"
-		
-		
-	/*
-	Set Statement = Statement _ "UPDATE "  _ ..GeefBasistabelNaam() _
-		" SET Versie = 0 " _
-		"WHERE Versie=1 AND Id IN (SELECT BewerkingCalculator_Id from "_..GeefBewerkingInfotabelNaam()_" WHERE Variant = '"_BewerkingsInfo.Variant_
-		"' AND Familie = '"_BewerkingsInfo.Familie_
-		"' AND ProductID = "_BewerkingsInfo.ProductID_
-		" AND BewerkingDimensie = '"_BewerkingsInfo.BewerkingDimensie_"');"
-	*/
+		" AND BewerkingDimensie = '"_BewerkingsInfo.BewerkingDimensie_"' AND Versie = 0);"
 	
-	
 	Set Statement = Statement _ "UPDATE "  _ ..GeefBewerkingInfotabelNaam() _ 
 		" SET Versie = 0 " _
 		"WHERE Versie = 1 AND Variant = '"_BewerkingsInfo.Variant_
 		"' AND Familie = '"_BewerkingsInfo.Familie_
 		"' AND ProductID = "_BewerkingsInfo.ProductID_
 		" AND BewerkingDimensie = '"_BewerkingsInfo.BewerkingDimensie_"';"
-
+		
+	Set Statement = Statement _ " COMMIT TRAN"
+	
 	Do ..VoeruitSql(Statement)
 ]]></Implementation>
 </Method>