Index: OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml
===================================================================
diff -u -r67716 -r67729
--- OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 67716)
+++ OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 67729)
@@ -42,14 +42,49 @@
 <FormalSpec>KlantEtiketRequest:OBJTimpl.WMSOrder.dtoKlantEtiketRequest</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Quit:KlantEtiketRequest.ConsNr?1"HK"1.E "OK" ; Herbevoorrading Kardex
+	Quit:KlantEtiketRequest.ConsNr?1"HK"1.E ..PrintReplenishmentEtiket(KlantEtiketRequest) ; Herbevoorrading Kardex
 	#dim PickerUserId = ..PickerUserIdOphaler.GeefUserIdPickerVanLPN(KlantEtiketRequest.ConsNr,KlantEtiketRequest.LPN)
 	Do ..StoreLPN(KlantEtiketRequest, PickerUserId)
 	Do EXTERN^FLOWBON4($e($TR(KlantEtiketRequest.ConsNr,"b"),5,10), ..ConverteerVertrekplaats(KlantEtiketRequest.Vertrekplaats),KlantEtiketRequest.LPN,PickerUserId)
 	Quit "OK"
 ]]></Implementation>
 </Method>
 
+<Method name="PrintReplenishmentEtiket">
+<FormalSpec>KlantEtiketRequest:OBJTimpl.WMSOrder.dtoKlantEtiketRequest</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Magazijn as %String = ..ConverteerVertrekplaats(KlantEtiketRequest.Vertrekplaats)
+	#dim Printer as %String = ##class(BL.Sys.LabelPrinter).DefaultDevice("KLANT_ADRES",Magazijn)
+	#dim PickerUserId = ..PickerUserIdOphaler.GeefUserIdPickerVanLPN(KlantEtiketRequest.ConsNr,KlantEtiketRequest.LPN)
+	#dim pxLabelKlant as BL.Flow.Levering.sub.pxKlantPallet = ##class(BL.Flow.Levering.sub.pxKlantPallet).Create()
+	
+	Set pxLabelKlant.Logo = "" ;..LabelLogoBepaler.GeefLogo(KLNr)    
+	Set pxLabelKlant.KlantNaam="KARDEX"
+	Set pxLabelKlant.KlantnaamBIG="KARDEX"
+    Set pxLabelKlant.Toenaam="KARDEX"
+    Set pxLabelKlant.StraatNaamNr="KARDEX"
+    Set pxLabelKlant.Gemeente="KARDEX"
+    Set pxLabelKlant.Bonnr=KlantEtiketRequest.ConsNr
+    Set pxLabelKlant.PalID=KlantEtiketRequest.LPN
+    Set pxLabelKlant.Verzendwijze = ""
+    Set pxLabelKlant.CommRef=""
+    Set pxLabelKlant.UserIDPicker = PickerUserId
+    Set pxLabelKlant.MagazijnID = "" ;MagazijnID
+    Set pxLabelKlant.Taal="N"
+    Set pxLabelKlant.Aantal=1
+    #dim blLabelPrinter as BL.Sys.LabelPrinter =##class(BL.Sys.LabelPrinter).Instantiate()
+    Set pxLabelKlant.Layout = blLabelPrinter.LayoutTemplate(Printer,"KLANT_ADRES")
+    
+   	Set pxLabelKlant.Device=##class(BL.Sys.LabelPrinter).FullDevicePad(Printer)
+		
+    #dim blPrint as APPS.common.Print.LabelPrinter = ##class(APPS.ApplicatieContext).Instance().GeefPrintAPI().GeefLabelPrinter("EWMSKlant",Printer)
+    Do blPrint.AddLabel(pxLabelKlant)
+    Set stPrint = blPrint.PrintLabels()
+    Quit "OK"
+]]></Implementation>
+</Method>
+
 <Method name="ConverteerVertrekplaats">
 <FormalSpec>Vertrekplaats:%String</FormalSpec>
 <ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>