Index: DOM/PM/Maatwerk/Calc/HF/impl/Processor/HFItemProcessorLinksRechts.cls.xml
===================================================================
diff -u -r29059 -r33774
--- DOM/PM/Maatwerk/Calc/HF/impl/Processor/HFItemProcessorLinksRechts.cls.xml	(.../HFItemProcessorLinksRechts.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/HF/impl/Processor/HFItemProcessorLinksRechts.cls.xml	(.../HFItemProcessorLinksRechts.cls.xml)	(revision 33774)
@@ -9,38 +9,29 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	// Validatie van de items in de HalffabList 
-	Set IsValid=1
-	
-	Set Halffab1=HalffabList.GetNext("")
-	
-	If '$IsObject(Halffab1)
-	{
-		Set IsValid=0
-		Set ValidatieBericht="Er werden geen halffabitems gevonden"
-	}
-	ElseIf (HalffabList.Count()=1) 
-	{
-		Set IsValid=(Halffab1.LiRe="LI+RE")
-		Set:('IsValid) ValidatieBericht = "Er werd 1 halffabitem gevonden maar dit is geen LI+RE product"
-	}
-	ElseIf (HalffabList.Count()=2)
-	{
+	#dim IsValid As %Boolean = $$$True
+	#dim Halffab1 As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabList.GetNext("")
+	#dim ValidatieBericht As %String = ""
+
+	If $$$Not($IsObject(Halffab1)) {
+		Set IsValid = $$$False
+		Set ValidatieBericht = "Er werden geen halffabitems gevonden"
+	} ElseIf (HalffabList.Count() = 1) {
+		Set IsValid = (Halffab1.LiRe = "LI+RE")
+		Set:$$$Not(IsValid) ValidatieBericht = "Er werd 1 halffabitem gevonden maar dit is geen LI+RE product"
+	} ElseIf (HalffabList.Count() = 2) {
 		// Controleer dat één halffab is Links en één halffab is Rechts 
-		Set HF1=Halffab1.LiRe
-		Set Halffab2=HalffabList.GetPrevious("")   ; Laatste element (van de 2)
-		Set HF2=Halffab2.LiRe
-		Set IsValid=((HF1="LI")&&(HF2="RE"))||((HF2="LI")&&(HF1="RE"))
-		Set:('IsValid) ValidatieBericht = "Er werden 2 halffabitems gevonden maar dit zijn geen bijhorende LI en RE producten"
-	}
-	Else
-	{ 
-		Set IsValid=0
-		Set ValidatieBericht="Er werden meer dan 2 halffabitems gevonden"
+		#dim Halffab2 As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabList.GetPrevious("")   ; Laatste element (van de 2)
+
+		Set IsValid = ((Halffab1.LiRe = "LI") && (Halffab2.LiRe = "RE")) || ((Halffab2.LiRe = "LI") && (Halffab1.LiRe = "RE"))
+		Set:$$$Not(IsValid) ValidatieBericht = "Er werden 2 halffabitems gevonden maar dit zijn geen bijhorende LI en RE producten"
+	} Else { 
+		Set IsValid = $$$False
+		Set ValidatieBericht = "Er werden meer dan 2 halffabitems gevonden"
 	}	
 
-	If ('IsValid)
-	{
-		Set ValidatieException = ##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.ValidatieException).%New("Validatie HFItemProcessorLinksRechts: "_ValidatieBericht,HalffabList)
+	If $$$Not(IsValid) {
+		#dim ValidatieException As TECH.Exceptions.Exception = ##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.ValidatieException).%New("Validatie HFItemProcessorLinksRechts: " _ ValidatieBericht, HalffabList)
 		Do ##class(TECH.ExceptionHandler).Throw(ValidatieException)
 	}
 
@@ -68,8 +59,7 @@
 		Set SubHalffabItem=##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context, "Rechts", RechtsHalffab)
 		Set SubHalffabItem.Aantal=1
 		Do SamengesteldHalffabItem.VoegToe(SubHalffabItem)
-	}
-	Else {
+	} Else {
 		// Slechts 1 halffab : LI+RE (is meestal in V1-verpakking) 
 
 		// Een Standaard HalffabItem maken op basis van het "uniek-geselecteerde" Halffab