Index: APPS/MAG/LabelPrintService.cls.xml
===================================================================
diff -u -r71290 -r73784
--- APPS/MAG/LabelPrintService.cls.xml	(.../LabelPrintService.cls.xml)	(revision 71290)
+++ APPS/MAG/LabelPrintService.cls.xml	(.../LabelPrintService.cls.xml)	(revision 73784)
@@ -49,6 +49,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PrintDatumEtiketten">
+<FormalSpec>Aantal:%Integer,Datum:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Etiketten As %ListOfObjects = ..GeefDatumEtiketten(Aantal, Datum)
+	Do ..LabelPrinter.PrintEtiketten(Etiketten)
+]]></Implementation>
+</Method>
+
 <Method name="PrintEen1BarcodeEtiket">
 <FormalSpec>Tekst:%String,PrinterLocatie:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -76,6 +84,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDatumEtiketten">
+<FormalSpec>Aantal:%Integer,Tekst:%String</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set Etiketten = ##class(%ListOfObjects).%New()
+	#dim Teller As %Integer = 0
+	For Teller=0:1:Aantal-1 {
+		Set Etiket = ##class(BL.Etiket.MagazijnDatumEtiket).%New()
+		#dim DeTekst As %String = Tekst
+		Set Etiket.Tekst = ##class(TECH.StringUtils).VervangNietPrintbareKaraktersDoorSpatie(DeTekst)
+		if $l(##class(TECH.StringUtils).TrimWhitespaces( Etiket.Tekst)) {
+			Set Etiket.Device = ##class(BL.Sys.LabelPrinter).DefaultDevice("DATUMETIKET", "DEFAULT")	
+			Do Etiketten.Insert(Etiket)
+		}		
+	}
+
+	Quit Etiketten
+]]></Implementation>
+</Method>
+
 <Method name="GeefPalletEtikettenZonderProductInfo">
 <FormalSpec>Aantal:%Integer,Richting:APPS.MAG.LabelPrint.enu.Richting,Device:%String</FormalSpec>
 <Private>1</Private>