Index: vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/BuildBatch.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/BuildBatch.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/BuildBatch.cls.xml	(revision 2479)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildBatch">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="BuildToelevering1">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set TOENr=200000
+	Set ^KTO(6332,TOENr,0)=108
+	Set ^KTO(6332,TOENr,1)="\16.08.11\KOMM. VETA KEUKENINTERIEU\\\6332\186491\8207\\\\\\\\\\EUR\62374,61200\\\2\\\\"
+	Set ^KTO(6332,TOENr,4)=8
+	Set ^KTO(6332,TOENr,101)="\1020\1\\\23.58\#\\23.58\23.58\\L\1\\100\23.58\KTRPL\\\\E\EUR\\\11/41\\186491\105\\\\\\\\"
+	Set ^KTO(6332,TOENr,102)="\1007\3\\\24.15\#\\24.15\24.15\\L\2\\200\24.15\KTRPL\\\\E\EUR\\\11/41\\186491\106\\\\\\\\"
+	Set ^KTO(6332,TOENr,103)="\1002\1\\\27.54\#\\27.54\27.54\\L\3\\300\27.54\KTRPL\\\\E\EUR\\\11/41\\186491\107\\\\\\\\"
+	Set ^KTO(6332,TOENr,104)="\1003\1\\\26.23\#\\26.23\26.23\\L\4\\400\26.23\KTRPL\\\\E\EUR\\\11/41\\186491\108\\\\\\\\"
+	Set ^KTO(6332,TOENr,105)="\1004\1\\\30.01\#\\30.01\30.01\\L\5\\500\30.01\KTRPL\\\\E\EUR\\\11/41\\186491\109\\\\\\\\"
+	Set ^KTO(6332,TOENr,106)="\1005\1\\\28.77\#\\28.77\28.77\\L\6\\600\28.77\KTRPL\\\\E\EUR\\\11/41\\186491\110\\\\\\\\"
+	Set ^KTO(6332,TOENr,107)="\1006\1\\\53.77\#\\53.77\53.77\\L\7\\700\53.77\KTRPL\\\\E\EUR\\\11/41\\186491\111\\\\\\\\"
+]]></Implementation>
+</Method>
+
+<Method name="BuildToelevering2">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set TOENr=200001
+	Set ^KTO(6332,TOENr,0)=108
+	Set ^KTO(6332,TOENr,1)="\16.08.11\KOMM. VETA KEUKENINTERIEU\\\6332\186491\8207\\\\\\\\\\EUR\62374,61200\\\2\\\\"
+	Set ^KTO(6332,TOENr,4)=8
+	Set ^KTO(6332,TOENr,101)="\1020\2\\\23.58\#\\23.58\23.58\\L\1\\100\23.58\KTRPL\\\\E\EUR\\\11/41\\186491\105\\\\\\\\"
+	Set ^KTO(6332,TOENr,102)="\1021\3\\\24.15\#\\24.15\24.15\\L\2\\200\24.15\KTRPL\\\\E\EUR\\\11/41\\186491\106\\\\\\\\"
+	Set ^KTO(6332,TOENr,103)="\1020\10\\\27.54\#\\27.54\27.54\\L\3\\300\27.54\KTRPL\\\\E\EUR\\\11/41\\186491\107\\\\\\\\"
+]]></Implementation>
+</Method>
+
+<Method name="RemoveToelevering1">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[	Kill ^KTO(6332,200000)
+]]></Implementation>
+</Method>
+
+<Method name="RemoveToelevering2">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[	Kill ^KTO(6332,200001)
+]]></Implementation>
+</Method>
+
+<Method name="BuildAll">
+<Description>
+*** BEFORE ALL TESTS ***</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ Do ..BuildToelevering1()
+ Do ..BuildToelevering2()
+]]></Implementation>
+</Method>
+
+<Method name="RemoveAll">
+<Description>
+*** AFTER ALL TESTS ***</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ Do ..RemoveToelevering1()
+ Do ..RemoveToelevering2()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/TBXZaag/TestBuild.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/TBXZaag/TestBuild.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/TBXZaag/TestBuild.cls.xml	(revision 2479)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.Halux.PPS.TBXZaag.TestBuild">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Docs.TestLadeProductLijst")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildProducts).BeforeAllTests()
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildSequentie).BeforeAllTests()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildProducts).AfterAllTests()
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildSequentie).AfterAllTests()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="TestToevoegenLade">
+<Implementation><![CDATA[
+	Set Lijst = ##class(APPS.Halux.Docs.LadeProductLijst).%New("TBX")
+	Set LadeProduct = ##class(vhUnitTest.APPS.Halux.Docs.impl.TBXLadeProduct).%New()
+	Set Resultaat = Lijst.VoegToe(LadeProduct)
+	Do $$$AssertTrue(Resultaat,"Het product is toegevoegd")
+]]></Implementation>
+</Method>
+
+<Method name="TestToevoegenGeenLade">
+<Implementation><![CDATA[
+	Set Lijst = ##class(APPS.Halux.Docs.LadeProductLijst).%New("TBX")
+	Set LadeProduct = ##class(vhUnitTest.APPS.Halux.Docs.impl.GeenLadeProduct).%New()
+	Set Resultaat = Lijst.VoegToe(LadeProduct)
+	Do $$$AssertFalse(Resultaat,"Het product is toegevoegd")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/BuildProducts.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/BuildProducts.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/BuildProducts.cls.xml	(revision 2479)
@@ -0,0 +1,1370 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildProducts">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Generate">
+<Description>
+EENMALIG uit te voeren voor creatie van de producten
+Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildProducts).Generate()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Dev=$$OPEN^vhDEV("c:\","SchrijfProduct.txt","W")
+	Use Dev
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildProducts).SchrijfProduct(568122,1010,"BodemPlaat1",.arLabels)
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildProducts).SchrijfProduct(568132,1011,"RugPlaat1",.arLabels)
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildProducts).SchrijfProduct(568122,1012,"BodemPlaat2",.arLabels)
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildProducts).SchrijfProduct(568132,1013,"RugPlaat2",.arLabels)
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildProducts).SchrijfProduct(561565,1014,"Bodem Gezaagd KOP",.arLabels)
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildProducts).SchrijfProduct(561576,1015,"Bodem Gezaagd",.arLabels)
+
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildProducts).SchrijfProduct(533844,1020,"TBX1",.arLabels)
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildProducts).SchrijfProduct(533844,1021,"TBX2",.arLabels)
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildProducts).SchrijfProduct(418877,1002,"TBX Gezaagd KOP",.arLabels) ; (of 417427)
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildProducts).SchrijfProduct(703033,1003,"TBX TipOn",.arLabels)
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildProducts).SchrijfProduct(706409,1004,"TBX Syfon",.arLabels)
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildProducts).SchrijfProduct(706410,1005,"TBX Spoelbak",.arLabels)
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildProducts).SchrijfProduct(417391,1006,"TBX StalenRug BodemGezaagd",.arLabels)
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildProducts).SchrijfProduct(552503,1007,"TBX StalenRug",.arLabels)
+
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.BuildProducts).SchrijfInvokeMethod(.arLabels)
+	Do CLOSE^vhDEV(Dev)
+]]></Implementation>
+</Method>
+
+<Method name="BuildBodemPlaat1">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ Set ^KPR(1010,"0") = "SPF.B400   B-STR2840 BZWI\FSC-Bodemstrook voor \\\8\***\26.0332\C#A\\\ladediepte 400mm\\\\\\192#192\6\15.9390\\\\HH\\\\\62329"
+ Set ^KPR(1010,"1") = "1\4\\\\\0\\\\\\12302\\\\2\\\1\35#0\FSC-Lame pour fond de \32#0#50\23#82#0\\\"
+ Set ^KPR(1010,"2") = "\\\\\\\21\\\L\H\\\0\\A;59072\18.7\0\0\0\128\0\\8.681.229.5\\"
+ Set ^KPR(1010,"3") = "\\\\MC\\\\\\\\\\\\\\\\tiroir pour profondeur de tiroir 400mm\\\\\\"
+ Set ^KPR(1010,"4") = "FSC-Bodemstrook 16mm voor ladediepte 400mm\breedte plaatmateriaal: 376mm\kleurcode:155-06/000-06 \\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1010,"5") = "verkanting: melamine 0.3 een zijde \bruinzwart/een zijde wit\\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1010,"15") = "\\\\\\2820\2840\MM\PR1DIM\W\PSA\"
+ Set ^KPR(1010,"I") = ""
+ Set ^KPR(1010,"I1") = "05LA \05LA01MON \05LA01MON12SPP/ST \895\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+ Set ^KPR(1010,"J") = ""
+ Set ^KPR(1010,"J6628") = "6628\ \2840X376  155-06/000-06\\\96\3\\\\\\\\\96\EUR\\843\9.589125\5\\8.851500\52\18.440625\7.376250\40\H\\\\\\\*\"
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("OEI", "1010", "AliasI", "8.908.568.3")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("OEI", "1010", "AliasK", "SPP.B400   B-STR2840 BZWI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1010", "Actief", "A")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1010", "BasisType", "BODEMSTRK")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1010", "Kleur", $LB("WI","BZ"))
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1010", "LadeDiepte", "400")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1010", "tB", "1")
+]]></Implementation>
+</Method>
+
+<Method name="RemoveBodemPlaat1">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+ Kill ^KPR(1010)
+ Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr(1010)
+ Do DELOBJ^PRBS(1010)
+]]></Implementation>
+</Method>
+
+<Method name="BuildRugPlaat1">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ Set ^KPR(1011,"0") = "SPF.RUGM   R-STR2850 BZWI\FSC-Rugwandstrook voor \\\8\***\6.1896\C#A\\\rugwandhoogte 84mm\\\\\\896#896\6\2.971\\\\HH\\\\\62329"
+ Set ^KPR(1011,"1") = "1\4\\\\\0\\\\\\2748\\\\2\\\1\110#0\FSC-Lame pour dos de \103#0#50\17#396#0\\\"
+ Set ^KPR(1011,"2") = "\\\\\\\21\\\L\H\\\0\\A;59072\18.7\0\0\0\128\0\\8.681.326.5\\"
+ Set ^KPR(1011,"3") = "\\\\MC\\\\\\\\\\\\\\\\tiroir pour hauteur de dos 84mm\\\\\\"
+ Set ^KPR(1011,"4") = "FSC-Rugwandstrook voor rugwandhoogte 84mm\breedte plaatmateriaal: 84mm\kleurcode: 155-06/000-06\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1011,"5") = "verkanting melamine 0.3 een zijde \bruinzwart/een zijde wit\\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1011,"15") = "\\\\\\2820\2840\MM\PR1DIM\W\PSA\"
+ Set ^KPR(1011,"I") = ""
+ Set ^KPR(1011,"I1") = "05LA \05LA01MON \05LA01MON12SPP/ST \895\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+ Set ^KPR(1011,"J") = ""
+ Set ^KPR(1011,"J6628") = "6628\ \2840X84  155-06/000-06\\\448\3\\\\\\\\\448\EUR\\299\3.401125\5\\3.139500\52\6.540625\2.616250\40\H\\\\\\\*\"
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("OEI", "1011", "AliasI", "8.910.601.3")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("OEI", "1011", "AliasK", "SPP.RUGM   R-STR2850 BZWI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1011", "Actief", "A")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1011", "BasisType", "RUGSTRK")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1011", "Kleur", $LB("WI","BZ"))
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1011", "RugHoogte", "M")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1011", "tB", "1")
+]]></Implementation>
+</Method>
+
+<Method name="RemoveRugPlaat1">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+ Kill ^KPR(1011)
+ Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr(1011)
+ Do DELOBJ^PRBS(1011)
+]]></Implementation>
+</Method>
+
+<Method name="BuildBodemPlaat2">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ Set ^KPR(1012,"0") = "SPF.B400   B-STR2840 BZWI\FSC-Bodemstrook voor \\\8\***\26.0332\C#A\\\ladediepte 400mm\\\\\\192#192\6\15.9390\\\\HH\\\\\62329"
+ Set ^KPR(1012,"1") = "1\4\\\\\0\\\\\\12302\\\\2\\\1\35#0\FSC-Lame pour fond de \32#0#50\23#82#0\\\"
+ Set ^KPR(1012,"2") = "\\\\\\\21\\\L\H\\\0\\A;59072\18.7\0\0\0\128\0\\8.681.229.5\\"
+ Set ^KPR(1012,"3") = "\\\\MC\\\\\\\\\\\\\\\\tiroir pour profondeur de tiroir 400mm\\\\\\"
+ Set ^KPR(1012,"4") = "FSC-Bodemstrook 16mm voor ladediepte 400mm\breedte plaatmateriaal: 376mm\kleurcode:155-06/000-06 \\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1012,"5") = "verkanting: melamine 0.3 een zijde \bruinzwart/een zijde wit\\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1012,"15") = "\\\\\\2820\2840\MM\PR1DIM\W\PSA\"
+ Set ^KPR(1012,"I") = ""
+ Set ^KPR(1012,"I1") = "05LA \05LA01MON \05LA01MON12SPP/ST \895\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+ Set ^KPR(1012,"J") = ""
+ Set ^KPR(1012,"J6628") = "6628\ \2840X376  155-06/000-06\\\96\3\\\\\\\\\96\EUR\\843\9.589125\5\\8.851500\52\18.440625\7.376250\40\H\\\\\\\*\"
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("OEI", "1012", "AliasI", "8.908.568.3")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("OEI", "1012", "AliasK", "SPP.B400   B-STR2840 BZWI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1012", "Actief", "A")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1012", "BasisType", "BODEMSTRK")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1012", "Kleur", $LB("LG","DG"))
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1012", "LadeDiepte", "400")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1012", "tB", "1")
+]]></Implementation>
+</Method>
+
+<Method name="RemoveBodemPlaat2">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+ Kill ^KPR(1012)
+ Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr(1012)
+ Do DELOBJ^PRBS(1012)
+]]></Implementation>
+</Method>
+
+<Method name="BuildRugPlaat2">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ Set ^KPR(1013,"0") = "SPF.RUGM   R-STR2850 BZWI\FSC-Rugwandstrook voor \\\8\***\6.1896\C#A\\\rugwandhoogte 84mm\\\\\\896#896\6\2.971\\\\HH\\\\\62329"
+ Set ^KPR(1013,"1") = "1\4\\\\\0\\\\\\2748\\\\2\\\1\110#0\FSC-Lame pour dos de \103#0#50\17#396#0\\\"
+ Set ^KPR(1013,"2") = "\\\\\\\21\\\L\H\\\0\\A;59072\18.7\0\0\0\128\0\\8.681.326.5\\"
+ Set ^KPR(1013,"3") = "\\\\MC\\\\\\\\\\\\\\\\tiroir pour hauteur de dos 84mm\\\\\\"
+ Set ^KPR(1013,"4") = "FSC-Rugwandstrook voor rugwandhoogte 84mm\breedte plaatmateriaal: 84mm\kleurcode: 155-06/000-06\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1013,"5") = "verkanting melamine 0.3 een zijde \bruinzwart/een zijde wit\\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1013,"15") = "\\\\\\2820\2840\MM\PR1DIM\W\PSA\"
+ Set ^KPR(1013,"I") = ""
+ Set ^KPR(1013,"I1") = "05LA \05LA01MON \05LA01MON12SPP/ST \895\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+ Set ^KPR(1013,"J") = ""
+ Set ^KPR(1013,"J6628") = "6628\ \2840X84  155-06/000-06\\\448\3\\\\\\\\\448\EUR\\299\3.401125\5\\3.139500\52\6.540625\2.616250\40\H\\\\\\\*\"
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("OEI", "1013", "AliasI", "8.910.601.3")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("OEI", "1013", "AliasK", "SPP.RUGM   R-STR2850 BZWI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1013", "Actief", "A")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1013", "BasisType", "RUGSTRK")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1013", "Kleur", $LB("LG","DG"))
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1013", "RugHoogte", "M")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1013", "tB", "1")
+]]></Implementation>
+</Method>
+
+<Method name="RemoveRugPlaat2">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+ Kill ^KPR(1013)
+ Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr(1013)
+ Do DELOBJ^PRBS(1013)
+]]></Implementation>
+</Method>
+
+<Method name="BuildBodemGezaagdKOP">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ Set ^KPR(1014,"0") = "SPFDB248KOP 248X1088  F01\FSC-Bodem\\\8\\2.4800\C#C\\\L:248x B:1088 x D:16\\\0\\\0#0\10\1.2400\\\\HH\\\\\62305"
+ Set ^KPR(1014,"1") = "1\4\\\\\0\\\\\BOS\2936\\\\2\\\1\0#0\FSC-Lame pour fond de \0#0#5\0#79#0\\\"
+ Set ^KPR(1014,"2") = "\\\\\\\21\0#0\\L\H\\\0\\A;61009,50246\18.7\0\0\0\128\0\\9.615.650.5\\"
+ Set ^KPR(1014,"3") = "\\\\RCLD\\\\\\\\\\\\\\\\tiroir 248x1088x16\\\\\\"
+ Set ^KPR(1014,"4") = "FSC-Bodem L:248 x B:1088 x D:16\uitgefreesd voor koppeling volgens \tekening KELLER\3 zijdig melamineband                      \\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1014,"5") = "WIT PERL                          \met 2 groeven              \Melamine NK08-SR7\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1014,"6") = "uitgefreesd voor koppelprofiel ladefront\met 2 groeven\Melamine NK08-SR7    \3 zijdig melamineband\\\\\\"
+ Set ^KPR(1014,"15") = "3\100\\\\\1088\1088\ST\\W\PDE\"
+ Set ^KPR(1014,"I") = ""
+ Set ^KPR(1014,"I1") = "05LA \05LA01MON \05LA01MON13SPP/KA \904\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+ Set ^KPR(1014,"J") = ""
+ Set ^KPR(1014,"J7025") = "7025\ \ \\\100\8\\\\\\\\\100\EUR\\3.04\3.293333\0\\3.040000\52.00\6.333333\2.533333\40\E\\\\\\\*\"
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1014", "BasisType", "BODEM")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1014", "BreedteIntern", "1163")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1014", "Kleur", "WIS")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1014", "LadeDiepte", "450")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1014", "Opties", "INKEPING")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1014", "tB", "0")
+]]></Implementation>
+</Method>
+
+<Method name="RemoveBodemGezaagdKOP">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+ Kill ^KPR(1014)
+ Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr(1014)
+ Do DELOBJ^PRBS(1014)
+]]></Implementation>
+</Method>
+
+<Method name="BuildBodemGezaagd">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ Set ^KPR(1015,"0") = "SPFDB500C12B-478X1088 F01\FSC-Bodem \\\8\\5.7200\C#C\\\L:478xB:1088xD:16\\\\\\0#0\10\2.8600\\\\HH\\\\"
+ Set ^KPR(1015,"1") = "1\4\\\\\0\\\\\\5658\\\\2\\\1\7#0\FSC-Lame pour fond de \6#0#43\1#217#0\\\"
+ Set ^KPR(1015,"2") = "\\\\\\\21\\\L\H\\\0\248\A;61009,50042\18.7\0\0\0\128\0\\9.615.765.5\\"
+ Set ^KPR(1015,"3") = "\\\\RCLD\\\\\\\\\\\\\\\\tiroir D:478xB:1088\\\\\\"
+ Set ^KPR(1015,"4") = "FSC-Bodem L:478xB:1088xD:16              \WIT PERL\LD:500 x CB:1200                          \\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1015,"5") = "wanddikte 18mm, met 2 groeven              \Melamine NK08-SR7                         \3 zijdig melamineband                      \\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1015,"6") = "LD:500 x CB:1200\wanddikte 18mm, met 2 groeven\Melamine NK08-SR7    \3 zijdig melamineband\\\\\\"
+ Set ^KPR(1015,"15") = "\\\\\\\\ST\PR\W\PDE\"
+ Set ^KPR(1015,"I") = ""
+ Set ^KPR(1015,"I1") = "05LA \05LA01MON \05LA01MON13SPP/KA \904\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+ Set ^KPR(1015,"J") = ""
+ Set ^KPR(1015,"J7025") = "7025\ \ \\\250\8\\\\\\\\\250\EUR\\3.14\3.401667\0\\3.140000\52.00\6.541667\2.616667\40\E\\\\\\\*\"
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("OEI", "1015", "AliasI", "9.560.049.3")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("OEI", "1015", "AliasK", "SPPDB500C12B-478X1088 F01")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1015", "Actief", "A")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1015", "BasisType", "BODEM")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1015", "BreedteIntern", "1163")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1015", "Kleur", "WIS")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1015", "LadeDiepte", "500")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", "1015", "tB", "1")
+]]></Implementation>
+</Method>
+
+<Method name="RemoveBodemGezaagd">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+ Kill ^KPR(1015)
+ Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr(1015)
+ Do DELOBJ^PRBS(1015)
+]]></Implementation>
+</Method>
+
+<Method name="BuildTBX1">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ Set ^KPR(1020,"0") = "TB8N/I.PKKB400x561 P WIWI\Tandembox lade N\89325\\8\\68.7083\C#C\0\703100\D:400xB:561;bodem:Wit;zijkant:Wit\\\0\\\0##0\6\33.6396\\\\\\\\"
+ Set ^KPR(1020,"1") = "10\3\\\\\1\\\\\\5529.42\\\\\\\\0#0\Tiroir bas N Tandembox\0#0#0\999#0#0\\\"
+ Set ^KPR(1020,"2") = "Low drawer N Tandembox\Schubkasten niedrig N\\\\\\14\0#0#0\\Z\\\\2\161\A;61776,57452\204.6\144\0.6\6.5\756\885\\9.338.443.5\\"
+ Set ^KPR(1020,"3") = "3-4\VH96\\\\\\\\\\\\\\\\\\\P:400xL:561;Fond: blanc;côté:Blanc\D:400xW:561;Chipboard: white;side:white\Tandembox;D:400xB:561;Fachboden: weiss\\\\"
+ Set ^KPR(1020,"4") = "Tandembox lade N;D:400xB:561;bodem:Wit\zijkant:Wit\bevat: gemont. lade;glijder 30kg;TIP-ON\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1020,"5") = "frontbevest. INSERTA;afdekkappen\verpakt: pallet\\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1020,"6") = "bevat: gemont. lade;glijder 30kg;TIP-ON\frontbevest. INSERTA;afdekkappen\verpakt: pallet"
+ Set ^KPR(1020,"8") = "contient: tiroir monté;extension totale 30kg\TIP-ON;attache façade INSERTA;caches\emballé: pallette"
+ Set ^KPR(1020,"10") = "Seite:weiss\beinhaltet: fertigschubkasten\Vollauszug 30kg;TIP-ON;frontbefest. INSERTA\abdeckkappe\verpackt: pallet"
+ Set ^KPR(1020,"12") = "contains: premounted drawer\Full extension 30kg;TIP-ON;fixation Inserta\coverplate\packed: pallet"
+ Set ^KPR(1020,"15") = "\\\\\\\\\\\\122203"
+ Set ^KPR(1020,"G") = "PKKB\\\\\\\\\\6.6463\32.98\310843\161\505.9\505.9"
+ Set ^KPR(1020,"I") = ""
+ Set ^KPR(1020,"I1") = "05LA \05LA01MON \05LA01MON06TBP/HA \903\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+ Set ^KPR(1020,"J") = ""
+ Set ^KPR(1020,"J6332") = "6332\ \\\\161\0\\\20\4\12\1\\\1\EUR\\33.95\37.265543\3\\34.968500\51.59\72.234043\28.893617\40\E\\\\\\\*\"
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "ASM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "BGRP", "X")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "BM", "T")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "BS", "ZR")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "CB", "600")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "DC", "S")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "DK", "30")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "DS", "WS")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "DWV", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "FB", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "FS", "A")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "GT", "V")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "IB", "561")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "IsSR", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "KB", "WI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "KF", "WI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "KL", "WI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "KLAS", "L")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "KR", "WI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "KSP", "IN")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "LC", "N")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "LD", "400")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "LT", "L")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "MATKL", "HS")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "MTIB", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "NMAK", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "NMASM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "NMBDS", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "NMBMB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "NMBMM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "NMBS", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "NMCP", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "NMFB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "NMOVL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "NMRL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "NMSPDL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "OPVLL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "OPVLR", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "PRO", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "RH", "N")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "RK", "WI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "SB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "SR", "Z")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "Staffel", "161")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "VERPAK", "P")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "VPAK", "V1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "VPCP", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "VPLA", "V1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "VPRUG", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "WD", "19")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1020", "ZW", "N")
+ Set ^PRBS("BS",1020)="E\TBX\v1.20.4"
+ Set ^PRBS("BS",1020,"KST.001")="\1\T\\\\41.57\41.57\TBZAAG\14\ZABO\\Zagen\\\1"
+ Set ^PRBS("BS",1020,"KST.002")="\1\T\\\\24.00\24.00\TBZAAG\15\ZABO\\Boren rugsteun\\\1"
+ Set ^PRBS("BS",1020,"KST.003")="\1\T\\\\39.00\39.00\TBZAAG\16\ZABO\\Rug monteren\\\1"
+ Set ^PRBS("BS",1020,"KST.004")="\1\T\\\\14.00\14.00\TBZAAG\17\ZABO\\Boren rug-bodem schroefgaten lade >45cm breed of 80Kg of Baliko of Spoelbak\\\1"
+ Set ^PRBS("BS",1020,"KST.005")="\1\T\\\\13.09\13.09\TBZAAG\18\ZABO\\BlumMotion boren\\\1"
+ Set ^PRBS("BS",1020,"KST.006")="\1\T\\\\10.00\10.00\TBZAAG\19\ZABO\\Blumotion\\\1"
+ Set ^PRBS("BS",1020,"KST.007")="\1\T\\\\180.00\180.00\TBZAAG\20\ZABO\\TIP-ON\\\1"
+ Set ^PRBS("BS",1020,"KST.008")="\1\T\\\\57.60\57.60\TBMONT\21\VPKOO\\V1 verpakking\\\1"
+ Set ^PRBS("BS",1020,"KST.009")="\1\T\\\\5.76\5.76\TBMONT\22\VPKOO\\Industrie verpakking CORPUS\\\1"
+ Set ^PRBS("BS",1020,"KST.010")="\1\T\\\\39.60\39.60\TBMONT\23\BXPRS\\Pressen\\\1"
+ Set ^PRBS("BS",1020,"KST.011")="\1\T\\\\16.00\16.00\TBMONT\24\BXPRS\\Rug vast schroeven aan bodem\\\1"
+ Set ^PRBS("BS",1020,"KST.012")="\1\T\\\\9.75\9.75\TBZAAG\25\KSPEC\\Werkplaatsvoorbereiding Zaag\\\1"
+ Set ^PRBS("BS",1020,"KST.013")="\1\T\\\\5.00\5.00\TBMONT\26\KSPEC\\Werkplaatsvoorbereiding Montage\\\1"
+ Set ^PRBS("BS",1020,"KST.014")="\1\T\\\\0.15\0.15\TBMONT\27\KSPEC\\Ophalen van V1 verpakking\\\1"
+ Set ^PRBS("BS",1020,"KST.015")="\1\T\\\\15.43\15.43\TBVERPAK\28\KVPAK\\Opkuisen lade\\\1"
+ Set ^PRBS("BS",1020,"KST.016")="\1\T\\\\12.68\12.68\TBVERPAK\29\KVPAK\\Verpakken palletten\\\1"
+ Set ^PRBS("BS",1020,"KST.020")="\1\T\\\\22.24\22.24\TBVERPAK\33\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1020,"MAT.017")="\1\S\.00062\\\\\\30\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1020,"MAT.018")="\1\S\.2\\\\\\31\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1020,"MAT.019")="\1\S\.00062\\\\\\32\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1020,"PRBDHO.001")="1010\1\H\\\\\\\9\HOUT\\Bodemstrook, <vhINVERS>wit</vhINVERS>, 376mm\\\1\\Bodem\\\"
+ Set ^PRBS("BS",1020,"PRBDHO.001","D")="486\489\562.35"
+ Set ^PRBS("BS",1020,"PRCPLI.001")="434381\1\H\\\\\\\2\LADE\\Corpusprofiel, 400mm, links, TIP-ON\\\\\Onderdelen 1\LOS\\"
+ Set ^PRBS("BS",1020,"PRCPRE.001")="434382\1\H\\\\\\\3\LADE\\Corpusprofiel, 400mm, rechts, TIP-ON\\\\\Onderdelen 1\LOS\\"
+ Set ^PRBS("BS",1020,"PRFB.001")="19114\2\H\\\\\\\6\FRONT\\Frontbevest., inserta\\\\\Onderdelen 2\LOS\\"
+ Set ^PRBS("BS",1020,"PRLALI.001")="90013\1\H\\\\\\\1\LADE\\Ladezijkant, <vhINVERS>N</vhINVERS>, 400mm, li+re, <vhINVERS>wit</vhINVERS>\\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1020,"PRRUGHS.001")="1011\1\H\\\\\\\10\HOUT\\Rugstrook, N, <vhINVERS>wit</vhINVERS>, 69mm\\\1\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1020,"PRRUGHS.001","D")="474\477\548.55"
+ Set ^PRBS("BS",1020,"PRRUGLI.001")="85408\1\H\\\\\\\4\RUG\\Rughouder, N, links, <vhINVERS>wit</vhINVERS>\\\\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1020,"PRRUGRE.001")="85409\1\H\\\\\\\5\RUG\\Rughouder, N, rechts, <vhINVERS>wit</vhINVERS>\\\\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1020,"PRSCRHO.001")="113091\1\H\\\\\\\11\SCR\\Boring voor verbinding rug met bodem\\\\\Rug\\\"
+ Set ^PRBS("BS",1020,"PRSCRSYS.001")="11611\4\H\\\\\\\12\SCR\\Euroschroef 6.3x11.5mm, pozidrive met verzonken kop\\\\\\\\"
+ Set ^PRBS("BS",1020,"PRTOLI.001")="434459\1\H\\\\\\\7\BM\\TIP-ON regelmodule, links\\\\\Bodem\\\"
+ Set ^PRBS("BS",1020,"PRTORE.001")="434460\1\H\\\\\\\8\BM\\TIP-ON regelmodule, rechts\\\\\Bodem\\\"
+ Set ^PRBS("BS",1020,"PRVULPAL.001")="99451\2\H\\\\\\\13\VPAK\\Vulstuk, 400mm\\\1\\Verpakking\VPK\\"
+]]></Implementation>
+</Method>
+
+<Method name="RemoveTBX1">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+ Kill ^KPR(1020)
+ Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr(1020)
+ Do DELOBJ^PRBS(1020)
+]]></Implementation>
+</Method>
+
+<Method name="BuildTBX2">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ Set ^KPR(1021,"0") = "TB8N/I.PKKB400x561 P WIWI\Tandembox lade N\89325\\8\\68.7083\C#C\0\703100\D:400xB:561;bodem:Wit;zijkant:Wit\\\0\\\0##0\6\33.6396\\\\\\\\"
+ Set ^KPR(1021,"1") = "10\3\\\\\1\\\\\\5529.42\\\\\\\\0#0\Tiroir bas N Tandembox\0#0#0\999#0#0\\\"
+ Set ^KPR(1021,"2") = "Low drawer N Tandembox\Schubkasten niedrig N\\\\\\14\0#0#0\\Z\\\\2\161\A;61776,57452\204.6\144\0.6\6.5\756\885\\9.338.443.5\\"
+ Set ^KPR(1021,"3") = "3-4\VH96\\\\\\\\\\\\\\\\\\\P:400xL:561;Fond: blanc;côté:Blanc\D:400xW:561;Chipboard: white;side:white\Tandembox;D:400xB:561;Fachboden: weiss\\\\"
+ Set ^KPR(1021,"4") = "Tandembox lade N;D:400xB:561;bodem:Wit\zijkant:Wit\bevat: gemont. lade;glijder 30kg;TIP-ON\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1021,"5") = "frontbevest. INSERTA;afdekkappen\verpakt: pallet\\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1021,"6") = "bevat: gemont. lade;glijder 30kg;TIP-ON\frontbevest. INSERTA;afdekkappen\verpakt: pallet"
+ Set ^KPR(1021,"8") = "contient: tiroir monté;extension totale 30kg\TIP-ON;attache façade INSERTA;caches\emballé: pallette"
+ Set ^KPR(1021,"10") = "Seite:weiss\beinhaltet: fertigschubkasten\Vollauszug 30kg;TIP-ON;frontbefest. INSERTA\abdeckkappe\verpackt: pallet"
+ Set ^KPR(1021,"12") = "contains: premounted drawer\Full extension 30kg;TIP-ON;fixation Inserta\coverplate\packed: pallet"
+ Set ^KPR(1021,"15") = "\\\\\\\\\\\\122203"
+ Set ^KPR(1021,"G") = "PKKB\\\\\\\\\\6.6463\32.98\310843\161\505.9\505.9"
+ Set ^KPR(1021,"I") = ""
+ Set ^KPR(1021,"I1") = "05LA \05LA01MON \05LA01MON06TBP/HA \903\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+ Set ^KPR(1021,"J") = ""
+ Set ^KPR(1021,"J6332") = "6332\ \\\\161\0\\\20\4\12\1\\\1\EUR\\33.95\37.265543\3\\34.968500\51.59\72.234043\28.893617\40\E\\\\\\\*\"
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "ASM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "BGRP", "X")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "BM", "T")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "BS", "ZR")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "CB", "600")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "DC", "S")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "DK", "30")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "DS", "WS")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "DWV", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "FB", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "FS", "A")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "GT", "V")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "IB", "561")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "IsSR", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "KB", "WI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "KF", "WI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "KL", "WI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "KLAS", "L")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "KR", "WI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "KSP", "IN")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "LC", "N")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "LD", "400")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "LT", "L")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "MATKL", "HS")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "MTIB", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "NMAK", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "NMASM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "NMBDS", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "NMBMB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "NMBMM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "NMBS", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "NMCP", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "NMFB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "NMOVL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "NMRL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "NMSPDL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "OPVLL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "OPVLR", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "PRO", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "RH", "N")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "RK", "WI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "SB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "SR", "Z")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "Staffel", "161")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "VERPAK", "P")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "VPAK", "V1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "VPCP", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "VPLA", "V1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "VPRUG", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "WD", "19")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1021", "ZW", "N")
+ Set ^PRBS("BS",1021)="E\TBX\v1.20.4"
+ Set ^PRBS("BS",1021,"KST.001")="\1\T\\\\41.57\41.57\TBZAAG\14\ZABO\\Zagen\\\1"
+ Set ^PRBS("BS",1021,"KST.002")="\1\T\\\\24.00\24.00\TBZAAG\15\ZABO\\Boren rugsteun\\\1"
+ Set ^PRBS("BS",1021,"KST.003")="\1\T\\\\39.00\39.00\TBZAAG\16\ZABO\\Rug monteren\\\1"
+ Set ^PRBS("BS",1021,"KST.004")="\1\T\\\\14.00\14.00\TBZAAG\17\ZABO\\Boren rug-bodem schroefgaten lade >45cm breed of 80Kg of Baliko of Spoelbak\\\1"
+ Set ^PRBS("BS",1021,"KST.005")="\1\T\\\\13.09\13.09\TBZAAG\18\ZABO\\BlumMotion boren\\\1"
+ Set ^PRBS("BS",1021,"KST.006")="\1\T\\\\10.00\10.00\TBZAAG\19\ZABO\\Blumotion\\\1"
+ Set ^PRBS("BS",1021,"KST.007")="\1\T\\\\180.00\180.00\TBZAAG\20\ZABO\\TIP-ON\\\1"
+ Set ^PRBS("BS",1021,"KST.008")="\1\T\\\\57.60\57.60\TBMONT\21\VPKOO\\V1 verpakking\\\1"
+ Set ^PRBS("BS",1021,"KST.009")="\1\T\\\\5.76\5.76\TBMONT\22\VPKOO\\Industrie verpakking CORPUS\\\1"
+ Set ^PRBS("BS",1021,"KST.010")="\1\T\\\\39.60\39.60\TBMONT\23\BXPRS\\Pressen\\\1"
+ Set ^PRBS("BS",1021,"KST.011")="\1\T\\\\16.00\16.00\TBMONT\24\BXPRS\\Rug vast schroeven aan bodem\\\1"
+ Set ^PRBS("BS",1021,"KST.012")="\1\T\\\\9.75\9.75\TBZAAG\25\KSPEC\\Werkplaatsvoorbereiding Zaag\\\1"
+ Set ^PRBS("BS",1021,"KST.013")="\1\T\\\\5.00\5.00\TBMONT\26\KSPEC\\Werkplaatsvoorbereiding Montage\\\1"
+ Set ^PRBS("BS",1021,"KST.014")="\1\T\\\\0.15\0.15\TBMONT\27\KSPEC\\Ophalen van V1 verpakking\\\1"
+ Set ^PRBS("BS",1021,"KST.015")="\1\T\\\\15.43\15.43\TBVERPAK\28\KVPAK\\Opkuisen lade\\\1"
+ Set ^PRBS("BS",1021,"KST.016")="\1\T\\\\12.68\12.68\TBVERPAK\29\KVPAK\\Verpakken palletten\\\1"
+ Set ^PRBS("BS",1021,"KST.020")="\1\T\\\\22.24\22.24\TBVERPAK\33\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1021,"MAT.017")="\1\S\.00062\\\\\\30\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1021,"MAT.018")="\1\S\.2\\\\\\31\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1021,"MAT.019")="\1\S\.00062\\\\\\32\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1021,"PRBDHO.001")="1012\1\H\\\\\\\9\HOUT\\Bodemstrook, <vhINVERS>wit</vhINVERS>, 376mm\\\1\\Bodem\\\"
+ Set ^PRBS("BS",1021,"PRBDHO.001","D")="486\489\562.35"
+ Set ^PRBS("BS",1021,"PRCPLI.001")="434381\1\H\\\\\\\2\LADE\\Corpusprofiel, 400mm, links, TIP-ON\\\\\Onderdelen 1\LOS\\"
+ Set ^PRBS("BS",1021,"PRCPRE.001")="434382\1\H\\\\\\\3\LADE\\Corpusprofiel, 400mm, rechts, TIP-ON\\\\\Onderdelen 1\LOS\\"
+ Set ^PRBS("BS",1021,"PRFB.001")="19114\2\H\\\\\\\6\FRONT\\Frontbevest., inserta\\\\\Onderdelen 2\LOS\\"
+ Set ^PRBS("BS",1021,"PRLALI.001")="90013\1\H\\\\\\\1\LADE\\Ladezijkant, <vhINVERS>N</vhINVERS>, 400mm, li+re, <vhINVERS>wit</vhINVERS>\\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1021,"PRRUGHS.001")="1013\1\H\\\\\\\10\HOUT\\Rugstrook, N, <vhINVERS>wit</vhINVERS>, 69mm\\\1\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1021,"PRRUGHS.001","D")="474\477\548.55"
+ Set ^PRBS("BS",1021,"PRRUGLI.001")="85408\1\H\\\\\\\4\RUG\\Rughouder, N, links, <vhINVERS>wit</vhINVERS>\\\\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1021,"PRRUGRE.001")="85409\1\H\\\\\\\5\RUG\\Rughouder, N, rechts, <vhINVERS>wit</vhINVERS>\\\\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1021,"PRSCRHO.001")="113091\1\H\\\\\\\11\SCR\\Boring voor verbinding rug met bodem\\\\\Rug\\\"
+ Set ^PRBS("BS",1021,"PRSCRSYS.001")="11611\4\H\\\\\\\12\SCR\\Euroschroef 6.3x11.5mm, pozidrive met verzonken kop\\\\\\\\"
+ Set ^PRBS("BS",1021,"PRTOLI.001")="434459\1\H\\\\\\\7\BM\\TIP-ON regelmodule, links\\\\\Bodem\\\"
+ Set ^PRBS("BS",1021,"PRTORE.001")="434460\1\H\\\\\\\8\BM\\TIP-ON regelmodule, rechts\\\\\Bodem\\\"
+ Set ^PRBS("BS",1021,"PRVULPAL.001")="99451\2\H\\\\\\\13\VPAK\\Vulstuk, 400mm\\\1\\Verpakking\VPK\\"
+]]></Implementation>
+</Method>
+
+<Method name="RemoveTBX2">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+ Kill ^KPR(1021)
+ Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr(1021)
+ Do DELOBJ^PRBS(1021)
+]]></Implementation>
+</Method>
+
+<Method name="BuildTBXGezaagdKOP">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ Set ^KPR(1002,"0") = "TB8B/D.KINB270x863 A WIWI\Tandembox voorraadlade B\435287\\8\\30.6667\C#C\0\703100\D:270xB:863;bodem:Wit;zijkant:Wit\\\0\\\0##0\6\15.0144\\\\\\\\"
+ Set ^KPR(1002,"1") = "10\3\\\\\1\\\\\\4123.3\\\\\\\\0#0\Tiroir-casserole B\0#0#1\999#0#0\\\"
+ Set ^KPR(1002,"2") = "High fronted pull-out B\Frontauszug B Tandembox\\\\\\14\0#0#0\\Z\\\\2\2\A;61300,50863\204.6\144\0.6\6.5\756\885\\9.188.778.4\\"
+ Set ^KPR(1002,"3") = "3-4\VH96\\\\\\\\\\\\\\\\\\\Tandembox;P:270xL:863;Fond: blanc;côté:Blanc\Tandembox;D:270xW:863;Chipboard: white\D:270xB:863;Fachboden: weiss;Seite:weiss\\\\"
+ Set ^KPR(1002,"4") = "Tandembox voorraadlade B;D:270xB:863\bodem:Wit;zijkant:Wit\bevat: gemont. lade;afdekkappen\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1002,"5") = "verpakt: VHoss\\\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1002,"6") = "bevat: gemont. lade;afdekkappen\verpakt: VHoss\\\\\\\\"
+ Set ^KPR(1002,"8") = "contient: tiroir monté;caches\emballé: VHoss\\\\\\\\"
+ Set ^KPR(1002,"10") = "beinhaltet: fertigschubkasten;abdeckkappe\verpackt: VHoss\\\\\\\\"
+ Set ^KPR(1002,"12") = "side:white\contains: premounted drawer;coverplate\packed: VHoss\\\\\\\"
+ Set ^KPR(1002,"15") = "\\\\\\\\\\\\34808"
+ Set ^KPR(1002,"G") = "KINB\\PR+\\\\\\\\4.0417\\216863\1\253.2\253.2"
+ Set ^KPR(1002,"I") = ""
+ Set ^KPR(1002,"I1") = "05LA \05LA01MON \05LA01MON06TBP/HA \903\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+ Set ^KPR(1002,"J") = ""
+ Set ^KPR(1002,"J6332") = "6332\ \\\\1\0\\\20\4\12\1\\\1\EUR\\14.9\16.355128\3\\15.347000\51.59\31.702128\12.680851\40\E\\\\\\\*\"
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "ASM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "BGRP", "X")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "BM", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "BS", "ER")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "CB", "900")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "DC", "S")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "DK", "30")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "DS", "WS")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "DWV", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "FB", "D")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "FS", "A")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "GT", "V")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "IB", "863")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "IsSR", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "KB", "WIS")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "KF", "WI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "KL", "WI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "KLAS", "L")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "KR", "WI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "KSP", "IN")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "LC", "B")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "LD", "270")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "LT", "L")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "MATKL", "HS")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "MTIB", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "NMAK", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "NMASM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "NMBDS", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "NMBMB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "NMBMM", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "NMBS", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "NMCP", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "NMFB", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "NMOVL", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "NMRL", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "NMSPDL", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "OPVLL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "OPVLR", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "PRO", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "RH", "B")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "RK", "WI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "SB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "SR", "V")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "Staffel", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "VERPAK", "A")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "VPAK", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "VPCP", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "VPLA", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "VPRL", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "VPRUG", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "WD", "18")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1002", "ZW", "M")
+ Set ^PRBS("BS",1002)="E\TBX\v1.26.4"
+ Set ^PRBS("BS",1002,"KOST.001")="\1\S\1\\\\\KELLER_TP_HB\\PRO+\\Transport HB"
+ Set ^PRBS("BS",1002,"PRAKLI.001")="74660\2\H\\\\\\\4\ACC\\### Afdekkap, 4 Clips symm. ###\\\\\Onderdelen 2\LOS\\"
+ Set ^PRBS("BS",1002,"PRBDHO.001")="1014\1\H\\\\\\\5\HOUT\\### FSC-Bodem L:248x B:1088 x D:16 ###\\\1\\Bodem\\\"
+ Set ^PRBS("BS",1002,"PRBDHO.001","D")="788\791\1088"
+ Set ^PRBS("BS",1002,"PRLALI.001")="19144\1\H\\\\\\\1\LADE\\Ladezijkant, M, 270mm, links, <vhINVERS>wit</vhINVERS>\\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1002,"PRLARE.001")="19145\1\H\\\\\\\2\LADE\\Ladezijkant, M, 270mm, rechts, <vhINVERS>wit</vhINVERS>\\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1002,"PRSRUG.001")="90588\1\H\\\\\\\3\RUG\\<vhINVERS>Staalrug</vhINVERS>, B, 835mm, wit\\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1002,"TIJD.001")="\1\T\\\\94\94\TBMONTPRO\\PRO+\\Monteren HBS"
+ Set ^PRBS("BS",1002,"TIJD.002")="\1\T\\\\120\120\TBZAAG\\PRO+\\Inkorten 2"
+]]></Implementation>
+</Method>
+
+<Method name="RemoveTBXGezaagdKOP">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+ Kill ^KPR(1002)
+ Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr(1002)
+ Do DELOBJ^PRBS(1002)
+]]></Implementation>
+</Method>
+
+<Method name="BuildTBXTipOn">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ Set ^KPR(1003,"0") = "TB9CAI.XLBV500x726 B TSBZ\Tandembox voorraadlade\435287\\8\\226.67\C#C\\703100\antaro C;D:500xB:726;bodem:Terrazwart\\\\\\2##2\6\2.6153\\\\\\\\\62253"
+ Set ^KPR(1003,"1") = "10\3\\\\\1\\\\\\9079.75\\\\\\\\0#0\Tiroir-casserole rehaussé\0#0#0\999#0#0\\\"
+ Set ^KPR(1003,"2") = "High fronted pull-out\Höhe Frontauszug Tandembox\\\\\\14\2#0#2\\Z\E\\\2\\A;62371,35898\204.6\144\0.6\6.5\756\885\\9.030.333.7\\"
+ Set ^KPR(1003,"3") = "3-4\VH96\\\\\\\\\\\\\\\\\\\Tandembox antaro C;P:500xL:726;Fond:Noir\Tandembox antaro C;D:500xW:726\antaro C;D:500xB:726;Fachenboden:Schwarz\\\\"
+ Set ^KPR(1003,"4") = "Tandembox voorraadlade antaro C;D:500xB:726\bodem:Terrazwart;zijkant:Terrazwart;Antaro\bevat: gemont. lade;glijder 50kg;TIP-ON\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1003,"5") = "enkele reling;frontbevest. INSERTA\afdekkappen\verpakt: VHoss\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1003,"6") = "zijkant:Terrazwart;Antaro\bevat: gemont. lade;glijder 50kg;TIP-ON\enkele reling;frontbevest. INSERTA\afdekkappen\verpakt: VHoss\\\\\"
+ Set ^KPR(1003,"8") = "côté:Terranoir;Antaro\contient: tiroir monté;extension totale 50kg\TIP-ON;simple galerie;attache façade INSERTA\caches\emballé: VHoss\\\\\"
+ Set ^KPR(1003,"10") = "side:Terraschwarz;Antaro\beinhaltet: fertigschubkasten\Vollauszug 50kg;TIP-ON;einfachreling\frontbefest. INSERTA;abdeckkappe\verpackt: VHoss\\\\\"
+ Set ^KPR(1003,"12") = "Chipboard:Black;side:Terrablack;Antaro\contains: premounted drawer\Full extension 50kg;TIP-ON;rail single\fixation Inserta;coverplate\packed: VHoss\\\\\"
+ Set ^KPR(1003,"15") = "\\\\\\\\\\\\299642"
+ Set ^KPR(1003,"G") = "XLBV\\\\\\\\\\9.2024\43.26\455754\1\626.6\626.6"
+ Set ^KPR(1003,"I") = ""
+ Set ^KPR(1003,"I1") = "05LA \05LA01MON \05LA01MON07TBA/HA \1218\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+ Set ^KPR(1003,"J") = ""
+ Set ^KPR(1003,"J6332") = "6332\ \\\\1\0\\\20\4\12\1\\\1\EUR\\43.26\47.484753\3\\44.557800\51.59\92.042553\36.817021\40\E\\\\\\\*\"
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "ASM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "BGRP", "X")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "BM", "T")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "BS", "ER")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "CB", "726")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "DC", "A")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "DK", "50")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "DS", "ZA")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "DWV", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "FB", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "FS", "A")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "GT", "V")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "IB", "726")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "IsSR", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "KB", "BZ")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "KF", "BZ")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "KL", "BZ")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "KLAS", "L")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "KR", "BZ")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "KSP", "BZ")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "LC", "CM")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "LD", "500")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "LT", "L")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "MATKL", "HS")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "MTIB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "NMAK", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "NMASM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "NMBDS", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "NMBMB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "NMBMM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "NMBS", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "NMCP", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "NMFB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "NMOVL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "NMRL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "NMSPDL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "OPVLL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "OPVLR", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "PRO", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "RH", "C")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "RK", "BZ")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "SB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "SR", "Z")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "Staffel", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "VERPAK", "B")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "VPAK", "V1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "VPCP", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "VPLA", "V1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "VPRL", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "VPRUG", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "WD", "B")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1003", "ZW", "M")
+ Set ^PRBS("BS",1003)="E\TBX\v1.29.3"
+ Set ^PRBS("BS",1003,"KST.001")="\1\T\\\\56.67\56.67\TBZAAG\21\ZABO\\Zagen\\\1"
+ Set ^PRBS("BS",1003,"KST.002")="\1\T\\\\24.00\24.00\TBZAAG\22\ZABO\\Boren rugsteun\\\1"
+ Set ^PRBS("BS",1003,"KST.003")="\1\T\\\\51.00\51.00\TBZAAG\23\ZABO\\Rug monteren\\\1"
+ Set ^PRBS("BS",1003,"KST.004")="\1\T\\\\22.00\22.00\TBZAAG\24\ZABO\\Boren rug-bodem schroefgaten lade >40cm breed of 80Kg of Baliko of Spoelbak\\\1"
+ Set ^PRBS("BS",1003,"KST.005")="\1\T\\\\28.00\28.00\TBZAAG\25\ZABO\\Blumotion boren\\\1"
+ Set ^PRBS("BS",1003,"KST.006")="\1\T\\\\10.00\10.00\TBZAAG\26\ZABO\\Blumotion\\\1"
+ Set ^PRBS("BS",1003,"KST.007")="\1\T\\\\180.00\180.00\TBZAAG\27\ZABO\\TIP-ON\\\1"
+ Set ^PRBS("BS",1003,"KST.008")="\1\T\\\\5.76\5.76\TBMONT\28\VPKOO\\Industrie verpakking LADE\\\1"
+ Set ^PRBS("BS",1003,"KST.009")="\1\T\\\\5.76\5.76\TBMONT\29\VPKOO\\Industrie verpakking CORPUS\\\1"
+ Set ^PRBS("BS",1003,"KST.010")="\1\T\\\\104.20\104.20\TBMONT\30\BXPRS\\Pressen\\\1"
+ Set ^PRBS("BS",1003,"KST.011")="\1\T\\\\19.00\19.00\TBMONT\31\BXPRS\\Rug vast schroeven aan bodem\\\1"
+ Set ^PRBS("BS",1003,"KST.012")="\1\T\\\\9.75\9.75\TBZAAG\32\KSPEC\\Werkplaatsvoorbereiding Zaag\\\1"
+ Set ^PRBS("BS",1003,"KST.013")="\1\T\\\\5.00\5.00\TBMONT\33\KSPEC\\Werkplaatsvoorbereiding Montage\\\1"
+ Set ^PRBS("BS",1003,"KST.014")="\1\T\\\\16.58\16.58\TBVERPAK\34\KVPAK\\Opkuisen lade\\\1"
+ Set ^PRBS("BS",1003,"KST.015")="\1\T\\\\36.00\36.00\TBVERPAK\35\KVPAK\\Verpakken losse onderdelen\\\1"
+ Set ^PRBS("BS",1003,"KST.018")="\1\T\\\\30.00\30.00\TBVERPAK\38\KVPAK\\Verpakken VHOSS\\\1"
+ Set ^PRBS("BS",1003,"KST.022")="\1\T\\\\22.90\22.90\TBVERPAK\42\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1003,"MAT.016")="\1\S\1\\\\\VHOSS_4\36\KVPAK\\Verpakken VHOSS\\\1"
+ Set ^PRBS("BS",1003,"MAT.017")="\1\S\0\\\\\\37\KVPAK\\Verpakken VHOSS\\\1"
+ Set ^PRBS("BS",1003,"MAT.019")="\1\S\.1\\\\\\39\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1003,"MAT.020")="\1\S\.2\\\\\\40\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1003,"MAT.021")="\1\S\.1\\\\\\41\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1003,"PRAKLI.001")="471997\2\H\\\\\\\14\ACC\\Afdekkap, Intivo, zwart\\\\\Onderdelen 2\LOS\\"
+ Set ^PRBS("BS",1003,"PRBDHO.001")="1010\1\H\\\\\\\16\HOUT\\Bodemstrook, <vhINVERS>bruinzwart</vhINVERS>, 476mm\\\1\\Bodem\\\"
+ Set ^PRBS("BS",1003,"PRBDHO.001","D")="651\654\752.1"
+ Set ^PRBS("BS",1003,"PRBDSF.001")="46805\1\H\\\\\\\15\ACC\\Bodemsteun, winkelhaak\\\\\Onderdelen 2\LOS\\"
+ Set ^PRBS("BS",1003,"PRCPLI.001")="434396\1\H\\\\\\\3\LADE\\Corpusprofiel, 500mm, links, TIP-ON\\\\\Onderdelen 1\LOS\\"
+ Set ^PRBS("BS",1003,"PRCPRE.001")="434397\1\H\\\\\\\4\LADE\\Corpusprofiel, 500mm, rechts, TIP-ON\\\\\Onderdelen 1\LOS\\"
+ Set ^PRBS("BS",1003,"PRFB.001")="19114\2\H\\\\\\\9\FRONT\\Frontbevest., inserta\\\\\Onderdelen 2\LOS\\"
+ Set ^PRBS("BS",1003,"PRLALI.001")="370963\1\H\\\\\\\1\LADE\\Ladezijkant, Intivo, M, 500mm, links, <vhINVERS>bruinzwart</vhINVERS>\\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1003,"PRLARE.001")="371121\1\H\\\\\\\2\LADE\\Ladezijkant, Intivo, M, 500mm, rechts, <vhINVERS>bruinzwart</vhINVERS>\\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1003,"PRRL.001")="476648\1\H\\\\\\\5\RELING\\Reling, Antaro, 500mm, bruinzwart, links\\\\\Onderdelen 2\LOS\\"
+ Set ^PRBS("BS",1003,"PRRLRE.001")="476649\1\H\\\\\\\6\RELING\\Reling, Antaro, 500mm, bruinzwart, rechts\\\\\Onderdelen 2\LOS\\"
+ Set ^PRBS("BS",1003,"PRRUGHS.001")="1011\1\H\\\\\\\17\HOUT\\Rugstrook, C, <vhINVERS>bruinzwart</vhINVERS>, 167mm\\\1\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1003,"PRRUGHS.001","D")="639\642\738.3"
+ Set ^PRBS("BS",1003,"PRRUGLI.001")="449737\1\H\\\\\\\7\RUG\\Rughouder, C, links, bruinzwart\\\\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1003,"PRRUGRE.001")="449739\1\H\\\\\\\8\RUG\\Rughouder, C, rechts, bruinzwart\\\\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1003,"PRSCRHO.001")="113091\2\H\\\\\\\18\SCR\\Boring voor verbinding rug met bodem\\\\\Rug\\\"
+ Set ^PRBS("BS",1003,"PRSCRSPP.001")="3770\6\H\\\\\\\20\SCR\\Houtschroef 3.5x15.0mm, pozidrive met verzonken kop\\\\\\\\"
+ Set ^PRBS("BS",1003,"PRSCRSYS.001")="11611\6\H\\\\\\\19\SCR\\Euroschroef 6.3x11.5mm, pozidrive met verzonken kop\\\\\\\\"
+ Set ^PRBS("BS",1003,"PRTOLI.001")="434459\1\H\\\\\\\10\BM\\TIP-ON regelmodule, links\\\\\Bodem\\\"
+ Set ^PRBS("BS",1003,"PRTORE.001")="434460\1\H\\\\\\\11\BM\\TIP-ON regelmodule, rechts\\\\\Bodem\\\"
+ Set ^PRBS("BS",1003,"PRTOSTANG.001")="434452\2\H\\\\\\\13\BM\\TIP-ON syncro stang, 770mm\\\\\Bodem\\\"
+ Set ^PRBS("BS",1003,"PRTOSYNC.001")="434461\1\H\\\\\\\12\BM\\TIP-ON syncro module\\\\\Bodem\\\"
+]]></Implementation>
+</Method>
+
+<Method name="RemoveTBXTipOn">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+ Kill ^KPR(1003)
+ Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr(1003)
+ Do DELOBJ^PRBS(1003)
+]]></Implementation>
+</Method>
+
+<Method name="BuildTBXSyfon">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ Set ^KPR(1004,"0") = "TB8B/I.XPJM500x745 SIWALG\Sifonlade B;D:500xB:745\89322\\8\\226.67\C#C\\703100\spoelbakopening 119mm;bodem:Licht grijs\\\\\\1##1\6\2.6153\\\\\\\\\62269"
+ Set ^KPR(1004,"1") = "10\3\\\\\1\\\\\\9972.88\\\\\\\\0#0\Tiroir sous évier Sifon-B\0#0#0\999#0#0\\\"
+ Set ^KPR(1004,"2") = "washer drawer Sifon-B\Spülenauszug BY\\\\\\14\1#0#1\\Z\E\\\2\\A;62381,58386\204.6\144\0.6\6.5\756\885\\9.064.092.7\\"
+ Set ^KPR(1004,"3") = "3-4\VH96\\\\\\\\\\\\\\\\\\\P:500xL:745;espace pour évier 119mm\D:500xW:745;space for washer 119mm\D:500xB:745;raum fur spulbecken 119mm\\\\"
+ Set ^KPR(1004,"4") = "Sifonlade B;D:500xB:745\spoelbakopening 119mm;bodem:Licht grijs\zijkant:Metaalgrijs\omvouwkarton  50B  745mm\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1004,"5") = "bevat: gemont. lade;glijder 30kg\blumotion int.;enkele reling\frontbevest. INSERTA;zwarte mat\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1004,"6") = "zijkant:Metaalgrijs\bevat: gemont. lade;glijder 30kg\blumotion int.;enkele reling\frontbevest. INSERTA;zwarte mat\verpakt: karton\\\\\"
+ Set ^KPR(1004,"8") = "Fond: gris clair;côté:Métallisé gris\contient: tiroir monté;extension totale 30kg\blumotion i.;simple galerie\attache façade INSERTA;natte noire\emballé: carton\\\\\"
+ Set ^KPR(1004,"10") = "Fachboden: hellgrau;Seite:metallic grau\beinhaltet: fertigschubkasten\Vollauszug 30kg;blumotion int.;einfachreling\frontbefest. INSERTA;schwarze matte\verpackt: karton\\\\\"
+ Set ^KPR(1004,"12") = "Chipboard: light grey;side:Metallic grey\contains: premounted drawer\Full extension 30kg;blumotion i.;rail single\fixation Inserta;black mat\packed: box\\\\\"
+ Set ^KPR(1004,"15") = "\\\\\\\\\\\\302841"
+ Set ^KPR(1004,"G") = "XPJM\\\\\\\\\\16.9492\46.56\458713\1\1344.6\1344.6"
+ Set ^KPR(1004,"I") = ""
+ Set ^KPR(1004,"I1") = "05LA \05LA01MON \05LA01MON03TBX/HA \902\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+ Set ^KPR(1004,"J") = ""
+ Set ^KPR(1004,"J6332") = "6332\ \\\\1\0\\\20\4\12\1\\\1\EUR\\46.56\50.175830\5\\48.888000\50.65\99.06383\39.625532\40\E\\\\\\\*\"
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "ASM", "Z")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "BGRP", "X")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "BM", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "BS", "ER")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "CB", "745")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "DC", "S")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "DK", "30")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "DS", "GS")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "FB", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "FS", "A")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "GT", "V")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "IB", "745")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "IsSR", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "KB", "LG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "KF", "MG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "KL", "MG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "KLAS", "SY")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "KR", "MG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "KSP", "MG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "KV", "FG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "KX", "MG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "LC", "BY")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "LD", "500")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "LT", "L")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "MATKL", "HS")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "MTIB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "NMAK", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "NMASM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "NMBDS", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "NMBMB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "NMBMM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "NMBS", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "NMCP", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "NMFB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "NMOVL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "NMRL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "NMSPDL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "OPVLL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "OPVLR", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "PRO", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "RH", "B")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "RK", "MG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "SB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "SPBR", "119")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "SPRUGMID", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "SPZK", "SI01")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "SPZLI", "370")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "SPZRE", "256")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "SR", "Z")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "SYQTY", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "Staffel", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "VERPAK", "S")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "VPAK", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "VPCP", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "VPLA", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "VPRL", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "VPRUG", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "WD", "B")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1004", "ZW", "M")
+ Set ^PRBS("BS",1004)="E\TBX\v1.29.3"
+ Set ^PRBS("BS",1004,"KST.001")="\1\T\\\\58.67\58.67\TBZAAG\19\ZABO\\Zagen\\\1"
+ Set ^PRBS("BS",1004,"KST.002")="\1\T\\\\110.00\110.00\TBZAAG\20\ZABO\\Zagen Spoelbak ruggen\\\1"
+ Set ^PRBS("BS",1004,"KST.003")="\1\T\\\\180.00\180.00\TBZAAG\21\ZABO\\Frezen bodem spoelbak\\\1"
+ Set ^PRBS("BS",1004,"KST.004")="\1\T\\\\48.00\48.00\TBZAAG\22\ZABO\\Boren rugsteun\\\1"
+ Set ^PRBS("BS",1004,"KST.005")="\1\T\\\\62.00\62.00\TBZAAG\23\ZABO\\Rug monteren\\\1"
+ Set ^PRBS("BS",1004,"KST.006")="\1\T\\\\22.00\22.00\TBZAAG\24\ZABO\\Boren rug-bodem schroefgaten lade >40cm breed of 80Kg of Baliko of Spoelbak\\\1"
+ Set ^PRBS("BS",1004,"KST.007")="\1\T\\\\57.60\57.60\TBMONT\25\VPKOO\\Spoelbak/Syfon lade\\\1"
+ Set ^PRBS("BS",1004,"KST.008")="\1\T\\\\2.28\2.28\TBMONT\26\VPKOO\\Ecopack LADE\\\1"
+ Set ^PRBS("BS",1004,"KST.009")="\1\T\\\\2.28\2.28\TBMONT\27\VPKOO\\Ecopack CORPUS\\\1"
+ Set ^PRBS("BS",1004,"KST.010")="\1\T\\\\104.20\104.20\TBMONT\28\BXPRS\\Pressen\\\1"
+ Set ^PRBS("BS",1004,"KST.011")="\1\T\\\\19.00\19.00\TBMONT\29\BXPRS\\Rug vast schroeven aan bodem\\\1"
+ Set ^PRBS("BS",1004,"KST.012")="\1\T\\\\280.00\280.00\TBMONT\30\BXPRS\\Monteren syfon\\\1"
+ Set ^PRBS("BS",1004,"KST.013")="\1\T\\\\39.30\39.30\TBZAAG\31\KSPEC\\Werkplaatsvoorbereiding Zaag\\\1"
+ Set ^PRBS("BS",1004,"KST.014")="\1\T\\\\5.00\5.00\TBMONT\32\KSPEC\\Werkplaatsvoorbereiding Montage\\\1"
+ Set ^PRBS("BS",1004,"KST.015")="\1\T\\\\60.00\60.00\TBVERPAK\33\KSPEC\\Snijden matjes van strook\\\1"
+ Set ^PRBS("BS",1004,"KST.016")="\1\T\\\\16.72\16.72\TBVERPAK\34\KVPAK\\Opkuisen lade\\\1"
+ Set ^PRBS("BS",1004,"KST.017")="\1\T\\\\67.00\67.00\TBVERPAK\35\KVPAK\\Verpakken losse onderdelen\\\1"
+ Set ^PRBS("BS",1004,"KST.018")="\1\T\\\\45.00\45.00\HALUX KARTON\36\KVPAK\\Snijden karton met PANOTEC machine\\\1"
+ Set ^PRBS("BS",1004,"KST.019")="\1\T\\\\49.00\49.00\TBVERPAK\37\KVPAK\\Vouwen doos\\\1"
+ Set ^PRBS("BS",1004,"KST.021")="\1\T\\\\93.53\93.53\TBVERPAK\39\KVPAK\\Inpakken lade\\\1"
+ Set ^PRBS("BS",1004,"KST.025")="\1\T\\\\22.98\22.98\TBVERPAK\43\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1004,"MAT.020")="\1\S\.3\\\\\\38\KVPAK\\Inpakken lade\\\1"
+ Set ^PRBS("BS",1004,"MAT.022")="\1\S\.1\\\\\\40\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1004,"MAT.023")="\1\S\.2\\\\\\41\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1004,"MAT.024")="\1\S\.1\\\\\\42\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1004,"PRASMSTRK.001")="545710\1\H\\\\\\\8\ACC\\Mat van strook, AGO, zwart, 500mm, 660mm\\\\\Eindmontage\LOS\\"
+ Set ^PRBS("BS",1004,"PRASMSTRK.001","D")="660\660\759"
+ Set ^PRBS("BS",1004,"PRBDHO.001")="1010\1\H\\\\\\\11\HOUT\\Bodemstrook, lichtgrijs, 476mm\\\1\\Bodem\\\"
+ Set ^PRBS("BS",1004,"PRBDHO.001","D")="670\673\773.95"
+ Set ^PRBS("BS",1004,"PRBDSF.001")="46805\1\H\\\\\\\7\ACC\\Bodemsteun, winkelhaak\\\\\Onderdelen 2\LOS\\"
+ Set ^PRBS("BS",1004,"PRCPLI.001")="607767\1\H\\\\\\\2\LADE\\Corpusprofiel, 500mm, li+re, 30kg\\\\\Onderdelen 1\LOS\\"
+ Set ^PRBS("BS",1004,"PRFB.001")="19114\2\H\\\\\\\6\FRONT\\Frontbevest., inserta\\\\\Onderdelen 2\LOS\\"
+ Set ^PRBS("BS",1004,"PRLALI.001")="457010\1\H\\\\\\\1\LADE\\Ladezijkant, M, 500mm, li+re, metaalgrijs\\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1004,"PRRL.001")="19142\2\H\\\\\\\3\RELING\\Reling, 500mm, metaalgrijs\\\\\Onderdelen 2\LOS\\"
+ Set ^PRBS("BS",1004,"PRRUGLI.001")="6945\1\H\\\\\\\4\RUG\\Rughouder, B, links, metaalgrijs\\\\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1004,"PRRUGRE.001")="6946\1\H\\\\\\\5\RUG\\Rughouder, B, rechts, metaalgrijs\\\\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1004,"PRRUGSSPLI.001")="1011\1\H\\\\\\\12\HOUT\\Rugstrook, B, lichtgrijs, 135mm\\\\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1004,"PRRUGSSPLI.001","D")="326.5\329.5\378.925"
+ Set ^PRBS("BS",1004,"PRRUGSSPRE.001")="1011\1\H\\\\\\\13\HOUT\\Rugstrook, B, lichtgrijs, 135mm\\\\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1004,"PRRUGSSPRE.001","D")="212.5\215.5\247.825"
+ Set ^PRBS("BS",1004,"PRSCRHO.001")="113091\2\H\\\\\\\14\SCR\\Boring voor verbinding rug met bodem\\\\\Rug\\\"
+ Set ^PRBS("BS",1004,"PRSCRSPP.001")="3770\6\H\\\\\\\16\SCR\\Houtschroef 3.5x15.0mm, pozidrive met verzonken kop\\\\\\\\"
+ Set ^PRBS("BS",1004,"PRSCRSYS.001")="11611\4\H\\\\\\\15\SCR\\Euroschroef 6.3x11.5mm, pozidrive met verzonken kop\\\\\\\\"
+ Set ^PRBS("BS",1004,"PRSYAFDEK.001")="245908\1\H\\\\\\\10\ACC\\Volrubberprofiel tbv sifonlade type K 0136\\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1004,"PRSYAFDEK.001","D")="440\440\459"
+ Set ^PRBS("BS",1004,"PRSYU.001")="453236\1\H\\\\\\\9\ACC\\Sifonkap inox 119mm breed B-Hoogte 135mm, diepte 186mm\\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1004,"PRVPV1DOOS.001")="353743\1\H\\\\\\\17\VPAK\\ZETA karton E+B 1430mm bruin met oranje TANDEMBOX en Blum logo\\\\\\\\"
+ Set ^PRBS("BS",1004,"PRVPV1DOOS.001","D")="1335\1335\1401.75"
+ Set ^PRBS("BS",1004,"PVVPV1LOS.001")="360508\1\H\\\\\\\18\VPAK\\ZETA karton E+B 950mm bruin met oranje TANDEMBOX en Blum logo\\\\\\\\"
+ Set ^PRBS("BS",1004,"PVVPV1LOS.001","D")="670\670\703.5"
+]]></Implementation>
+</Method>
+
+<Method name="RemoveTBXSyfon">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+ Kill ^KPR(1004)
+ Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr(1004)
+ Do DELOBJ^PRBS(1004)
+]]></Implementation>
+</Method>
+
+<Method name="BuildTBXSpoelbak">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ Set ^KPR(1005,"0") = "TB8B/I.XPJN500x745 S2WALG\spoelbak B-voorraadlade\89322\\8\\226.67\C#C\\703100\(lage reling);D:500xB:745\\\\\\1##1\6\2.6153\\\\\\\\\62269"
+ Set ^KPR(1005,"1") = "10\3\\\\\1\\\\\\11217.93\\\\\\\\0#0\Tiroir sous évier B\0#0#0\999#0#0\\\"
+ Set ^KPR(1005,"2") = "washer drawer B\Spülenauszug B;D:500xB:745\\\\\\14\1#0#1\\Z\E\\\2\\A;62381,58386\204.6\144\0.6\6.5\756\885\\9.064.106.7\\"
+ Set ^KPR(1005,"3") = "3-4\VH96\\\\\\\\\\\\\\\\\\\P:500xL:745;espace pour évier 265mm\D:500xW:745;space for washer 265mm\raum fur spulbecken 265mm\\\\"
+ Set ^KPR(1005,"4") = "spoelbak B-voorraadlade (lage reling)\D:500xB:745;spoelbakopening 265mm\bodem:Licht grijs;zijkant:Metaalgrijs\omvouwkarton  50B  745mm\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1005,"5") = "bevat: gemont. lade;glijder 30kg\blumotion int.;enkele reling\frontbevest. INSERTA;zwarte mat\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1005,"6") = "spoelbakopening 265mm;bodem:Licht grijs\zijkant:Metaalgrijs\bevat: gemont. lade;glijder 30kg\blumotion int.;enkele reling\frontbevest. INSERTA;zwarte mat\verpakt: karton\\\\"
+ Set ^KPR(1005,"8") = "Fond: gris clair;côté:Métallisé gris\contient: tiroir monté;extension totale 30kg\blumotion i.;simple galerie\attache façade INSERTA;natte noire\emballé: carton\\\\\"
+ Set ^KPR(1005,"10") = "Fachboden: hellgrau;Seite:metallic grau\beinhaltet: fertigschubkasten\Vollauszug 30kg;blumotion int.;einfachreling\frontbefest. INSERTA;schwarze matte\verpackt: karton\\\\\"
+ Set ^KPR(1005,"12") = "Chipboard: light grey;side:Metallic grey\contains: premounted drawer\Full extension 30kg;blumotion i.;rail single\fixation Inserta;black mat\packed: box\\\\\"
+ Set ^KPR(1005,"15") = "\\\\\\\\\\\\302842"
+ Set ^KPR(1005,"G") = "XPJN\\\\\\\\\\20.9570\52.81\458714\1\1702.6\1702.6"
+ Set ^KPR(1005,"I") = ""
+ Set ^KPR(1005,"I1") = "05LA \05LA01MON \05LA01MON03TBX/HA \902\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+ Set ^KPR(1005,"J") = ""
+ Set ^KPR(1005,"J6332") = "6332\ \\\\1\0\\\20\4\12\1\\\1\EUR\\52.81\56.911202\5\\55.450500\50.65\112.361702\44.944681\40\E\\\\\\\*\"
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "ASM", "Z")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "BGRP", "X")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "BM", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "BS", "ER")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "CB", "745")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "DC", "S")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "DK", "30")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "DS", "GS")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "FB", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "FS", "A")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "GT", "V")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "IB", "745")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "IsSR", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "KB", "LG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "KF", "MG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "KL", "MG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "KLAS", "SP2")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "KR", "MG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "KSP", "MG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "KV", "FG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "KX", "MG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "LC", "BS2")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "LD", "500")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "LT", "L")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "MATKL", "HS")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "MTIB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "NMAK", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "NMASM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "NMBDS", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "NMBMB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "NMBMM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "NMBS", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "NMCP", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "NMFB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "NMOVL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "NMRL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "NMSPDL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "OPVLL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "OPVLR", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "PRO", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "RH", "B")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "RK", "MG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "SB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "SPBR", "265")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "SPZBINHOOGTE", "B")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "SPZK", "M")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "SPZLI", "300")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "SPZRE", "180")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "SR", "Z")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "Staffel", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "VERPAK", "S")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "VPAK", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "VPCP", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "VPLA", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "VPRL", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "VPRUG", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "WD", "B")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1005", "ZW", "M")
+ Set ^PRBS("BS",1005)="E\TBX\v1.29.3"
+ Set ^PRBS("BS",1005,"KST.001")="\1\T\\\\58.67\58.67\TBZAAG\25\ZABO\\Zagen\\\1"
+ Set ^PRBS("BS",1005,"KST.002")="\1\T\\\\135.00\135.00\TBZAAG\26\ZABO\\Zagen Spoelbak ruggen\\\1"
+ Set ^PRBS("BS",1005,"KST.003")="\1\T\\\\180.00\180.00\TBZAAG\27\ZABO\\Frezen bodem spoelbak\\\1"
+ Set ^PRBS("BS",1005,"KST.004")="\1\T\\\\72.00\72.00\TBZAAG\28\ZABO\\Boren rugsteun\\\1"
+ Set ^PRBS("BS",1005,"KST.005")="\1\T\\\\85.00\85.00\TBZAAG\29\ZABO\\Rug monteren\\\1"
+ Set ^PRBS("BS",1005,"KST.006")="\1\T\\\\22.00\22.00\TBZAAG\30\ZABO\\Boren rug-bodem schroefgaten lade >40cm breed of 80Kg of Baliko of Spoelbak\\\1"
+ Set ^PRBS("BS",1005,"KST.007")="\1\T\\\\57.60\57.60\TBMONT\31\VPKOO\\Spoelbak/Syfon lade\\\1"
+ Set ^PRBS("BS",1005,"KST.008")="\1\T\\\\2.28\2.28\TBMONT\32\VPKOO\\Ecopack LADE\\\1"
+ Set ^PRBS("BS",1005,"KST.009")="\1\T\\\\2.28\2.28\TBMONT\33\VPKOO\\Ecopack CORPUS\\\1"
+ Set ^PRBS("BS",1005,"KST.010")="\1\T\\\\104.20\104.20\TBMONT\34\BXPRS\\Pressen\\\1"
+ Set ^PRBS("BS",1005,"KST.011")="\1\T\\\\19.00\19.00\TBMONT\35\BXPRS\\Rug vast schroeven aan bodem\\\1"
+ Set ^PRBS("BS",1005,"KST.012")="\1\T\\\\340.00\340.00\TBMONT\36\BXPRS\\Monteren SP2 tussenstuk\\\1"
+ Set ^PRBS("BS",1005,"KST.013")="\1\T\\\\39.30\39.30\TBZAAG\37\KSPEC\\Werkplaatsvoorbereiding Zaag\\\1"
+ Set ^PRBS("BS",1005,"KST.014")="\1\T\\\\35.00\35.00\TBMONT\38\KSPEC\\Werkplaatsvoorbereiding Montage\\\1"
+ Set ^PRBS("BS",1005,"KST.015")="\1\T\\\\36.00\36.00\TBMONT\39\KSPEC\\Ophalen van V1 verpakking\\\1"
+ Set ^PRBS("BS",1005,"KST.016")="\1\T\\\\200.00\200.00\TBVERPAK\40\KSPEC\\Snijden matjes voor spoelbak\\\1"
+ Set ^PRBS("BS",1005,"KST.017")="\1\T\\\\16.72\16.72\TBVERPAK\41\KVPAK\\Opkuisen lade\\\1"
+ Set ^PRBS("BS",1005,"KST.018")="\1\T\\\\87.00\87.00\TBVERPAK\42\KVPAK\\Verpakken losse onderdelen\\\1"
+ Set ^PRBS("BS",1005,"KST.019")="\1\T\\\\45.00\45.00\HALUX KARTON\43\KVPAK\\Snijden karton met PANOTEC machine\\\1"
+ Set ^PRBS("BS",1005,"KST.020")="\1\T\\\\49.00\49.00\TBVERPAK\44\KVPAK\\Vouwen doos\\\1"
+ Set ^PRBS("BS",1005,"KST.022")="\1\T\\\\93.53\93.53\TBVERPAK\46\KVPAK\\Inpakken lade\\\1"
+ Set ^PRBS("BS",1005,"KST.026")="\1\T\\\\22.98\22.98\TBVERPAK\50\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1005,"MAT.021")="\1\S\.3\\\\\\45\KVPAK\\Inpakken lade\\\1"
+ Set ^PRBS("BS",1005,"MAT.023")="\1\S\.1\\\\\\47\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1005,"MAT.024")="\1\S\.2\\\\\\48\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1005,"MAT.025")="\1\S\.1\\\\\\49\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1005,"PRASMROLSPLI.001")="545710\1\H\\\\\\\13\ACC\\<vhINVERS>Mat van strook, AGO</vhINVERS>, <vhINVERS>zwart</vhINVERS>, 473mm\\\\\Eindmontage\LOS\\"
+ Set ^PRBS("BS",1005,"PRASMROLSPLI.001","D")="219\219\251.85"
+ Set ^PRBS("BS",1005,"PRASMROLSPRE.001")="545710\1\H\\\\\\\14\ACC\\<vhINVERS>Mat van strook, AGO</vhINVERS>, <vhINVERS>zwart</vhINVERS>, 473mm\\\\\Eindmontage\LOS\\"
+ Set ^PRBS("BS",1005,"PRASMROLSPRE.001","D")="99\99\113.85"
+ Set ^PRBS("BS",1005,"PRBDHO.001")="1010\1\H\\\\\\\16\HOUT\\Bodemstrook, lichtgrijs, 476mm\\\1\\Bodem\\\"
+ Set ^PRBS("BS",1005,"PRBDHO.001","D")="670\673\773.95"
+ Set ^PRBS("BS",1005,"PRBDSF.001")="46805\1\H\\\\\\\12\ACC\\Bodemsteun, winkelhaak\\\\\Onderdelen 2\LOS\\"
+ Set ^PRBS("BS",1005,"PRCPLI.001")="607767\1\H\\\\\\\4\LADE\\Corpusprofiel, 500mm, li+re, 30kg\\\\\Onderdelen 1\LOS\\"
+ Set ^PRBS("BS",1005,"PRFB.001")="19114\2\H\\\\\\\11\FRONT\\Frontbevest., inserta\\\\\Onderdelen 2\LOS\\"
+ Set ^PRBS("BS",1005,"PRLALI.001")="457010\1\H\\\\\\\1\LADE\\Ladezijkant, M, 500mm, li+re, metaalgrijs\\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1005,"PRRL.001")="19142\4\H\\\\\\\5\RELING\\Reling, 500mm, metaalgrijs\\\\\Onderdelen 2\LOS\\"
+ Set ^PRBS("BS",1005,"PRRUGLI.001")="6945\2\H\\\\\\\6\RUG\\Rughouder, B, links, metaalgrijs\\\\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1005,"PRRUGRE.001")="6946\2\H\\\\\\\7\RUG\\Rughouder, B, rechts, metaalgrijs\\\\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1005,"PRRUGSPLI.001")="9220\1\H\\\\\\\8\RUG\\Rughouder, N, links, metaalgrijs (vr. tussenrug)\\\\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1005,"PRRUGSPMID.001")="1011\1\H\\\\\\\19\HOUT\\Rugstrook, N, lichtgrijs, 69mm\\\\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1005,"PRRUGSPMID.001","D")="179\182\209.3"
+ Set ^PRBS("BS",1005,"PRRUGSPRE.001")="9221\1\H\\\\\\\9\RUG\\Rughouder, N, rechts, metaalgrijs (vr. tussenrug)\\\\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1005,"PRRUGSSPLI.001")="1011\1\H\\\\\\\17\HOUT\\Rugstrook, B, lichtgrijs, 135mm\\\\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1005,"PRRUGSSPLI.001","D")="219\222\255.3"
+ Set ^PRBS("BS",1005,"PRRUGSSPRE.001")="1011\1\H\\\\\\\18\HOUT\\Rugstrook, B, lichtgrijs, 135mm\\\\\Rug\ZAAG\\"
+ Set ^PRBS("BS",1005,"PRRUGSSPRE.001","D")="99\102\117.3"
+ Set ^PRBS("BS",1005,"PRSCRHO.001")="113091\1\H\\\\\\\20\SCR\\Boring voor verbinding rug met bodem\\\\\Rug\\\"
+ Set ^PRBS("BS",1005,"PRSCRSPP.001")="3770\6\H\\\\\\\22\SCR\\Houtschroef 3.5x15.0mm, pozidrive met verzonken kop\\\\\\\\"
+ Set ^PRBS("BS",1005,"PRSCRSYS.001")="11611\12\H\\\\\\\21\SCR\\Euroschroef 6.3x11.5mm, pozidrive met verzonken kop\\\\\\\\"
+ Set ^PRBS("BS",1005,"PRSPTWH.001")="202128\1\H\\\\\\\10\RUG\\Staalrugwandopname t.b.v. lage rugwandhouder, LI en RE vr \\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1005,"PRTUSASMROL.001")="590873\1\H\\\\\\\15\ACC\\<vhINVERS>Mat van strook, AGO</vhINVERS>, <vhINVERS>zwart</vhINVERS>, 135mm\\\\\Eindmontage\LOS\\"
+ Set ^PRBS("BS",1005,"PRTUSASMROL.001","D")="265\265\304.75"
+ Set ^PRBS("BS",1005,"PRTW2LI.001")="162485\1\H\\\\\\\2\LADE\\Tussenzijkant, M, 500mm, links, metaalgrijs\\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1005,"PRTW2RE.001")="162487\1\H\\\\\\\3\LADE\\Tussenzijkant, M, 500mm, rechts, metaalgrijs\\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1005,"PRVPV1DOOS.001")="353743\1\H\\\\\\\23\VPAK\\ZETA karton E+B 1430mm bruin met oranje TANDEMBOX en Blum logo\\\\\\\\"
+ Set ^PRBS("BS",1005,"PRVPV1DOOS.001","D")="1355\1355\1422.75"
+ Set ^PRBS("BS",1005,"PVVPV1LOS.001")="360508\1\H\\\\\\\24\VPAK\\ZETA karton E+B 950mm bruin met oranje TANDEMBOX en Blum logo\\\\\\\\"
+ Set ^PRBS("BS",1005,"PVVPV1LOS.001","D")="586\586\615.3"
+]]></Implementation>
+</Method>
+
+<Method name="RemoveTBXSpoelbak">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+ Kill ^KPR(1005)
+ Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr(1005)
+ Do DELOBJ^PRBS(1005)
+]]></Implementation>
+</Method>
+
+<Method name="BuildTBXStalenRugBodemGezaagd">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ Set ^KPR(1006,"0") = "TB9M/D.KGVT500x1163  WIWI\Tandembox lade M\89322\\8\\54.3125\C#B\0\703100\D:500xB:1163;bodem:Wit;zijkant:Wit\\\0\\\0##0\6\27.1128\\\\\\\\"
+ Set ^KPR(1006,"1") = "10\3\\\\\1\\\\\\8904.39\\\\\\\\0#0\Tiroir M Tandembox\0#0#0\999#0#0\\\"
+ Set ^KPR(1006,"2") = "Drawer M Tandembox\Schubkasten M Tandembox\\\\\\14\0#0#0\\Z\\\\2\1\A;61296,48980\204.6\144\0.6\6.5\756\885\\9.173.916.4\\"
+ Set ^KPR(1006,"3") = "3-4\VH96\\\\\\\\\\\\\\\\\\\P:500xL:1163;Fond: blanc;côté:Blanc\D:500xW:1163;Chipboard: white;side:white\D:500xB:1163;Fachboden: weiss;Seite:weiss\\\\"
+ Set ^KPR(1006,"4") = "Tandembox lade M;D:500xB:1163;bodem:Wit\zijkant:Wit\bevat: gemont. lade;Tandemglijder 50kg\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1006,"5") = "blumotion int.;frontbevest. Drevel\bodemsteun;afdekkappen\omvouwkarton  50M  1255mm\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1006,"6") = "bevat: gemont. lade;Tandemglijder 50kg\blumotion int.;frontbevest. Drevel\bodemsteun;afdekkappen\verpakt: karton"
+ Set ^KPR(1006,"8") = "contient: tiroir monté;extension totale 50kg\blumotion i.;attache façade à presser\support face;caches\emballé: carton"
+ Set ^KPR(1006,"10") = "beinhaltet: fertigschubkasten\Vollauszug 50kg;blumotion int.\frontbefest pres;blendestütze;abdeckkappe\verpackt: karton"
+ Set ^KPR(1006,"12") = "contains: premounted drawer\Full extension 50kg;blumotion i.\fixation pressure;support front;coverplate\packed: box"
+ Set ^KPR(1006,"15") = "\\\\\\\\\\\\33752"
+ Set ^KPR(1006,"G") = "KGVT\\\\\\\\\\4.5755\\215499\1\387.5\387.5"
+ Set ^KPR(1006,"I") = ""
+ Set ^KPR(1006,"I1") = "05LA \05LA01MON \05LA01MON03TBX/HA \902\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+ Set ^KPR(1006,"J") = ""
+ Set ^KPR(1006,"J6332") = "6332\ \\\\1\0\\\20\4\12\1\\\1\EUR\\27.06\29.161468\5\\28.413000\50.65\57.574468\23.029787\40\E\\\\\\\*\"
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "ASM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "BGRP", "X")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "BM", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "BS", "ZR")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "CB", "1200")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "DC", "S")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "DK", "50")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "DS", "WS")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "DWV", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "FB", "D")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "FS", "HS")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "GT", "V")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "IB", "1163")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "IsSR", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "KB", "WIS")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "KF", "WI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "KL", "WI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "KLAS", "L")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "KR", "WI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "KSP", "IN")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "LC", "M")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "LD", "500")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "LT", "L")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "MATKL", "HA")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "MTIB", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "NMAK", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "NMASM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "NMBDS", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "NMBMB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "NMBMM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "NMBS", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "NMCP", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "NMFB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "NMOVL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "NMRL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "NMSPDL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "OPVLL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "OPVLR", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "PRO", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "RH", "M")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "RK", "WI")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "SB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "SR", "V")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "Staffel", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "VERPAK", "S")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "VPAK", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "VPCP", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "VPLA", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "VPRUG", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "WD", "18")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1006", "ZW", "M")
+ Set ^PRBS("BS",1006)="E\TBX\v1.23.6"
+ Set ^PRBS("BS",1006,"KST.001")="\1\T\\\\2.88\2.88\TBMONT\14\VPKOO\\Stalenrug lang\\\1"
+ Set ^PRBS("BS",1006,"KST.002")="\1\T\\\\2.28\2.28\TBMONT\15\VPKOO\\Ecopack LADE\\\1"
+ Set ^PRBS("BS",1006,"KST.003")="\1\T\\\\2.28\2.28\TBMONT\16\VPKOO\\Ecopack CORPUS\\\1"
+ Set ^PRBS("BS",1006,"KST.004")="\1\T\\\\104.20\104.20\TBMONT\17\BXPRS\\Pressen\\\1"
+ Set ^PRBS("BS",1006,"KST.005")="\1\T\\\\5.00\5.00\TBZAAG\18\KSPEC\\Werkplaatsvoorbereiding Zaag\\\1"
+ Set ^PRBS("BS",1006,"KST.006")="\1\T\\\\5.00\5.00\TBMONT\19\KSPEC\\Werkplaatsvoorbereiding Montage\\\1"
+ Set ^PRBS("BS",1006,"KST.007")="\1\T\\\\19.64\19.64\TBVERPAK\20\KVPAK\\Opkuisen lade\\\1"
+ Set ^PRBS("BS",1006,"KST.008")="\1\T\\\\57.00\57.00\TBVERPAK\21\KVPAK\\Verpakken losse onderdelen\\\1"
+ Set ^PRBS("BS",1006,"KST.009")="\1\T\\\\45.00\45.00\HALUX KARTON\22\KVPAK\\Snijden karton met PANOTEC machine\\\1"
+ Set ^PRBS("BS",1006,"KST.010")="\1\T\\\\49.00\49.00\TBVERPAK\23\KVPAK\\Vouwen doos\\\1"
+ Set ^PRBS("BS",1006,"KST.012")="\1\T\\\\112.09\112.09\TBVERPAK\25\KVPAK\\Inpakken lade\\\1"
+ Set ^PRBS("BS",1006,"KST.016")="\1\T\\\\24.65\24.65\TBVERPAK\29\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1006,"MAT.011")="\1\S\.3\\\\\\24\KVPAK\\Inpakken lade\\\1"
+ Set ^PRBS("BS",1006,"MAT.013")="\1\S\.1\\\\\\26\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1006,"MAT.014")="\1\S\.2\\\\\\27\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1006,"MAT.015")="\1\S\.1\\\\\\28\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1006,"PRAKLI.001")="74660\1\H\\\\\\\7\ACC\\Afdekkap, 4 Clips symm. **Blum**\\\\\Onderdelen 2\LOS\\"
+ Set ^PRBS("BS",1006,"PRAKRE.001")="74660\1\H\\\\\\\8\ACC\\Afdekkap, 4 Clips symm. **Blum**\\\\\Onderdelen 2\LOS\\"
+ Set ^PRBS("BS",1006,"PRBDHZ.001")="1015\1\H\\\\\\\11\HOUT\\Bodem, wit voor staalrug, 478x1088\\\1\\Bodem\\\"
+ Set ^PRBS("BS",1006,"PRBDSF.001")="46805\1\H\\\\\\\9\ACC\\Bodemsteun, winkelhaak\\\\\Onderdelen 2\LOS\\"
+ Set ^PRBS("BS",1006,"PRBDSFS.001")="367923\2\H\\\\\\\10\ACC\\Schroef 3,53 x 9,5 vr 175H5100.05 vr bevestiging in \\\\\Onderdelen 2\LOS\\"
+ Set ^PRBS("BS",1006,"PRCPLI.001")="539643\1\H\\\\\\\3\LADE\\Corpusprofiel, 500mm, links, 50kg\\\\\Onderdelen 1\LOS\\"
+ Set ^PRBS("BS",1006,"PRCPRE.001")="539665\1\H\\\\\\\4\LADE\\Corpusprofiel, 500mm, rechts, 50kg\\\\\Onderdelen 1\LOS\\"
+ Set ^PRBS("BS",1006,"PRFB.001")="97572\2\H\\\\\\\6\FRONT\\Frontbevest., drevel\\\\\Onderdelen 2\LOS\\"
+ Set ^PRBS("BS",1006,"PRLALI.001")="55202\1\H\\\\\\\1\LADE\\Ladezijkant, M, 500mm, links, <vhINVERS>wit</vhINVERS>\\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1006,"PRLARE.001")="55203\1\H\\\\\\\2\LADE\\Ladezijkant, M, 500mm, rechts, <vhINVERS>wit</vhINVERS>\\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1006,"PRSRUG.001")="90586\1\H\\\\\\\5\RUG\\<vhINVERS>Staalrug</vhINVERS>, M, 1135mm, wit\\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1006,"PRVPV1DOOS.001")="353743\1\H\\\\\\\12\VPAK\\Fanfold karton E+B 1430mm bruin met oranje T-box en Blum logo\\\\\\\\"
+ Set ^PRBS("BS",1006,"PRVPV1DOOS.001","D")="1561\1561\1639.05"
+ Set ^PRBS("BS",1006,"PVVPV1LOS.001")="360508\1\H\\\\\\\13\VPAK\\Fanfold karton E+B 950mm bruin met oranje T-box en Blum logo\\\\\\\\"
+ Set ^PRBS("BS",1006,"PVVPV1LOS.001","D")="574\574\602.7"
+]]></Implementation>
+</Method>
+
+<Method name="RemoveTBXStalenRugBodemGezaagd">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+ Kill ^KPR(1006)
+ Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr(1006)
+ Do DELOBJ^PRBS(1006)
+]]></Implementation>
+</Method>
+
+<Method name="BuildTBXStalenRug">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ Set ^KPR(1007,"0") = "TB8DMAZQFIK500x461   WALG\Tandembox bin.voorr.lade D\89322\\8\\64.1064\C#A\0\703100\D:500xB:461;bodem:Licht grijs\\\0\\\0##0\6\31.6365\\\\\\\\"
+ Set ^KPR(1007,"1") = "10\3\\\\\1\\\\\\9294.08\\\\\\\\0#1\Tiroir-casserole rehaussé\0#0#4\999#0#0\\\"
+ Set ^KPR(1007,"2") = "High fronted inner drawer\Höhe Innenfrontauszug D\\\\\\14\0#0#0\\Z\E\\\2\\A;61838,48581\204.6\144\0.6\6.5\756\885\\9.525.031.5\\"
+ Set ^KPR(1007,"3") = "3-4\VH96\\\\\\\\\\\\\\\\\\\à l'anglaise D Tandembox;P:500xL:461\D Tandembox;D:500xW:461\Tandembox;D:500xB:461;Fachboden: hellgrau\\\\"
+ Set ^KPR(1007,"4") = "Tandembox bin.voorr.lade D;D:500xB:461\bodem:Licht grijs;zijkant:Metaalgrijs\A-design\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1007,"5") = "bevat: gemont. lade;glijder 30kg\blumotion int.;enkele reling\omvouwkarton  50D  461mm\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KPR(1007,"6") = "zijkant:Metaalgrijs;A-design\bevat: gemont. lade;glijder 30kg\blumotion int.;enkele reling\verpakt: karton"
+ Set ^KPR(1007,"8") = "Fond: gris clair;côté:Métallisé gris\A-design\contient: tiroir monté;extension totale 30kg\blumotion i.;simple galerie\emballé: carton"
+ Set ^KPR(1007,"10") = "Seite:metallic grau;A-design\beinhaltet: fertigschubkasten\Vollauszug 30kg;blumotion int.;einfachreling\verpackt: karton"
+ Set ^KPR(1007,"12") = "Chipboard: light grey;side:Metallic grey\A-design\contains: premounted drawer\Full extension 30kg;blumotion i.;rail single\packed: box"
+ Set ^KPR(1007,"15") = "\\\\\\\\\\\\136352"
+ Set ^KPR(1007,"G") = "QFIK\\\\\\\\\\7.3292\30.59\325678\1\648.4\648.4"
+ Set ^KPR(1007,"I") = ""
+ Set ^KPR(1007,"I1") = "05LA \05LA01MON \05LA01MON03TBX/HA \902\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+ Set ^KPR(1007,"J") = ""
+ Set ^KPR(1007,"J6332") = "6332\ \\\\1\0\\\20\4\12\1\\\1\EUR\\30.13\32.469883\5\\31.636500\50.65\64.106383\25.642553\40\E\\\\\\\*\"
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "ASM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "BGRP", "H")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "BM", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "BS", "ER")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "CB", "500")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "DC", "MA")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "DK", "30")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "DS", "GMA")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "DWV", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "FB", "Z")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "FS", "A")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "GT", "V")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "IB", "461")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "IsSR", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "KB", "LG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "KF", "MG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "KL", "MG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "KLAS", "L")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "KR", "MG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "KSP", "MG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "LC", "D/Z")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "LD", "500")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "LT", "B")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "MATKL", "HS")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "MTIB", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "NMAK", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "NMASM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "NMBDS", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "NMBMB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "NMBMM", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "NMBS", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "NMCP", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "NMFB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "NMOVL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "NMRL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "NMSPDL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "OPVLL", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "OPVLR", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "PRO", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "RH", "D")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "RK", "MG")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "SB", "0")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "SR", "V")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "Staffel", "1")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "VERPAK", "S")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "VPAK", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "VPCP", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "VPFS", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "VPLA", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "VPRL", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "VPRUG", "I")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "WD", "19")
+ Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TBX", "1007", "ZW", "M")
+ Set ^PRBS("BS",1007)="E\TBX\v1.21.0"
+ Set ^PRBS("BS",1007,"KST.001")="\1\T\\\\40.40\40.40\TBZAAG\15\ZABO\\Zagen\\\1"
+ Set ^PRBS("BS",1007,"KST.002")="\1\T\\\\1.44\1.44\TBMONT\16\VPKOO\\Stalenrug kort\\\1"
+ Set ^PRBS("BS",1007,"KST.003")="\1\T\\\\2.28\2.28\TBMONT\17\VPKOO\\Ecopack LADE\\\1"
+ Set ^PRBS("BS",1007,"KST.004")="\1\T\\\\2.28\2.28\TBMONT\18\VPKOO\\Ecopack CORPUS\\\1"
+ Set ^PRBS("BS",1007,"KST.005")="\1\T\\\\104.20\104.20\TBMONT\19\BXPRS\\Pressen\\\1"
+ Set ^PRBS("BS",1007,"KST.006")="\1\T\\\\53.00\53.00\TBVERPAK\20\BINL\\Inkorten front\\\1"
+ Set ^PRBS("BS",1007,"KST.007")="\1\T\\\\49.00\49.00\TBVERPAK\21\BINL\\Inkorten frontreling D en C\\\1"
+ Set ^PRBS("BS",1007,"KST.008")="\1\T\\\\106.00\106.00\TBVERPAK\22\BINL\\Monteren front\\\1"
+ Set ^PRBS("BS",1007,"KST.009")="\1\T\\\\8.60\8.60\TBZAAG\23\KSPEC\\Werkplaatsvoorbereiding Zaag\\\1"
+ Set ^PRBS("BS",1007,"KST.010")="\1\T\\\\5.00\5.00\TBMONT\24\KSPEC\\Werkplaatsvoorbereiding Montage\\\1"
+ Set ^PRBS("BS",1007,"KST.011")="\1\T\\\\14.73\14.73\TBVERPAK\25\KVPAK\\Opkuisen lade\\\1"
+ Set ^PRBS("BS",1007,"KST.012")="\1\T\\\\57.00\57.00\TBVERPAK\26\KVPAK\\Verpakken losse onderdelen\\\1"
+ Set ^PRBS("BS",1007,"KST.013")="\1\T\\\\45.00\45.00\HALUX KARTON\27\KVPAK\\Snijden karton met PANOTEC machine\\\1"
+ Set ^PRBS("BS",1007,"KST.014")="\1\T\\\\59.00\59.00\TBVERPAK\28\KVPAK\\Vouwen doos\\\1"
+ Set ^PRBS("BS",1007,"KST.016")="\1\T\\\\78.62\78.62\TBVERPAK\30\KVPAK\\Inpakken lade\\\1"
+ Set ^PRBS("BS",1007,"KST.020")="\1\T\\\\21.84\21.84\TBVERPAK\34\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1007,"MAT.015")="\1\S\.2\\\\\\29\KVPAK\\Inpakken lade\\\1"
+ Set ^PRBS("BS",1007,"MAT.017")="\1\S\.1\\\\\\31\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1007,"MAT.018")="\1\S\.2\\\\\\32\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1007,"MAT.019")="\1\S\.1\\\\\\33\KVPAK\\Afwerken\\\1"
+ Set ^PRBS("BS",1007,"PRBDHO.001")="1010\1\H\\\\\\\12\HOUT\\Bodemstrook, lichtgrijs, 476mm\\\1\\Bodem\\\"
+ Set ^PRBS("BS",1007,"PRBDHO.001","D")="386\389\447.35"
+ Set ^PRBS("BS",1007,"PRCPLI.001")="195219\1\H\\\\\\\3\LADE\\Corpusprofiel, 500mm, links, 30kg\\\\\Onderdelen 1\LOS\\"
+ Set ^PRBS("BS",1007,"PRCPRE.001")="195222\1\H\\\\\\\4\LADE\\Corpusprofiel, 500mm, rechts, 30kg\\\\\Onderdelen 1\LOS\\"
+ Set ^PRBS("BS",1007,"PRFRGR.001")="69049\1\H\\\\\\\11\FRONT\\Greep\\\\\BinFront\BIN\\"
+ Set ^PRBS("BS",1007,"PRFRHLI.001")="69041\1\H\\\\\\\7\FRONT\\Frontbevest., D, links\\\\\BinFront\BIN\\"
+ Set ^PRBS("BS",1007,"PRFRHRE.001")="69044\1\H\\\\\\\8\FRONT\\Frontbevest., D, rechts\\\\\BinFront\BIN\\"
+ Set ^PRBS("BS",1007,"PRFRP.001")="69047\1\H\\\\\\\9\FRONT\\Plaat, metaalgrijs\\\\\BinFront\BIN\\"
+ Set ^PRBS("BS",1007,"PRFRP.001","D")="374\374\540.5"
+ Set ^PRBS("BS",1007,"PRFRRL.001")="368922\1\H\\\\\\\10\FRONT\\Reling, metaalgrijs\\\\\BinFront\BIN\\"
+ Set ^PRBS("BS",1007,"PRFRRL.001","D")="387\387\547"
+ Set ^PRBS("BS",1007,"PRLALI.001")="488645\1\H\\\\\\\1\LADE\\Ladezijkant, <vhINVERS>A-design (meng)</vhINVERS>, M, 500mm, links, metaalgrijs\\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1007,"PRLARE.001")="488647\1\H\\\\\\\2\LADE\\Ladezijkant, <vhINVERS>A-design (meng)</vhINVERS>, M, 500mm, rechts, metaalgrijs\\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1007,"PRRL.001")="19142\2\H\\\\\\\5\RELING\\Reling, 500mm, metaalgrijs\\\\\Monteren Zijkant\MON\\"
+ Set ^PRBS("BS",1007,"PRSRUG.001")="43563\1\H\\\\\\\6\RUG\\<vhINVERS>Staalrug</vhINVERS>, D, 433mm, metaalgrijs\\\\\Monteren\MON\\"
+ Set ^PRBS("BS",1007,"PRVPV1DOOS.001")="353744\1\H\\\\\\\13\VPAK\\Fanfold karton E+B 1650mm bruin met oranje T-box en Blum logo\\\\\\\\"
+ Set ^PRBS("BS",1007,"PRVPV1DOOS.001","D")="1391\1391\1460.55"
+ Set ^PRBS("BS",1007,"PVVPV1LOS.001")="353743\1\H\\\\\\\14\VPAK\\Fanfold karton E+B 1430mm bruin met oranje T-box en Blum logo\\\\\\\\"
+ Set ^PRBS("BS",1007,"PVVPV1LOS.001","D")="840\840\882"
+]]></Implementation>
+</Method>
+
+<Method name="RemoveTBXStalenRug">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+ Kill ^KPR(1007)
+ Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr(1007)
+ Do DELOBJ^PRBS(1007)
+]]></Implementation>
+</Method>
+
+<Method name="BuildAll">
+<Description>
+*** BEFORE ALL TESTS ***</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ Do ..BuildBodemPlaat1()
+ Do ..BuildRugPlaat1()
+ Do ..BuildBodemPlaat2()
+ Do ..BuildRugPlaat2()
+ Do ..BuildBodemGezaagdKOP()
+ Do ..BuildBodemGezaagd()
+ 
+ Do ..BuildTBX1()
+ Do ..BuildTBX2()
+ Do ..BuildTBXGezaagdKOP()
+ Do ..BuildTBXTipOn()
+ Do ..BuildTBXSyfon()
+ Do ..BuildTBXSpoelbak()
+ Do ..BuildTBXStalenRugBodemGezaagd()
+ Do ..BuildTBXStalenRug()
+]]></Implementation>
+</Method>
+
+<Method name="RemoveAll">
+<Description>
+*** AFTER ALL TESTS ***</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ Do ..RemoveBodemPlaat1()
+ Do ..RemoveRugPlaat1()
+ Do ..RemoveBodemPlaat2()
+ Do ..RemoveRugPlaat2()
+ Do ..RemoveBodemGezaagdKOP()
+ Do ..RemoveBodemGezaagd()
+ 
+ Do ..RemoveTBX1()
+ Do ..RemoveTBX2()
+ Do ..RemoveTBXGezaagdKOP()
+ Do ..RemoveTBXTipOn()
+ Do ..RemoveTBXSyfon()
+ Do ..RemoveTBXSpoelbak()
+ Do ..RemoveTBXStalenRugBodemGezaagd()
+ Do ..RemoveTBXStalenRug()
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfProduct">
+<Description>
+EENMALIG</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[ProductID:%Integer,VerplaatsNaarProductID:%Integer,Label:%String,&arLabels]]></FormalSpec>
+<Implementation><![CDATA[
+	Set ProgLabel=$TR($G(Label)," ","")
+	If $L(ProgLabel)
+	{ 
+		Set arLabels($I(arLabels))=ProgLabel
+		Write "classmethod Build"_ProgLabel_"()",!
+		Write "{",!
+	}
+	Set Node = $Order(^KPR(ProductID,""))
+	While (Node '= "")
+	{
+		If ("L" ] $E(Node,1,1))
+		{
+			w " Set ^KPR("_VerplaatsNaarProductID_","""_Node_""") = """_^KPR(ProductID,Node)_"""",!
+		}
+		Set Node = $Order(^KPR(ProductID,Node))
+	}
+	; KENMERKEN
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT KenmerkGroep, KenmerkNaam, Waarden FROM Prod_Kenmerk.DataDefinitie WHERE PRNr = ?")
+	Do ResultSet.Execute(ProductID)
+	While (ResultSet.Next())
+	{
+		w " Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("""_ResultSet.Data("KenmerkGroep")_""", """_VerplaatsNaarProductID_""", """_ResultSet.Data("KenmerkNaam")_""", """_$LG(ResultSet.Data("Waarden"),1)_""")",!
+	}
+	; BOUWSTENEN
+	w:$D(^PRBS("BS",ProductID)) " Set ^PRBS(""BS"","_VerplaatsNaarProductID_")="""_^PRBS("BS",ProductID)_"""",!
+	Set BSKey=$O(^PRBS("BS",ProductID,""))
+	While (BSKey'="")
+	{
+		w " Set ^PRBS(""BS"","_VerplaatsNaarProductID_","""_BSKey_""")="""_^PRBS("BS",ProductID,BSKey)_"""",!
+		w:$D(^PRBS("BS",ProductID,BSKey,"D")) " Set ^PRBS(""BS"","_VerplaatsNaarProductID_","""_BSKey_""",""D"")="""_^PRBS("BS",ProductID,BSKey,"D")_"""",!
+		Set BSKey=$O(^PRBS("BS",ProductID,BSKey))
+	}
+	
+	If $L(ProgLabel)
+	{ 
+		Write "}",!
+	}
+
+	If $L(ProgLabel)
+	{ 
+		Write "classmethod Remove"_ProgLabel_"()",!
+		Write "{",!
+	}
+	w " Kill ^KPR("_VerplaatsNaarProductID_")",!
+	w " Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr("_VerplaatsNaarProductID_")",!
+	w " Do DELOBJ^PRBS("_VerplaatsNaarProductID_")",!
+		If $L(ProgLabel)
+	{ 
+		Write "}",!
+	}
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfInvokeMethod">
+<Description>
+EENMALIG</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&arLabels]]></FormalSpec>
+<Implementation><![CDATA[
+	w !,"///*** BEFORE ALL TESTS ***",!
+	Write "classmethod BuildAll()",!
+	Write "{",!
+
+	For Cnt=1:1:arLabels
+	{
+		Write " Do ..Build"_arLabels(Cnt)_"()",!
+	}
+	
+	Write "}",!
+
+	w !,"///*** AFTER ALL TESTS ***",!
+	Write "classmethod RemoveAll()",!
+	Write "{",!
+	For Cnt=1:1:arLabels
+	{
+		Write " Do ..Remove"_arLabels(Cnt)_"()",!
+	}
+	Write "}",!
+]]></Implementation>
+</Method>
+</Class>
+</Export>
FishEye: Tag 1558 refers to a dead (removed) revision in file `vhUnitTest/APPS/Web/OLParticulier/Winkelkar.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?