Index: DOM/PM/Maatwerk/Calc/HF/ConcreetHalffabItem.cls.xml
===================================================================
diff -u -r31463 -r36241
--- DOM/PM/Maatwerk/Calc/HF/ConcreetHalffabItem.cls.xml	(.../ConcreetHalffabItem.cls.xml)	(revision 31463)
+++ DOM/PM/Maatwerk/Calc/HF/ConcreetHalffabItem.cls.xml	(.../ConcreetHalffabItem.cls.xml)	(revision 36241)
@@ -100,26 +100,28 @@
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	If (Value '= "")
-	{
+	If $$$Not(Value = "") {
 		Set r%Halffab = Value
+
 		#dim StockeerbaarProduct As DOM.MAG.StockeerbaarProduct = ##class(DOM.DomeinContext).Instance().GeefMagazijnAPI().GeefStockeerbaarProduct(Value.GeefProductID())
-		If ('StockeerbaarProduct.HeeftMagazijnZone())
-		{
+		
+		If $$$Not(StockeerbaarProduct.HeeftMagazijnZone()) {
 			Set ..MagazijnZoneID = "X"
 			Do:$IsObject(..Context) ..Context.RegistreerBerekeningProbleem(##class(DOM.PM.Maatwerk.Calc.Common.Probleem.GeenMagazijnZoneVoorHalffabrikaat).%New(Value.GeefProductID()))
-		}
-		Else
-		{
+		} Else {
 			Set ..MagazijnZoneID = StockeerbaarProduct.GeefMagazijnZone().GeefID()
 		}
+		
 		Set ..OmschrijvingVoorPicking = Value.GeefOmschrijvingVoorPicking()
 		Set ..OmschrijvingVoorDocs = Value.GeefOmschrijvingVoorDocs()
+		
 		If (..OmschrijvingVoorDocs = "") {
 			Set ..OmschrijvingVoorDocs = ..Rol
 		}
+		
 		Set ..GewichtPerStuk = ..Context.GeefGewichtInGram(Value.GeefProductID())
 	}
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>