Index: BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u -r74608 -r75040
--- BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 74608)
+++ BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 75040)
@@ -193,7 +193,13 @@
 	/// Vandaag op transport en morgen leveren = Aantalwerkdagen=1, maar er mag 1 dag extra omdat DI1 in de namiddag wordt geproduceerd.
 	//Quit:(..GeefVerzendwijze(KLNr, ORDNr)="GL4") 3   //deze weer in commentaar sinds backport van Cache05
 	Quit:$G(KLNr)=26329 1 ; Klant OIC
-	Quit 2
+	Quit:$G(KLNr)=2913 1 ; Klant MadeByDas-Tristar
+	Quit:$G(KLNr)=4038 1 ; Klant H.M.P.C
+	If (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().DD1StockerenBijVRDIndienVroegerGeproduceerd()){
+		Quit ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().DD1AantaldagenVooruitkijken()
+	} Else {	
+		Quit 2 ; standaard werking
+	}
 ]]></Implementation>
 </Method>
 
@@ -263,12 +269,31 @@
 <Method name="ControleerLijnen">
 <FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
 <Implementation><![CDATA[
+	New ASAP,LaatsteWerkdagVoorSluiting,LaatsteLeverdagTijdensSluiting
+	
 	Set Hoofding=$G(^KOD(KLNr,"F",ORDNr,1))
 	Set OLNr=$O(^KOD(KLNr,"F",ORDNr,99)) 
 	Set SomVanAantal=0
 	Set FoutCode=""
-	Set MaximaleLeverdag=$S($P(Hoofding,"\",28):$H+99,1:$$CALCDATE^vhLib.DataTypes($H,"A",..GeefAantalWerkdagen(KLNr, ORDNr))) ; Indien ASAP ingesteld dan 99 dagen
-	;Set MaximaleLeverdag=$S($P(Hoofding,"\",28):$H+99,1:$$CALCDATE^vhDTyp($H,"A",..GeefAantalWerkdagen)) ; Indien ASAP ingesteld dan 99 dagen
+
+	Set ASAP=$P(Hoofding,"\",28)
+	if ASAP { ; Indien ASAP ingesteld dan 99 dagen
+		Set MaximaleLeverdag=$H+99
+	} else {
+		
+		Set MaximaleLeverdag=$$CALCDATE^vhLib.DataTypes($H,"A",..GeefAantalWerkdagen(KLNr, ORDNr)) 
+		
+		Set LaatsteWerkdagVoorSluiting = 67194 ;20/12/2024
+		Set LaatsteLeverdagTijdensSluiting = 67197 ;23/12/2024
+		if (+$h < (LaatsteWerkdagVoorSluiting+1)) { 
+		    ;tot en met 20/12/2024 is de laatste leverdag 23/12/2024, na 20/12/24 wordt deze controle niet meer uitgevoerd, en geldt de reguliere DD1 logica
+		    ; LaatsteWerkdagVoorSluiting en LaatsteLeverdagTijdensSluiting elk jaar/sluiting aan te passen aan 
+			Set:(+MaximaleLeverdag > LaatsteLeverdagTijdensSluiting) MaximaleLeverdag=LaatsteLeverdagTijdensSluiting ; maandag 23/12/2024
+		}
+	}
+	;Set MaximaleLeverdag=$S($P(Hoofding,"\",28):$H+99,1:$$CALCDATE^vhLib.DataTypes($H,"A",..GeefAantalWerkdagen(KLNr, ORDNr))) ; Indien ASAP ingesteld dan 99 dagen
+	;;Set MaximaleLeverdag=$S($P(Hoofding,"\",28):$H+99,1:$$CALCDATE^vhDTyp($H,"A",..GeefAantalWerkdagen)) ; Indien ASAP ingesteld dan 99 dagen
+	
 	Set MemGenTyp=""
 	Set IsLade=0
 	While (OLNr'="") && (FoutCode="")
@@ -323,14 +348,15 @@
 	Set BONNr=$O(^KU2("F",KLNr,BONNr)) ; orders die volledig of deels op bon staan
 	While (BONNr'="") && ('IsOrgal)
 	{
-		Quit:$P($P($G(^KUL(KLNr,"F",BONNr,101)),"\",5)," ")'=ORDNr ; Bon niet geleverd door order
-		
-		Set Leverdag=$$INTDATE^vhLib.DataTypes($P($G(^KUL(KLNr,"F",BONNr,1)),"\",2),"DKP")
-		;w KLNr," ",ORDNr," ",BONNr," ",$P($G(^KUL(KLNr,"F",BONNr,1)),"\",2)," ",$$ISORGAL^FLOW("L",BONNr),! ; r k
-		Quit:Leverdag<$H
-
-		Set IsOrgal=$$ISORGAL^FLOW("L",BONNr)
-		
+		If $P($P($G(^KUL(KLNr,"F",BONNr,101)),"\",5)," ")=ORDNr ; Bon niet geleverd voor order
+		{
+			Set Leverdag=$$INTDATE^vhLib.DataTypes($P($G(^KUL(KLNr,"F",BONNr,1)),"\",2),"DKP")
+			;w KLNr," ",ORDNr," ",BONNr," ",$P($G(^KUL(KLNr,"F",BONNr,1)),"\",2)," ",$$ISORGAL^FLOW("L",BONNr),! ; r k
+			If Leverdag'<(+$H) ; recente leveringen, dit door het hergebruik van het ordernummer in Admin om de x maand
+			{
+				Set IsOrgal=$$ISORGAL^FLOW("L",BONNr)
+			}
+		}
 		Set BONNr=$O(^KU2("F",KLNr,BONNr))
 	}
 	Quit IsOrgal