Index: BL/Flow/Levering/Label.cls.xml
===================================================================
diff -u -r1074 -r2523
--- BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 1074)
+++ BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 2523)
@@ -113,23 +113,44 @@
 <Method name="PrintLabelKlantAdres">
 <Description>
 Afdruk van een label voor een klantpallet</Description>
-<FormalSpec>Printer:%String="0",Aantal:%Numeric=1</FormalSpec>
+<FormalSpec>Printer:%String="0",Aantal:%Numeric=1,MagazijnID:%String=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set UserIDPicker = ""
     If ..BONNr="" Quit $$$ERROR($$$GeneralError,"BONNr is leeg")
     If Printer="" Quit $$$ERROR($$$GeneralError,"Printer is niet ingevuld")
-	If $D(^ORDW("D",..BONNr)) Do 
-	. Set xCons=$G(^ORDW("D",..BONNr))
-    . If xCons="" Set KLNr="" Quit
-    . Set xAdres=$G(^ORDW("D",..BONNr,"A"))
-    . Set Verzw=$P(xCons,"\",2)
-    Else  Do
-    . Set KLNr=$P(^KU1(..BONNr,"F"),"\")
-    . Set FacSoort=$$NODE^FLOWBON(..BONNr)
-	. Set Rec=^KUL(KLNr,FacSoort,..BONNr,1)
-    . Set xHeader=$G(^KUL(KLNr,FacSoort,..BONNr,1))
-    . Set xAdres=$G(^KUL(KLNr,FacSoort,..BONNr,3))    
-    . set Verzw=$P($P($P(xHeader,"\",7),"#")," ")
+	If $D(^ORDW("D",..BONNr))
+	{ 
+		Set xCons=$G(^ORDW("D",..BONNr))
+    	If xCons="" Set KLNr="" Quit
+    	Set xAdres=$G(^ORDW("D",..BONNr,"A"))
+    	Set Verzw=$P(xCons,"\",2)
+    	If (MagazijnID '= "")
+    	{
+	    	Set SublijnInBonIterator = ##class(APPS.MAG.UGLYPicking.impl.SublijnInBonIterator).%New(..BONNr)
+	    	If (SublijnInBonIterator.HasNext())
+	    	{
+		    	Set Sublijn = SublijnInBonIterator.Next()
+		    	While (Sublijn.VerwerkingSoftware '= MagazijnID) && (SublijnInBonIterator.HasNext())
+		    	{
+			    	Set Sublijn = SublijnInBonIterator.Next()
+		    	}
+		    	If (Sublijn.VerwerkingSoftware = MagazijnID)
+		    	{
+			    	Set UserIDPicker = Sublijn.UserID
+		    	}
+	    	}
+    	}
+	}
+    Else
+    {
+    	Set KLNr=$P(^KU1(..BONNr,"F"),"\")
+    	Set FacSoort=$$NODE^FLOWBON(..BONNr)
+		Set Rec=^KUL(KLNr,FacSoort,..BONNr,1)
+    	Set xHeader=$G(^KUL(KLNr,FacSoort,..BONNr,1))
+    	Set xAdres=$G(^KUL(KLNr,FacSoort,..BONNr,3))    
+    	set Verzw=$P($P($P(xHeader,"\",7),"#")," ")
+    }
     Set KLNr=..GetAfzender(..BONNr)
     If KLNr="" Quit $$$ERROR($$$GeneralError,"Verkeerd bonnummer "_..BONNr_": geen data in de global.")
     Set ..pxLabelKlant=##class(BL.Flow.Levering.sub.pxKlantPallet).Create()
@@ -147,10 +168,11 @@
     Set ..pxLabelKlant.Verzendwijze=Verzw_$S($$ISORGAL^FLOW("L",..BONNr):"+",1:"")
     Set ..pxLabelKlant.KlantnaamBIG=$Piece(xAdres,"\",2)
     Set ..pxLabelKlant.CommRef=..CommissieRef(KLNr,..BONNr)
+    Set ..pxLabelKlant.UserIDPicker = UserIDPicker
+    Set ..pxLabelKlant.MagazijnID = MagazijnID
     ; inherited properties
     Set ..pxLabelKlant.Taal=$Piece(^KKL(^KK1(KLNr),0),"\",9)
     Set ..pxLabelKlant.Aantal=Aantal
-    
     Set ..pxLabelKlant.Layout = ..blLabelPrinter.LayoutTemplate(Printer,"KLANT_ADRES")
     
     //Set ..pxLabelKlant.Device=Printer