Index: vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/BepaalHtmlInhoudProboxOverdoosEtiket/Test.cls.xml
===================================================================
diff -u -r58291 -r58334
--- vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/BepaalHtmlInhoudProboxOverdoosEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 58291)
+++ vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/BepaalHtmlInhoudProboxOverdoosEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 58334)
@@ -8,10 +8,10 @@
 <Implementation><![CDATA[
 	Do ##super()
 	Set ^UPRCP("B","UnitTest",98) = "65252,57058\0\GBV"
-	Set ^UPRCP("B","UnitTest",98,1) = "2305122\L.J6.WR\9BP10284\04020101\3\65252,56978\GBV\231668"
-	Set ^UPRCP("B","UnitTest",98,2) = "2305114\L.J6.WJ\9BP10284\04020101\0\65252,56871\GBV\231668"
-	Set ^UPRCP("B","UnitTest",98,3) = "2305121\L.J6.WQ\4BP10284\04020101\1\65252,57058\GBV\231668"
-	Set ^UPRCP("B","UnitTest",98,4) = "2305123\L.J6.WS\4BP10284\04020101\0\65252,56871\GBV\231668"
+	Set ^UPRCP("B","UnitTest",98,1) = "2305122\L.J6.WR\9BP10284\04020101\1\65252,56978\GBV\231668"
+	Set ^UPRCP("B","UnitTest",98,2) = "2305114\L.J6.WJ\9BP10284\04020101\2\65252,56871\GBV\231668"
+	Set ^UPRCP("B","UnitTest",98,3) = "2305121\L.J6.WQ\4BP10284\04020101\3\65252,57058\GBV\231668"
+	Set ^UPRCP("B","UnitTest",98,4) = "2305123\L.J6.WS\4BP10284\04020101\4\65252,56871\GBV\231668"
 ]]></Implementation>
 </Method>
 
@@ -33,17 +33,96 @@
 	#dim Resultaat As %String = InhoudBepaler.BepaalHtmlInhoudProboxOverdoosEtiket("UnitTest","98")
 	
 	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"</tr>"),5) //5 rijen in tabel (4 producten + header)
-	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"td align=""center"">0</td></tr></table>"),1) //laatste product heeft aantal 0
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"td align=""center"">1</td></tr>"),1) //eerste product heeft aantal 1
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"td align=""center"">2</td></tr>"),1) //tweede product heeft aantal 2
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"td align=""center"">3</td></tr>"),1) //derde product heeft aantal 3
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"td align=""center"">4</td></tr>"),1) //vierde product heeft aantal 4
 ]]></Implementation>
 </Method>
 
 <Method name="Test: een van de producten al in WMS">
+<Implementation><![CDATA[
+	Set ProductData = ##class(DOM.common.dto.ProductData).%New()
+	Set ProductData.ID = 2305123
+	Set ProductOpPallet = ##class(APPS.MAG.Inventaris.dto.ProductOpPallet).%New()
+	Set ProductOpPallet.ProductData = ProductData
+	Set ProductOpPallet.Aantal = 42
+	Set ProductenOpPallet = ##class(APPS.MAG.Inventaris.dto.ProductenOpPallet).%New()
+	Do ProductenOpPallet.Insert(ProductOpPallet)
+	
+	Set InventarisServiceStub = ##class(vhTest.Mock.APPS.MAG.Inventaris.impl.InventarisService).%New()
+	Do InventarisServiceStub.IndienMethodCall("GeefProductenOpPallet","").DanReturn(ProductenOpPallet)
+	
+	Set InhoudBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler).%New(InventarisServiceStub)
+	#dim Resultaat As %String = InhoudBepaler.BepaalHtmlInhoudProboxOverdoosEtiket("UnitTest","98")
+	
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"</tr>"),5) //5 rijen in tabel (4 producten + header)
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"td align=""center"">1</td></tr>"),1) //eerste product heeft aantal 1
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"td align=""center"">2</td></tr>"),1) //tweede product heeft aantal 2
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"td align=""center"">3</td></tr>"),1) //derde product heeft aantal 3
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"td align=""center"">46</td></tr>"),1) //vierde product heeft aantal 4+42
+]]></Implementation>
 </Method>
 
 <Method name="Test: meedere producten al in WMS">
