Index: vhUnitTest/APPS/Halux/Planning/TestResourceGebruikCalculator.cls.xml
===================================================================
diff -u -r1133 -r1447
--- vhUnitTest/APPS/Halux/Planning/TestResourceGebruikCalculator.cls.xml	(.../TestResourceGebruikCalculator.cls.xml)	(revision 1133)
+++ vhUnitTest/APPS/Halux/Planning/TestResourceGebruikCalculator.cls.xml	(.../TestResourceGebruikCalculator.cls.xml)	(revision 1447)
@@ -33,6 +33,48 @@
 	
 	Set ^KO1(118153,"F")="6279\"
 	
+	Set ^KPR(529744,0) = "TB8CIE.PFJS350x771   SWWI\Tandembox voorraadlade\89322\\8\\93.2885\C#A\0\703100\intivo CL;D:350xB:771;bodem:Wit\\\0\\\0##0\6\46.1032\\\\\\\\"
+	Set ^KPR(529744,1) = "10\3\\\\\1\\\\\\10757.51\\\\\\\\0#0\Tiroir-casserole rehaussé\0#0#0\999#0#0\\\"
+	Set ^KPR(529744,2) = "High fronted pull-out\Höhe Frontauszug Tandembox\\\\\\14\0#0#0\\Z\E\\\2\\A;61765,32086\204.6\144\0.6\6.5\756\885\\9.297.445.5\\"
+	Set ^KPR(529744,3) = "3-4\VH96\\\\\\\\\\\\\\\\\\\Tandembox intivo CL;P:350xL:771;Fond: blanc\Tandembox intivo CL;D:350xW:771\intivo CL;D:350xB:771;Fachboden: weiss\\\\"
+	Set ^KPR(529744,4) = "Tandembox voorraadlade intivo CL;D:350xB:771\bodem:Wit;zijkant:Zijdewit;Intivo\bevat: gemont. lade;glijder 30kg\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(529744,5) = "blumotion int.;BOXCOVER met diamant glas 8mm\frontbevest. EXPANDO;afdekkappen\omvouwkarton  50D  771mm\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(529744,6) = "zijkant:Zijdewit;Intivo\bevat: gemont. lade;glijder 30kg\blumotion int.;BOXCOVER met diamant glas 8mm\frontbevest. EXPANDO;afdekkappen\verpakt: karton"
+	Set ^KPR(529744,8) = "côté:Soie blanc;Intivo\contient: tiroir monté;extension totale 30kg\blumotion i.;BOXCOVER avec verre diamond 8mm\attache façade EXPANDO;caches\emballé: carton"
+	Set ^KPR(529744,10) = "side:weiss;Intivo\beinhaltet: fertigschubkasten\Vollauszug 30kg;blumotion int.\BOXCOVER mit Glas Diamond 8mm\frontbefest EXPANDO;abdeckkappe\verpackt: karton"
+	Set ^KPR(529744,12) = "Chipboard: white;side:white;Intivo\contains: premounted drawer\Full extension 30kg;blumotion i.\BOXCOVER with Diamond glass 8mm\fixation expando;coverplate\packed: box"
+	Set ^KPR(529744,15) = "\\\\\\\\\\\\118848"
+	Set ^KPR(529744,"G") = "PFJS\\\\\\\\\\9.6897\44.33\307401\1\811.3\811.3"
+	Set ^KPR(529744,"I") = ""
+	Set ^KPR(529744,"I1") = "05LA \05LA01MON \05LA01MON03TBX/HA \902\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+	Set ^KPR(529744,"J") = ""
+	Set ^KPR(529744,"J6332") = "6332\ \\\\1\0\\\20\4\12\1\\\1\EUR\\44.33\47.185347\4\\46.103200\50.58\93.288547\37.315419\40\E\\\\\\\*\"
+	
+	Set ^PRBS("BS",529744,"PRBXKG.001") = "454738\2\H\\\\\\\4\RELING\\Boxkap glas, links, 500mm, Diamant helder\\\\\Onderdelen 2\LOS\\"
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",529744,"LD",20)
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",529744,"DC","S")
+	
+	Set ^KPR(505552,0) = "TB9D/A.OBTY500x1052O WALG\Tandembox voorraadlade D\209369\\8\\72.1458\C#A\0\703100\D:500xB:1052;bodem:Licht grijs\\\0\\\0##0\6\35.3226\\\\\\\\"
+	Set ^KPR(505552,1) = "10\3\\\\\1\\\\\\12492.25\\\\\\\\0#0\Tiroir-casserole rehaussé\0#0#0\999#0#0\\\"
+	Set ^KPR(505552,2) = "High fronted pull-out D\Höhe Frontauszug D\\\\\\14\0#0#0\\Z\\\\2\15\A;61663,53151\204.6\144\0.6\6.5\756\885\\9.055.522.5\\"
+	Set ^KPR(505552,3) = "3-4\VH96\\\\\\\\\\\\\\\\\\\D Tandembox;P:500xL:1052;Fond: gris clair\Tandembox;D:500xW:1052;Chipboard: light grey\Tandembox;D:500xB:1052;Fachboden: hellgrau\\\\"
+	Set ^KPR(505552,4) = "Tandembox voorraadlade D;D:500xB:1052\bodem:Licht grijs;zijkant:Metaalgrijs\bevat: gemont. lade;Tandemglijder 50kg\verpakt: commissie op pallet\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(505552,5) = "blumotion int.;dubbele reling\frontbevest. ALU/volkern;grijze mat\afdekkappen\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(505552,6) = "zijkant:Metaalgrijs\bevat: gemont. lade;Tandemglijder 50kg\blumotion int.;dubbele reling\frontbevest. ALU/volkern;grijze mat\afdekkappen\verpakt: commissie op pallet"
+	Set ^KPR(505552,8) = "côté:Métallisé gris\contient: tiroir monté;extension totale 50kg\blumotion i.;double galerie\attache façade ALU/Trespa;natte grise;caches\emballé: pallette"
+	Set ^KPR(505552,10) = "Seite:metallic grau\beinhaltet: fertigschubkasten\Vollauszug 50kg;blumotion int.;doppelreling\frontbefest. ALU/VollKern;graue matte\abdeckkappe\verpackt: pallet"
+	Set ^KPR(505552,12) = "side:Metallic grey\contains: premounted drawer\Full extension 50kg;blumotion i.;rail double\fixation ALU;grey mat;coverplate\packed: pallet"
+	Set ^KPR(505552,15) = "\\\\\\\\\\\\98839"
+	Set ^KPR(505552,"G") = "OBTY\\\\\\\\\\6.6520\34.63\286923\30\589.1\589.1"
+	Set ^KPR(505552,"I") = ""
+	Set ^KPR(505552,"I1") = "05LA \05LA01MON \05LA01MON04TBO/HA \965\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+	Set ^KPR(505552,"J") = ""
+	Set ^KPR(505552,"J6332") = "6332\ \\\\30\0\\\20\4\12\1\\\1\EUR\\34.63\36.823233\2\\35.322600\51.04\72.145833\28.858333\40\E\\\\\\\*\"
+	
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",505552,"DC","S")
+	Set ^PRBS("BS",505552,"PRRL.001") = "19142\2\H\\\\\\\4\RELING\\Reling, 500mm, *** INKORTEN ***, metaalgrijs\\\\\Onderdelen 2\LOS\\"
+	Set ^PRBS("BS",505552,"PRRLADAPT.001") = "34548\2\H\\\\\\\5\RELING\\Tussenreling vr dubbele reling, *** INKORTEN ***, metaalgrijs\\\\\Onderdelen 2\LOS\\"
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/Halux/Planning/TestProductPlanningUtils.cls.xml
===================================================================
diff -u -r1207 -r1447
--- vhUnitTest/APPS/Halux/Planning/TestProductPlanningUtils.cls.xml	(.../TestProductPlanningUtils.cls.xml)	(revision 1207)
+++ vhUnitTest/APPS/Halux/Planning/TestProductPlanningUtils.cls.xml	(.../TestProductPlanningUtils.cls.xml)	(revision 1447)
@@ -72,5 +72,72 @@
 	Do $$$AssertEquals(Categorie,##class(APPS.Halux.Planning.enu.Categorie).Mat(),"347949")
 ]]></Implementation>
 </Method>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ^KPR(431969,0) = "TB8BAA.KWNM350x528   WALG\Tandembox voorraadlade B\89322\\8\\54.9583\C#C\0\703100\D:350xB:528;bodem:Licht grijs\\\0\\\0##0\6\26.9076\\\\\\\\"
