Index: APPS/PM/Maatwerk/MaatwerkService.cls.xml
===================================================================
diff -u -r29234 -r31726
--- APPS/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 29234)
+++ APPS/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 31726)
@@ -14,10 +14,12 @@
 <Method name="BewaarMaatwerkAanpassingOpProduct">
 <FormalSpec>ProductID:%String,AanpassingNaam:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set SpecialsEditorService = ##class(APPS.PM.Specials.SpecialsEditorService).%New()
-	Set AanpassingOpProduct = ##class(DOM.PM.Maatwerk.Aanpassing.impl.AanpassingOpProduct).%New()
+	#dim SpecialsEditorService As APPS.PM.Specials.SpecialsEditorService = ##class(APPS.PM.Specials.SpecialsEditorService).%New()
+	#dim AanpassingOpProduct As DOM.PM.Maatwerk.Aanpassing.impl.AanpassingOpProduct = ##class(DOM.PM.Maatwerk.Aanpassing.impl.AanpassingOpProduct).%New()
+	
 	Set AanpassingOpProduct.ProductID = ProductID
 	Set AanpassingOpProduct.Aanpassing = SpecialsEditorService.GeefMaatwerkAanpassing(AanpassingNaam)
+	
 	Do AanpassingOpProduct.Save()
 ]]></Implementation>
 </Method>
