Index: vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/BepaalHtmlInhoudProboxOverdoosEtiket/Test.cls.xml
===================================================================
diff -u -r59051 -r59179
--- vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/BepaalHtmlInhoudProboxOverdoosEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 59051)
+++ vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/BepaalHtmlInhoudProboxOverdoosEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 59179)
@@ -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\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,1) = "2000000\L.J6.WR\9BP10284\04020101\1\65252,56978\GBV\231668"
+	Set ^UPRCP("B","UnitTest",98,2) = "2253609\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"
+	Set ^UPRCP("B","UnitTest",98,4) = "2000045\L.J6.WS\4BP10284\04020101\4\65252,56871\GBV\231668"
 ]]></Implementation>
 </Method>
 
@@ -40,10 +40,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Ladecode moet gebruikt worden">
+<Implementation><![CDATA[
+	Set ProductenOpPallet = ##class(APPS.MAG.Inventaris.dto.ProductenOpPallet).%New()
+	
+	Set InventarisServiceStub = ##class(vhTest.Mock.APPS.MAG.Inventaris.impl.InventarisService).%New()
+	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")
+	
+	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"">MY3</td>"),1) //echte ladecode wordt gebruikt voor TBX
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"<td align=""center"">KY</td>"),1) //echte ladecode wordt gebruikt voor LBX
+	Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"<td align=""center"">CY</td>"),1) //echte ladecode wordt gebruikt voor TAX
+]]></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 ProductData.ID = 2000045
 	Set ProductOpPallet = ##class(APPS.MAG.Inventaris.dto.ProductOpPallet).%New()
 	Set ProductOpPallet.ProductData = ProductData
 	Set ProductOpPallet.Aantal = 42
@@ -67,7 +84,7 @@
 <Method name="Test: meedere producten al in WMS">
 <Implementation><![CDATA[
 	Set ProductData1 = ##class(DOM.common.dto.ProductData).%New()
-	Set ProductData1.ID = 2305123
+	Set ProductData1.ID = 2000045
 	Set ProductOpPallet1 = ##class(APPS.MAG.Inventaris.dto.ProductOpPallet).%New()
 	Set ProductOpPallet1.ProductData = ProductData1
 	Set ProductOpPallet1.Aantal = 42
@@ -97,7 +114,7 @@
 <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 ProductData1.ID = 2000045
 	Set ProductOpPallet1 = ##class(APPS.MAG.Inventaris.dto.ProductOpPallet).%New()
 	Set ProductOpPallet1.ProductData = ProductData1
 	Set ProductOpPallet1.Aantal = 42