Index: APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml
===================================================================
diff -u -r66965 -r66966
--- APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml	(.../EtiketService.cls.xml)	(revision 66965)
+++ APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml	(.../EtiketService.cls.xml)	(revision 66966)
@@ -121,7 +121,7 @@
 	Do ..EtiketPrinter.PrintEtiketten(Etiketten,Computernaam,"TRANSSMART_ZPL")
 	#dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(Levering.GeefRitID())
 	if Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).VRD() {		
-	;	Do ..PrintVRDDueoutEtiketten(..GeefShipmentInfoReference(Levering),Computernaam,Etiketten.Count())
+		Do ..PrintVRDDueoutEtiketten(..GeefShipmentInfoReference(Levering),Computernaam,Etiketten.Count())
 	}
 ]]></Implementation>
 </Method>
@@ -131,17 +131,16 @@
 <Implementation><![CDATA[
 	#dim PickupDate as %Date = ..GeefShipmentPickupDate(ShipmentReference)
 	if (PickupDate > +$h ){
-		Do ##class(vhLib.Logger).%New().Info("VRDDueOut Etiketten","Afdrukken VRD DueOut Etiketten voor shipment met reference " _ShipmentReference _ " met pickupdatum " _ $zd(PickupDate,2))
+		Do ##class(vhLib.Logger).%New().Info("VRDDueOut Etiketten","Afdrukken "_Aantal_" VRD DueOut Etiketten voor shipment met reference '" _ShipmentReference _ "' met pickupdatum " _ $zd(PickupDate,2))
 		#dim Dag = $Piece($zd(PickupDate,2)," ",1) 
 		#dim Maand = $$$UCase($Piece($ZD(PickupDate,2)," ",2))	
 		#dim BartenderPrinter as %String = ..PrintAPI.GeefLabelPrinter("TRANSP_DI1",ComputerNaam).GeefDevice()
-
 		Set DocsV1 = ##class(BL.PPS.TBX.DocsV1).%New()
 		do DocsV1.VRDDueOutEtiket(Dag,Maand,BartenderPrinter,Aantal)		
 
 	} else {
 
-		Do ##class(vhLib.Logger).%New().Info("VRDDueOut Etiketten","Niet nodig voor shipment met reference " _ShipmentReference _ " met pickupdatum " _ $zd(PickupDate,2))
+		Do ##class(vhLib.Logger).%New().Info("VRDDueOut Etiketten","VRD DueOut etiketten niet nodig voor shipment met reference " _ShipmentReference _ " met pickupdatum " _ $zd(PickupDate,2))
 
 	}
 ]]></Implementation>