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()