Index: OBJTimpl/WMSOrder/OphalenPickLijnenConsolidatie.cls.xml
===================================================================
diff -u -r67741 -r67799
--- OBJTimpl/WMSOrder/OphalenPickLijnenConsolidatie.cls.xml	(.../OphalenPickLijnenConsolidatie.cls.xml)	(revision 67741)
+++ OBJTimpl/WMSOrder/OphalenPickLijnenConsolidatie.cls.xml	(.../OphalenPickLijnenConsolidatie.cls.xml)	(revision 67799)
@@ -102,7 +102,7 @@
 	Set SqlStatement = "select distinct orders.ID CONSNR,olines.name LIJNNR,olines.QTYTARGET,pa.QTY AANTAL,item.id IDENTNR "
 	_" ,isnull((select top 1 fl.FULLNAME from DCEREPORT_PICK_ACTUALS p1 "
 	_"         left join DCEREPORT_LOCATIONS         fl on fl.OID= p1.FROM_LOCATION_OID "
-	_"         where p1.PICKORDER_OID = pa.PICKORDER_OID and p1.PICKLINE_OID = pa.PICKLINE_OID and p1.FROM_CONTAINER_OID = pa.FROM_CONTAINER_OID order by p1.DTSSTART asc),'KardexOPLSAG') FROMLOC "
+	_"         where p1.PICKORDER_OID = pa.PICKORDER_OID and p1.PICKLINE_OID = pa.PICKLINE_OID and p1.FROM_CONTAINER_OID = pa.FROM_CONTAINER_OID order by p1.DTSSTART asc),'KardexOPSLAG') FROMLOC "
 	_" ,isnull(fromcont.LPN,fromloc.FULLNAME) BRONPALLET "
 	_" ,isnull((select top 1 toloc.FULLNAME from DCEREPORT_PICK_ACTUALS p2 "
 	_"         left join DCEREPORT_LOCATIONS         toloc on toloc.OID= p2.to_LOCATION_OID "
Index: OBJTimpl/WMSOrder/ImporteerPicking.cls.xml
===================================================================
diff -u -r67736 -r67799
--- OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 67736)
+++ OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 67799)
@@ -183,11 +183,12 @@
     ; Defaults
     Set C("PALKLID")=..rsPicking.GetDataByName("DOELPALLET")
  	Set C("DATUM")=$S(..rsPicking.GetDataByName("PICKINGTIJDSTIP")="":$H,1:$zdth(..rsPicking.GetDataByName("PICKINGTIJDSTIP"),8))
-
- 	Set C("SOURCEPALID")=..rsPicking.GetDataByName("FROMLOC") 
+	#dim FromLoc as %String = ..rsPicking.GetDataByName("FROMLOC") 
+	Set:(FromLoc="KardexOPSLAG") FromLoc="Kardex"
+ 	Set C("SOURCEPALID")=FromLoc
  	If $Piece(..rsPicking.GetDataByName("TOLOC"),"-",1) = "KLZ.DI1" {
 	 	#Dim CodeKegeltje as %String = $Piece(..rsPicking.GetDataByName("TOLOC"),"-",2)
-	 	Set:($Length(CodeKegeltje)) C("SOURCEPALID")=..rsPicking.GetDataByName("FROMLOC") _"-"_ CodeKegeltje
+	 	Set:($Length(CodeKegeltje)) C("SOURCEPALID")=FromLoc _"-"_ CodeKegeltje
  	}
  	Set C("USER")=..rsPicking.GetDataByName("USERID")
  	Set C("LOCMSTR")=""