Index: BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u -r64467 -r65045
--- BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 64467)
+++ BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 65045)
@@ -119,18 +119,21 @@
 	If Controle="" ; Er mag direct verzonden worden dus verzendwijze aanpassen
 	{
 		Do ..VeranderVerzendWijze(KLNr,ORDNr)
+	} ElseIf Controle = "Klein aantal 1" ; Als er maar 1 inzit, mag het direct naar DI2 
+	{
+		Do ..VeranderVerzendWijze(KLNr,ORDNr,"DI2")
 	}
 	Quit Controle
 ]]></Implementation>
 </Method>
 
 <Method name="VeranderVerzendWijze">
-<FormalSpec>KLNr,ORDNr</FormalSpec>
+<FormalSpec>KLNr,ORDNr,Verzendwijze=..#NieuweVerzendwijze</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Quit:'$D(^KOD(KLNr,"F",ORDNr,1))
 	Do ##class(vhLib.Logger).%New("GLS").Info("VeranderVerzendWijze","Voor ORDNr '"_ORDNr_"' wordt DI1 naar DD1 gewijzigd.")
-	Set $P(^KOD(KLNr,"F",ORDNr,1),"\",7)=..#NieuweVerzendwijze
+	Set $P(^KOD(KLNr,"F",ORDNr,1),"\",7)=Verzendwijze
 ]]></Implementation>
 </Method>