@@ -27,21 +29,20 @@
 <ReturnType>APPS.PM.Maatwerk.dto.ProductieOmschrijving</ReturnType>
 <Implementation><![CDATA[
 	#dim Resultaat As %String = ""
-	Set HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(MaatwerkType.Familie,MaatwerkType.Variant,..GeefBerekeningSpecificatie())
+	#dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefHalffabContextVoorMaatwerkType(MaatwerkType)
 	#dim HalffabClassNameFactory As DOM.PM.Maatwerk.Calc.HF.HalffabClassNameFactory = HalffabContext.GeefHalffabSpec().GeefHalffabClassNameFactory()
 	
-	
-	If (HalffabClassNameFactory.BestaatHalffabKlasseVoor(Rol))
-	{
-		#dim HalffabClassName As %String = HalffabClassNameFactory.GeefHalffabKlasseNaamVoor(Rol)
-		Set Resultaat = $ClassMethod(HalffabClassName,"GeefKorteVersieKlasseNaam") _ ": "
+	If (HalffabClassNameFactory.BestaatHalffabKlasseVoor(Rol)) {
+		Set Resultaat = $ClassMethod(HalffabClassNameFactory.GeefHalffabKlasseNaamVoor(Rol), "GeefKorteVersieKlasseNaam") _ ": "
 	}
+	
 	#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID)
 	Set Resultaat = Resultaat _ Product.GeefOmschrijving()
 	
-	Set ProductieOmschrijving = ##class(APPS.PM.Maatwerk.dto.ProductieOmschrijving).%New()
+	#dim ProductieOmschrijving As APPS.PM.Maatwerk.dto.ProductieOmschrijving = ##class(APPS.PM.Maatwerk.dto.ProductieOmschrijving).%New()
 	Set ProductieOmschrijving.OmschrijvingVoorDocs = Resultaat
 	Set ProductieOmschrijving.OmschrijvingVoorPicking = Resultaat
+	
 	Quit ProductieOmschrijving
 ]]></Implementation>
 </Method>
@@ -57,15 +58,15 @@
 <FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,MaatwerkAanpassing:DOM.PM.Maatwerk.Aanpassing.dto.MaatwerkAanpassing="",KlantID:DOM.VKP.VanHoeckeKlantID="6819",Aantal:%Integer=1</FormalSpec>
 <ReturnType>APPS.PM.Maatwerk.dto.MaatwerkDetails</ReturnType>
 <Implementation><![CDATA[
-	Set IngegevenKenmerkenConverter = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New()
+	#dim IngegevenKenmerkenConverter As APPS.PM.Maatwerk.IngegevenKenmerkenConverter = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New()
 	#dim IngegevenKenmerkenDomain As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = IngegevenKenmerkenConverter.NaarObject(IngegevenKenmerken)
 	#dim KenmerkenNietVolledigMelding As %String = ..GeefKenmerkenNietVolledigMelding(IngegevenKenmerken)
-
 	#dim Resultaat As APPS.PM.Maatwerk.dto.MaatwerkDetails = ..GeefMaatwerkDetailsVoorDomeinKenmerken(IngegevenKenmerkenDomain, MaatwerkAanpassing, KlantID , Aantal)
 
-	If $L(KenmerkenNietVolledigMelding) {
+	If $Length(KenmerkenNietVolledigMelding) {
 		Set Resultaat.ProbleemRapport = KenmerkenNietVolledigMelding _ $$$CRLF _ Resultaat.ProbleemRapport
 	}
+	
 	Quit Resultaat
 ]]></Implementation>
 </Method>
@@ -76,9 +77,11 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim KenmerkenNietVolledigMelding As %String = ""
-	If ('IngegevenKenmerken.IsVolledig()) {
+	
+	If $$$Not(IngegevenKenmerken.IsVolledig()) {
 		Set KenmerkenNietVolledigMelding = "Niet alle vereiste kenmerken zijn ingevuld.  Een correcte berekening is daarom onmogelijk."
 	}
+	
 	Quit KenmerkenNietVolledigMelding
 ]]></Implementation>
 </Method>
@@ -87,43 +90,38 @@
 <FormalSpec>IngegevenKenmerkenDomain:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,MaatwerkAanpassing:DOM.PM.Maatwerk.Aanpassing.dto.MaatwerkAanpassing="",KlantID:DOM.VKP.VanHoeckeKlantID,Aantal:%Integer=1</FormalSpec>
 <ReturnType>APPS.PM.Maatwerk.dto.MaatwerkDetails</ReturnType>
 <Implementation><![CDATA[
-	Set MaatwerkDetails = ##class(APPS.PM.Maatwerk.dto.MaatwerkDetails).%New()
+	#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.MaatwerkDetails = ##class(APPS.PM.Maatwerk.dto.MaatwerkDetails).%New()
 	#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantID)
-	#dim BerekeningSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningSpecificatie(PartijID,Aantal)
-
-	Set HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(IngegevenKenmerkenDomain.GeefFamilie(), IngegevenKenmerkenDomain.GeefVariant(),BerekeningSpecificatie)
+	#dim BerekeningSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningSpecificatie(PartijID, Aantal)
+	#dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefHalffabContextVoorIngegevenKenmerken(IngegevenKenmerkenDomain, BerekeningSpecificatie)
 	#dim HalffabSpec As DOM.PM.Maatwerk.Calc.HF.HalffabSpec = HalffabContext.GeefHalffabSpec()
-	
 	#dim IngegevenKenmerkenAPI As DOM.PM.IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()
-	Set IngegevenKenmerkenDomain = IngegevenKenmerkenAPI.GeefIngegevenKenmerkenVersie(IngegevenKenmerkenDomain, HalffabSpec.GeefVersieNrIngegevenKenmerken())
-	
 	#dim Problemen As list of %String = ##class(%ListOfDataTypes).%New()
 	
-	Try
-	{
+	Set IngegevenKenmerkenDomain = IngegevenKenmerkenAPI.GeefIngegevenKenmerkenVersie(IngegevenKenmerkenDomain, HalffabSpec.GeefVersieNrIngegevenKenmerken())
+
+	Try {
 		Do HalffabSpec.BerekenHalffabDetails(HalffabContext, IngegevenKenmerkenDomain, MaatwerkAanpassing)
 		Do Problemen.Insert(..MaakStringVanMaatwerkProblemen(HalffabContext.GeefBerekeningProblemen()))
 		
 		#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = HalffabContext.HalffabItemsBoom
-	
-		Set HalffabrikatenVisitor = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabItemNaarDtoVisitor).%New()
+		#dim HalffabrikatenVisitor As DOM.PM.Maatwerk.Calc.HF.impl.HalffabItemNaarDtoVisitor = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabItemNaarDtoVisitor).%New()
+		
 		Do HalffabItemsBoom.Wortel.Accept(HalffabrikatenVisitor)
 		Set MaatwerkDetails.Halffabrikaten = HalffabrikatenVisitor.GeefHalffabItem()
 		
-		Set KostContext = ##class(DOM.PM.Maatwerk.Calc.Kost.KostContext).%New(IngegevenKenmerkenDomain.GeefFamilie(), IngegevenKenmerkenDomain.GeefVariant(), BerekeningSpecificatie)
+		#dim KostContext As DOM.PM.Maatwerk.Calc.Kost.KostContext = ##class(DOM.PM.Maatwerk.Calc.Kost.KostContext).%New(IngegevenKenmerkenDomain.GeefFamilie(), IngegevenKenmerkenDomain.GeefVariant(), BerekeningSpecificatie)
 		#dim KostItem As DOM.PM.Maatwerk.Calc.Kost.KostItem = KostContext.GeefKostSpec().BerekenKostDetails(KostContext,HalffabItemsBoom,IngegevenKenmerkenDomain, MaatwerkAanpassing)
-	
-		Set KostenVisitor = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostItemNaarDtoVisitor).%New()
+		#dim KostenVisitor As DOM.PM.Maatwerk.Calc.Kost.impl.KostItemNaarDtoVisitor = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostItemNaarDtoVisitor).%New()
+		
 		Do KostItem.Accept(KostenVisitor)
 		Set MaatwerkDetails.Kosten = KostenVisitor.GeefKostItem()
-	}
-	Catch e
-	{
+	} Catch	{
 		Do ##class(TECH.ExceptionHandler).Catch("DOM.PM.Maatwerk.Calc.HF.impl.HFItemBerekenException")
 		Do Problemen.Insert(..MaakStringVanMaatwerkProblemen(HalffabContext.GeefBerekeningProblemen()))
 	}
 	
-	Set MaatwerkDetails.ProbleemRapport = ##class(TECH.ListUtils).ListToPieces(Problemen,$C(13,10))
+	Set MaatwerkDetails.ProbleemRapport = ##class(TECH.ListUtils).ListToPieces(Problemen, $C(13,10))
 	
 	Quit MaatwerkDetails
 ]]></Implementation>
