Index: DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml
===================================================================
diff -u -r31600 -r36244
--- DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml	(.../HalffabContext.cls.xml)	(revision 31600)
+++ DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml	(.../HalffabContext.cls.xml)	(revision 36244)
@@ -81,31 +81,35 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	set ..DateTimeAPI = ##class(DOM.PM.Maatwerk.Calc.IoCContainer).Instance().Resolve("DateTimeAPI")
+	Set ..DateTimeAPI = ##class(DOM.PM.Maatwerk.Calc.IoCContainer).Instance().Resolve("DateTimeAPI")
 	Set ..Familie = Familie
 	Set ..Variant = Variant
 	Set ..BerekeningsSpecificatie = BerekeningsSpecificatie
 	Set ..KlantOrderInstellingen = ##class(DOM.VKP.impl.DataM.KlantOrderInstellingenImpl).%New(BerekeningsSpecificatie.GeefKlantID())
 	Set ..BerekenDatum = ..GeefBerekenDatum()
+	
 	Try {
-		Set HalffabRepository = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabRepository).%New()
-		Set HalffabRepositoryInput = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabRepositoryInput).%New()
+		#dim Repository As DOM.PM.Maatwerk.Calc.HF.IHalffabRepository = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabRepository).%New()
+		#dim HalffabRepositoryInput As DOM.PM.Maatwerk.Calc.HF.HalffabRepositoryInput = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabRepositoryInput).%New()
+		
 		Set HalffabRepositoryInput.Familie = ..Familie
 		Set HalffabRepositoryInput.Variant = ..Variant
 		Set HalffabRepositoryInput.BerekenDatum = ..BerekenDatum
 		Set HalffabRepositoryInput.BerekenTag = ..BerekeningsSpecificatie.GeefBerekenTag()
 		Set HalffabRepositoryInput.BerekeningWijze = ..BerekeningsSpecificatie.BerekeningWijze
-		Set ..HalffabSpec = HalffabRepository.GeefSpecificatie(HalffabRepositoryInput)
+		
+		Set ..HalffabSpec = Repository.GeefSpecificatie(HalffabRepositoryInput)
 		Set ..BewerkingsInfoTabel = ##class(DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfoTabel).%New()
 	 	Set ..HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
-	}
-	Catch {
+	} Catch {
 		#dim OorspronkelijkeException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		If $Length(Variant)=0 {
+		
+		If ($Length(Variant) = 0) {
 			Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Gelieve bij Verpakking een variant te selecteren.")
 		} Else {
-			Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Probleem bij ophalen van Halffabrikaten specificaties. Gebruikte gegevens: Familie: '"_Familie_"'; Variant: '"_Variant_"'")
+			Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Probleem bij ophalen van Halffabrikaten specificaties. Gebruikte gegevens: Familie: '" _ Familie _ "'; Variant: '" _ Variant _ "'")
 		}
+		
 		Do Exception.VoegToeInnerExceptie(OorspronkelijkeException)
 		Do ..LogExceptie(Exception)
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
@@ -125,11 +129,13 @@
 <ReturnType>%Date</ReturnType>
 <Implementation><![CDATA[
 	#dim BerekenDatum As %Date
-	If ..BerekeningsSpecificatie.BerekeningWijze = ##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing() {
+	
+	If (..BerekeningsSpecificatie.BerekeningWijze = ##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing()) {
 		Set BerekenDatum = ..DateTimeAPI.CurrentDateVoorQueries()
 	} Else {
 		Set BerekenDatum = ..BerekeningsSpecificatie.BerekenDatum
 	}
+	
 	Quit BerekenDatum
 ]]></Implementation>
 </Method>
@@ -159,16 +165,17 @@
 <FormalSpec>IHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder,SelectieKenmerken:%ArrayOfDataTypes,RedenVoorSelectie:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If (SelectieKenmerken '= "")
-	{
-		Set GeprobeerdeSelectieKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.Probleem.GeprobeerdeSelectieKenmerken).%New(RedenVoorSelectie)
-		Set Iterator = ##class(TECH.ListIterator).%New(SelectieKenmerken)
-		While (Iterator.HasNext())
-		{
+	If $$$Not(SelectieKenmerken = "") {
+		#dim GeprobeerdeSelectieKenmerken As DOM.PM.Maatwerk.Calc.Common.Probleem.GeprobeerdeSelectieKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.Probleem.GeprobeerdeSelectieKenmerken).%New(RedenVoorSelectie)
+		#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(SelectieKenmerken)
+		
+		While (Iterator.HasNext()) {
 			#dim Waarde As %String = Iterator.Next()
 			#dim Naam As %String = Iterator.Key()
+			
 			Do GeprobeerdeSelectieKenmerken.VoegToeSelectieKenmerk(##class(DOM.PM.Maatwerk.Calc.Common.Probleem.SelectieKenmerk).%New(Naam, Waarde))
 		}
+		
 		Do ..GeefGeprobeerdeSelectieKenmerken(IHalffabItemBuilder.GeefRol()).Insert(GeprobeerdeSelectieKenmerken)
 	}
 ]]></Implementation>
@@ -177,9 +184,10 @@
 <Method name="GeefMaatwerkTypeCode">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If ..MaatwerkTypeCode = "" {
-		Set ..MaatwerkTypeCode = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext.MaatwerkTypeCodeBepaler).%New().GeefMaatwerkTypeCode(..Familie,..Variant)
+	If (..MaatwerkTypeCode = "") {
+		Set ..MaatwerkTypeCode = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext.MaatwerkTypeCodeBepaler).%New().GeefMaatwerkTypeCode(..Familie, ..Variant)
 	}
+	
 	Quit ..MaatwerkTypeCode
 ]]></Implementation>
 </Method>
