Index: BL/Flow/Levering/Label.cls.xml
===================================================================
diff -u -r67600 -r70157
--- BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 67600)
+++ BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 70157)
@@ -189,6 +189,11 @@
     Set ..pxLabelKlant.Aantal=Aantal
     Set ..pxLabelKlant.Layout = ..blLabelPrinter.LayoutTemplate(Printer,"KLANT_ADRES")
     
+    If (..pxLabelKlant.Layout = "KlantAdres 8x11") {
+	    #dim Submagazijn As %String = ..GeefSubmagazijnVoorTransferOrder()
+	    Set ..pxLabelKlant.Verzendwijze = ##class(BL.Flow.Levering.VerzendwijzeVoorSubmagazijnBepaler).%New().GeefVerzendwijzeVoorSubmagazijn(Submagazijn)
+    }
+    
    	If Printer["\\" Set ..pxLabelKlant.Device=Printer  ;als het UNC-pad van de printer wordt doorgegeven vul je het rechstreeks in
    	Else  Set ..pxLabelKlant.Device=##class(BL.Sys.LabelPrinter).FullDevicePad(Printer)
 		
@@ -381,6 +386,26 @@
 	Quit $$OMSCHR^PRKLEUR(PRNr,Taal)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefSubmagazijnVoorTransferOrder">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Bon As DOM.VKP.Bon = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefBon(..BONNr)
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	#dim ProductLijnen As TECH.Iterator = Bon.GeefTypeBonLijnIterator(##class(DOM.VKP.enu.BonLijnType).Product())
+	#dim Submagazijn As %String = ""
+	
+	If (ProductLijnen.HasNext()) {
+		#dim ProductLijn As DOM.VKP.ProductOrderlijn = ProductLijnen.Next()
+		If $$$Not(ProductLijn.GeefAantal() = 0) {
+			Set Submagazijn = $Piece($Get(^KPR(ProductLijn.GeefProductID(), 15)), "\", 12)
+		}
+	}
+	
+	Quit Submagazijn
+]]></Implementation>
+</Method>
 </Class>