Index: BL/Legacy/EWORDS6.cls.xml
===================================================================
diff -u -r72372 -r75040
--- BL/Legacy/EWORDS6.cls.xml	(.../EWORDS6.cls.xml)	(revision 72372)
+++ BL/Legacy/EWORDS6.cls.xml	(.../EWORDS6.cls.xml)	(revision 75040)
@@ -26,11 +26,17 @@
  		set VandaagOfMorgen = $$$Morgen 
  	}
  	
- 	
  	If (VandaagOfMorgen=$$$Morgen) && ..VerzendwDD1(ORDNr)  ; Indien verzendwijze is DD1 maar moet normaal pas morgen vertrekken dan toch vandaag laten vertrekken - PV 02 05 2023
  	{
 	 	Set VandaagOfMorgen=$$$Vandaag
 	} 
+	; als het volgens de gewone settings Andere dag is, DD1 , maar er wordt voorgewerkt, en gestokeerd bij VRD
+	If ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().DD1StockerenBijVRDIndienVroegerGeproduceerd() {
+		#dim AantalDagen = ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().DD1AantaldagenVooruitkijken()
+		If (VandaagOfMorgen=$$$AndereDag) && ..VerzendwDD1(ORDNr) & ..IsTotXArbeidsdagenVerder(PickDatum,AantalDagen){
+	 		Set VandaagOfMorgen=$$$Vandaag
+		}
+ 	}
  	If (VandaagOfMorgen=$$$Morgen) && ($P(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(),",",2)/3600<18) && '$G(OLNr) ; Pas na 18 uur mogen de opdrachten voor de volgende werkdag actief worden - PV 02 05 2023
  	{
  		Set VandaagOfMorgen=$$$AndereDag
@@ -73,6 +79,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsTotXArbeidsdagenVerder">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Datum:%Date,Aantal:%Numeric</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	New D,Q,U
+	Set D="\",Q="K",U=";"
+	;quit +$$CALCDATE^vhLib.DataTypes($H,"A",1)=+Datum
+	quit +$$CALCDATE^vhLib.DataTypes(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(),"A",Aantal) >= +Datum
+]]></Implementation>
+</Method>
+
 <Method name="GeefKantelPuntDoorsturenPicking">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ORDNr:%String</FormalSpec>