+	Set ^KPR(431969,1) = "10\3\\\\\1\\\\\\6544.28\\\\\\\\0#0\Tiroir-casserole B\0#0#0\999#0#0\\\"
+	Set ^KPR(431969,2) = "High fronted pull-out B\Frontauszug B Tandembox\\\\\\14\0#0#0\\Z\\\\2\9\A;61370,38604\204.6\144\0.6\6.5\756\885\\9.319.694.4\\"
+	Set ^KPR(431969,3) = "3-4\VH96\\\\\\\\\\\\\\\\\\\Tandembox;P:350xL:528;Fond: gris clair\Tandembox;D:350xW:528;Chipboard: light grey\D:350xB:528;Fachboden: hellgrau\\\\"
+	Set ^KPR(431969,4) = "Tandembox voorraadlade B;D:350xB:528\bodem:Licht grijs;zijkant:Metaalgrijs;Intivo\bevat: gemont. lade;Tandemglijder 30kg\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(431969,5) = "blumotion int.;enkele reling\frontbevest. ALU/volkern;afdekkappen\omvouwkarton  35B  528mm\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(431969,6) = "zijkant:Metaalgrijs;Intivo\bevat: gemont. lade;Tandemglijder 30kg\blumotion int.;enkele reling\frontbevest. ALU/volkern;afdekkappen\verpakt: karton"
+	Set ^KPR(431969,8) = "côté:Métallisé gris;Intivo\contient: tiroir monté;extension totale 30kg\blumotion i.;simple galerie\attache façade ALU/Trespa;caches\emballé: carton"
+	Set ^KPR(431969,10) = "Seite:metallic grau;Intivo\beinhaltet: fertigschubkasten\Vollauszug 30kg;blumotion int.;einfachreling\frontbefest. ALU/VollKern;abdeckkappe\verpackt: karton"
+	Set ^KPR(431969,12) = "side:Metallic grey;Intivo\contains: premounted drawer\Full extension 30kg;blumotion i.;rail single\fixation ALU;coverplate\packed: box"
+	Set ^KPR(431969,15) = "\\\\\\\\\\\\43746"
+	Set ^KPR(431969,"G") = "KWNM\\\\\\\\\\8.0030\26.38\227239\1\674.5\674.5"
+	Set ^KPR(431969,"I") = ""
+	Set ^KPR(431969,"I1") = "05LA \05LA01MON \05LA01MON03TBX/HA \902\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+	Set ^KPR(431969,"J") = ""
+	Set ^KPR(431969,"J6332") = "6332\ \\\\1\0\\\20\4\12\1\\\1\EUR\\25.27\26.897670\4\\26.280800\50.58\53.17847\21.271388\40\E\\\\\\\*\"
+	Set ^KPR(431969,"L090119") = "9\54.9583\0\26.9076\"
+	Set ^KPR(431969,"S200901") = "9\445.23\203.0616\\9\242.1684\\\\"
+	
+	Set ^KPR(399447,0) = "KLR.KR AAA KKR 978    EV1\Kleerkastrail 30x14 zonder\95902\\8\\8.3542\C#C\0\703100\houders;L:978\\\0\\\0##0\6\4.0902\\\\\\\\"
+	Set ^KPR(399447,1) = "10\3\\\\\1\\\\\\211.73\\\\\\\\0#0\Barre garderobe 30x14\0#0#0\999#0#0\\\"
+	Set ^KPR(399447,2) = "[Kleerkastrail 30x14\[Kleerkastrail 30x14\\\\\\14\0#0#0\\Z\\\\2\1\A;61216,33098\204.6\144\0.6\6.5\756\885\\9.994.472.3\\"
+	Set ^KPR(399447,3) = "3-4\VH96\\\\\\\\\\\\\\\\\\\L:978\zonder houders];L:978\zonder houders];L:978\\\\"
+	Set ^KPR(399447,4) = "Kleerkastrail 30x14 zonder houders;L:978\Zaaglengte:978\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(399447,5) = "\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(399447,"G") = "AAA\\\\\\\\\\1.5854\4.01\200837\1\134.1\134.1"
+	Set ^KPR(399447,"I") = ""
+	Set ^KPR(399447,"I1") = "13AL \13AL05DIV \13AL05DIV01DIV/MA \775\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+	Set ^KPR(399447,"J") = ""
+	Set ^KPR(399447,"J6332") = "6332\ \\\\1\0\\\20\4\12\1\\\1\EUR\\4.19\4.455367\2\\4.273800\51.04\8.729167\3.491667\40\E\\\\\\\*\"
+	Set ^KPR(399447,"L080814") = "1\8.3542\0\4.0902\"
+	Set ^KPR(399447,"S200808") = "1\6.69\2.5998\\1\4.0902\\\\"
+	
+	Set ^KPR(430384,0) = "MDS.1000.2L.2000MMX1000MM\mds 2000x1000mm\73220\\8\\226.67\C#C\\703100\systeem 10 voorliggend\\\\\\\6\2.6153\\\\\\\\"
+	Set ^KPR(430384,1) = "10\3\\\\\1\\\\\\\\\\\\\\0#0\\0#0#0\999#0#0\\\"
+	Set ^KPR(430384,2) = "\\\\\\\14\\\Z\E\\\2\\A;61353,33866\204.6\144\0.6\6.5\756\885\\9.303.844.4\\"
+	Set ^KPR(430384,3) = "3-4\VH96\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(430384,4) = "mds 2000x1000mm\systeem 10 voorliggend\deurtype 2l\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(430384,5) = "fz gehard in 3 gelijke zichtbare vlakken \verdeeld (2 vakverdelers)\gemonteerd\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(430384,6) = "deurtype 2l\fz gehard in 3 gelijke zichtbare vlakken \verdeeld (2 vakverdelers)\gemonteerd\\\\\\"
+	Set ^KPR(430384,"G") = "\ \1020\\\1\2\\\20\4\10\1\\\1\EUR\\214.45\221.598333\5\\225.172500\49.60\446.770833\178.708333\40\E\\\\\\\*\"
+	Set ^KPR(430384,"I") = ""
+	Set ^KPR(430384,"I1") = "13AL \13AL02KAD \13AL02KAD14MDS/HA \868\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+	Set ^KPR(430384,"J") = ""
+	Set ^KPR(430384,"J6332") = "6332\ \1020\\\1\2\\\20\4\10\1\\\1\EUR\\214.45\221.598333\5\\225.172500\49.60\446.770833\178.708333\40\E\\\\\\\*\"
+	
+	Set ^KPR(506925,0) = "MDS.4110.X.PROFIL 3M\\73220\\8\\26.7292\C#A\0\703100\\\\0\\\0##0\6\13.4715\\\\\\\\"
+	Set ^KPR(506925,1) = "10\3\\\\\1\\\\\\\\\\\\\\0#0\Profile 3m mds visible\0#0#0\999#0#0\\\"
+	Set ^KPR(506925,2) = "\\\\\\\14\0#0#0\\Z\E\\\2\\A;61669,55615\204.6\144\0.6\6.5\756\885\\9.069.256.5\\"
+	Set ^KPR(506925,3) = "3-4\VH96\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(506925,4) = "Profiel 3m\tussenverdeler zichtbaar\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(506925,5) = "\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(506925,"G") = "\ \xxxx\\\1\2\\\20\4\10\1\\\1\EUR\\12.83\13.257667\5\\13.471500\49.60\26.729167\10.691667\40\E\\\\\\\*\"
+	Set ^KPR(506925,"I") = ""
+	Set ^KPR(506925,"I1") = "13AL \13AL02KAD \13AL02KAD14MDS/HA \868\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+	Set ^KPR(506925,"J") = ""
+	Set ^KPR(506925,"J6332") = "6332\ \xxxx\\\1\2\\\20\4\10\1\\\1\EUR\\12.83\13.257667\5\\13.471500\49.60\26.729167\10.691667\40\E\\\\\\\*\"
+	Set ^KPR(506925,"L091117") = "7\26.7292\0\13.4715\"
+	Set ^KPR(506925,"S200911") = "7\168.42\74.1195\\7\94.3005\\\\"
+	
+ 	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: vhUnitTest/APPS/Halux/common/TestBatchService.cls.xml
===================================================================
diff -u -r1074 -r1447
--- vhUnitTest/APPS/Halux/common/TestBatchService.cls.xml	(.../TestBatchService.cls.xml)	(revision 1074)
+++ vhUnitTest/APPS/Halux/common/TestBatchService.cls.xml	(.../TestBatchService.cls.xml)	(revision 1447)
@@ -18,6 +18,24 @@
 	Set ^KTO(6332,298006,4)=3
 	Set ^KTO(6332,298006,101)="\529744\250\\\44.33\#\\11082.50\11082.50\\L\1\\100\11082.50\KTRPL\\\\E\EUR\\\11/08\\122882\101\\\\\\\\"
 	Set ^KTO(6332,298006,102)="\595226\1\\\64.71\#\\64.71\64.71\\L\2\\200\64.71\KTRPL\\\\E\EUR\\\11/08\\122882\102\\\\\\\\"
