Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml
===================================================================
diff -u -r66356 -r66358
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 66356)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 66358)
@@ -92,77 +92,27 @@
 <Method name="SchrijfHalffab">
 <FormalSpec>Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab,Klassenaam:%String,Rolstukje:%String,TypeCode:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim PropertyNaam, Waarde As %String
+	
 	Set Klasse = ##class(%Dictionary.CompiledClass).%OpenId(Klassenaam)
 	Set Halffab.GemaaktVoorKenmerkenSetID = $Piece(Halffab.GemaaktVoorKenmerkenSetID,".",1)
 	
 	// Eerste ronde: properties van de basisklasse
 	// We gebruiken @@IDENTITY voor de foreign key, dit is de autogenerated ID
 	// van deze eerste INSERT. 
-	#dim DeclareStuk As %String = "DECLARE @HALFFAB_ID INT;"
-	#dim IntoStuk As %String = "INSERT INTO " _ ..GeefBasistabelNaam() _ " (ProductID,MyDiscriminator,Versie,LaatstAangepast"
-	#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()
-		Set PropertyNaam = Property.Name
-		Continue:((PropertyNaam = "KlasseName") || (PropertyNaam = "ProductID"))
-		If (Property.Origin = "DOM.PM.Maatwerk.Calc.HF.Halffab") {
-			Set PropertyNaam = Property.Name
-			
-			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 _ "'"
-			}
-		}
-	}
-	Set IntoStuk = IntoStuk _ ") "
-	Set ValuesStuk = ValuesStuk _ "); "
-	#dim AssignStuk As %String = "SET @HALFFAB_ID = @@IDENTITY;"
+	#dim DeclareStatement As %String = "DECLARE @HALFFAB_ID INT;"
+	#dim InsertStatementBasisKlasse As %String = ..GeefInsertStatementBasisKlasse(Halffab, Rolstukje, TypeCode, Klasse)	
+	#dim AssignStatement As %String = "SET @HALFFAB_ID = @@IDENTITY;"
 
-	#dim Statement As %String = DeclareStuk _ IntoStuk _ ValuesStuk _ AssignStuk
+	#dim Statement As %String = DeclareStatement _ InsertStatementBasisKlasse _ AssignStatement
 	
 	// Tweede ronde: Id in tussenliggende klasse toevoegen
-	Set IntoStuk = "INSERT INTO " _ ..GeefTussenliggendeTabelNaam(TypeCode) _ " (Id) "
-	Set ValuesStuk = "VALUES (@HALFFAB_ID);"
-	Set Statement = Statement _ IntoStuk _ ValuesStuk
-	
+	#dim InsertStatementTussenliggendeKlasse As %String = "INSERT INTO " _ ..GeefTussenliggendeTabelNaam(TypeCode) _ " (Id) VALUES (@HALFFAB_ID);"
+	Set Statement = Statement _ InsertStatementTussenliggendeKlasse
+		
 	// Derde ronde: properties van de afgeleide klasse
-	//  De scope is hier de batch van queries (2 inserts gescheiden door ;).
-	Set IntoStuk = "INSERT INTO " _ ..GeefRoltabelNaam(Rolstukje, TypeCode) _ " (Id"
-	Set ValuesStuk = "VALUES (@HALFFAB_ID"
-	
-	Set PropertiesIterator = ##class(TECH.ListIterator).%New(Klasse.Properties)
-	while (PropertiesIterator.HasNext()) {
-		Set Property = PropertiesIterator.Next()
-		If (Property.Origin = Klassenaam) {
-			Set PropertyNaam = Property.Name
-			Continue:(PropertyNaam = "ProductService")		//ProductService is een property bij LBX Geleider
-			Set Waarde = $zobjproperty(Halffab, PropertyNaam)
-			
-			If (Waarde '= "") {
-				If PropertyNaam = "RugWandMateriaal" {
-					Set PropertyNaam = "RugwandMateriaal"	
-				}
-				If ((PropertyNaam = "GlijderType") && (TypeCode = "TAOR")) {
-				Set PropertyNaam = "GeleiderType"
-				}
-				If ((PropertyNaam = "Ladehoogte") && (TypeCode = "TBX")) {
-				Set PropertyNaam = "LadeHoogte"
-				}
-				Set IntoStuk = IntoStuk _ ", " _ PropertyNaam
-				Set ValuesStuk = ValuesStuk _ ", '" _ Waarde _ "'"
-			}
-		}
-	}
-	Set IntoStuk = IntoStuk _ ") "
-	Set ValuesStuk = ValuesStuk _ ")"
-	
-	Set Statement = Statement _ IntoStuk _ ValuesStuk
+	// De scope is hier de batch van queries (3 inserts gescheiden door ;).
+	#dim InsertStatementAfgeleideKlasse As %String = ..GeefInsertStatementAfgeleideKlasse(Halffab, Rolstukje, TypeCode, Klasse, Klassenaam)
+	Set Statement = Statement _ InsertStatementAfgeleideKlasse
 
 	Do ..VoeruitSql(Statement)
 ]]></Implementation>
