Index: vhUnitTest/BL/PPS/OL/TestInpak.cls.xml
===================================================================
diff -u -r31455 -r31456
--- vhUnitTest/BL/PPS/OL/TestInpak.cls.xml	(.../TestInpak.cls.xml)	(revision 31455)
+++ vhUnitTest/BL/PPS/OL/TestInpak.cls.xml	(.../TestInpak.cls.xml)	(revision 31456)
@@ -195,7 +195,7 @@
 	
 	Do $$$AssertEquals(Inpak.BONNr,..Bon.GeefID())
 	Do $$$AssertEquals(Inpak.KlantNaam,"UNITTEST CONSUMENT")
-	Do $$$AssertEquals(Inpak.Output,InpakTafelNr)
+	Do $$$AssertEquals(Inpak.Output,1, "Output is gedefault omdat deze per product moet wijzigen")
 	Do $$$AssertEquals(Inpak.Count,1,"Aantal overdozen ??")
 	Do $$$AssertEquals(Inpak.SequenceList.Count(),2)
 	
@@ -207,15 +207,14 @@
 <Implementation><![CDATA[
 	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(..Consument.GeefID())
 	
-	Set Inpak = ##class(BL.PPS.OL.Inpak).%New()
+	Set Inpak = ##class(vhUnitTest.BL.PPS.OL.DummyInpak).%New()
 	#dim pxLabel As BL.Etiket.Product = ##class(BL.Etiket.Product).%New()
 	Do Inpak.LabelDataFromBon(..Bon.GeefID(),pxLabel)
 	
 	Do $$$AssertEquals(pxLabel.CommRef,"")
 	Do $$$AssertEquals(pxLabel.EindklantNaam,"")
 	Do $$$AssertEquals(pxLabel.EindklantGemeente,"")
 	Do $$$AssertEquals(pxLabel.Gemeente,"Sint Niklaas")
-	Do $$$AssertEquals(pxLabel.KlantNaam,"UNITTEST CONSUMENT")
 	Do $$$AssertEquals(pxLabel.KLNr,KlantNr)
 	Do $$$AssertEquals(pxLabel.LeverAdres1,"UNITTEST CONSUMENT")
 	Do $$$AssertEquals(pxLabel.LeverAdres2,"Industriepark 7")
@@ -229,7 +228,7 @@
 
 <Method name="TestLabelDataFromProduct">
 <Implementation><![CDATA[
-	Set Inpak = ##class(BL.PPS.OL.Inpak).%New()
+	Set Inpak = ##class(vhUnitTest.BL.PPS.OL.DummyInpak).%New()
 	#dim pxLabel As BL.Etiket.Product = ##class(BL.Etiket.Product).%New()
 	Do Inpak.LabelDataFromProduct(1018,pxLabel)
 	
@@ -249,7 +248,7 @@
 	Do ..VerwijderSnijData()
 	Do ..MaakSnijData()
 	
-	Set Inpak = ##class(BL.PPS.OL.Inpak).%New()
+	Set Inpak = ##class(vhUnitTest.BL.PPS.OL.DummyInpak).%New()
 	#dim labelPrinter As BL.Sys.LabelPrinter = Inpak.PrintProductBarePrepare(..Bon.GeefID(),1018,1)
 	
 	Do $$$AssertEquals(labelPrinter.Data,2,"Aantal bestanden")
Index: EWORDSW.mac.rou
===================================================================
diff -u -r31455 -r31456
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 31455)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 31456)
@@ -198,7 +198,8 @@
  .For  Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do
  ..Set OLRec=^ORDW("D",CONSNr,"D",ORDNr,OLUNr)
  ..Set ProductID = $Piece(OLRec,"\",1)
- ..Set lbBevat = ##class(BL.Legacy.EWORDSW).GeefProductBevatTypeList(ProductID)
+ ..Set lbBevat = $$Bevat(CONSNr)
+ ..Set lbBevat = $Select(($LL(lbBevat)=2)&&$LF(lbBevat,##class(BL.Legacy.enu.ProductBevatType).TaorIndeling())&&$LF(lbBevat,##class(BL.Legacy.enu.ProductBevatType).Orgalux()):lbBevat,1:##class(BL.Legacy.EWORDSW).GeefProductBevatTypeList(ProductID))
  ..Quit:$P(OLRec,D,2)'=""  ; Reeds verwerkt (doorgestuurd), terugname, manueel of zonder WMS
  ..For  Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)) Quit:SOLNr=""  Do
  ...Set SOLRec=^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)
@@ -240,77 +241,10 @@
  Quit
  
  
-SOFTV(PRNr, KLNr,Qty,lbBevat,Force) ; SoftwareVerwerking
- // Bepaalt in welke pickingzone (aka "SoftwareVerwerking"; "softmag") een product gepicked moet worden.
- // lbBevat As %List<BL.Legacy.enu.ProductBevatType> : lijst van soorten producten die in de consolidatie zitten. Dit dient om bvb ORGALUX en TA'OR Cubics kindproducten in de juiste Ugly-rubriek te krijgen.
- // Result: APPS.MAG.enu.Magazijn
- New Result,PALNr,MagList,Mag,Rec2
- Set Result = ##class(APPS.MAG.enu.Magazijn).EWMS()
- If '$G(Force),'$G(^EWREC("P","UPSEND")) Quit Result ; UglyPicking niet actief
- ; Controle of er een pallet bestaat in de auto en of ugly mag.
- Set PALNr="",MagList=""
- For  Set PALNr=$O(^EWPAL("D",PRNr,PALNr)) Quit:PALNr=""  Do
- . Quit:+$P($G(^EWPAL("D",PRNr,PALNr)),D,1)<1
- . Set Mag=+$E($P($G(^EWPAL("D",PRNr,PALNr)),D,2),1,3)
- . Set:Mag=1&(MagList'["A") MagList=MagList_"A"
- . Set:Mag>1&(Mag<5)&(MagList'["U") MagList=MagList_"U"
- . Set MagList($P($G(^EWPAL("D",PRNr,PALNr)),D,2)_" ")=""
+SOFTV(PRNr, KLNr,Qty,lbProductTypesInConsolidatie ,Force=0) ; SoftwareVerwerking
+ Quit ##class(BL.Legacy.EWORDSW).SOFTV(PRNr,KLNr,Qty,lbProductTypesInConsolidatie,Force)
  
- Set Rec2=$G(^KPR(PRNr,2)) Set:Rec2="" Rec2=$G(^KPRO(PRNr,2)) ; wordt ook opgeroepen door Rendab (historiek)
- Set:$P(Rec2,D,15)=3 Result = ##class(APPS.MAG.enu.Magazijn).LangGoed() ; Langgoed
- Set:$P(Rec2,D,15)=2&&(MagList'="A") Result = ##class(APPS.MAG.enu.Magazijn).Ugly() ; UglyPicking (behalve indien alle palletten in auto.mag
- Set:$P(Rec2,D,15)=1&&(MagList="U") Result = ##class(APPS.MAG.enu.Magazijn).Ugly() ; UglyPicking (goederen bedoeld voor automatisch mag. maar alle palletten staan in ugly
  
- // N.B. Bij het sluiten van een order, worden eventuele ORGALUX-lijnen sowieso afgesplitst naar een gekoppeld ORGALUX-order, en idem voor TA'OR cubics.
- // Daarom is het correct om te stellen dat een product in het ugly-magazijn bij ORGALUX (of TA'OR cubics) moet gepicked worden, als het een dergelijk order/consolidatie betreft.
- If $$IsInUglyEnBevat(MagList,Result,lbBevat,"ORGALUX") {
-	 Set Result = ##class(APPS.MAG.enu.Magazijn).Orgalux()
- }ElseIf $$IsInUglyEnBevat(MagList,Result,lbBevat,"TAORINDELING") {
-	 Set Result = ##class(APPS.MAG.enu.Magazijn).TAORIndeling()
- }ElseIf $$KomtVanHaluxEnGeenPalletInAutomatischMagazijn(MagList,PRNr) {
-	 Set Result = ##class(APPS.MAG.enu.Magazijn).Halux()
- }
- 
- If ((Result'=##class(APPS.MAG.enu.Magazijn).Orgalux()) && (Result'=##class(APPS.MAG.enu.Magazijn).TAORIndeling())){ 
-	 If ((Result=##class(APPS.MAG.enu.Magazijn).Ugly()||(Result=##class(APPS.MAG.enu.Magazijn).Halux()))&&($$Is^PRODUKT2(PRNr,"TA")||$$Is^PRODUKT2(PRNr,"AV"))){ ; Groep tandembox en Aventos
-	 	Set Result = ##class(APPS.MAG.enu.Magazijn).TandemAventos()
-	 } 	
-	 If ((Result'=##class(APPS.MAG.enu.Magazijn).LangGoed()) && $$SmallQtyInUgly(.MagList,PRNr)){
-		 If $LF(lbBevat,"KADERD"){ 			; Klein aantal beslag voor kaderdeur -> Halux 
-	 		Set Result = ##class(APPS.MAG.enu.Magazijn).Halux()
-		 }ElseIf $LF(lbBevat,"AVENTOS"){	; Klein aantal beslag behorende bij Aventos -> Tandem/Aventos
-			Set Result = ##class(APPS.MAG.enu.Magazijn).TandemAventos()	 
-		 }
-	 }
- }
- 
- Quit Result
- 
-IsInUglyEnBevat(MagList, Result, lbBevat, ItemTeBevatten)
- New IsInUglyEnBevat 
- Set IsInUglyEnBevat = ($LF(lbBevat,ItemTeBevatten)&&((MagList["U")||(Result="U")))
- Quit IsInUglyEnBevat
- 
-KomtVanHaluxEnGeenPalletInAutomatischMagazijn(MagList,PRNr)
- New Waarde
- Set Waarde = (($D(^KPR(PRNr,"J6332"))||$D(^KPRO(PRNr,"J6332")))&&(MagList'="A"))
- Quit Waarde
- 
- ; controleert of er een klein aantal moet gepickt worden in Ugly
-SmallQtyInUgly(MagList,PRNr)
- ; MagList via .Local
- New RecJ,Verpak,MagSmall
- Quit:MagList'["U" 0 ; Komt niet voor in Ugly magazijn
- ; Controle op verpakkingshoeveelheid
- Set RecJ=$S($E($O(^KPR(PRNr,"J")))="J":^KPR(PRNr,$O(^KPR(PRNr,"J"))),1:"")
- Set:RecJ="" RecJ=$S($E($O(^KPRO(PRNr,"J")))="J":^KPRO(PRNr,$O(^KPRO(PRNr,"J"))),1:"") ; wordt ook gebruikt voor historieken of simulaties
- Set Verpak=$P(RecJ,D,16) ; Grootverpakking
- Set:$P(RecJ,D,15)>10 Verpak=$P(RecJ,D,15) ; Normverpakking indien voldoende aantal (>10) in verpakking anders grootverpakking
- Quit:Qty'<Verpak 0 ; Voor halux picking moet het aantal klein genoeg zijn
- Set MagSmall=$O(MagList("002013"))
- If ($E(MagSmall,1,6)="002013")&&(+$E(MagSmall,7,9)>12)&&(+$E(MagSmall,7,9)<25) Quit 1
- Quit 0	 	
- 
 BLDOL(KLNr,CONSNr,ORDNr,OLUNr,lbBevat,SoftV) 
  ; SoftV : via .Local
  ; Verwerken van een orderlijn met eventuele opslitsing in verschillende kindproducten
Index: BL/PPS/OL/Inpak.cls.xml
===================================================================
diff -u -r31455 -r31456
--- BL/PPS/OL/Inpak.cls.xml	(.../Inpak.cls.xml)	(revision 31455)
+++ BL/PPS/OL/Inpak.cls.xml	(.../Inpak.cls.xml)	(revision 31456)
@@ -105,6 +105,49 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="MultiCountBepaler">
+<Type>BL.PPS.OL.Inpak.MultiCountBepaler</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Property name="InpakTafelNr">
+<Type>TECH.String</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Property name="ProductTypeAPI">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Property name="BonTypeAPI">
+<Type>DOM.VKP.impl.BonTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..MultiCountBepaler = ##class(BL.PPS.OL.Inpak.MultiCountBepaler).%New()
+	Set ..ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	Set ..VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
+	Set ..BonTypeAPI = ##class(DOM.DomeinContext).Instance().GeefBonTypeAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Open">
 <Description>
 Open : Initialiseren van object (properties + ophalen sequentie)</Description>
@@ -113,13 +156,8 @@
 <Implementation><![CDATA[
 	Do ##class(BL.Prod.OptiBox.Snijden).Instantiate(..#Simulate) ; sets %blOptimize
 	Set ..BONNr = $$SHORTNUM^FLOW("KUL","KU1",BONNr)
+	Set ..InpakTafelNr = InpakTafelNr
 	
-	If ..BevatBonTAORIndeling(BONNr){
-		Set ..Output = "TAOR"	
-	}Else{
-		Set ..Output = InpakTafelNr
-	}
-	
 	if ($Get(^KU1(BONNr,"F"),"") '= "") do
 	. Set ..KlantNaam = ##class(Derde.Klant.Klant).GetFullName($P(^KU1(BONNr,"F"),..#Delim))
 	else  do
@@ -153,6 +191,7 @@
 </Method>
 
 <Method name="AutoBlockSmallOrder">
+<Private>1</Private>
 <Implementation><![CDATA[
 	#dim Max As %Integer = 1
 	Do ##class(BL.Prod.OptiBox.Snijden).Instantiate() ; sets %blOptimize	
@@ -213,6 +252,8 @@
 	Quit:((pDir>0)&&(..CurID >= ..SequenceList.Count())) $$$pxStatusErrorEx("Kan pointer niet verder voorwaarts verplaatsen", "..CurID="_..CurID_" ..SequenceList.Count()="_..SequenceList.Count()_" Dir="_pDir)
 	Quit:((pDir<1)&&(..CurID <= 1)) $$$pxStatusErrorEx("Kan pointer niet verder achterwaarts verplaatsen", "..CurID="_..CurID_" Dir="_pDir)
 	
+	Do ..BepaalOutput(pxInpakInfo.PRNr)
+	
 	// pointer incrementeren (of decrementeren)
 	Set ..CurID=$S(pDir>0:..CurID+1,1:..CurID-1)
 	
@@ -227,10 +268,6 @@
 	//   van die doos, die mag ook gesneden worden
 	// - Een product mag gesneden worden (als minstens 1 item is waarbij HasSnijDef=true
 	
-	
-		
-	
-		
 	If ($LI(SnijItem,$$$lbPosType) = "O") {
 		 Do ..PrintAllEtiket()
 		 Do ..PrintAlleEtikettenOpnieuwIndienNodigOpOverdoosVoorKlant( pxInpakInfo )
@@ -263,7 +300,7 @@
 <FormalSpec>pxInpakInfo:BL.PPS.OL.pxInpakInfo</FormalSpec>
 <Implementation><![CDATA[
 	 #dim Bon As DOM.VKP.Bon = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefBon( pxInpakInfo.BONNr )
-	 #dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant( Bon.GeefKlantID() )
+	 #dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant( Bon.GeefKlantID() )
 	 #dim EtikettenNodig As %Boolean = Klant.GeefKlantOrderInstellingen().IsExtraAfdrukVanOrgaluxEtikettenNodig()
 	 
 	 if EtikettenNodig && ( Klant.GeefID() = ##class(DOM.VKP.enu.Klant).DKGDeKeukenfabriek() ) {
@@ -440,6 +477,7 @@
 - QtyRequested ($$$snAantalQueued) = Het aantal snijopdrachten dat naar snijmachine gestuurd is
 - QtyFinished ($$$snAantalFinished) = Het aantal afgewerkte snijopdrachten</Description>
 <FormalSpec><![CDATA[SnijItem:%String,&pxInpakInfo:BL.PPS.OL.pxInpakInfo,SequenceID:%Integer]]></FormalSpec>
+<Private>1</Private>
 <ReturnType>BL.Sys.Proxy.pxStatus</ReturnType>
 <Implementation><![CDATA[
 	
@@ -519,6 +557,7 @@
 
 <Method name="BouwStenenTekst">
 <FormalSpec>PRNr:%String,LijnSep:%String,KolomSep:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set D="\"
 	Set BSKey=""
@@ -574,23 +613,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GetDeksels">
-<FormalSpec>pObjRef:%String,pObjType:%String,pPPSSubgroep:%String,pBoxDeelVan:%String</FormalSpec>
-<Implementation><![CDATA[
-	&SQL(DECLARE GetDeksels CURSOR FOR 
-		SELECT %ID as ID INTO :ID
-		FROM Prod.OptiBox_SnijData
-		WHERE (ObjRef=:pObjRef) AND (ObjType=:pObjType) AND (PPSSubgroep=:pPPSSubgroep) AND (BoxDeelVan=:pBoxDeelVan)
-	)
-	&sql(OPEN GetDeksels)
-	Set retval = ""
- 	For  &sql(FETCH GetDeksels) Quit:SQLCODE  Do
-	. Set retval = retval_$LB(ID)
-	&sql(CLOSE GetDeksels)
-	quit retval
-]]></Implementation>
-</Method>
-
 <UDLText name="T">
 <Content><![CDATA[
 /*
@@ -649,6 +671,7 @@
 Bij opstarten van de leveringsbon worden all etiketten eerst gedrukt 
 Dit omdat de kleuren labelprinter veel trager is dan een zwartwit labelprinter</Description>
 <FormalSpec>Forced:%Boolean</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	#dim MemID As %String = ..CurID ; onthouden
 	#dim ID As %Integer
@@ -668,7 +691,7 @@
 			 /// of het product is wel geprint, en het is géén multicount (m/n) dwz dat product twee keer als lijn in de bon zit.
 			 /// Let op: pxInpakInfo.PRNr kan leeg zijn, als het object een verzameldoos (voor bvb matjes of viltclips) betreft.
 			 #dim isVerzameldoos As %Boolean = ("" = pxInpakInfo.PRNr)
-			 #dim AantalMultiCount As %Integer = ..GeefAantalMultiCount(pxInpakInfo.PRNr)
+			 #dim AantalMultiCount As %Integer = ..MultiCountBepaler.GeefAantalMultiCount(pxInpakInfo.PRNr)
 			 #dim ModuloFrequentieOpAantalMultiCount As %Integer = 1
 			 If 'isVerzameldoos {
 			 	Set ModuloFrequentieOpAantalMultiCount = ##class(TECH.Math).Modulo(GeprinteProducten.GeefFrequentieVanItem(pxInpakInfo.PRNr),AantalMultiCount)
@@ -738,41 +761,25 @@
 <Implementation><![CDATA[
 	; Ophalen gegevens uit leveringsbon
 	#dim pxLabel As BL.Sys.pxLabel = ##class(BL.Etiket.Doos).Create()
-	Do ..LabelDataFromBon(BONNr,pxLabel)
+	Set pxLabel.KlantNaam = ..GeefKlantNaam(..BonTypeAPI.IsTAORIndelingBon(BONNr), BONNr)
+	Do ..LabelDataFromBon(BONNr,.pxLabel)
  	Set pxLabel.Aantal=$G(Aantal,1)
  	
  	; Instellingen voor BARTENDER
  	Set pxLabel.Device=..LabelDev()
- 	If ..BevatBonTAORIndeling(BONNr) {
-		Set pxLabel.Layout=..#LabelDoosTAORIndeling
-	}Else{
+ 	If ..BonTypeAPI.IsOrgaluxBon(BONNr) {
 		Set pxLabel.Layout=..#LabelDoosOrgalux
+	}ElseIf ..BonTypeAPI.IsTAORIndelingBon(BONNr){
+		Set pxLabel.Layout=..#LabelDoosTAORIndeling
+	}Else {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("De Bon met nummer "_BONNr_" is geen Orgalux of TAORIndeling bon.")
 	}
 	Set pxLabel.Layout = pxLabel.Layout_##class(BL.Sys.LabelPrinter).PrinterLabelSize(pxLabel.Device)
 	
 	do ##class(BL.Sys.LabelPrinter).PrintDirect2Bartender(pxLabel)
 ]]></Implementation>
 </Method>
 
-<Method name="BevatBonTAORIndeling">
-<FormalSpec>BonID:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim BevatBonTAORIndeling As %Boolean = 0
-	#dim Bon As DOM.VKP.Bon = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefBon(BonID)
-	#dim LijnIt As TECH.Iterator = Bon.GeefBonLijnIterator()
-	While LijnIt.HasNext() && 'BevatBonTAORIndeling {
-		#dim Lijn As DOM.VKP.Orderlijn = LijnIt.Next()
-		If (Lijn.GeefType()=##class(DOM.VKP.enu.BonLijnType).Product()){
-			#dim ProductLijn As DOM.VKP.ProductOrderlijn = Lijn
-			Set BevatBonTAORIndeling = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().IsTAORIndelingProduct(ProductLijn.GeefProductID())
-		}
-	}
-	Quit BevatBonTAORIndeling
-]]></Implementation>
-</Method>
-
 <Method name="PrintProductBare">
 <Description>
 Etiket(ten) printen voor 1 product zonder bijkomende controle)[ Private ]
@@ -788,6 +795,7 @@
 
 <Method name="PrintProductBarePrepare">
 <FormalSpec>BonID:%String,ProductID:%String,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
 <ReturnType>BL.Sys.LabelPrinter</ReturnType>
 <Implementation><![CDATA[
 	#dim blLabel As BL.Sys.LabelPrinter = ##class(BL.Sys.LabelPrinter).Instantiate()	
@@ -815,12 +823,13 @@
 
 <Method name="GeefProductLabels">
 <FormalSpec>BonID:%String,ProductID:%String,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="BL.Sys.pxLabel"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#dim pxLabels As %ListOfObjects = ##class(%ListOfObjects).%New()
 	#dim pxLabel As BL.Sys.pxLabel = ..GeefProductLabel(BonID,ProductID,Aantal)
-	#dim MultiCount As %Integer = ..GeefAantalMultiCount(ProductID)
+	#dim MultiCount As %Integer = ..MultiCountBepaler.GeefAantalMultiCount(ProductID)
 	If MultiCount > 1 {
 		#dim Step As %Integer
 		For Step=1:1:MultiCount {
@@ -834,86 +843,49 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalOutput">
+<FormalSpec>ProductID:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ..ProductTypeAPI.IsTAORIndelingProduct(ProductID) {
+		Set ..Output = "TAOR"
+	} Else {
+		Set ..Output = ..InpakTafelNr
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductLabel">
 <FormalSpec>BonID:%String,ProductID:%String,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
 <ReturnType>BL.Sys.pxLabel</ReturnType>
 <Implementation><![CDATA[
 	#dim pxLabel As BL.Sys.pxLabel =##class(BL.Etiket.Product).Create()
+	Do ..BepaalOutput(ProductID)
+	
 	If (BonID'=""){
-		Do ..LabelDataFromBon(BonID,pxLabel) 
+		Set pxLabel.KlantNaam = ..GeefKlantNaam(..ProductTypeAPI.IsTAORIndelingProduct(ProductID), BonID)
+		Do ..LabelDataFromBon(BonID,.pxLabel)
 	}
-	If (##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(pxLabel.KLNr)=##class(DOM.VKP.enu.Klant).Tulp()) &&
-				(ProductID?1(1"379837",1"379831",1"379843",1"379833"))
-	{
-		Set pxLabel = ..GeefProductLabelTulpSphinx(pxLabel,ProductID)
-	}Else{
-		Do ..LabelDataFromProduct(ProductID,pxLabel) 
+	Do ..LabelDataFromProduct(ProductID,pxLabel) 
 
-	 	Set pxLabel.Aantal = Aantal
-	 	If Aantal > 1 Set pxLabel.MultiDeel="x"_Aantal, pxLabel.Aantal=1
-	
-		Set pxLabel.Device=..LabelDev()
-		If ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().IsTAORIndelingProduct(ProductID) {
-			Set pxLabel.Layout = ..#LabelProductTAORIndeling
-		}Else{
-			Set pxLabel.Layout = ..#LabelProductOrgalux
-		}
-		Set pxLabel.Layout = pxLabel.Layout_##class(BL.Sys.LabelPrinter).PrinterLabelSize(pxLabel.Device)
-	}
-	Quit pxLabel
-]]></Implementation>
-</Method>
+ 	Set pxLabel.Aantal = Aantal
+ 	If Aantal > 1 Set pxLabel.MultiDeel="x"_Aantal, pxLabel.Aantal=1
 
-<Method name="GeefAantalMultiCount">
-<Description>
-bepalen of er meer dan 1 doos is voor dit product
-EN bepalen of er meer dan 1 product in de doos zit</Description>
-<FormalSpec>ProductID:%String</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	#dim MultiCount As %Integer = 0
-	#dim Query As %String = "SELECT %ID as ID,CutOrder,Aantal, AantalExec FROM Prod.OptiBox_BoxData WHERE DeelVan IS NULL AND (ObjType=?) AND (ObjRef=?) ORDER BY CutOrder ASC"
-	#dim RS As %ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB("PR",ProductID))
-	While RS.Next(){
-		If '((RS.Data("Aantal")=-1)||(RS.Data("AantalExec")=-1)) ; Non-actief
-		{
-			#dim BoxData As DS.Prod.OptiBox.BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(RS.Data("ID"))
-			If (BoxData.Plaatsing = "INNER"){
-				Set MultiCount = MultiCount + 1
-			}
-		}	
+	Set pxLabel.Device=..LabelDev()
+	If ..ProductTypeAPI.IsTAORIndelingProduct(ProductID) {
+		Set pxLabel.Layout = ..#LabelProductTAORIndeling
+	}Else{
+		Set pxLabel.Layout = ..#LabelProductOrgalux
 	}
-	Do RS.%Close()
-	Set RS = ""
-	Quit MultiCount
-]]></Implementation>
-</Method>
-
-<Method name="GeefProductLabelTulpSphinx">
-<FormalSpec>pxLabel:BL.Sys.pxLabel,PRNr:%String</FormalSpec>
-<ReturnType>BL.Sys.pxLabel</ReturnType>
-<Implementation><![CDATA[
-	#dim String As %String=  ""
-	Set:PRNr=379831 String="S8C08005ZZ0\8711754360969\KASTINDELER 60CM ONDB.KAST SPH430\SUBDIVISION 60CM MEUBLE LAV. SPH430\ROOMDIVIDER UNDERC. CAB 60CM SPH430\SCHUBLADEN 60CM WT.SCHR.SPH430"
-	Set:PRNr=379843 String="S8C08006ZZ0\8711754360976\KASTINDELER 70CM ONDB.KAST SPH430\SUBDIVISION 70CM MEUBLE LAV. SPH430\ROOMDIVIDER UNDERC. CAB 70CM SPH430\SCHUBLADEN 70CM WT.SCHR.SPH430"
-	Set:PRNr=379833 String="S8C08007ZZ0\8711754360983\KASTINDELER 80CM ONDB.KAST SPH430\SUBDIVISION 80CM MEUBLE LAV. SPH430\ROOMDIVIDER UNDERC. CAB 80CM SPH430\SCHUBLADEN 80CM WT.SCHR.SPH430"
-	Set:PRNr=379837 String="S8C08008ZZ0\8711754360990\KASTINDELER 100CM ONDB.KAST SPH430\SUBDIVISION 100CM MEUBLE LAV. SPH430\ROOMDIVIDER UNDERC. CAB 100CM SPH430\SCHUBLADEN 100CM WT.SCHR.SPH430"
-	If $G(String) '= "" {
-		Set pxLabel.Device=..LabelDev()
-		Set pxLabel.Layout="OLProductSphinx6x10"
-		Set pxLabel.KortTekst=$P(String,"\",1)
-		Set pxLabel.OrderRef=$P(String,"\",2)
-		Set pxLabel.LangTekst1=$P(String,"\",3)
-		Set pxLabel.LangTekst2=$P(String,"\",4)
-		Set pxLabel.LangTekst3=$P(String,"\",5)
-		Set pxLabel.LangTekst4=$P(String,"\",6)
-	}
+	Set pxLabel.Layout = pxLabel.Layout_##class(BL.Sys.LabelPrinter).PrinterLabelSize(pxLabel.Device)
 	Quit pxLabel
 ]]></Implementation>
 </Method>
 
 <Method name="LabelDataFromProduct">
 <FormalSpec>PRNr:%String,pxLabel:BL.Sys.pxLabel</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Quit:PRNr'?4.7N
 	#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
@@ -938,7 +910,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim ProductAfbeelding As %String = ""
-	If ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().IsOrgaluxProduct(ProductID){
+	If ..ProductTypeAPI.IsOrgaluxProduct(ProductID){
 		#dim UnID As %String = ProductID
 		If ##class(BL.Kenm.ProdMulti).ProdIsMultipleCM(ProductID,"OL") {
 		 	#dim blKenm As BL.Kenm.ProdMulti = ##class(BL.Kenm.ProdMulti).Create("OL")
@@ -952,12 +924,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantNaam">
+<FormalSpec>IsTAORIndeling:%Boolean,BONNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim KlantNaam As TECH.String = ""
+	#dim Bon As DOM.VKP.Bon = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefBon(BONNr)
+	If IsTAORIndeling {
+		#dim KlantID As DOM.common.PartijID = Bon.GeefKlantID()
+		Set KlantNaam = ..VerkoopAPI.GeefKlant(KlantID).GeefNaam()
+	}Else{
+		Set KlantNaam = Bon.GeefLeveringsAdres().GeefNaam()
+	}
+	Quit KlantNaam
+]]></Implementation>
+</Method>
+
 <Method name="LabelDataFromBon">
-<FormalSpec>BONNr:%String,pxLabel:BL.Sys.pxLabel</FormalSpec>
+<FormalSpec><![CDATA[BONNr:%String,&pxLabel:BL.Sys.pxLabel]]></FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	#dim Bon As DOM.VKP.Bon = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefBon(BONNr)
 	#dim D As %String = "\"
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(Bon.GeefKlantID())
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(Bon.GeefKlantID())
 	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(Bon.GeefKlantID())
 	#dim KLNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.GeefID())
 	#dim FakSoort As %String =$S($P(^KU1(BONNr,"F"),D,2):"G",1:"F") ; Reeds gefactureerd
@@ -966,11 +956,6 @@
 	}
 	#dim Leveringadres As DOM.common.Adres = Bon.GeefLeveringsAdres()
 	Set pxLabel.BonNr = $$EXTNUM^vhLib.DataTypes(BONNr,0,".",0)
-	If ..BevatBonTAORIndeling(BONNr) {
-		Set pxLabel.KlantNaam = Klant.GeefNaam()
-	}Else{
-		Set pxLabel.KlantNaam = Leveringadres.GeefNaam()
-	}
 	Set pxLabel.KLNr=KLNr
 	Set pxLabel.Gemeente=$E(Leveringadres.GeefGemeente(),1,18)
 	Set pxLabel.Taal = Partij.GeefTaal()
@@ -1000,6 +985,7 @@
 <Method name="LabelDev">
 <Description>
 LabelPrinter is afhankelijk van de werkpost bepaalt door property Output</Description>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Quit:..Output=2 ..#LabelPrinter2
 	Quit:..Output=3 ..#LabelPrinter3
@@ -1466,6 +1452,9 @@
 <Value name="8">
 <Value>Output</Value>
 </Value>
+<Value name="9">
+<Value>BonTypeAPI</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
FishEye: Tag 31456 refers to a dead (removed) revision in file `vhUnitTest/BL/PPS/OL/TestInpakSphinxUitzondering.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: BL/Legacy/EWORDSW.cls.xml
===================================================================
diff -u -r31455 -r31456
--- BL/Legacy/EWORDSW.cls.xml	(.../EWORDSW.cls.xml)	(revision 31455)
+++ BL/Legacy/EWORDSW.cls.xml	(.../EWORDSW.cls.xml)	(revision 31456)
@@ -1,20 +1,20 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="BL.Legacy.EWORDSW">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="Bevat">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>CONSNr:%String</FormalSpec>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
-		#dim lbBevat As %List = ""
-		Set:$$ISORGAL^FLOWCHK("L",CONSNr) lbBevat=lbBevat_$LB(##class(BL.Legacy.enu.ProductBevatType).Orgalux())
-		Set:$$ISKADERD^FLOWCHK("L",CONSNr) lbBevat=lbBevat_$LB(##class(BL.Legacy.enu.ProductBevatType).Kaderdeur())
-		Set:$$BevatAventos^FLOWCHK("L",CONSNr) lbBevat=lbBevat_$LB(##class(BL.Legacy.enu.ProductBevatType).Aventos())
-		Set:$$BevatTandem^FLOWCHK("L",CONSNr) lbBevat=lbBevat_$LB(##class(BL.Legacy.enu.ProductBevatType).Tandem())
-		Set:$$HeeftTAORIndeling^FLOWCHK("L",CONSNr) lbBevat=lbBevat_$LB(##class(BL.Legacy.enu.ProductBevatType).TaorIndeling())
-		Quit lbBevat
+	#dim lbBevat As %List = ""
+	Set:$$ISORGAL^FLOWCHK("L",CONSNr) lbBevat=lbBevat_$LB(##class(BL.Legacy.enu.ProductBevatType).Orgalux())
+	Set:$$ISKADERD^FLOWCHK("L",CONSNr) lbBevat=lbBevat_$LB(##class(BL.Legacy.enu.ProductBevatType).Kaderdeur())
+	Set:$$BevatAventos^FLOWCHK("L",CONSNr) lbBevat=lbBevat_$LB(##class(BL.Legacy.enu.ProductBevatType).Aventos())
+	Set:$$BevatTandem^FLOWCHK("L",CONSNr) lbBevat=lbBevat_$LB(##class(BL.Legacy.enu.ProductBevatType).Tandem())
+	Set:$$HeeftTAORIndeling^FLOWCHK("L",CONSNr) lbBevat=lbBevat_$LB(##class(BL.Legacy.enu.ProductBevatType).TaorIndeling())
+	Quit lbBevat
 ]]></Implementation>
 </Method>
 
@@ -23,18 +23,117 @@
 <FormalSpec>ProductID:%String</FormalSpec>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
-		#dim ProductBevatType As %String = ""
-		#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
-		
-		Set:(ProductTypeAPI.IsOrgaluxProduct(ProductID)) ProductBevatType = ##class(BL.Legacy.enu.ProductBevatType).Orgalux()
-		Set:(ProductTypeAPI.IsKaderdeurProduct(ProductID)) ProductBevatType = ##class(BL.Legacy.enu.ProductBevatType).Kaderdeur()
-		Set:($$IsAventos^PRODUKT2(ProductID)) ProductBevatType = ##class(BL.Legacy.enu.ProductBevatType).Aventos()
-		Set:($$IsTandem^PRODUKT2(ProductID)) ProductBevatType = ##class(BL.Legacy.enu.ProductBevatType).Tandem()
-		Set:(ProductTypeAPI.IsTAORIndelingProduct(ProductID)) ProductBevatType = ##class(BL.Legacy.enu.ProductBevatType).TaorIndeling()
-		
-		Quit $LB(ProductBevatType)
+	#dim ProductBevatType As %String = ""
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	
+	Set:(ProductTypeAPI.IsOrgaluxProduct(ProductID)) ProductBevatType = ##class(BL.Legacy.enu.ProductBevatType).Orgalux()
+	Set:(ProductTypeAPI.IsKaderdeurProduct(ProductID)) ProductBevatType = ##class(BL.Legacy.enu.ProductBevatType).Kaderdeur()
+	Set:($$IsAventos^PRODUKT2(ProductID)) ProductBevatType = ##class(BL.Legacy.enu.ProductBevatType).Aventos()
+	Set:($$IsTandem^PRODUKT2(ProductID)) ProductBevatType = ##class(BL.Legacy.enu.ProductBevatType).Tandem()
+	Set:(ProductTypeAPI.IsTAORIndelingProduct(ProductID)) ProductBevatType = ##class(BL.Legacy.enu.ProductBevatType).TaorIndeling()
+	
+	Quit $LB(ProductBevatType)
 ]]></Implementation>
 </Method>
+
+<Method name="SOFTV">
+<Description>
+Bepaalt in welke pickingzone (aka "SoftwareVerwerking"; "softmag") een product gepicked moet worden.</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr:%String,KLNr:%String,Qty:%Integer,lbProductTypesInConsolidatie:%List,Force:%Boolean</FormalSpec>
+<ReturnType>APPS.MAG.enu.Magazijn</ReturnType>
+<Implementation><![CDATA[
+ // lbProductTypesInConsolidatie As %List<BL.Legacy.enu.ProductBevatType> : lijst van soorten producten die in de consolidatie zitten. Dit dient om bvb ORGALUX en TA'OR Cubics kindproducten in de juiste Ugly-rubriek te krijgen.
+ #dim Mag,MagList,PALNr,Rec2 As %String
+ #dim Magazijn As APPS.MAG.enu.Magazijn = ##class(APPS.MAG.enu.Magazijn).EWMS()
+ If '$G(Force),'$G(^EWREC("P","UPSEND")) Quit Magazijn ; UglyPicking niet actief
+ ; Controle of er een pallet bestaat in de auto en of ugly mag.
+ Set PALNr="",MagList=""
+ For { Set PALNr=$O(^EWPAL("D",PRNr,PALNr)) Quit:PALNr=""
+	continue:+$P($G(^EWPAL("D",PRNr,PALNr)),"\",1)<1
+	Set Mag=+$E($P($G(^EWPAL("D",PRNr,PALNr)),"\",2),1,3)
+	Set:Mag=1&(MagList'[##class(APPS.MAG.enu.Magazijn).TandemAventos()) MagList=MagList_##class(APPS.MAG.enu.Magazijn).TandemAventos()
+	Set:Mag>1&(Mag<5)&(MagList'[##class(APPS.MAG.enu.Magazijn).Ugly()) MagList=MagList_##class(APPS.MAG.enu.Magazijn).Ugly()
+	Set MagList($P($G(^EWPAL("D",PRNr,PALNr)),"\",2)_" ")=""
+ }
+ 
+ Set Rec2=$G(^KPR(PRNr,2)) Set:Rec2="" Rec2=$G(^KPRO(PRNr,2)) ; wordt ook opgeroepen door Rendab (historiek)
+ Set:$P(Rec2,"\",15)=3 Magazijn = ##class(APPS.MAG.enu.Magazijn).LangGoed() ; Langgoed
+ Set:($P(Rec2,"\",15)=2 && ($$$Not(MagList = ##class(APPS.MAG.enu.Magazijn).TandemAventos()))) Magazijn = ##class(APPS.MAG.enu.Magazijn).Ugly() ; UglyPicking (behalve indien alle palletten in auto.mag
+ Set:($P(Rec2,"\",15)=1 && (MagList = ##class(APPS.MAG.enu.Magazijn).Ugly())) Magazijn = ##class(APPS.MAG.enu.Magazijn).Ugly() ; UglyPicking (goederen bedoeld voor automatisch mag. maar alle palletten staan in ugly
+ 
+ // N.B. Bij het sluiten van een order, worden eventuele ORGALUX-lijnen sowieso afgesplitst naar een gekoppeld ORGALUX-order, en idem voor TA'OR cubics.
+ // Daarom is het correct om te stellen dat een product in het ugly-magazijn bij ORGALUX (of TA'OR cubics) moet gepicked worden, als het een dergelijk order/consolidatie betreft.
+ If ..IsInUglyEnBevat(MagList,Magazijn,lbProductTypesInConsolidatie,##class(BL.Legacy.enu.ProductBevatType).Orgalux()) {
+	 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).TAORIndeling()
+ }ElseIf ..KomtVanHaluxEnGeenPalletInAutomatischMagazijn(MagList,PRNr) {
+	 Set Magazijn = ##class(APPS.MAG.enu.Magazijn).Halux()
+ }
+ 
+ If ((Magazijn'=##class(APPS.MAG.enu.Magazijn).Orgalux()) && (Magazijn'=##class(APPS.MAG.enu.Magazijn).TAORIndeling())){ 
+	 If ((Magazijn=##class(APPS.MAG.enu.Magazijn).Ugly()||(Magazijn=##class(APPS.MAG.enu.Magazijn).Halux()))&&($$Is^PRODUKT2(PRNr,"TA")||$$Is^PRODUKT2(PRNr,"AV"))){ ; Groep tandembox en Aventos
+	 	Set Magazijn = ##class(APPS.MAG.enu.Magazijn).TandemAventos()
+	 } 	
+	 If ((Magazijn'=##class(APPS.MAG.enu.Magazijn).LangGoed()) && ..SmallQtyInUgly(.MagList,PRNr,Qty)){
+		 If $LF(lbProductTypesInConsolidatie,"KADERD"){ 			; Klein aantal beslag voor kaderdeur -> Halux 
+	 		Set Magazijn = ##class(APPS.MAG.enu.Magazijn).Halux()
+		 }ElseIf $LF(lbProductTypesInConsolidatie,"AVENTOS"){	; Klein aantal beslag behorende bij Aventos -> Tandem/Aventos
+			Set Magazijn = ##class(APPS.MAG.enu.Magazijn).TandemAventos()	 
+		 }
+	 }
+ }
+ Quit Magazijn
+]]></Implementation>
+</Method>
+
+<Method name="IsInUglyEnBevat">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MagList:%String,Magazijn:APPS.MAG.enu.Magazijn,lbProductTypesInConsolidatie:%List,ItemTeBevatten:BL.Legacy.enu.ProductBevatType</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..IsInUgly(MagList,Magazijn) && $LF(lbProductTypesInConsolidatie,ItemTeBevatten)
+]]></Implementation>
+</Method>
+
+<Method name="IsInUgly">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MagList:%String,Magazijn:APPS.MAG.enu.Magazijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ((MagList[##class(APPS.MAG.enu.Magazijn).Ugly()) || (Magazijn=##class(APPS.MAG.enu.Magazijn).Ugly()))
+]]></Implementation>
+</Method>
+
+<Method name="KomtVanHaluxEnGeenPalletInAutomatischMagazijn">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MagList:%String,PRNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit (($D(^KPR(PRNr,"J6332"))||$D(^KPRO(PRNr,"J6332")))&&(MagList'="A"))
+]]></Implementation>
+</Method>
+
+<Method name="SmallQtyInUgly">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MagList:%String,PRNr:%String,Qty:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim MagSmall,RecJ,Verpak
+	Quit:MagList'["U" 0 ; Komt niet voor in Ugly magazijn
+	; Controle op verpakkingshoeveelheid
+	Set RecJ=$S($E($O(^KPR(PRNr,"J")))="J":^KPR(PRNr,$O(^KPR(PRNr,"J"))),1:"")
+	Set:RecJ="" RecJ=$S($E($O(^KPRO(PRNr,"J")))="J":^KPRO(PRNr,$O(^KPRO(PRNr,"J"))),1:"") ; wordt ook gebruikt voor historieken of simulaties
+	Set Verpak=$P(RecJ,"\",16) ; Grootverpakking
+	Set:$P(RecJ,"\",15)>10 Verpak=$P(RecJ,"\",15) ; Normverpakking indien voldoende aantal (>10) in verpakking anders grootverpakking
+	Quit:Qty'<Verpak 0 ; Voor halux picking moet het aantal klein genoeg zijn
+	Set MagSmall=$O(MagList("002013"))
+	If ($E(MagSmall,1,6)="002013")&&(+$E(MagSmall,7,9)>12)&&(+$E(MagSmall,7,9)<25) Quit 1
+	Quit 0
+]]></Implementation>
+</Method>
 </Class>
 
 
FishEye: Tag 31455 refers to a dead (removed) revision in file `vhUnitTest/BL/PPS/OL/DummyInpak.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 31455 refers to a dead (removed) revision in file `BL/PPS/OL/Inpak/MultiCountBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?