+		
+	Set ^KPR(529744,0) = "TB8CIE.PFJS350x771   SWWI\Tandembox voorraadlade\89322\\8\\93.2885\C#A\0\703100\intivo CL;D:350xB:771;bodem:Wit\\\0\\\0##0\6\46.1032\\\\\\\\"
+	Set ^KPR(529744,1) = "10\3\\\\\1\\\\\\10757.51\\\\\\\\0#0\Tiroir-casserole rehaussé\0#0#0\999#0#0\\\"
+	Set ^KPR(529744,2) = "High fronted pull-out\Höhe Frontauszug Tandembox\\\\\\14\0#0#0\\Z\E\\\2\\A;61765,32086\204.6\144\0.6\6.5\756\885\\9.297.445.5\\"
+	Set ^KPR(529744,3) = "3-4\VH96\\\\\\\\\\\\\\\\\\\Tandembox intivo CL;P:350xL:771;Fond: blanc\Tandembox intivo CL;D:350xW:771\intivo CL;D:350xB:771;Fachboden: weiss\\\\"
+	Set ^KPR(529744,4) = "Tandembox voorraadlade intivo CL;D:350xB:771\bodem:Wit;zijkant:Zijdewit;Intivo\bevat: gemont. lade;glijder 30kg\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(529744,5) = "blumotion int.;BOXCOVER met diamant glas 8mm\frontbevest. EXPANDO;afdekkappen\omvouwkarton  50D  771mm\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(529744,6) = "zijkant:Zijdewit;Intivo\bevat: gemont. lade;glijder 30kg\blumotion int.;BOXCOVER met diamant glas 8mm\frontbevest. EXPANDO;afdekkappen\verpakt: karton"
+	Set ^KPR(529744,8) = "côté:Soie blanc;Intivo\contient: tiroir monté;extension totale 30kg\blumotion i.;BOXCOVER avec verre diamond 8mm\attache façade EXPANDO;caches\emballé: carton"
+	Set ^KPR(529744,10) = "side:weiss;Intivo\beinhaltet: fertigschubkasten\Vollauszug 30kg;blumotion int.\BOXCOVER mit Glas Diamond 8mm\frontbefest EXPANDO;abdeckkappe\verpackt: karton"
+	Set ^KPR(529744,12) = "Chipboard: white;side:white;Intivo\contains: premounted drawer\Full extension 30kg;blumotion i.\BOXCOVER with Diamond glass 8mm\fixation expando;coverplate\packed: box"
+	Set ^KPR(529744,15) = "\\\\\\\\\\\\118848"
+	Set ^KPR(529744,"G") = "PFJS\\\\\\\\\\9.6897\44.33\307401\1\811.3\811.3"
+	Set ^KPR(529744,"I") = ""
+	Set ^KPR(529744,"I1") = "05LA \05LA01MON \05LA01MON03TBX/HA \902\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+	Set ^KPR(529744,"J") = ""
+	Set ^KPR(529744,"J6332") = "6332\ \\\\1\0\\\20\4\12\1\\\1\EUR\\44.33\47.185347\4\\46.103200\50.58\93.288547\37.315419\40\E\\\\\\\*\"
+		
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/Halux/common/TestBatch.cls.xml
===================================================================
diff -u -r1074 -r1447
--- vhUnitTest/APPS/Halux/common/TestBatch.cls.xml	(.../TestBatch.cls.xml)	(revision 1074)
+++ vhUnitTest/APPS/Halux/common/TestBatch.cls.xml	(.../TestBatch.cls.xml)	(revision 1447)
@@ -17,6 +17,24 @@
 	Set ^KTO(6332,298006,4)=3
 	Set ^KTO(6332,298006,101)="\529744\250\\\44.33\#\\11082.50\11082.50\\L\1\\100\11082.50\KTRPL\\\\E\EUR\\\11/08\\122882\101\\\\\\\\"
 	Set ^KTO(6332,298006,102)="\595226\1\\\64.71\#\\64.71\64.71\\L\2\\200\64.71\KTRPL\\\\E\EUR\\\11/08\\122882\102\\\\\\\\"
