Index: BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u -r56685 -r57014
--- BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 56685)
+++ BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 57014)
@@ -181,12 +181,32 @@
 <FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Find(..#GewensteVerzendwijzen, ..GeefVerzendWijze(KLNr, ORDNr))
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalWerkdagen">
+<FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
+	///$P($G(^RES("KLANT","PI","VERZENDWIJZE","D",..VerzendWijzeID)),"`",7) ; Zou een optie zijn, maar niet gebruiken aangezien transportduur is niet werkdagen.
+	/// 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
+	Quit 2
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerzendWijze">
+<FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
 	Set Hoofding=$G(^KOD(KLNr,"F",ORDNr,1))
 	Set Verzendwijze=$P(Hoofding,"\",7)
 	; Alleen die klanten die ELKE dag met DI1 wordt geselecteerd
 	; dus "DI1;3" en "DI1;2`DI1;4" gelden niet
-	Quit $Find(..#GewensteVerzendwijzen,Verzendwijze)
+	Quit Verzendwijze
 ]]></Implementation>
 </Method>
 
@@ -222,8 +242,8 @@
 	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",..#AantalWerkDagen)) ; Indien ASAP ingesteld dan 99 dagen
-	Set MaximaleLeverdag=$S($P(Hoofding,"\",28):$H+99,1:$$CALCDATE^vhDTyp($H,"A",..#AantalWerkDagen)) ; Indien ASAP ingesteld dan 99 dagen
+	;Set MaximaleLeverdag=$S($P(Hoofding,"\",28):$H+99,1:$$CALCDATE^vhLib.DataTypes($H,"A",..GeefAantalWerkdagen)) ; Indien ASAP ingesteld dan 99 dagen
+	Set MaximaleLeverdag=$S($P(Hoofding,"\",28):$H+99,1:$$CALCDATE^vhDTyp($H,"A",..GeefAantalWerkdagen(KLNr, ORDNr))) ; Indien ASAP ingesteld dan 99 dagen
 	Set MemGenTyp=""
 	While (OLNr'="") && (FoutCode="")
 	{