@@ -136,11 +134,12 @@
 <Implementation><![CDATA[
 	#dim String As %String = ""
 	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Problemen)
-	While (Iterator.HasNext())
-	{
+	
+	While (Iterator.HasNext()) {
 		Set String = String_Iterator.Next().ToString()
 		If (Iterator.HasNext()) Set String = String_$C(13,10)
 	}
+	
 	Quit String
 ]]></Implementation>
 </Method>
@@ -149,16 +148,17 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.PM.Maatwerk.dto.MaatwerkType"</ReturnTypeParams>
 <Implementation><![CDATA[
-	Set MogelijkeMaatwerkTypes = ##class(%ListOfObjects).%New()
+	#dim MogelijkeMaatwerkTypes As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim ResultSet As %ResultSet = ##class(%ResultSet).%New()
 	
-	Set ResultSet = ##class(%ResultSet).%New()
 	Do ResultSet.Prepare("SELECT %Exact Familie As Familie, %Exact Variant As Variant FROM DOM_PM_Maatwerk_Calc_HF_impl.HalffabSpecInfo GROUP BY Familie, Variant")
 	Do ResultSet.Execute()
-	While (ResultSet.Next())
-	{
-		Set MaatwerkType = ##class(APPS.PM.Maatwerk.dto.MaatwerkType).%New()
+	
+	While (ResultSet.Next()) {
+		#dim MaatwerkType As APPS.PM.Maatwerk.dto.MaatwerkType = ##class(APPS.PM.Maatwerk.dto.MaatwerkType).%New()
 		Set MaatwerkType.Familie = ResultSet.Data("Familie")
 		Set MaatwerkType.Variant = ResultSet.Data("Variant")
+		
 		Do MogelijkeMaatwerkTypes.Insert(MaatwerkType)
 	}
 	
@@ -170,7 +170,8 @@
 <FormalSpec>MaatwerkType:APPS.PM.Maatwerk.dto.MaatwerkType,Rol:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	Set KostContext = ##class(DOM.PM.Maatwerk.Calc.Kost.KostContext).%New(MaatwerkType.Familie,MaatwerkType.Variant,..GeefBerekeningSpecificatie())
+	#dim KostContext As DOM.PM.Maatwerk.Calc.Kost.KostContext = ##class(DOM.PM.Maatwerk.Calc.Kost.KostContext).%New(MaatwerkType.Familie, MaatwerkType.Variant, ..GeefBerekeningSpecificatie())
+	
 	Quit KostContext.GeefKostSpec().GeefOndersteundeBewerkingDimensies(Rol)
 ]]></Implementation>
 </Method>
@@ -179,7 +180,8 @@
 <FormalSpec>MaatwerkType:APPS.PM.Maatwerk.dto.MaatwerkType</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	Set HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(MaatwerkType.Familie,MaatwerkType.Variant,..GeefBerekeningSpecificatie())
+	#dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefHalffabContextVoorMaatwerkType(MaatwerkType)
+	
 	Quit HalffabContext.GeefHalffabSpec().GeefAanwezigeRollen()
 ]]></Implementation>
 </Method>
