Index: APPS/VKP/Order/VerzendMaatwerkDirectControleur.cls.xml
===================================================================
diff -u -r43694 -r72051
--- APPS/VKP/Order/VerzendMaatwerkDirectControleur.cls.xml	(.../VerzendMaatwerkDirectControleur.cls.xml)	(revision 43694)
+++ APPS/VKP/Order/VerzendMaatwerkDirectControleur.cls.xml	(.../VerzendMaatwerkDirectControleur.cls.xml)	(revision 72051)
@@ -11,7 +11,7 @@
 </Parameter>
 
 <Parameter name="MaxAantalLades">
-<Default>15</Default>
+<Default>30</Default>
 </Parameter>
 
 <Parameter name="GewensteVerzendwijze">
Index: BL/MB/UGLYPicking/VerzendDirectControleurViaBon.cls.xml
===================================================================
diff -u
--- BL/MB/UGLYPicking/VerzendDirectControleurViaBon.cls.xml	(revision 0)
+++ BL/MB/UGLYPicking/VerzendDirectControleurViaBon.cls.xml	(revision 72051)
@@ -0,0 +1,159 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.MB.UGLYPicking.VerzendDirectControleurViaBon">
+<ClassType/>
+<IncludeCode>BL.Derde.LevSpecifiek</IncludeCode>
+<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>30</Default>
+</Parameter>
+
+<Parameter name="GewensteVerzendwijze">
+<Default>DI1</Default>
+</Parameter>
+
+<Method name="test">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set BONNr=""
+	For  Set BONNr=$O(^ORDW("D",BONNr)) Quit:BONNr=""  Do
+	. Set KLNr=$P($G(^KU1(BONNr,"F")),"\")
+	. Quit:'KLNr
+	. Set Hoofding=$G(^KUL(KLNr,"F",BONNr,1))
+	. Quit:Hoofding=""
+	. Set Controle= ..%New().ControleViaBon(BONNr)
+	. Quit:Controle["BON BESTAAT NIET"
+	. Quit:Controle["FOUTIEVE VERZENDWIJZE"
+	. Quit:Controle["HOOFDING BESTAAT NIET"
+	. Quit:Controle["ONVOLDOENDE KREDIET"
+	. write BONNr," ",Controle,!
+]]></Implementation>
+</Method>
+
+<Method name="ControleViaBon">
+<Description>
+w ##class(BL.MB.UGLYPicking.VerzendDirectControleurViaBon).%New().ControleViaBon(376980)</Description>
+<FormalSpec>BONNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set KLNr=$P($G(^KU1(BONNr,"F")),"\")
+	Quit:'KLNr "BON BESTAAT NIET "_BONNr
+	Set Hoofding=$G(^KUL(KLNr,"F",BONNr,1))
+	Quit:Hoofding="" "HOOFDING BESTAAT NIET "_BONNr
+	Quit:'..ControleerVerzendwijze(KLNr,BONNr) "FOUTIEVE VERZENDWIJZE"
+	Quit:'..ControleerKredietWaardig(KLNr) "ONVOLDOENDE KREDIET"
+	Set Controle=..ControleerLeverdag(KLNr,BONNr) 
+	Quit:$L(Controle) Controle
+	Quit ..ControleerLijnen(KLNr,BONNr)
+]]></Implementation>
+</Method>
+
+<Method name="BevatMaatwerk">
+<FormalSpec>KLNr:%String,BONNr:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Hoofding=$G(^KUL(KLNr,"F",BONNr,1))
+	Set LNr=$O(^KUL(KLNr,"F",BONNr,99)) 
+	Set MemGenTyp=""
+	While (LNr'="") && (FoutCode="")
+	{
+		Set Lijn=$G(^KUL(KLNr,"F",BONNr,LNr))
+		If $P($P(Lijn,"\",17),"#")'?1(1"KF11",1"KF5") ; geen tekstlijn of orderhoofding
+		{
+			Set:$P($P(Lijn,"\",17),"#")'="KF6" FoutCode="Geen product lijn"
+
+			Set PRNr=$P(Lijn,"\",2)
+			Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1)
+			Set:MemGenTyp="" MemGenTyp=GenTyp
+		}
+		Set LNr=$O(^KUL(KLNr,"F",BONNr,LNr)) 
+	}
+	Quit MemGenTyp
+]]></Implementation>
+</Method>
+
+<Method name="ControleerVerzendwijze">
+<FormalSpec>KLNr:%String,BONNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Hoofding=$G(^KUL(KLNr,"F",BONNr,1))
+
+	Set Verzendwijzen=$P($P(Hoofding,"\",7)," #")
+	; Alleen die klanten die ELKE dag met DI1 wordt geselecteerd
+	; dus "DI1;3" en "DI1;2`DI1;4" gelden niet
+	Quit Verzendwijzen=..#GewensteVerzendwijze
+]]></Implementation>
+</Method>
+
+<Method name="ControleerKredietWaardig">
+<FormalSpec>KLNr:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	/// Controle of er vervallen facturen zijn
+	Set D="\"
+	Set KredietWaardig=$$WAARDIG^KREDIET(KLNr,"D")
+	Quit $P(KredietWaardig,"\")
+]]></Implementation>
+</Method>
+
+<Method name="ControleerLeverdag">
+<FormalSpec>KLNr:%String,BONNr:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set FoutCode=""
+	Set MaximaleLeverdag=$$CALCDATE^vhLib.DataTypes($H,"A",..#AantalWerkDagen)
+	Set Datum=$$INTDATE^vhLib.DataTypes($P($G(^KUL(KLNr,"F",BONNr,1)),"\",2),"DK")
+	Set:Datum>MaximaleLeverdag FoutCode="Later leveren "_Datum
+	Quit FoutCode
+]]></Implementation>
+</Method>
+
+<Method name="ControleerLijnen">
+<FormalSpec>KLNr:%String,BONNr:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Hoofding=$G(^KUL(KLNr,"F",BONNr,1))
+	Set LNr=$O(^KUL(KLNr,"F",BONNr,99)) 
+	Set SomVanAantal=0
+	Set FoutCode=""
+	Set MemGenTyp=""
+	While (LNr?3.N) && (FoutCode="")
+	{
+		Set Lijn=$G(^KUL(KLNr,"F",BONNr,LNr))
+		If $P($P(Lijn,"\",17),"#")'?1(1"KF11",1"KF5",1"KF1925") ; geen tekstlijn of orderhoofding
+		{
+			Set:$P($P(Lijn,"\",17),"#")'="KF6" FoutCode="Geen product lijn"
+
+			Set SomVanAantal=SomVanAantal+$P(Lijn,"\",3)
+			Set:SomVanAantal>..#MaxAantalLades FoutCode="Groot aantal "_SomVanAantal	
+
+			Set PRNr=$P(Lijn,"\",2)
+			Set:PRNr="" FoutCode="Geen PRNr"
+			Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1,2)
+			Set GenTyp=$S(GenTyp="":"*",1:GenTyp)
+			Set:$P(GenTyp,"\")'?1(1"TBX",1"LBX",1"TAO") FoutCode="GenType geen lade "_GenTyp
+			
+			Set:(MemGenTyp'="")&(MemGenTyp'=GenTyp) FoutCode="Verschillend GenType "_MemGenTyp_"="_GenTyp
+			Set MemGenTyp=GenTyp
+			
+			;w BONNr," ",LNr," ",PRNr," ",$P(^KPR(PRNr,0),"\")," ",SomVanAantal," ",GenTyp,!
+		}
+		Set LNr=$O(^KUL(KLNr,"F",BONNr,LNr)) 
+	}
+	Quit FoutCode
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u -r70678 -r72051
--- BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 70678)
+++ BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 72051)
@@ -7,7 +7,7 @@
 <Super>%RegisteredObject</Super>
 
 <Parameter name="MaxAantalLades">
-<Default>15</Default>
+<Default>30</Default>
 </Parameter>
 
 <Parameter name="MinAantalLades">
@@ -271,19 +271,23 @@
 			
 			Set GenTyp=$S(GenTyp="":"*",1:GenTyp)
 			Set:$P(GenTyp,"\")?1(1"TBX",1"MVX",1"LBX",1"TAO") IsLade=1
-			
-			If GenTyp'="*"
+	
+			Set:$P(GenTyp,"\")'?1(1"TBX",1"MVX",1"LBX",1"TAO") FoutCode="GenType geen lade "_GenTyp
+			Set:(MemGenTyp'="")&(MemGenTyp'=GenTyp) FoutCode="Verschillend GenType "_MemGenTyp_"="_GenTyp
+			Set MemGenTyp=GenTyp
+
+			/* If GenTyp'="*"
 			{
 				Set:$P(GenTyp,"\")'?1(1"TBX",1"MVX",1"LBX",1"TAO") FoutCode="GenType geen lade "_GenTyp
 				Set:(MemGenTyp'="")&(MemGenTyp'=GenTyp) FoutCode="Verschillend GenType "_MemGenTyp_"="_GenTyp
 				Set MemGenTyp=GenTyp
-			}
+			} */
 			;w ORDNr," ",OLNr," ",PRNr," ",$P(^KPR(PRNr,0),"\")," ",$$EXTDATE^vhLib.DataTypes(Datum)," ",SomVanAantal," ",GenTyp,!
 		}
 		Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) 
 	}
 	
-	Set:'IsLade FoutCode="GenType geen Lade"
+	Set:'IsLade&&(FoutCode="") FoutCode="GenType geen Lade"
 	Set:(SomVanAantal<..#MinAantalLades)&&(FoutCode="") FoutCode="Klein aantal "_SomVanAantal
 	Quit FoutCode
 ]]></Implementation>