+<Implementation><![CDATA[
+	Set ProductData1 = ##class(DOM.common.dto.ProductData).%New()
+	Set ProductData1.ID = 2305123
+	Set ProductOpPallet1 = ##class(APPS.MAG.Inventaris.dto.ProductOpPallet).%New()
+	Set ProductOpPallet1.ProductData = ProductData1
+	Set ProductOpPallet1.Aantal = 42
+	Set ProductData2 = ##class(DOM.common.dto.ProductData).%New()
+	Set ProductData2.ID = 2305121
+	Set ProductOpPallet2 = ##class(APPS.MAG.Inventaris.dto.ProductOpPallet).%New()
+	Set ProductOpPallet2.ProductData = ProductData2
+	Set ProductOpPallet2.Aantal = 666
+	Set ProductenOpPallet = ##class(APPS.MAG.Inventaris.dto.ProductenOpPallet).%New()
+	Do ProductenOpPallet.Insert(ProductOpPallet1)
+	Do ProductenOpPallet.Insert(ProductOpPallet2)
+	
+	Set InventarisServiceStub = ##class(vhTest.Mock.APPS.MAG.Inventaris.impl.InventarisService).%New()
+	Do InventarisServiceStub.IndienMethodCall("GeefProductenOpPallet","").DanReturn(ProductenOpPallet)
+	
+	Set InhoudBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler).%New(InventarisServiceStub)
+	#dim Resultaat As %String = InhoudBepaler.BepaalHtmlInhoudProboxOverdoosEtiket("UnitTest","98")
+	
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"</tr>"),5) //5 rijen in tabel (4 producten + header)
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"td align=""center"">1</td></tr>"),1) //eerste product heeft aantal 1
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"td align=""center"">2</td></tr>"),1) //tweede product heeft aantal 2
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"td align=""center"">669</td></tr>"),1) //derde product heeft aantal 3+666
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"td align=""center"">46</td></tr>"),1) //vierde product heeft aantal 4+42
+]]></Implementation>
 </Method>
 
 <Method name="Test: al andere producten op pallet in WMS">
+<Implementation><![CDATA[
+	Set ProductData1 = ##class(DOM.common.dto.ProductData).%New()
+	Set ProductData1.ID = 2305123
+	Set ProductOpPallet1 = ##class(APPS.MAG.Inventaris.dto.ProductOpPallet).%New()
+	Set ProductOpPallet1.ProductData = ProductData1
+	Set ProductOpPallet1.Aantal = 42
+	Set ProductData2 = ##class(DOM.common.dto.ProductData).%New()
+	Set ProductData2.ID = 1234567
+	Set ProductOpPallet2 = ##class(APPS.MAG.Inventaris.dto.ProductOpPallet).%New()
+	Set ProductOpPallet2.ProductData = ProductData2
+	Set ProductOpPallet2.Aantal = 666
+	Set ProductenOpPallet = ##class(APPS.MAG.Inventaris.dto.ProductenOpPallet).%New()
+	Do ProductenOpPallet.Insert(ProductOpPallet1)
+	Do ProductenOpPallet.Insert(ProductOpPallet2)
+	
+	Set InventarisServiceStub = ##class(vhTest.Mock.APPS.MAG.Inventaris.impl.InventarisService).%New()
+	Do InventarisServiceStub.IndienMethodCall("GeefProductenOpPallet","").DanReturn(ProductenOpPallet)
+	
+	Set InhoudBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler).%New(InventarisServiceStub)
+	#dim Resultaat As %String = InhoudBepaler.BepaalHtmlInhoudProboxOverdoosEtiket("UnitTest","98")
+	
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"</tr>"),6) //6 rijen in tabel (4 producten in buffer + 1 extra op pallet + header)
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"td align=""center"">1</td></tr>"),1) //eerste product heeft aantal 1
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"td align=""center"">2</td></tr>"),1) //tweede product heeft aantal 2
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"td align=""center"">3</td></tr>"),1) //derde product heeft aantal 3
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"td align=""center"">46</td></tr>"),1) //vierde product heeft aantal 4+42
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"td align=""center"">666</td></tr>"),1) //vijfde product heeft aantal 666
+]]></Implementation>
 </Method>
 </Class>
 
