Index: WS/OBJT/WMSService.cls.xml
===================================================================
diff -u -r67052 -r67683
--- WS/OBJT/WMSService.cls.xml	(.../WMSService.cls.xml)	(revision 67052)
+++ WS/OBJT/WMSService.cls.xml	(.../WMSService.cls.xml)	(revision 67683)
@@ -61,7 +61,18 @@
 <FormalSpec>KlantEtiketRequest:OBJTimpl.WMSOrder.dtoKlantEtiketRequest</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[	Quit ##class(OBJTimpl.WMSOrder.PrintKlantEtiket).%New().PrintKlantEtiket(KlantEtiketRequest)
+<Implementation><![CDATA[
+	#dim ConsolidatieNummer as %String = KlantEtiketRequest.ConsNr
+	#dim LPN as %String = KlantEtiketRequest.LPN
+	try {
+		do ##class(OBJTimpl.WMSOrder.GepicktePallet.Docs).%New().GepicktePalletInhoud(ConsolidatieNummer,LPN)
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		#dim Bericht as %String = "Consolidatie:"_ConsolidatieNummer_" LPN:" _ LPN _ $$$CRLF _ Exception.ToString()
+		Do ##class(vhLib.Logger).%New().ErrorMail("Afdrukken inhoud gepickte pallet mislukt",Bericht)
+	}
+	
+	Quit ##class(OBJTimpl.WMSOrder.PrintKlantEtiket).%New().PrintKlantEtiket(KlantEtiketRequest)
 ]]></Implementation>
 </Method>
 
Index: OBJTimpl/WMSOrder/GepicktePallet/Docs.cls.xml
===================================================================
diff -u -r67659 -r67683
--- OBJTimpl/WMSOrder/GepicktePallet/Docs.cls.xml	(.../Docs.cls.xml)	(revision 67659)
+++ OBJTimpl/WMSOrder/GepicktePallet/Docs.cls.xml	(.../Docs.cls.xml)	(revision 67683)
@@ -18,14 +18,17 @@
 d ##class(OBJTimpl.WMSOrder.GepicktePallet.Docs).%New().GepicktePalletInhoud("AAAAA","BBBBB")</Description>
 <FormalSpec>ConsolidatieNr:%String,LPN:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set Builder = ##class(OBJTimpl.WMSOrder.GepicktePallet.DocumentBuilder).%New()
-	#dim Document As APPS.common.Print.Kolommen.Document = Builder.GeefDocument(ConsolidatieNr,LPN)
-	Do Document.Print("Magazijn", ..BepaalPrinter(ConsolidatieNr))
+	If ..MoetDocumentAfgedruktworden(ConsolidatieNr) {
+		Set Builder = ##class(OBJTimpl.WMSOrder.GepicktePallet.DocumentBuilder).%New()
+		#dim Document As APPS.common.Print.Kolommen.Document = Builder.GeefDocument(ConsolidatieNr,LPN)
+		Do Document.Print("Magazijn", ..BepaalPrinter(ConsolidatieNr))
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalPrinter">
 <FormalSpec>ConsolidatieNr:%String</FormalSpec>
+<Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim BONNr as %String = $Extract(ConsolidatieNr,5,10)
@@ -38,16 +41,33 @@
 
 <Method name="VertaalPrinterNaarCentralePrinter">
 <FormalSpec>Printer:%String</FormalSpec>
+<Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Quit 30 ;fallback
+	Quit 12 ;fallback LEBVON_PS ; voorlopig
 	Quit:(Printer="LEVBON_DI") 31
-	Quit:(Printer="LEVBON_PS") 31
-	Quit:(Printer="LEVBON_EXPORT") 31
-	Quit:(Printer="LEVBON_GLS2") 31
-	Quit:(Printer="LEVBON_ORGALUX") 31
+	Quit:(Printer="LEVBON_PS") 32
+	Quit:(Printer="LEVBON_EXPORT") 33
+	Quit:(Printer="LEVBON_GLS2") 34
+	Quit:(Printer="LEVBON_ORGALUX") 35
 ]]></Implementation>
 </Method>
+
+<Method name="MoetDocumentAfgedruktworden">
+<FormalSpec>ConsolidatieNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim BONNr as %String = $Extract(ConsolidatieNr,5,10)
+	#dim Verzendwijze as %String = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefBon(BONNr).GeefVerzendwijze()
+	set Verzendwijze = ##Class(TECH.StringUtils).RemoveAllWhitespaces(Verzendwijze)
+	If ("OD1;OD2;OD3;OD4;OD5;DI2" [ Verzendwijze) {
+		Quit $$$True
+	} else {
+		Quit $$$False
+	}
+]]></Implementation>
+</Method>
 </Class>