Index: BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u -r66219 -r68334
--- BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 66219)
+++ BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 68334)
@@ -234,9 +234,15 @@
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+// w ##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().ControleerLijnen(
+
+]]></Content>
+</UDLText>
+
 <Method name="ControleerLijnen">
 <FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
-<Private>1</Private>
 <Implementation><![CDATA[
 	Set Hoofding=$G(^KOD(KLNr,"F",ORDNr,1))
 	Set OLNr=$O(^KOD(KLNr,"F",ORDNr,99)) 
@@ -245,6 +251,7 @@
 	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="")
 	{
 		Set Lijn=$G(^KOD(KLNr,"F",ORDNr,OLNr))
@@ -260,17 +267,23 @@
 
 			Set PRNr=$P(Lijn,"\",2)
 			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:$P(GenTyp,"\")?1(1"TBX",1"MVX",1"LBX",1"TAO") IsLade=1
 			
-			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:SomVanAantal<..#MinAantalLades FoutCode="Klein aantal "_SomVanAantal
+	
+	Set:'IsLade FoutCode="GenType geen Lade"
+	Set:(SomVanAantal<..#MinAantalLades)&&(FoutCode="") FoutCode="Klein aantal "_SomVanAantal
 	Quit FoutCode
 ]]></Implementation>
 </Method>