Index: vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/BepaalHtmlInhoudProboxOverdoosEtiket/Test.cls.xml
===================================================================
diff -u -r58334 -r58541
--- vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/BepaalHtmlInhoudProboxOverdoosEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 58334)
+++ vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/BepaalHtmlInhoudProboxOverdoosEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 58541)
@@ -27,7 +27,7 @@
 	Set ProductenOpPallet = ##class(APPS.MAG.Inventaris.dto.ProductenOpPallet).%New()
 	
 	Set InventarisServiceStub = ##class(vhTest.Mock.APPS.MAG.Inventaris.impl.InventarisService).%New()
-	Do InventarisServiceStub.IndienMethodCall("GeefProductenOpPallet","").DanReturn(ProductenOpPallet)
+	Do InventarisServiceStub.IndienMethodCall("GeefProductenOpPallet","9BP10284").DanReturn(ProductenOpPallet)
 	
 	Set InhoudBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler).%New(InventarisServiceStub)
 	#dim Resultaat As %String = InhoudBepaler.BepaalHtmlInhoudProboxOverdoosEtiket("UnitTest","98")
@@ -51,7 +51,7 @@
 	Do ProductenOpPallet.Insert(ProductOpPallet)
 	
 	Set InventarisServiceStub = ##class(vhTest.Mock.APPS.MAG.Inventaris.impl.InventarisService).%New()
-	Do InventarisServiceStub.IndienMethodCall("GeefProductenOpPallet","").DanReturn(ProductenOpPallet)
+	Do InventarisServiceStub.IndienMethodCall("GeefProductenOpPallet","9BP10284").DanReturn(ProductenOpPallet)
 	
 	Set InhoudBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler).%New(InventarisServiceStub)
 	#dim Resultaat As %String = InhoudBepaler.BepaalHtmlInhoudProboxOverdoosEtiket("UnitTest","98")
@@ -81,7 +81,7 @@
 	Do ProductenOpPallet.Insert(ProductOpPallet2)
 	
 	Set InventarisServiceStub = ##class(vhTest.Mock.APPS.MAG.Inventaris.impl.InventarisService).%New()
-	Do InventarisServiceStub.IndienMethodCall("GeefProductenOpPallet","").DanReturn(ProductenOpPallet)
+	Do InventarisServiceStub.IndienMethodCall("GeefProductenOpPallet","9BP10284").DanReturn(ProductenOpPallet)
 	
 	Set InhoudBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler).%New(InventarisServiceStub)
 	#dim Resultaat As %String = InhoudBepaler.BepaalHtmlInhoudProboxOverdoosEtiket("UnitTest","98")
@@ -111,7 +111,7 @@
 	Do ProductenOpPallet.Insert(ProductOpPallet2)
 	
 	Set InventarisServiceStub = ##class(vhTest.Mock.APPS.MAG.Inventaris.impl.InventarisService).%New()
-	Do InventarisServiceStub.IndienMethodCall("GeefProductenOpPallet","").DanReturn(ProductenOpPallet)
+	Do InventarisServiceStub.IndienMethodCall("GeefProductenOpPallet","9BP10284").DanReturn(ProductenOpPallet)
 	
 	Set InhoudBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler).%New(InventarisServiceStub)
 	#dim Resultaat As %String = InhoudBepaler.BepaalHtmlInhoudProboxOverdoosEtiket("UnitTest","98")
Index: BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml
===================================================================
diff -u -r58335 -r58541
--- BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml	(.../HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml)	(revision 58335)
+++ BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml	(.../HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml)	(revision 58541)
@@ -83,7 +83,7 @@
 	
 	#dim ProductAantalLijst = ##class(TECH.KeyValue.UniqueList).%New()
 
-	Set ProductenOpPalletIterator = ##class(TECH.ListIterator).%New(..InventarisService.GeefProductenOpPallet($P(Rec,"\",3)))
+	Set ProductenOpPalletIterator = ##class(TECH.ListIterator).%New(..InventarisService.GeefProductenOpPallet($P(^UPRCP("B",bfrRGID,bfrVolgNr,1),"\",3)))
 	While ProductenOpPalletIterator.HasNext() {
 		#dim ProductOpPallet As APPS.MAG.Inventaris.dto.ProductOpPallet = ProductenOpPalletIterator.Next()
 		Do ProductAantalLijst.Insert(##class(TECH.KeyValuePair).%New(ProductOpPallet.ProductData.ID, ProductOpPallet.Aantal))