Index: BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml
===================================================================
diff -u -r58291 -r58334
--- BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml	(.../HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml)	(revision 58291)
+++ BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml	(.../HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml)	(revision 58334)
@@ -83,43 +83,30 @@
 	
 	#dim ProductAantalLijst = ##class(TECH.KeyValue.UniqueList).%New()
 
-	w !,"5"
 	Set ProductenOpPalletIterator = ##class(TECH.ListIterator).%New(..InventarisService.GeefProductenOpPallet($P(Rec,"\",3)))
-	w !,"10"
 	While ProductenOpPalletIterator.HasNext() {
-		w !,"20"
 		#dim ProductOpPallet As APPS.MAG.Inventaris.dto.ProductOpPallet = ProductenOpPalletIterator.Next()
-		w !,"30"
 		Do ProductAantalLijst.Insert(##class(TECH.KeyValuePair).%New(ProductOpPallet.ProductData.ID, ProductOpPallet.Aantal))
-		w !,"40"
 	}
 	
-	//if al data in EWMS.Inventory voor pallet op piece drie van de bufferlijn
-	//lijstje opstellen met prnr/aantal
-	//vooraleer een Geef1Lijn wordt opgeroepen: kijken of er voor hetzelfde product iets in het lijstje zit en het aantal daarmee verhogen
-	//nadat een Geef1Lijn werd opgeroepen: lijn met dat productnummer verwijderen uit lijstje
-	//desnoods nog overgebleven lijnen uit lijstje afdrukken mbv Geef1Lijn
 	#dim AantalReedsOpPallet As %Integer = 0
 	#dim ToeleveringId As %String = 0
 	
-	w !,"100"
 	
 	For  Set LijnNrLoop=$O(^UPRCP("B",bfrRGID,bfrVolgNr,LijnNrLoop)) Quit:(LijnNrLoop="")  Do
 	. Set Rec=^UPRCP("B",bfrRGID,bfrVolgNr,LijnNrLoop)
 	. Set AantalReedsOpPallet = 0
-	. If $IsObject(ProductAantalLijst.FindByKey($P(Rec,"\",1)))
+	. If $IsObject(ProductAantalLijst.FindByKey($P(Rec,"\",1))) Do
 	.. Set AantalReedsOpPallet = ProductAantalLijst.FindByKey($P(Rec,"\",1)).Value
-	.. Do ProductAantalLijst.Remove(ProductAantalLijst.FindByKey($P(Rec,"\",1)))
+	.. Do ProductAantalLijst.RemoveByKey($P(Rec,"\",1))
 	. Set ToeleveringId = $P(Rec,"\",8)
-	. Set Resultaat = Resultaat_..Geef1Lijn($P(Rec,"\",1), $P(Rec,"\",8), $P(Rec,"\",5))
+	. Set Resultaat = Resultaat_..Geef1Lijn($P(Rec,"\",1), $P(Rec,"\",8), $P(Rec,"\",5)+AantalReedsOpPallet)
 	
-	w !,"1000"
 	Set ProductAantalLijstIterator = ##class(TECH.ListIterator).%New(ProductAantalLijst)
 	If ProductAantalLijstIterator.HasNext() {
 		#dim ProductAantalKeyPair As TECH.KeyValuePair = ProductAantalLijstIterator.Next()
 		Set Resultaat = Resultaat_..Geef1Lijn(ProductAantalKeyPair.Key, ToeleveringId, ProductAantalKeyPair.Value)
 	}
-	w !,"1500"
 
 	Quit Resultaat
 ]]></Implementation>