@@ -188,9 +190,10 @@
 <FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	Set IngegevenKenmerkenConverter = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New()
+	#dim IngegevenKenmerkenConverter As APPS.PM.Maatwerk.IngegevenKenmerkenConverter = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New()
 	#dim IngegevenKenmerkenDomain As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = IngegevenKenmerkenConverter.NaarObject(IngegevenKenmerken)
-	Set HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(IngegevenKenmerkenDomain.GeefFamilie(),IngegevenKenmerkenDomain.GeefVariant(),..GeefBerekeningSpecificatie())
+	#dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefHalffabContextVoorIngegevenKenmerken(IngegevenKenmerkenDomain, ..GeefBerekeningSpecificatie())
+	
 	Quit HalffabContext.GeefHalffabSpec().GeefAanwezigeRollen()
 ]]></Implementation>
 </Method>
@@ -200,30 +203,23 @@
 <Implementation><![CDATA[
 	#dim AanpassingOpProduct As DOM.PM.Maatwerk.Aanpassing.impl.AanpassingOpProduct = ##class(DOM.PM.Maatwerk.Aanpassing.impl.AanpassingOpProduct).OpenId(ProductID)
 	
-	If (AanpassingOpProduct.Aanpassing.Naam '= AanpassingNaam)
-	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Product "_ProductID_" heeft geen aanpassing met naam "_AanpassingNaam))
+	If $$$Not(AanpassingOpProduct.Aanpassing.Naam = AanpassingNaam) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Product " _ ProductID _ " heeft geen aanpassing met naam " _ AanpassingNaam))
 	}
 	
 	Do AanpassingOpProduct.Delete()
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBerekeningSpecificatie">
-<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID="K||6819",Aantal:%Integer=1</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal,KlantID,##class(DOM.common.VanHoeckePersonality).Instance())
-]]></Implementation>
-</Method>
-
 <Method name="IsAanpassingGebruiktOpProducten">
 <FormalSpec>AanpassingID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Set ResultSet = ##class(%ResultSet).%New()
+	#dim ResultSet As %ResultSet = ##class(%ResultSet).%New()
+	
 	Do ResultSet.Prepare("SELECT 1 FROM DOM_PM_Maatwerk_Aanpassing_impl.AanpassingOpProduct WHERE Aanpassing = ?")
 	Do ResultSet.Execute(AanpassingID)
+	
 	Quit ResultSet.Next()
 ]]></Implementation>
 </Method>
@@ -239,11 +235,44 @@
 <FormalSpec>MaatwerkType:APPS.PM.Maatwerk.dto.MaatwerkType</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	Set Context = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(MaatwerkType.Familie, MaatwerkType.Variant, ..GeefBerekeningSpecificatie())
+	#dim Context As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefHalffabContextVoorMaatwerkType(MaatwerkType) 
 	#dim HalffabSpec As DOM.PM.Maatwerk.Calc.HF.HalffabSpec = Context.GeefHalffabSpec()
+	
 	Quit HalffabSpec.GeefVersieNrIngegevenKenmerken()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefHalffabContextVoorIngegevenKenmerken">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,BerekeningSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabContext</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefHalffabContext(IngegevenKenmerken.GeefFamilie(), IngegevenKenmerken.GeefVariant(), BerekeningSpecificatie)
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffabContextVoorMaatwerkType">
+<FormalSpec>MaatwerkType:APPS.PM.Maatwerk.dto.MaatwerkType</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabContext</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefHalffabContext(MaatwerkType.Familie, MaatwerkType.Variant, ..GeefBerekeningSpecificatie())
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffabContext">
+<FormalSpec>Familie:DOM.PM.enu.Familie,Variant:DOM.PM.enu.Variant,BerekeningSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabContext</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie, Variant, BerekeningSpecificatie)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekeningSpecificatie">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID="K||6819",Aantal:%Integer=1</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal, KlantID, ##class(DOM.common.VanHoeckePersonality).Instance())
+]]></Implementation>
+</Method>
 </Class>