Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml
===================================================================
diff -u -r62908 -r63002
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 62908)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 63002)
@@ -82,7 +82,7 @@
 	Set Halffab.GemaaktVoorKenmerkenSetID = $Piece(Halffab.GemaaktVoorKenmerkenSetID,".",1)
 	// Eerste ronde: properties van de basisklasse
 	#dim IntoStuk As %String = "INSERT INTO " _ ..GeefBasistabelNaam() _ " (ProductID,MyDiscriminator,Versie,LaatstAangepast"
-	#dim ValuesStuk As %String = "VALUES ('" _ Halffab.ProductID _ "','" _ TypeCode _ "_" _ Rolstukje _ "'," _ 1 _ ",'" _ ..GeefHuidigeTimeStamp()_"'"
+	#dim ValuesStuk As %String = "VALUES ('" _ Halffab.GeefProductID() _ "','" _ TypeCode _ "_" _ Rolstukje _ "'," _ 1 _ ",'" _ ..GeefHuidigeTimeStamp()_"'"
 	Set PropertiesIterator = ##class(TECH.ListIterator).%New(Klasse.Properties)
 	while (PropertiesIterator.HasNext()) {
 		#dim Property As %Dictionary.CompiledProperty = PropertiesIterator.Next()