Index: PVImportLocatieID.mac.rou
===================================================================
diff -u -r70681 -r73192
--- PVImportLocatieID.mac.rou	(.../PVImportLocatieID.mac.rou)	(revision 70681)
+++ PVImportLocatieID.mac.rou	(.../PVImportLocatieID.mac.rou)	(revision 73192)
@@ -13,12 +13,13 @@
 	 		Set PRNr=$p($G(^KPR2(ItemID_" ")),"\")
 	 		;2de column is korttekst
 	 		Set Code=reader.Column(3)
-	 		Set LocPCData=reader.Column(4)
-	 		Write ItemID,*9,PRNr,*9,Code
-	 		If PRNr,$D(^KPR(PRNr))
+	 		Set LocPCData=$tr(reader.Column(4),"""")
+	 		Write ItemID,*9,PRNr,*9,Code,*9,LocPCData
+	 		If PRNr,$D(^KPR(PRNr)),$L(LocPCData)
 	 		{
-		 		Do $$$PRSet($$$ControleStatus,Code)
+		 		;Do $$$PRSet($$$ControleStatus,Code)
 				Do $$$PRSet($$$CycleCountTypeWMS,LocPCData)
+				W " stored"
 		 	}
 		 	Else
 		 	{