Index: APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml
===================================================================
diff -u -r60520 -r66965
--- APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml	(.../EtiketService.cls.xml)	(revision 60520)
+++ APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml	(.../EtiketService.cls.xml)	(revision 66965)
@@ -28,8 +28,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PrintAPI">
+<Type>APPS.common.Print.PrintAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>EtiketPrinter:APPS.TRANSP.Transsmart.impl.EtiketPrinter="",ConfigMgr:TECH.Config.ConfigMgr="",ProjectSettingsAPI:DOM.common.impl.ProjectSettingsAPI="",TranssmartWSClient:WS.Transsmart.TboxServicePort="",RequestBouwer:APPS.TRANSP.Transsmart.RequestDataBouwer=""</FormalSpec>
+<FormalSpec>EtiketPrinter:APPS.TRANSP.Transsmart.impl.EtiketPrinter="",ConfigMgr:TECH.Config.ConfigMgr="",ProjectSettingsAPI:DOM.common.impl.ProjectSettingsAPI="",TranssmartWSClient:WS.Transsmart.TboxServicePort="",RequestBouwer:APPS.TRANSP.Transsmart.RequestDataBouwer="",PrintAPI:APPS.common.Print.impl.PrintAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -52,6 +57,7 @@
 	Do ..TranssmartWSClient.ZetLocationVoorOmgeving(..ConfigMgr.GeefOmgeving())
 	Do ..SetSSLConfiguration("Transsmart")
 	Set ..RequestBouwer = $$$Inject(RequestBouwer,##class(APPS.TRANSP.Transsmart.impl.RequestDataBouwer).%New())
+	Set ..PrintAPI = $$$Inject(PrintAPI,##class(APPS.common.Print.impl.PrintAPI).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -113,9 +119,57 @@
 	#dim Computernaam As %String = $Piece(##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam(),".",1)
 	Set Computernaam = ##class(TECH.StringUtils).ToUpper(Computernaam)	
 	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())
+	}
 ]]></Implementation>
 </Method>
 
+<Method name="PrintVRDDueoutEtiketten">
+<FormalSpec>ShipmentReference:%String,ComputerNaam:%String,Aantal:%Integer</FormalSpec>
+<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))
+		#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))
+
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefShipmentPickupDate">
+<FormalSpec>ShipmentReference:%String</FormalSpec>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	#dim Request as WS.Transsmart.tns.doBooking = ..GeefDoBookingRequestVoorShipment(ShipmentReference)
+	#dim PickupDate as %Date = $ZDh(Request.shipmentInfo.pickupDate,3)
+	Quit PickupDate
+]]></Implementation>
+</Method>
+
+<Method name="GeefDoBookingRequestVoorShipment">
+<FormalSpec>ShipmentReference:%String</FormalSpec>
+<ReturnType>WS.Transsmart.tns.doBooking</ReturnType>
+<Implementation><![CDATA[
+	Set VerzenddataRepo = ##class(APPS.TRANSP.Transsmart.data.VerzendDataRepository).%New()
+	#dim Verzenddata as APPS.TRANSP.Transsmart.data.VerzendData = VerzenddataRepo.GeefViaReference(ShipmentReference)
+	Set XmlCorrelater = ##class(TECH.XMLCorrelater).%New()	
+	#dim Request as WS.Transsmart.tns.doBooking
+	Set Request = XmlCorrelater.FromStream(Verzenddata.RequestAsStream,"WS.Transsmart.tns.doBooking","doBooking")
+	Quit Request
+]]></Implementation>
+</Method>
+
 <Method name="GeefEtiketten">
 <FormalSpec>Levering:DOM.TRANSP.Levering</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>