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>