Index: BL/Legacy/EWORDSW.cls.xml
===================================================================
diff -u -r38084 -r46898
--- BL/Legacy/EWORDSW.cls.xml	(.../EWORDSW.cls.xml)	(revision 38084)
+++ BL/Legacy/EWORDSW.cls.xml	(.../EWORDSW.cls.xml)	(revision 46898)
@@ -68,6 +68,8 @@
 	 Set Magazijn = ##class(APPS.MAG.enu.Magazijn).Orgalux()
  }ElseIf ..IsInUglyEnBevat(MagList,Magazijn,lbProductTypesInConsolidatie,##class(BL.Legacy.enu.ProductBevatType).TaorIndeling()) {
 	 Set Magazijn = ##class(APPS.MAG.enu.Magazijn).Orgalux() ;##class(APPS.MAG.enu.Magazijn).TAORIndeling() ; PV 17/11/2016
+ }ElseIf ..KomtVanHaluxEnServoDriveOmpak(MagList,PRNr) {
+	 Set Magazijn = ##class(APPS.MAG.enu.Magazijn).Ugly()
  }ElseIf ..KomtVanHaluxEnGeenPalletInAutomatischMagazijn(MagList,PRNr) {
 	 Set Magazijn = ##class(APPS.MAG.enu.Magazijn).Halux()
  }
@@ -106,6 +108,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="KomtVanHaluxEnServoDriveOmpak">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MagList:%String,PRNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	quit:$D(^KPR(PRNr)) ($D(^KPR(PRNr,"J6332")))&&($E($P($G(^KPR(PRNr,0)),"\"),1,3)="Z10") ; Korttekst begint met Z10
+	quit:$D(^KPRO(PRNr)) ($D(^KPRO(PRNr,"J6332")))&&($E($P($G(^KPRO(PRNr,0)),"\"),1,3)="Z10")
+	Quit 0
+]]></Implementation>
+</Method>
+
 <Method name="KomtVanHaluxEnGeenPalletInAutomatischMagazijn">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>MagList:%String,PRNr:%String</FormalSpec>