Index: APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml
===================================================================
diff -u -r70856 -r70865
--- APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml	(.../PickingOnderdelen.cls.xml)	(revision 70856)
+++ APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml	(.../PickingOnderdelen.cls.xml)	(revision 70865)
@@ -65,7 +65,7 @@
 		While ToeleveringenIterator.HasNext()
 		{
 			#dim Toelevering As DOM.AKP.Toelevering = ToeleveringenIterator.Next()
-			#dim BestandNaam As %String = ##class(TECH.Files).AppendSubPath(..GeefBestandLocatie() , "\IN\") _ Toelevering.GeefID()_".pic"
+			#dim BestandNaam As %String = ##class(TECH.Files).AppendSubPath(..GeefBestandLocatie() , "\Data\FromHost\") _ Toelevering.GeefID()_".pic"
 			try {
 				If ##class(TECH.File).Exists(BestandNaam) {
 					Do ..FileUtils.Delete(BestandNaam)				
@@ -100,7 +100,7 @@
 		While ToeleveringenIterator.HasNext()
 		{
 			#dim Toelevering As DOM.AKP.Toelevering = ToeleveringenIterator.Next()
-			#dim BestandNaam As %String = ##class(TECH.Files).AppendSubPath(..GeefBestandLocatie() , "\VERWERKING\") _ Toelevering.GeefID()_".pic"
+			#dim BestandNaam As %String = ##class(TECH.Files).AppendSubPath(..GeefBestandLocatie() , "\Data\Private\ScanIn\") _ Toelevering.GeefID()_".pic"
 			
 			If ##class(TECH.File).Exists(BestandNaam) {
 				try {
@@ -290,7 +290,7 @@
 <Implementation><![CDATA[
 	Set AansturingActie = ##class(APPS.Halux.PPS.Document.impl.LBX.OnderdelenPicking).%New()
 	#dim UitvoeringInfoIterator As TECH.Iterator = ..OnderdelenPickingUitvoeringInfoRepository.ZoekViaToeleveringID(ToeleveringID)
-	Set UitvoeringInfoLijst = ##class(TECH.ListOfObjects).%New()
+	Set UitvoeringInfoLijst = ##class(%ListOfObjects).%New()
 	
 	While UitvoeringInfoIterator.HasNext() {
 		#dim UitvoeringInfo = UitvoeringInfoIterator.Next()
@@ -307,7 +307,7 @@
 <Implementation><![CDATA[
 	Set AansturingActie = ##class(APPS.Halux.PPS.Document.impl.TAX.OnderdelenPicking).%New()
 	#dim UitvoeringInfoIterator As TECH.Iterator = ..OnderdelenPickingUitvoeringInfoRepository.ZoekViaToeleveringID(ToeleveringID)
-	Set UitvoeringInfoLijst = ##class(TECH.ListOfObjects).%New()
+	Set UitvoeringInfoLijst = ##class(%ListOfObjects).%New()
 	
 	While UitvoeringInfoIterator.HasNext() {
 		#dim UitvoeringInfo = UitvoeringInfoIterator.Next()
Index: APPS/Halux/PPS/Activiteit/impl/common/OnderdelenPicking/HalffabItemNaarUitvoeringInfoVisitor.cls.xml
===================================================================
diff -u -r70855 -r70865
--- APPS/Halux/PPS/Activiteit/impl/common/OnderdelenPicking/HalffabItemNaarUitvoeringInfoVisitor.cls.xml	(.../HalffabItemNaarUitvoeringInfoVisitor.cls.xml)	(revision 70855)
+++ APPS/Halux/PPS/Activiteit/impl/common/OnderdelenPicking/HalffabItemNaarUitvoeringInfoVisitor.cls.xml	(.../HalffabItemNaarUitvoeringInfoVisitor.cls.xml)	(revision 70865)
@@ -124,6 +124,11 @@
 <Implementation><![CDATA[
 	Do ..VulIn(Item)	
 	Set ..Lengte = Item.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Lengte())	
+	
+	If ($Length(..Lengte) > 0) {
+		Set ..Locatie = "XXX"
+	}
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>