Index: BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u -r50900 -r55828
--- BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 50900)
+++ BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 55828)
@@ -15,8 +15,8 @@
 <Default>15</Default>
 </Parameter>
 
-<Parameter name="GewensteVerzendwijze">
-<Default>DI1</Default>
+<Parameter name="GewensteVerzendwijzen">
+<Default>DI1,GL4</Default>
 </Parameter>
 
 <Parameter name="NieuweVerzendwijze">
@@ -175,10 +175,10 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set Hoofding=$G(^KOD(KLNr,"F",ORDNr,1))
-	Set Verzendwijzen=$P(Hoofding,"\",7)
+	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 Verzendwijzen=..#GewensteVerzendwijze
+	Quit $Find(..#GewensteVerzendwijzen,Verzendwijze)
 ]]></Implementation>
 </Method>