Index: BL/Flow/Levering/Label.cls.xml
===================================================================
diff -u -r72900 -r73880
--- BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 72900)
+++ BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 73880)
@@ -214,6 +214,8 @@
     Set ..pxLabelKlant.Aantal=Aantal
     Set ..pxLabelKlant.Layout = ..blLabelPrinter.LayoutTemplate(Printer,"KLANT_ADRES")
     
+    Set ..pxLabelKlant.MaatwerkOfSingleOrderPick = $$ExtraMagInfoViaBon^TRANSPStatusKlantVandaag(..BONNr)
+    
    	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)
 	Try {
Index: BL/Flow/Levering/sub/pxKlantPallet.cls.xml
===================================================================
diff -u -r72721 -r73880
--- BL/Flow/Levering/sub/pxKlantPallet.cls.xml	(.../pxKlantPallet.cls.xml)	(revision 72721)
+++ BL/Flow/Levering/sub/pxKlantPallet.cls.xml	(.../pxKlantPallet.cls.xml)	(revision 73880)
@@ -90,6 +90,11 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="MaatwerkOfSingleOrderPick">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
 <Method name="WriteRow">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
@@ -107,7 +112,8 @@
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..PalID),$$$TAB
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..MagazijnID),$$$TAB
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..UserIDPicker),$$$TAB
-	Write ..VervangNietPrintbareKaraktersDoorSpatie(..LPNMOP)
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..LPNMOP),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..MaatwerkOfSingleOrderPick)
 	Write $$$CRLF
 	Quit $$$OK
 ]]></Implementation>
@@ -139,6 +145,7 @@
 	Write "MagazijnID", $$$TAB
 	Write "UserIDPicker", $$$TAB
 	Write "LPNMOP", $$$TAB
+	Write "MaatwerkOfSingleOrderPick",$$$TAB
 ]]></Implementation>
 </Method>