Index: BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml
===================================================================
diff -u -r73313 -r73393
--- BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml	(.../ProboxInhoudEtiketGenerator.cls.xml)	(revision 73313)
+++ BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml	(.../ProboxInhoudEtiketGenerator.cls.xml)	(revision 73393)
@@ -72,12 +72,13 @@
 	#dim Order as DOM.VKP.Order = ..OrderAPI.GeefOrder(DnaCode.OrderId)
 	#dim Toelevering as DOM.AKP.Toelevering = ""
 	#dim OorsprongKetting As %String = ""
+	#dim DueOutToelevering As %String = ""
 	
 	If (..ToeleveringAPI.BestaatToelevering(ToeleveringId)) {
 		Set Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringId)
 		Set OorsprongKetting = Toelevering.GeefOorsprongKetting()
 	} Else {
-		do ##class(vhLib.Logger).%New().Warning("BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator", "ProboxInhoudEtiket afgedrukt zonder opvulling van de parameter 'ProductieWeek'")
+		do ##class(vhLib.Logger).%New().Warning("BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator", "ProboxInhoudEtiket afgedrukt zonder opvulling van de parameter 'ProductieWeek' en 'VandaagVerzenden'.")
 	}
 	
 	Set ProboxInhoudLabel = ##class(BL.Etiket.ProboxInhoud).%New()
@@ -109,9 +110,15 @@
 	}
 	
 	If ($IsObject(Toelevering)) {
-		Set ProboxInhoudLabel.ProductieWeek = $translate($$EXTDATE^vhLib.DataTypes(Toelevering.GeefDueOutTime(),"DW"),"/","")
+		Set DueOutToelevering = Toelevering.GeefDueOutTime()
+		Set ProboxInhoudLabel.ProductieWeek = $translate($$EXTDATE^vhLib.DataTypes(DueOutToelevering,"DW"),"/","")
+		
+		If (##class(TECH.DateTime).IsVandaag(DueOutToelevering)) {
+			Set ProboxInhoudLabel.VandaagVerzenden = "X"	
+		}
 	} Else {
 		Set ProboxInhoudLabel.ProductieWeek = ""
+		Set ProboxInhoudLabel.VandaagVerzenden = ""
 	}	
 	
 	Set ProboxInhoudLabel.CommissieReferentie = Order.GeefCommissieReferentie()
Index: BL/Etiket/ProboxInhoud.cls.xml
===================================================================
diff -u -r69542 -r73393
--- BL/Etiket/ProboxInhoud.cls.xml	(.../ProboxInhoud.cls.xml)	(revision 69542)
+++ BL/Etiket/ProboxInhoud.cls.xml	(.../ProboxInhoud.cls.xml)	(revision 73393)
@@ -69,6 +69,11 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="VandaagVerzenden">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>initvalue:%CacheString</FormalSpec>
 <Private>1</Private>
@@ -95,6 +100,7 @@
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..ProductieWeek),$$$TAB	
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..CommissieReferentie),$$$TAB
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..KlantOrderNummer),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..VandaagVerzenden),$$$TAB
 	
 	Write $$$CRLF
 	Quit $$$OK
@@ -125,6 +131,7 @@
 	Write "ProductieWeek",$$$TAB
 	Write "CommissieReferentie",$$$TAB
 	Write "KlantOrderNummer",$$$TAB
+	Write "VandaagVerzenden",$$$TAB
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml
===================================================================
diff -u -r71812 -r73393
--- vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 71812)
+++ vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 73393)
@@ -339,8 +339,52 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Vandaag verzenden = X omdat dueOut vandaag is">
+<Implementation><![CDATA[
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1)
+	
+	Set PartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
+	#dim Partij As DOM.PARTIJ.Partij = ##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij()
+	Do PartijAPIMock.VerwachtMethodCall("GeefPartij", ..DnaCode1.KlantNummer).DanReturn(Partij)
+	
+	Set HtmlInhoudProboxEtiketBepalerMock = ##class(vhTest.Mock.BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler).%New()
+	#dim InhoudAlsHTML As %String = "<html></html>"
+	Do HtmlInhoudProboxEtiketBepalerMock.VerwachtMethodCall("BepaalHtmlInhoudProboxEtiket", DnaCodeIterator).DanReturn(InhoudAlsHTML)
+	
+	Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	#dim Order As DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderHoofding()
+	Do Order.IndienMethodCall("GeefVerzendingWijze").DanReturn($$$DummyString)
+	Do OrderAPIMock.VerwachtMethodCall("GeefOrder", ..DnaCode1.OrderId).DanReturn(Order)
+	
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).StandaardToeleveringHoofding()
+	#dim CurrentHorolog As TECH.String = ##class(TECH.DateTime).CurrentHorolog()
+	Set ToeleveringAPIMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
+	Do Toelevering.IndienMethodCall("GeefDueOutTime").DanReturn(CurrentHorolog)
+	Do ToeleveringAPIMock.VerwachtMethodCall("BestaatToelevering", $$$DummyString).DanReturn($$$True)
+	Do ToeleveringAPIMock.VerwachtMethodCall("GeefToelevering", ..DnaCode1.Toelevering).DanReturn(Toelevering)
+	
+	Set VerkoopAPIMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	#dim Klant As TECH.RegisteredObject = $$$DummyObject
+	Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant", ..DnaCode1.KlantNummer).DanReturn(Klant)
+	
+	#dim Logo As %String = "Logo\Logo VHZwart.svg"
+	
+	Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock, ToeleveringAPIMock, VerkoopAPIMock)
+	#dim Device As %String = $$$DummyString
+	#dim Etiket As BL.Etiket.ProboxInhoud = ProboxInhoudEtiketGenerator.GenereerProboxInhoudEtiket(DnaCodeIterator, Device)
+	
+	Do ..AssertTicket(Etiket, Device, Partij, InhoudAlsHTML, Order, $translate($$EXTDATE^vhLib.DataTypes(CurrentHorolog,"DW"),"/",""), Logo, , "X")
+		
+	Do PartijAPIMock.Verifieer()
+	Do HtmlInhoudProboxEtiketBepalerMock.Verifieer()
+	Do OrderAPIMock.Verifieer()
+	Do ToeleveringAPIMock.Verifieer()
+	Do VerkoopAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="AssertTicket">
-<FormalSpec>Etiket:BL.Etiket.ProboxInhoud,Device:%String,Partij:DOM.PARTIJ.Partij,InhoudAlsHTML:%String,Order:DOM.VKP.Order,ProductieWeek:%String,Logo:%String,KlantOrderNummer:%String=""</FormalSpec>
+<FormalSpec>Etiket:BL.Etiket.ProboxInhoud,Device:%String,Partij:DOM.PARTIJ.Partij,InhoudAlsHTML:%String,Order:DOM.VKP.Order,ProductieWeek:%String,Logo:%String,KlantOrderNummer:%String="",VandaagVerzenden:%String=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do $$$AssertEquals(Etiket.Device, Device)
@@ -358,6 +402,7 @@
 	Do $$$AssertEquals(Etiket.CommissieReferentie, Order.GeefCommissieReferentie())
 	Do $$$AssertEquals(Etiket.Logo, Logo)
 	Do $$$AssertEquals(Etiket.KlantOrderNummer, KlantOrderNummer)
+	Do $$$AssertEquals(Etiket.VandaagVerzenden, VandaagVerzenden)
 ]]></Implementation>
 </Method>
 </Class>