+	
+	Set ^KPR(529744,0) = "TB8CIE.PFJS350x771   SWWI\Tandembox voorraadlade\89322\\8\\93.2885\C#A\0\703100\intivo CL;D:350xB:771;bodem:Wit\\\0\\\0##0\6\46.1032\\\\\\\\"
+	Set ^KPR(529744,1) = "10\3\\\\\1\\\\\\10757.51\\\\\\\\0#0\Tiroir-casserole rehaussé\0#0#0\999#0#0\\\"
+	Set ^KPR(529744,2) = "High fronted pull-out\Höhe Frontauszug Tandembox\\\\\\14\0#0#0\\Z\E\\\2\\A;61765,32086\204.6\144\0.6\6.5\756\885\\9.297.445.5\\"
+	Set ^KPR(529744,3) = "3-4\VH96\\\\\\\\\\\\\\\\\\\Tandembox intivo CL;P:350xL:771;Fond: blanc\Tandembox intivo CL;D:350xW:771\intivo CL;D:350xB:771;Fachboden: weiss\\\\"
+	Set ^KPR(529744,4) = "Tandembox voorraadlade intivo CL;D:350xB:771\bodem:Wit;zijkant:Zijdewit;Intivo\bevat: gemont. lade;glijder 30kg\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(529744,5) = "blumotion int.;BOXCOVER met diamant glas 8mm\frontbevest. EXPANDO;afdekkappen\omvouwkarton  50D  771mm\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(529744,6) = "zijkant:Zijdewit;Intivo\bevat: gemont. lade;glijder 30kg\blumotion int.;BOXCOVER met diamant glas 8mm\frontbevest. EXPANDO;afdekkappen\verpakt: karton"
+	Set ^KPR(529744,8) = "côté:Soie blanc;Intivo\contient: tiroir monté;extension totale 30kg\blumotion i.;BOXCOVER avec verre diamond 8mm\attache façade EXPANDO;caches\emballé: carton"
+	Set ^KPR(529744,10) = "side:weiss;Intivo\beinhaltet: fertigschubkasten\Vollauszug 30kg;blumotion int.\BOXCOVER mit Glas Diamond 8mm\frontbefest EXPANDO;abdeckkappe\verpackt: karton"
+	Set ^KPR(529744,12) = "Chipboard: white;side:white;Intivo\contains: premounted drawer\Full extension 30kg;blumotion i.\BOXCOVER with Diamond glass 8mm\fixation expando;coverplate\packed: box"
+	Set ^KPR(529744,15) = "\\\\\\\\\\\\118848"
+	Set ^KPR(529744,"G") = "PFJS\\\\\\\\\\9.6897\44.33\307401\1\811.3\811.3"
+	Set ^KPR(529744,"I") = ""
+	Set ^KPR(529744,"I1") = "05LA \05LA01MON \05LA01MON03TBX/HA \902\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+	Set ^KPR(529744,"J") = ""
+	Set ^KPR(529744,"J6332") = "6332\ \\\\1\0\\\20\4\12\1\\\1\EUR\\44.33\47.185347\4\\46.103200\50.58\93.288547\37.315419\40\E\\\\\\\*\"
+		
 	Quit $$$OK
 ]]></Implementation>
 </Method>
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>