Index: BL/Flow/Levering/VerzendwijzeVoorSubmagazijnBepaler.cls.xml
===================================================================
diff -u -r70155 -r70240
--- BL/Flow/Levering/VerzendwijzeVoorSubmagazijnBepaler.cls.xml	(.../VerzendwijzeVoorSubmagazijnBepaler.cls.xml)	(revision 70155)
+++ BL/Flow/Levering/VerzendwijzeVoorSubmagazijnBepaler.cls.xml	(.../VerzendwijzeVoorSubmagazijnBepaler.cls.xml)	(revision 70240)
@@ -5,9 +5,9 @@
 
 <Method name="GeefVerzendwijzeVoorSubmagazijn">
 <FormalSpec>Submagazijn:TECH.String</FormalSpec>
-<ReturnType>TECH.String</ReturnType>
+<ReturnType>BL.Flow.Levering.enu.HaluxVerzendwijze</ReturnType>
 <Implementation><![CDATA[
-	#dim HaluxVerzendwijze As TECH.String = ""
+	#dim HaluxVerzendwijze As BL.Flow.Levering.enu.HaluxVerzendwijze
 	
 	If Submagazijn = "ALHD" 		{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THD() }
 	ElseIf Submagazijn = "CCYST" 	{ Set HaluxVerzendwijze = ##class(BL.Flow.Levering.enu.HaluxVerzendwijze).THD() }
Index: BL/Flow/Levering/sub/pxKlantPallet.cls.xml
===================================================================
diff -u -r59138 -r70240
--- BL/Flow/Levering/sub/pxKlantPallet.cls.xml	(.../pxKlantPallet.cls.xml)	(revision 59138)
+++ BL/Flow/Levering/sub/pxKlantPallet.cls.xml	(.../pxKlantPallet.cls.xml)	(revision 70240)
@@ -55,6 +55,11 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="VerzendwijzeExtraInfo">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
 <Property name="KlantnaamBIG">
 <Type>%String</Type>
 <Parameter name="TRUNCATE" value="1"/>
@@ -84,10 +89,50 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	
-	Write ..VervangNietPrintbareKaraktersDoorSpatie(..Logo),$$$TAB,..VervangNietPrintbareKaraktersDoorSpatie(..KlantNaam),$$$TAB,..VervangNietPrintbareKaraktersDoorSpatie(..Toenaam),$$$TAB,..VervangNietPrintbareKaraktersDoorSpatie(..StraatNaamNr),$$$TAB,..VervangNietPrintbareKaraktersDoorSpatie(..Gemeente),$$$TAB,..VervangNietPrintbareKaraktersDoorSpatie(..Bonnr),$$$TAB,..VervangNietPrintbareKaraktersDoorSpatie(..Verzendwijze),$$$TAB,..VervangNietPrintbareKaraktersDoorSpatie(..KlantnaamBIG),$$$TAB,..VervangNietPrintbareKaraktersDoorSpatie(..CommRef),$$$TAB,..VervangNietPrintbareKaraktersDoorSpatie(..PalID),$$$TAB,..VervangNietPrintbareKaraktersDoorSpatie(..MagazijnID),$$$TAB,..VervangNietPrintbareKaraktersDoorSpatie(..UserIDPicker)
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..Logo),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..KlantNaam),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..Toenaam),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..StraatNaamNr),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..Gemeente),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..Bonnr),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..Verzendwijze),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..VerzendwijzeExtraInfo),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..KlantnaamBIG),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..CommRef),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..PalID),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..MagazijnID),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..UserIDPicker)
 	Write $$$CRLF
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="WriteHeader">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..WriteHeaderBasis()
+	Write $$$CRLF
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="WriteHeaderBasis">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Write "Logo", $$$TAB
+	Write "KlantNaam", $$$TAB
+	Write "Toenaam", $$$TAB
+	Write "StraatNaamNr", $$$TAB
+	Write "Gemeente", $$$TAB
+	Write "Bonnr", $$$TAB
+	Write "Verzendwijze", $$$TAB
+	Write "VerzendwijzeExtraInfo", $$$TAB
+	Write "KlantnaamBIG", $$$TAB
+	Write "CommRef", $$$TAB
+	Write "PalID", $$$TAB
+	Write "MagazijnID", $$$TAB
+	Write "UserIDPicker", $$$TAB
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: BL/Flow/Levering/Label.cls.xml
===================================================================
diff -u -r70157 -r70240
--- BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 70157)
+++ BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 70240)
@@ -190,8 +190,11 @@
     Set ..pxLabelKlant.Layout = ..blLabelPrinter.LayoutTemplate(Printer,"KLANT_ADRES")
     
     If (..pxLabelKlant.Layout = "KlantAdres 8x11") {
+	    Set ..pxLabelKlant.Layout = "KlantAdresTemp 8x11"
+	    
 	    #dim Submagazijn As %String = ..GeefSubmagazijnVoorTransferOrder()
 	    Set ..pxLabelKlant.Verzendwijze = ##class(BL.Flow.Levering.VerzendwijzeVoorSubmagazijnBepaler).%New().GeefVerzendwijzeVoorSubmagazijn(Submagazijn)
+	    Set ..pxLabelKlant.VerzendwijzeExtraInfo = ##class(BL.Flow.Levering.ExtraInfoVoorSubmagazijnBepaler).%New().GeefExtraInfoVoorSubmagazijn(Submagazijn)
     }
     
    	If Printer["\\" Set ..pxLabelKlant.Device=Printer  ;als het UNC-pad van de printer wordt doorgegeven vul je het rechstreeks in
Index: BL/Flow/Levering/ExtraInfoVoorSubmagazijnBepaler.cls.xml
===================================================================
diff -u
--- BL/Flow/Levering/ExtraInfoVoorSubmagazijnBepaler.cls.xml	(revision 0)
+++ BL/Flow/Levering/ExtraInfoVoorSubmagazijnBepaler.cls.xml	(revision 70240)
@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Flow.Levering.ExtraInfoVoorSubmagazijnBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefExtraInfoVoorSubmagazijn">
+<FormalSpec>Submagazijn:TECH.String</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim ExtraInfo As TECH.String = ""
+	
+	If Submagazijn = "ALHD" 		{ Set ExtraInfo = "Diverse" }
+	ElseIf Submagazijn = "CCYST" 	{ Set ExtraInfo = "Diverse" }
+	ElseIf Submagazijn = "CP" 		{ Set ExtraInfo = "TBX Ond" }
+	ElseIf Submagazijn = "GLAS" 	{ Set ExtraInfo = "TBX glas" }
+	ElseIf Submagazijn = "HOEHY" 	{ Set ExtraInfo = "Diverse" }
+	ElseIf Submagazijn = "HOEST" 	{ Set ExtraInfo = "Diverse" }
+	ElseIf Submagazijn = "LBCP" 	{ Set ExtraInfo = "LBX Ond" }
+	ElseIf Submagazijn = "LBFRE" 	{ Set ExtraInfo = "LBX ZK" }
+	ElseIf Submagazijn = "LBGLA" 	{ Set ExtraInfo = "LBX glas" }
+	ElseIf Submagazijn = "LBOND" 	{ Set ExtraInfo = "LBX Ond" }
+	ElseIf Submagazijn = "LBPM" 	{ Set ExtraInfo = "Diverse" }
+	ElseIf Submagazijn = "LBRWH" 	{ Set ExtraInfo = "RWH" }
+	ElseIf Submagazijn = "LBSR" 	{ Set ExtraInfo = "LBX stalen rug" }
+	ElseIf Submagazijn = "LBVST" 	{ Set ExtraInfo = "LBX VM" }
+	ElseIf Submagazijn = "LBZIJ" 	{ Set ExtraInfo = "LBX ZK" }
+	ElseIf Submagazijn = "LBZIN" 	{ Set ExtraInfo = "LBX ZK" }
+	ElseIf Submagazijn = "LBZKV" 	{ Set ExtraInfo = "LBX ZK" }
+	ElseIf Submagazijn = "LBZOG" 	{ Set ExtraInfo = "LBX ZK" }
+	ElseIf Submagazijn = "LBZPS" 	{ Set ExtraInfo = "LBX ZK" }
+	ElseIf Submagazijn = "LBZSW" 	{ Set ExtraInfo = "LBX ZK" }
+	ElseIf Submagazijn = "LBZTS" 	{ Set ExtraInfo = "LBX ZK" }
+	ElseIf Submagazijn = "M" 		{ Set ExtraInfo = "Diverse" }
+	ElseIf Submagazijn = "MAT"		{ Set ExtraInfo = "Matten" }
+	ElseIf Submagazijn = "MONDO" 	{ Set ExtraInfo = "Diverse" }
+	ElseIf Submagazijn = "MVCP" 	{ Set ExtraInfo = "MVX" }
+	ElseIf Submagazijn = "MVGLA" 	{ Set ExtraInfo = "MVX" }
+	ElseIf Submagazijn = "MVOND" 	{ Set ExtraInfo = "MVX" }
+	ElseIf Submagazijn = "MVPM" 	{ Set ExtraInfo = "MVX" }
+	ElseIf Submagazijn = "MVRWH" 	{ Set ExtraInfo = "RWH" }
+	ElseIf Submagazijn = "MVSR" 	{ Set ExtraInfo = "MVX stalen rug" }
+	ElseIf Submagazijn = "MVVST" 	{ Set ExtraInfo = "MVX" }
+	ElseIf Submagazijn = "MVZIG" 	{ Set ExtraInfo = "MVX" }
+	ElseIf Submagazijn = "MVZKV" 	{ Set ExtraInfo = "MVX" }
+	ElseIf Submagazijn = "MVZOG" 	{ Set ExtraInfo = "MVX" }
+	ElseIf Submagazijn = "MVZSW" 	{ Set ExtraInfo = "MVX" }
+	ElseIf Submagazijn = "O" 		{ Set ExtraInfo = "Diverse" }
+	ElseIf Submagazijn = "OI" 		{ Set ExtraInfo = "TBX Ond" }
+	ElseIf Submagazijn = "OIB" 		{ Set ExtraInfo = "TBX Ond" }
+	ElseIf Submagazijn = "OP" 		{ Set ExtraInfo = "TBX Ond" }
+	ElseIf Submagazijn = "ORELA" 	{ Set ExtraInfo = "TBX Ond" }
+	ElseIf Submagazijn = "PDE" 		{ Set ExtraInfo = "Diverse" }
+	ElseIf Submagazijn = "PHULP" 	{ Set ExtraInfo = "Diverse" }
+	ElseIf Submagazijn = "PM" 		{ Set ExtraInfo = "Diverse" }
+	ElseIf Submagazijn = "PRF" 		{ Set ExtraInfo = "Diverse" }
+	ElseIf Submagazijn = "PSA" 		{ Set ExtraInfo = "Diverse" }
+	ElseIf Submagazijn = "RWH" 		{ Set ExtraInfo = "RWH" }
+	ElseIf Submagazijn = "SCR" 		{ Set ExtraInfo = "Diverse" }
+	ElseIf Submagazijn = "SPSY" 	{ Set ExtraInfo = "TBX Ond" }
+	ElseIf Submagazijn = "SRUG" 	{ Set ExtraInfo = "TBX stalen rug" }
+	ElseIf Submagazijn = "TAFIM" 	{ Set ExtraInfo = "TAOR" }
+	ElseIf Submagazijn = "TAOND" 	{ Set ExtraInfo = "TAOR" }
+	ElseIf Submagazijn = "TAPEG" 	{ Set ExtraInfo = "TAOR" }
+	ElseIf Submagazijn = "TAZEI" 	{ Set ExtraInfo = "TAOR" }
+	ElseIf Submagazijn = "TAZNO" 	{ Set ExtraInfo = "TAOR" }
+	ElseIf Submagazijn = "TAZZE" 	{ Set ExtraInfo = "TAOR" }
+	ElseIf Submagazijn = "TIPON" 	{ Set ExtraInfo = "TXB Ond" }
+	ElseIf Submagazijn = "VPK" 		{ Set ExtraInfo = "Diverse" }
+	ElseIf Submagazijn = "VRSTK" 	{ Set ExtraInfo = "TBX VM" }
+	ElseIf Submagazijn = "X" 		{ Set ExtraInfo = "Diverse" }
+	ElseIf Submagazijn = "ZKGVP" 	{ Set ExtraInfo = "TBX ZK" }
+	ElseIf Submagazijn = "ZKGVM" 	{ Set ExtraInfo = "TBX ZK" }
+	ElseIf Submagazijn = "ZKKVP" 	{ Set ExtraInfo = "TBX ZK" }
+	Else { Set Submagazijn = "" }
+	
+	Quit ExtraInfo
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>