@@ -217,6 +167,79 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefInsertStatementBasisKlasse">
+<FormalSpec>Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab,Rolstukje:%String,TypeCode:%String,Klasse:%ObjectHandle</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PropertyNaam, Waarde As %String
+	#dim IntoStuk As %String = "INSERT INTO " _ ..GeefBasistabelNaam() _ " (ProductID,MyDiscriminator,Versie,LaatstAangepast"
+	#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()
+		Set PropertyNaam = Property.Name
+		Continue:((PropertyNaam = "KlasseName") || (PropertyNaam = "ProductID"))
+		If (Property.Origin = "DOM.PM.Maatwerk.Calc.HF.Halffab") {
+			Set PropertyNaam = Property.Name
+			
+			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 _ "'"
+			}
+		}
+	}
+	Set IntoStuk = IntoStuk _ ") "
+	Set ValuesStuk = ValuesStuk _ "); "
+	
+	Quit IntoStuk _ ValuesStuk
+]]></Implementation>
+</Method>
+
+<Method name="GeefInsertStatementAfgeleideKlasse">
+<FormalSpec>Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab,Rolstukje:%String,TypeCode:%String,Klasse:%ObjectHandle,Klassenaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PropertyNaam, Waarde As %String
+	#dim IntoStuk As %String = "INSERT INTO " _ ..GeefRoltabelNaam(Rolstukje, TypeCode) _ " (Id"
+	#dim ValuesStuk As %String = "VALUES (@HALFFAB_ID"
+	
+	Set PropertiesIterator = ##class(TECH.ListIterator).%New(Klasse.Properties)
+	while (PropertiesIterator.HasNext()) {
+		#dim Property As %Dictionary.CompiledProperty = PropertiesIterator.Next()
+		If (Property.Origin = Klassenaam) {
+			Set PropertyNaam = Property.Name
+			Continue:(PropertyNaam = "ProductService")		//ProductService is een property bij LBX Geleider
+			Set Waarde = $zobjproperty(Halffab, PropertyNaam)
+			
+			If (Waarde '= "") {
+				If PropertyNaam = "RugWandMateriaal" {
+					Set PropertyNaam = "RugwandMateriaal"	
+				}
+				If ((PropertyNaam = "GlijderType") && (TypeCode = "TAOR")) {
+				Set PropertyNaam = "GeleiderType"
+				}
+				If ((PropertyNaam = "Ladehoogte") && (TypeCode = "TBX")) {
+				Set PropertyNaam = "LadeHoogte"
+				}
+				Set IntoStuk = IntoStuk _ ", " _ PropertyNaam
+				Set ValuesStuk = ValuesStuk _ ", '" _ Waarde _ "'"
+			}
+		}
+	}
+	Set IntoStuk = IntoStuk _ ") "
+	Set ValuesStuk = ValuesStuk _ ")"
+	
+	Quit IntoStuk _ ValuesStuk
+]]></Implementation>
+</Method>
+
 <Method name="GeefTeVerwijderenIds">
 <FormalSpec>UnId:%String,Rolstukje:%String,TypeCode:%String</FormalSpec>
 <Private>1</Private>