Index: EWPAL.mac.rou
===================================================================
diff -u -r67861 -r68860
--- EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 67861)
+++ EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 68860)
@@ -622,24 +622,24 @@
  
  Quit
  
-
 FETCHOBJT(PRNr,%J)
-	Set it=##class(OBJTimpl.WMSOrder.OphalenVoorraadOpLocatie).%New().GeefIterator(PRNr)
+	new Ophaler,it,rs
+	Set Ophaler = ##class(OBJTimpl.WMSOrder.OphalenVoorraadOpLocatie).%New()
+	Set it=Ophaler.GeefIterator(PRNr)
 	While it.HasNext()
 	{	
-	Set rs=it.Next()
- 	Set Rec=rs.Data("LPN")
- 	Set $P(Rec,D,2)=+rs.Data("QTYONHAND")
-  	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
+		Set rs=it.Next()
+	 	Set Rec=rs.Data("LPN")
+	 	Set $P(Rec,D,2)=+rs.Data("QTYONHAND")
+	  	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