Index: vhUnitTest/BL/PPS/TBX/TestDocs.cls.xml
===================================================================
diff -u -r1133 -r1447
--- vhUnitTest/BL/PPS/TBX/TestDocs.cls.xml	(.../TestDocs.cls.xml)	(revision 1133)
+++ vhUnitTest/BL/PPS/TBX/TestDocs.cls.xml	(.../TestDocs.cls.xml)	(revision 1447)
@@ -89,5 +89,76 @@
 	Do $$$AssertEquals("Reling",Document.GeefKolom(7).GetAt(1),"Bevestigingstype reling")
 ]]></Implementation>
 </Method>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ^KPR(490792,0) = "TB8DIZ.NKSK350x564   TSBZ\Tandembox bin.voorr.lade\89322\\8\\131.3363\C#C\0\703100\intivo DL;D:350xB:564;bodem:Terrazwart\\\0\\\0##0\6\64.9064\\\\\\\\"
+	Set ^KPR(490792,1) = "10\3\\\\\1\\\\\\11839.63\\\\\\\\0#0\Tiroir-casserole rehaussé\0#0#0\999#0#0\\\"
+	Set ^KPR(490792,2) = "High fronted inner drawer\Höhe Innenfrontauszug\\\\\\14\0#0#0\\Z\\\\2\1\A;61612,28816\204.6\144\0.6\6.5\756\885\\9.907.928.4\\"
+	Set ^KPR(490792,3) = "3-4\VH96\\\\\\\\\\\\\\\\\\\à l'anglaise Tandembox intivo DL;P:350xL:564\Tandembox intivo DL;D:350xW:564\Tandembox intivo DL;D:350xB:564\\\\"
+	Set ^KPR(490792,4) = "Tandembox bin.voorr.lade intivo DL\D:350xB:564;bodem:Terrazwart\zijkant:Terrazwart;Intivo\zwarte mat;afdekkappen;front met glazen inzet\met diamant gezuurd glas 8mm\omvouwkarton  50D  564mm\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(490792,5) = "bevat: gemont. lade;Tandemglijder 30kg\blumotion int.\BOXCOVER met diamant gezuurd glas 8mm\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(490792,6) = "zijkant:Terrazwart;Intivo\bevat: gemont. lade;Tandemglijder 30kg\blumotion int.\BOXCOVER met diamant gezuurd glas 8mm\zwarte mat;afdekkappen;front met glazen inzet\met diamant gezuurd glas 8mm\verpakt: karton"
+	Set ^KPR(490792,8) = "Fond:Noir;côté:Terranoir;Intivo\contient: tiroir monté;extension totale 30kg\blumotion i.\BOXCOVER avec verre diamond acidé 8mm\natte noire;caches;front avec insert en verre\avec verre diamond acidé 8mm\emballé: carton"
+	Set ^KPR(490792,10) = "Fachenboden:Schwarz;side:Terraschwarz;Intivo\beinhaltet: fertigschubkasten\Vollauszug 30kg;blumotion int.\BOXCOVER mit Glas Diamond geätzt 8mm\schwarze matte;abdeckkappe\Innenauszug mit Glas mit Glas Diamond geätzt\8mm\verpackt: karton"
+	Set ^KPR(490792,12) = "Chipboard:Black;side:Terrablack;Intivo\contains: premounted drawer\Full extension 30kg;blumotion i.\BOXCOVER with Diamond acid glass 8mm\black mat;coverplate;front with glass inset\with Diamond acid glass 8mm\packed: box"
+	Set ^KPR(490792,15) = "\\\\\\\\\\\\87311"
+	Set ^KPR(490792,"G") = "NKSK\\\\\\\\\\12.0502\62.41\275148\1\1080.1\1080.1"
+	Set ^KPR(490792,"I") = ""
+	Set ^KPR(490792,"I1") = "05LA \05LA01MON \05LA01MON03TBX/HA \902\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+	Set ^KPR(490792,"J") = ""
+	Set ^KPR(490792,"J6332") = "6332\ \\\\1\0\\\20\4\12\1\\\1\EUR\\62.41\66.429901\4\\64.906400\50.58\131.336301\52.534520\40\E\\\\\\\*\"
+
+	Set ^PRBS("BS",490792,"PRFRGLAS.001") = "425709\1\H\\\\\\\12\FRONT\\Boxkap glas, D, Diamant gezuurd\\\\\BinFront\BIN\\"
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",490792,"DC","I")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",490792,"RH","D")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",490792,"IB",564)
+
+	Set ^KPR(473598,0) = "TB8CIZ.MQXS270x491   IGBZ\Tandembox bin.voorr.lade\89322\\8\\190.3650\C#C\0\703100\intivo CL;D:270xB:491;bodem:Terrazwart\\\0\\\0##0\6\94.0784\\\\\\\\"
+	Set ^KPR(473598,1) = "10\3\\\\\1\\\\\\9380.02\\\\\\\\0#0\Tiroir-casserole rehaussé\0#0#0\999#0#0\\\"
+	Set ^KPR(473598,2) = "High fronted inner drawer\Höhe Innenfrontauszug\\\\\\14\0#0#0\\Z\E\\\2\\A;61528,59552\204.6\144\0.6\6.5\756\885\\9.735.981.4\\"
+	Set ^KPR(473598,3) = "3-4\VH96\\\\\\\\\\\\\\\\\\\à l'anglaise Tandembox intivo CL;P:270xL:491\Tandembox intivo CL;D:270xW:491\Tandembox intivo CL;D:270xB:491\\\\"
+	Set ^KPR(473598,4) = "Tandembox bin.voorr.lade intivo CL\D:270xB:491;bodem:Terrazwart;zijkant:Inox\Intivo\zwarte mat;afdekkappen;front met reling\omvouwkarton  50D  491mm\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(473598,5) = "bevat: gemont. lade;Tandemglijder 30kg\blumotion int.\BOXCOVER met diamant gezuurd glas 8mm\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(473598,6) = "zijkant:Inox;Intivo\bevat: gemont. lade;Tandemglijder 30kg\blumotion int.\BOXCOVER met diamant gezuurd glas 8mm\zwarte mat;afdekkappen;front met reling\verpakt: karton"
+	Set ^KPR(473598,8) = "Fond:Noir;côté:Inox;Intivo\contient: tiroir monté;extension totale 30kg\blumotion i.\BOXCOVER avec verre diamond acidé 8mm\natte noire;caches\front avec tube transversal\emballé: carton"
+	Set ^KPR(473598,10) = "Fachenboden:Schwarz;Seite:Edelstahl;Intivo\beinhaltet: fertigschubkasten\Vollauszug 30kg;blumotion int.\BOXCOVER mit Glas Diamond geätzt 8mm\schwarze matte;abdeckkappe\Innenauszug+Querreling\verpackt: karton"
+	Set ^KPR(473598,12) = "Chipboard:Black;side:Stainless steel;Intivo\contains: premounted drawer\Full extension 30kg;blumotion i.\BOXCOVER with Diamond acid glass 8mm\black mat;coverplate\front with cross gallery\packed: box"
+	Set ^KPR(473598,15) = "\\\\\\\\\\\\73931"
+	Set ^KPR(473598,"G") = "MQXS\\\\\\\\\\12.2904\90.46\260840\1\1105.1\1105.1"
+	Set ^KPR(473598,"I") = ""
+	Set ^KPR(473598,"I1") = "05LA \05LA01MON \05LA01MON03TBX/HA \902\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+	Set ^KPR(473598,"J") = ""
+	Set ^KPR(473598,"J6332") = "6332\ \\\\1\0\\\20\4\12\1\\\1\EUR\\90.46\96.286634\4\\94.078400\50.58\190.365034\76.146014\40\E\\\\\\\*\"
+
+	Set ^PRBS("BS",473598,"PRBXKG.001")="454302\2\H\\\\\\\4\RELING\\Boxkap glas, links, 500mm, Diamant gezuurd\\\\\Monteren Zijkant\MON\\"
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",473598,"DC","I")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",473598,"LD",270)
+
+	Set ^KPR(433490,0) = "TB9DLI.KYCF500x563 C TSBZ\Tandembox voorraadlade D\209370\\8\\226.67\C#C\\703100\D:500xB:563;bodem:BruinZwart\\\\\\\6\2.6153\\\\\\\\"
+	Set ^KPR(433490,1) = "10\3\\\\\1\\\\\\6479.3\\\\\\\\0#0\Tiroir-casserole rehaussé\0#0#0\999#0#0\\\"
+	Set ^KPR(433490,2) = "High fronted pull-out D\Höhe Frontauszug D\\\\\\14\0#0\\Z\E\\\2\\A;61376,41490\204.6\144\0.6\6.5\756\885\\9.334.901.4\\"
+	Set ^KPR(433490,3) = "3-4\VH96\\\\\\\\\\\\\\\\\\\D Tandembox;P:500xL:563;Fond:Noir\Tandembox;D:500xW:563;Chipboard:Black\Tandembox;D:500xB:563;Fachenboden:Schwarz\\\\"
+	Set ^KPR(433490,4) = "Tandembox voorraadlade D;D:500xB:563\bodem:BruinZwart;zijkant:Terrazwart;Intivo\bevat: gemont. lade;afdekkappen\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(433490,5) = "verpakt: commissie op pallet\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(433490,6) = "zijkant:Terrazwart;Intivo\bevat: gemont. lade;afdekkappen\verpakt: commissie op pallet"
+	Set ^KPR(433490,8) = "côté:Terranoir;Intivo\contient: tiroir monté;caches\emballé: pallette"
+	Set ^KPR(433490,10) = "side:Terraschwarz;Intivo\beinhaltet: fertigschubkasten;abdeckkappe\verpackt: pallet"
+	Set ^KPR(433490,12) = "side:Terrablack;Intivo\contains: premounted drawer;coverplate\packed: pallet"
+	Set ^KPR(433490,15) = "\\\\\\\\\\\\44757"
+	Set ^KPR(433490,"G") = "KYCF\\\\\\\\\\4.7895\28.85\228332\1\371.4\371.4"
+	Set ^KPR(433490,"I") = ""
+	Set ^KPR(433490,"I1") = "05LA \05LA01MON \05LA01MON05TBC/HA \964\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+	Set ^KPR(433490,"J") = ""
+	Set ^KPR(433490,"J6332") = "6332\ \\\\1\0\\\20\4\12\1\\\1\EUR\\27.55\29.294833\2\\28.101000\51.04\57.395833\22.958333\40\E\\\\\\\*\"
+
+	Set ^PRBS("BS",433490,"PRBXKG.001") = "385941\2\H\\\\\\\3\RELING\\Boxkap glas, links, 500mm, Brons\\\\\Onderdelen 2\LOS\\"
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",433490,"DC","I")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",433490,"LD",500)
+	
+ 	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
 </Export>