@@ -190,24 +198,25 @@
 <ReturnTypeParams>ELEMENTTYPE="DOM.PM.Maatwerk.Calc.Common.Probleem.GeprobeerdeSelectieKenmerken"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#dim SelectieKenmerken As %ArrayOfDataTypes
-	If ('..GeprobeerdeSelectieKenmerkenPerRol.IsDefined(Rol))
-	{
-		Do ..GeprobeerdeSelectieKenmerkenPerRol.SetAt(##class(%ListOfObjects).%New(),Rol)
+	
+	If $$$Not(..GeprobeerdeSelectieKenmerkenPerRol.IsDefined(Rol)) {
+		Do ..GeprobeerdeSelectieKenmerkenPerRol.SetAt(##class(%ListOfObjects).%New(), Rol)
 	}
+	
 	Quit ..GeprobeerdeSelectieKenmerkenPerRol.GetAt(Rol)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefHalffabTabel">
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</ReturnType>
 <Implementation><![CDATA[
-	If ('$IsObject(..HalffabTabel))
-	{
-		
+	If $$$Not($IsObject(..HalffabTabel)) {
 		#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(..BerekeningsSpecificatie.GeefKlantID())
-		Set HalffabClassNameFactory = ..HalffabSpec.GeefHalffabClassNameFactory()
+		#dim HalffabClassNameFactory As DOM.PM.Maatwerk.Calc.HF.HalffabClassNameFactory = ..HalffabSpec.GeefHalffabClassNameFactory()
+		
 		Set ..HalffabTabel = ##class(DOM.PM.Maatwerk.Calc.HF.impl.GlobalBasedHalffabTabel).%New(KlantNr, ..BerekeningsSpecificatie.GeefPersonality(), ..Variant, HalffabClassNameFactory)
 	}
+	
 	Quit ..HalffabTabel
 ]]></Implementation>
 </Method>
@@ -216,17 +225,15 @@
 <FormalSpec>ProductID:%String,BewerkingDimensie:%String</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo</ReturnType>
 <Implementation><![CDATA[
-	Set Tag = ..BerekeningsSpecificatie.GeefBerekenTag()
-	Set BewerkingsInfo = ""
+	#dim Tag As %String = ..BerekeningsSpecificatie.GeefBerekenTag()
+	#dim BewerkingsInfo As DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo = ""
 	
-	If (Tag '= "")
-	{
-		Set BewerkingsInfo = ..BewerkingsInfoTabel.GeefBewerkingsInfoTag(..Familie,..Variant,ProductID,BewerkingDimensie,Tag)
+	If $$$Not(Tag = "") {
+		Set BewerkingsInfo = ..BewerkingsInfoTabel.GeefBewerkingsInfoTag(..Familie, ..Variant, ProductID, BewerkingDimensie, Tag)
 	}
 	
-	If ('$IsObject(BewerkingsInfo))
-	{
-		Set BewerkingsInfo = ..BewerkingsInfoTabel.GeefBewerkingsInfoDatum(..Familie,..Variant,ProductID,BewerkingDimensie,..BerekenDatum)
+	If $$$Not($IsObject(BewerkingsInfo)) {
+		Set BewerkingsInfo = ..BewerkingsInfoTabel.GeefBewerkingsInfoDatum(..Familie, ..Variant, ProductID, BewerkingDimensie, ..BerekenDatum)
 	}
 
 	Quit BewerkingsInfo
@@ -255,21 +262,26 @@
 <Method name="LogExceptie">
 <FormalSpec>Exceptie:TECH.IException</FormalSpec>
 <Implementation><![CDATA[
-	#dim LogString As %String = "Context: [ Familie: "_..Familie_", Variant: "_..Variant_" ]"_$$$CRLF
+	#dim LogString As %String = "Context: [ Familie: " _ ..Familie _ ", Variant: " _ ..Variant _ " ]" _ $$$CRLF
 	
 	If ($IsObject(..BerekeningsSpecificatie)) {
-		Set LogString = LogString_"BerekeningsSpecificatie: [ BerekenDatum: "_..BerekeningsSpecificatie.GeefBerekenDatum()_", BerekenTag: "_..BerekeningsSpecificatie.GeefBerekenTag()_", Hoeveelheid: "_..BerekeningsSpecificatie.GeefHoeveelheid()_", KlantID: "_..BerekeningsSpecificatie.GeefKlantID()_", Personality: "_..BerekeningsSpecificatie.GeefPersonality().GeefKlant().Nummer_" ]"_$$$CRLF
+		Set LogString = LogString _ "BerekeningsSpecificatie: [ BerekenDatum: " _ ..BerekeningsSpecificatie.GeefBerekenDatum()
+		Set LogString = LogString _ ", BerekenTag: " _ ..BerekeningsSpecificatie.GeefBerekenTag()
+		Set LogString = LogString _ ", Hoeveelheid: " _ ..BerekeningsSpecificatie.GeefHoeveelheid()
+		Set LogString = LogString _ ", KlantID: " _ ..BerekeningsSpecificatie.GeefKlantID()
+		Set LogString = LogString _ ", Personality: " _ ..BerekeningsSpecificatie.GeefPersonality().GeefKlant().Nummer _ " ]" _ $$$CRLF
 	}
 	
-	Set LogString = LogString_"Exceptie: [ "_Exceptie.ToString()_" ]"
-	Set LogString = LogString_$$$CRLF_"Geregistreerde problemen: "
-	Set Iterator = ##class(TECH.ListIterator).%New(..BerekeningProblemen)
+	Set LogString = LogString _ "Exceptie: [ " _ Exceptie.ToString() _ " ]"
+	Set LogString = LogString _ $$$CRLF _ "Geregistreerde problemen: "
 	
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..BerekeningProblemen)
+	
 	While (Iterator.HasNext()) {
-		Set LogString = LogString_$$$CRLF_Iterator.Next().ToString()
+		Set LogString = LogString _ $$$CRLF _ Iterator.Next().ToString()
 	}
 
-	Do ##class(vhLib.Logger).%New("Maatwerk framework").Error("Exceptie halffabcontext",LogString)
+	Do ##class(vhLib.Logger).%New("Maatwerk framework").Error("Exceptie halffabcontext", LogString)
 ]]></Implementation>
 </Method>
 
@@ -294,7 +306,7 @@
 
 <Method name="GeefBerekingWijze">
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze</ReturnType>
-<Implementation><![CDATA[	quit ..BerekeningsSpecificatie.GeefBerekeningWijze()
+<Implementation><![CDATA[	Quit ..BerekeningsSpecificatie.GeefBerekeningWijze()
 ]]></Implementation>
 </Method>
 </Class>