Index: EWPAL.mac.rou
===================================================================
diff -u -r66860 -r67289
--- EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 66860)
+++ EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 67289)
@@ -604,8 +604,26 @@
  . . If $P(Rec,D,16)="" Do ; geen transloc
  . . . Set $P(Rec,D,16)=$E(100+$P(Rec,D,5),2,3)_" "_$E(100+$P(Rec,D,6),2,3)_" "_$E(100+$P(Rec,D,7),2,3)
  . Set ^HULP(%J,I)=Rec
+  Do FETCHOBJT(PRNr,%J)
+ 
  Quit
  
+FETCHOBJT(PRNr,%J)
+	Set it=##class(OBJTimpl.WMSOrder.OphalenVoorraadOpLocatie).%New().GeefIterator(PRNr)
+	While it.HasNext()
+	{	
+	Set rs=it.Next()
+ 	Set Rec="OBJT"
+ 	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 ^HULP(%J,$O(^HULP(%J,""),-1)+1)=Rec
+	}
+	Quit  
  ;
 COPYOLD ; Copy van het oude EWPAL("D")
  ; Er worden 10 bestanden bijgehouden