Index: BL/PPS/OL/Inpak.cls.xml
===================================================================
diff -u -r31391 -r31455
--- BL/PPS/OL/Inpak.cls.xml	(.../Inpak.cls.xml)	(revision 31391)
+++ BL/PPS/OL/Inpak.cls.xml	(.../Inpak.cls.xml)	(revision 31455)
@@ -105,49 +105,6 @@
 <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>
@@ -156,8 +113,13 @@
 <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
@@ -191,7 +153,6 @@
 </Method>
 
 <Method name="AutoBlockSmallOrder">
-<Private>1</Private>
 <Implementation><![CDATA[
 	#dim Max As %Integer = 1
 	Do ##class(BL.Prod.OptiBox.Snijden).Instantiate() ; sets %blOptimize	
@@ -252,8 +213,6 @@
 	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)
 	
@@ -268,6 +227,10 @@
 	//   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 )
@@ -300,7 +263,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 = ..VerkoopAPI.GeefKlant( Bon.GeefKlantID() )
+	 #dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant( Bon.GeefKlantID() )
 	 #dim EtikettenNodig As %Boolean = Klant.GeefKlantOrderInstellingen().IsExtraAfdrukVanOrgaluxEtikettenNodig()
 	 
 	 if EtikettenNodig && ( Klant.GeefID() = ##class(DOM.VKP.enu.Klant).DKGDeKeukenfabriek() ) {
@@ -477,7 +440,6 @@
 - 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[
 	
@@ -557,7 +519,6 @@
 
 <Method name="BouwStenenTekst">
 <FormalSpec>PRNr:%String,LijnSep:%String,KolomSep:%String</FormalSpec>
-<Private>1</Private>
 <Implementation><![CDATA[
 	Set D="\"
 	Set BSKey=""
@@ -613,6 +574,23 @@
 ]]></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[
 /*
@@ -671,7 +649,6 @@
 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
@@ -691,7 +668,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 = ..MultiCountBepaler.GeefAantalMultiCount(pxInpakInfo.PRNr)
+			 #dim AantalMultiCount As %Integer = ..GeefAantalMultiCount(pxInpakInfo.PRNr)
 			 #dim ModuloFrequentieOpAantalMultiCount As %Integer = 1
 			 If 'isVerzameldoos {
 			 	Set ModuloFrequentieOpAantalMultiCount = ##class(TECH.Math).Modulo(GeprinteProducten.GeefFrequentieVanItem(pxInpakInfo.PRNr),AantalMultiCount)
@@ -761,25 +738,41 @@
 <Implementation><![CDATA[
 	; Ophalen gegevens uit leveringsbon
 	#dim pxLabel As BL.Sys.pxLabel = ##class(BL.Etiket.Doos).Create()
-	Set pxLabel.KlantNaam = ..GeefKlantNaam(..BonTypeAPI.IsTAORIndelingBon(BONNr), BONNr)
-	Do ..LabelDataFromBon(BONNr,.pxLabel)
+	Do ..LabelDataFromBon(BONNr,pxLabel)
  	Set pxLabel.Aantal=$G(Aantal,1)
  	
  	; Instellingen voor BARTENDER
  	Set pxLabel.Device=..LabelDev()
- 	If ..BonTypeAPI.IsOrgaluxBon(BONNr) {
-		Set pxLabel.Layout=..#LabelDoosOrgalux
-	}ElseIf ..BonTypeAPI.IsTAORIndelingBon(BONNr){
+ 	If ..BevatBonTAORIndeling(BONNr) {
 		Set pxLabel.Layout=..#LabelDoosTAORIndeling
-	}Else {
-		Do ##class(TECH.Exceptions.InvalidInputException).Throw("De Bon met nummer "_BONNr_" is geen Orgalux of TAORIndeling bon.")
+	}Else{
+		Set pxLabel.Layout=..#LabelDoosOrgalux
 	}
 	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 ]
@@ -795,7 +788,6 @@
 
 <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()	
@@ -823,13 +815,12 @@
 
 <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 = ..MultiCountBepaler.GeefAantalMultiCount(ProductID)
+	#dim MultiCount As %Integer = ..GeefAantalMultiCount(ProductID)
 	If MultiCount > 1 {
 		#dim Step As %Integer
 		For Step=1:1:MultiCount {
@@ -843,49 +834,86 @@
 ]]></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'=""){
-		Set pxLabel.KlantNaam = ..GeefKlantNaam(..ProductTypeAPI.IsTAORIndelingProduct(ProductID), BonID)
-		Do ..LabelDataFromBon(BonID,.pxLabel)
+		Do ..LabelDataFromBon(BonID,pxLabel) 
 	}
-	Do ..LabelDataFromProduct(ProductID,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) 
 
- 	Set pxLabel.Aantal = Aantal
- 	If Aantal > 1 Set pxLabel.MultiDeel="x"_Aantal, pxLabel.Aantal=1
+	 	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.Device=..LabelDev()
-	If ..ProductTypeAPI.IsTAORIndelingProduct(ProductID) {
-		Set pxLabel.Layout = ..#LabelProductTAORIndeling
-	}Else{
-		Set pxLabel.Layout = ..#LabelProductOrgalux
+<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.Layout = pxLabel.Layout_##class(BL.Sys.LabelPrinter).PrinterLabelSize(pxLabel.Device)
+	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)
+	}
 	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)
@@ -910,7 +938,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim ProductAfbeelding As %String = ""
-	If ..ProductTypeAPI.IsOrgaluxProduct(ProductID){
+	If ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().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")
@@ -924,30 +952,12 @@
 ]]></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><![CDATA[BONNr:%String,&pxLabel:BL.Sys.pxLabel]]></FormalSpec>
-<Private>1</Private>
+<FormalSpec>BONNr:%String,pxLabel:BL.Sys.pxLabel</FormalSpec>
 <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 = ..VerkoopAPI.GeefKlant(Bon.GeefKlantID())
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().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
@@ -956,6 +966,11 @@
 	}
 	#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()
@@ -985,7 +1000,6 @@
 <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
@@ -1452,9 +1466,6 @@
 <Value name="8">
 <Value>Output</Value>
 </Value>
-<Value name="9">
-<Value>BonTypeAPI</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
Index: BL/Legacy/EWORDSW.cls.xml
===================================================================
diff -u -r31358 -r31455
--- BL/Legacy/EWORDSW.cls.xml	(.../EWORDSW.cls.xml)	(revision 31358)
+++ BL/Legacy/EWORDSW.cls.xml	(.../EWORDSW.cls.xml)	(revision 31455)
@@ -1,20 +1,20 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="BL.Legacy.EWORDSW">
-<Super>TECH.RegisteredObject</Super>
+<Super>%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,117 +23,18 @@
 <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 31376 refers to a dead (removed) revision in file `vhUnitTest/BL/PPS/OL/TestInpakSphinxUitzondering.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: EWORDSW.mac.rou
===================================================================
diff -u -r31363 -r31455
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 31363)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 31455)
@@ -198,8 +198,7 @@
  .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 = $$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))
+ ..Set lbBevat = ##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)
@@ -241,10 +240,77 @@
  Quit
  
  
-SOFTV(PRNr, KLNr,Qty,lbProductTypesInConsolidatie ,Force=0) ; SoftwareVerwerking
- Quit ##class(BL.Legacy.EWORDSW).SOFTV(PRNr,KLNr,Qty,lbProductTypesInConsolidatie,Force)
+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)_" ")=""
  
+ 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: vhUnitTest/BL/PPS/OL/TestInpak.cls.xml
===================================================================
diff -u -r31379 -r31455
--- vhUnitTest/BL/PPS/OL/TestInpak.cls.xml	(.../TestInpak.cls.xml)	(revision 31379)
+++ vhUnitTest/BL/PPS/OL/TestInpak.cls.xml	(.../TestInpak.cls.xml)	(revision 31455)
@@ -195,7 +195,7 @@
 	
 	Do $$$AssertEquals(Inpak.BONNr,..Bon.GeefID())
 	Do $$$AssertEquals(Inpak.KlantNaam,"UNITTEST CONSUMENT")
-	Do $$$AssertEquals(Inpak.Output,1, "Output is gedefault omdat deze per product moet wijzigen")
+	Do $$$AssertEquals(Inpak.Output,InpakTafelNr)
 	Do $$$AssertEquals(Inpak.Count,1,"Aantal overdozen ??")
 	Do $$$AssertEquals(Inpak.SequenceList.Count(),2)
 	
@@ -207,14 +207,15 @@
 <Implementation><![CDATA[
 	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(..Consument.GeefID())
 	
-	Set Inpak = ##class(vhUnitTest.BL.PPS.OL.DummyInpak).%New()
+	Set Inpak = ##class(BL.PPS.OL.Inpak).%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")
@@ -228,7 +229,7 @@
 
 <Method name="TestLabelDataFromProduct">
 <Implementation><![CDATA[
-	Set Inpak = ##class(vhUnitTest.BL.PPS.OL.DummyInpak).%New()
+	Set Inpak = ##class(BL.PPS.OL.Inpak).%New()
 	#dim pxLabel As BL.Etiket.Product = ##class(BL.Etiket.Product).%New()
 	Do Inpak.LabelDataFromProduct(1018,pxLabel)
 	
@@ -248,7 +249,7 @@
 	Do ..VerwijderSnijData()
 	Do ..MaakSnijData()
 	
-	Set Inpak = ##class(vhUnitTest.BL.PPS.OL.DummyInpak).%New()
+	Set Inpak = ##class(BL.PPS.OL.Inpak).%New()
 	#dim labelPrinter As BL.Sys.LabelPrinter = Inpak.PrintProductBarePrepare(..Bon.GeefID(),1018,1)
 	
 	Do $$$AssertEquals(labelPrinter.Data,2,"Aantal bestanden")
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?