Index: EWPAL.mac.rou
===================================================================
diff -u -r67493 -r67861
--- EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 67493)
+++ EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 67861)
@@ -622,22 +622,24 @@
  
  Quit
  
+
 FETCHOBJT(PRNr,%J)
 	Set it=##class(OBJTimpl.WMSOrder.OphalenVoorraadOpLocatie).%New().GeefIterator(PRNr)
 	While it.HasNext()
 	{	
 	Set rs=it.Next()
- 	Set Rec="OBJT"
+ 	Set Rec=rs.Data("LPN")
  	Set $P(Rec,D,2)=+rs.Data("QTYONHAND")
-  	Set $P(Rec,D,3)=+rs.Data("QTYALLOCATED")
   	Set $P(Rec,D,10)=$P($zdth(rs.Data("DTSMODIFICATION"),8),",",1) ; datum
   	Set $P(Rec,D,11)=$P($zdth(rs.Data("DTSMODIFICATION"),8),",",2) ; tijd
   
   	Set $P(Rec,D,16)=$G(rs.Data("LOCATIONID"))
-  	Set:$P(Rec,D,16)="" $P(Rec,D,16)=$G(rs.Data("WAREHOUSE"))_":"_rs.Data("WAREHOUSELOCATION")
+  	;Set:$P(Rec,D,16)="" $P(Rec,D,16)=$G(rs.Data("WAREHOUSE"))_":"_rs.Data("WAREHOUSELOCATION")
   	Set ^HULP(%J,$O(^HULP(%J,""),-1)+1)=Rec
 	}
-	Quit  
+	Quit  	
+	
+	
  ;
 COPYOLD ; Copy van het oude EWPAL("D")
  ; Er worden 10 bestanden bijgehouden