Index: APPS/TRANSP/GLS/GLSv1/impl/EtiketPrinter.cls.xml
===================================================================
diff -u -r40786 -r57652
--- APPS/TRANSP/GLS/GLSv1/impl/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 40786)
+++ APPS/TRANSP/GLS/GLSv1/impl/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 57652)
@@ -30,6 +30,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PrintEtiketOpDevice">
+<FormalSpec>Response:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Response,LabelPrinterID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#Dim LabelPrinter as APPS.common.Print.LabelPrinter
+	Set LabelPrinter = ##class(APPS.ApplicatieContext).Instance().GeefPrintAPI().GeefBartenderPrinterVoorDevice(LabelPrinterID)
+	Do LabelPrinter.PrintLabel(..GeefEtiket(Response))
+]]></Implementation>
+</Method>
+
 <Method name="PrintEtiketten">
 <FormalSpec>Responses:%ListOfObjects,Computernaam:%String,LabelPrinterID:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -49,7 +58,13 @@
 <ReturnType>BL.Sys.pxLabel</ReturnType>
 <Implementation><![CDATA[
 	Set EtiketBouwerResponseVisitor = ##class(APPS.TRANSP.GLS.GLSv1.impl.EtiketBouwerResponseVisitor).%New()
-	Do Response.Accept(EtiketBouwerResponseVisitor)
+	Try {
+		Do Response.Accept(EtiketBouwerResponseVisitor)
+	} Catch {
+		Do ##class(vhLib.Logger).%New("GLS").Info($System.OBJ.Dump(Response))
+		Do ##class(TECH.ExceptionHandler).Rethrow(##class(TECH.ExceptionHandler).Catch())	
+	}
+	
 	Quit EtiketBouwerResponseVisitor.GeefEtiket()
 ]]></Implementation>
 </Method>