Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r66673 -r66962
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 66673)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 66962)
@@ -1642,6 +1642,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VRDDueOutEtiket">
+<FormalSpec>Dag:%String,Maand:%String,LabelPrinter:%String,Aantal:%Integer=1</FormalSpec>
+<Implementation><![CDATA[
+ 	Do ..blLabelPrinter.Clear()
+ 	Set VRDDueOutLabel = ##class(BL.Etiket.VRDDueOut).%New()
+ 	Set VRDDueOutLabel.Dag = Dag
+ 	Set VRDDueOutLabel.Maand = Maand
+ 	Set VRDDueOutLabel.Device = LabelPrinter
+ 	for i=1:1:Aantal {
+	 	Do ..blLabelPrinter.Add(VRDDueOutLabel)
+ 	}
+	Do ..blLabelPrinter.Print2Bartender()
+]]></Implementation>
+</Method>
+
 <Method name="BepaalAantalOverdoosEtiketten">
 <Description>
 Bepaalt het volume-aandeel van de probox-laden</Description>
Index: BL/Etiket/VRDDueOut.cls.xml
===================================================================
diff -u
--- BL/Etiket/VRDDueOut.cls.xml	(revision 0)
+++ BL/Etiket/VRDDueOut.cls.xml	(revision 66962)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Etiket.VRDDueOut">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>BL.Sys.pxLabel</Super>
+
+<Parameter name="Layout">
+<Default>VRD_DueOut</Default>
+</Parameter>
+
+<Property name="Dag">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Maand">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Layout = ..#Layout
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="WriteRow">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..Dag),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..Maand),$$$TAB
+	
+	Write $$$CRLF
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>