Index: WS/Halux/PPS/TBXZaagServer.cls.xml
===================================================================
diff -u -r47808 -r63147
--- WS/Halux/PPS/TBXZaagServer.cls.xml	(.../TBXZaagServer.cls.xml)	(revision 47808)
+++ WS/Halux/PPS/TBXZaagServer.cls.xml	(.../TBXZaagServer.cls.xml)	(revision 63147)
@@ -344,21 +344,20 @@
 <FormalSpec>SessionKey:%String="",Werkpost:APPS.Halux.common.enu.Werkpost="",Categorie:APPS.Halux.common.enu.Categorie=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set sc=..ControleSession(SessionKey,Werkpost)
+	Set sc = ..ControleSession(SessionKey,Werkpost)
 	If $$$ISERR(sc) $$$ThrowErrorStatus($$$errGeneralError,"Controle session",sc)
 	
-	If Categorie=##class(APPS.Halux.common.enu.Categorie).Legrabox()
-	{
-		Set ..iWerkpost=##class(APPS.Halux.PPS.TBXZaag.impl.WerkpostVoorLBX).%New(Werkpost)		
+	If (Categorie = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) {
+		Set ..iWerkpost = ##class(APPS.Halux.PPS.TBXZaag.impl.WerkpostVoorLBX).%New(Werkpost)		
+	} ElseIf (Categorie = ##class(APPS.Halux.common.enu.Categorie).Merivobox()) {
+		Set ..iWerkpost = ##class(APPS.Halux.PPS.TBXZaag.impl.WerkpostVoorMVX).%New(Werkpost)		
+	} Else {
+		Set ..iWerkpost = ##class(APPS.Halux.PPS.TBXZaag.impl.Werkpost).%New(Werkpost)
 	}
-	Else
-	{
-		Set ..iWerkpost=##class(APPS.Halux.PPS.TBXZaag.impl.Werkpost).%New(Werkpost)
-	}
 	
-	If '$isObject(..iWerkpost) {		
-		set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("No implementation for "_Werkpost)
-		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	If '$IsObject(..iWerkpost) {		
+		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("No implementation for "_Werkpost)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 ]]></Implementation>
 </Method>