Index: BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u -r55831 -r57013
--- BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 55831)
+++ BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 57013)
@@ -6,12 +6,6 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 
-<Parameter name="AantalWerkDagen">
-<Description>
-Vandaag op transport en morgen leveren = Aantalwerkdagen=1, maar er mag 1 dag extra omdat DI1 in de namiddag wordt geproduceerd.</Description>
-<Default>2</Default>
-</Parameter>
-
 <Parameter name="MaxAantalLades">
 <Default>15</Default>
 </Parameter>
@@ -107,7 +101,7 @@
 </Method>
 
 <Method name="BevatMaatwerk">
-<FormalSpec>KLNr,ORDNr</FormalSpec>
+<FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set Hoofding=$G(^KOD(KLNr,"F",ORDNr,1))
@@ -134,12 +128,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>
 
@@ -163,8 +177,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(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=""
 	While (OLNr'="") && (FoutCode="")
 	{