Index: APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml
===================================================================
diff -u -r2529 -r2533
--- APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml	(.../PlaatMateriaal.cls.xml)	(revision 2529)
+++ APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml	(.../PlaatMateriaal.cls.xml)	(revision 2533)
@@ -70,8 +70,8 @@
 	Set dtoPlaat=..%New()
 	Set dtoPlaat.Type=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug()
 	Set dtoPlaat.Kleuren=..TranslateKleuren(Plaat.GeefKleuren())
-	Set dtoPlaat.Hoogte=Plaat.GeefExacteHoogte()
-	Set dtoPlaat.HoogteOms=Plaat.GeefHoogte()_" "_dtoPlaat.Hoogte
+	Set dtoPlaat.Hoogte=Plaat.GeefHoogte()
+	Set dtoPlaat.HoogteOms=Plaat.GeefHoogteVanLade()_" "_dtoPlaat.Hoogte
 	Set dtoPlaat.HoogteEnKleurOms=dtoPlaat.HoogteOms_" "_dtoPlaat.Kleuren
 	Set dtoPlaat.ProductNr=Plaat.GeefPRNr()
 	Set dtoPlaat.KortTekst=Plaat.GeefKorttekst()
Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml
===================================================================
diff -u -r2529 -r2533
--- DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 2529)
+++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 2533)
@@ -56,11 +56,11 @@
 	{
 		If ($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",ProductNummer,"BasisType")) [ "RUGSTRK")  // Bij problemen eventueel beter : ... ? 1(1"RL",1"RLH",1"RLTUS",1"FRONTRL")   OPM: "RLALU" is geen reling maar een adapter-stukje 
 		{
-			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRugImpl).%New(ProductNummer)
+			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRugStrookImpl).%New(ProductNummer)
 		} 
 		Else
 		{
-			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRugImpl).%New(ProductNummer)
+			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRugOpMaatImpl).%New(ProductNummer)
 		}
 	}
 	ElseIf ($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",ProductNummer,"BasisType")) [ "RL")  // Bij problemen eventueel beter : ... ? 1(1"RL",1"RLH",1"RLTUS",1"FRONTRL")   OPM: "RLALU" is geen reling maar een adapter-stukje 
Index: BL/PPS/TBX/DocStaalRugOverzichtLijst.cls.xml
===================================================================
diff -u -r2463 -r2533
--- BL/PPS/TBX/DocStaalRugOverzichtLijst.cls.xml	(.../DocStaalRugOverzichtLijst.cls.xml)	(revision 2463)
+++ BL/PPS/TBX/DocStaalRugOverzichtLijst.cls.xml	(.../DocStaalRugOverzichtLijst.cls.xml)	(revision 2533)
@@ -50,8 +50,8 @@
 		Set Aantal = RugIterator.Next()
 		Set Rug = ProductAPI.GeefProduct(RugIterator.Key())
 		Do Document.GeefKolom(1).Insert(Rug.GeefKleur())
-		Do Document.GeefKolom(2).Insert(Rug.GeefExacteBreedte())
-		Do Document.GeefKolom(3).Insert(Rug.GeefHoogte())
+		Do Document.GeefKolom(2).Insert(Rug.GeefBreedte()) ; 27-10-11 PV er stond GeefExactebreedte
+		Do Document.GeefKolom(3).Insert(Rug.GeefHoogteVanLade()) ; 27-10-11 PV er stond GeefHoogte
 		Do Document.GeefKolom(4).Insert(Aantal)
 		Do Document.GeefKolom(5).Insert(Rug.GeefKorttekst())
 	}
Index: APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml
===================================================================
diff -u -r2529 -r2533
--- APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml	(.../OpdrachtPlaat.cls.xml)	(revision 2529)
+++ APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml	(.../OpdrachtPlaat.cls.xml)	(revision 2533)
@@ -107,7 +107,7 @@
 	Set dtoPlaat.Bewerking=""
 	Set dtoPlaat.KleurZichtbaar=Lade.GeefRugKleur()
 	Set dtoPlaat.Kleur2de=Lade.GeefRug().GeefKleur2de(dtoPlaat.KleurZichtbaar)
-	Set dtoPlaat.Hoogte=Lade.GeefRug().GeefExacteHoogte()
+	Set dtoPlaat.Hoogte=Lade.GeefRug().GeefHoogte()
 	Set dtoPlaat.HoogteOms=Lade.GeefRugHoogte()_" "_dtoPlaat.Hoogte
 	Set dtoPlaat.Breedte=Lade.GeefRugBreedte()
 	Set dtoPlaat.HoogteSensor=1
Index: DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml
===================================================================
diff -u -r2529 -r2533
--- DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 2529)
+++ DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 2533)
@@ -263,14 +263,14 @@
 			Set Bouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_"PRRUGHS.001")
 			Set HalfFabrProduct = Bouwsteen.KindProduct
 			Set HalfFabrProductNr = HalfFabrProduct.ProductNr
-			Set ..Rug = ##class(DOM.PM.TBXProduct.impl.TBXRugImpl).%New(HalfFabrProductNr)
+			Set ..Rug = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(HalfFabrProductNummer)
 		}
 		ElseIf (..GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Staal())
 		{
 			Set Bouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_"PRSRUG.001")
 			Set HalfFabrProduct = Bouwsteen.KindProduct
 			Set HalfFabrProductNr = HalfFabrProduct.ProductNr
-			Set ..Rug = ##class(DOM.PM.TBXProduct.impl.TBXRugImpl).%New(HalfFabrProductNr)
+			Set ..Rug = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(HalfFabrProductNummer)
 		}
 	}
 	Quit ..Rug
Index: BL/PPS/TBX/DocsProPlus.cls.xml
===================================================================
diff -u -r2532 -r2533
--- BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 2532)
+++ BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 2533)
@@ -609,7 +609,7 @@
 	. . . ; Toevoegen aan BODEM ZAAG lijst
 	. . . If TeZagen Do
 	. . . . If Bodem.HeeftInkeping() Do
-	. . . . . If Bodem.GeefBreedteVanLade()=IB Do
+	. . . . . If Bodem.GeefBreedteVanLade()=IB Do ; 27/10/11 PV GeeftBreedte veranderd in GeefBreedteVan Lade
 	. . . . . . Set (ZaagBreedte1,BodemBreedte)=""
 	. . . . . Else  Do
 	. . . . . . Set ZaagBreedte1=(Bodem.GeefBreedteVanLade()-IB)/2-5 ; -5 toegevoegd : PV 27/11/08
Index: DOM/PM/TBXProduct/impl/TBXRugStrookImpl.cls.xml
===================================================================
diff -u
--- DOM/PM/TBXProduct/impl/TBXRugStrookImpl.cls.xml	(revision 0)
+++ DOM/PM/TBXProduct/impl/TBXRugStrookImpl.cls.xml	(revision 2533)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.TBXProduct.impl.TBXRugStrookImpl">
+<Description>
+Halfabrikaat RugOpMaat maw stalen rug</Description>
+<IncludeCode>%Prod.Product</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.TBXProduct.impl.TBXRugImpl,DOM.PM.TBXProduct.impl.TBXSpaanplaatOpMaat</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefBreedte">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit $$$ProductGet(..GeefPRNr(),$$$WerkvloerGrootteNetto)
+]]></Implementation>
+</Method>
+
+<Method name="GeefMateriaal">
+<ReturnType>DOM.PM.enu.TBXRugMateriaal</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.enu.TBXRugMateriaal).Hout()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/TBXProduct/TBXRug.cls.xml
===================================================================
diff -u -r2463 -r2533
--- DOM/PM/TBXProduct/TBXRug.cls.xml	(.../TBXRug.cls.xml)	(revision 2463)
+++ DOM/PM/TBXProduct/TBXRug.cls.xml	(.../TBXRug.cls.xml)	(revision 2533)
@@ -12,31 +12,21 @@
 </Method>
 
 <Method name="GeefHoogte">
-<ReturnType>DOM.PM.enu.TBXRugHoogte</ReturnType>
+<ReturnType>%Integer</ReturnType>
 </Method>
 
-<Method name="GeefKleuren">
-<ReturnType>%List</ReturnType>
+<Method name="GeefHoogteVanLade">
+<ReturnType>DOM.PM.enu.TBXRugHoogte</ReturnType>
 </Method>
 
-<Method name="GeefKleur2de">
-<FormalSpec>Kleur1ste</FormalSpec>
-<ReturnType>%String</ReturnType>
-</Method>
-
-<Method name="GeefKleur">
-<Abstract>1</Abstract>
-<ReturnType>%String</ReturnType>
-</Method>
-
 <Method name="GeefBreedte">
 <Abstract>1</Abstract>
 <ReturnType>%Integer</ReturnType>
 </Method>
 
-<Method name="GeefExacteBreedte">
+<Method name="GeefMateriaal">
 <Abstract>1</Abstract>
-<ReturnType>%Integer</ReturnType>
+<ReturnType>DOM.PM.enu.TBXRugMateriaal</ReturnType>
 </Method>
 </Class>
 </Export>
FishEye: Tag 2533 refers to a dead (removed) revision in file `DOM/PM/TBXProduct/impl/TBXSpaanplaatImpl.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: DOM/PM/TBXProduct/TBXRugOpMaat.cls.xml
===================================================================
diff -u
--- DOM/PM/TBXProduct/TBXRugOpMaat.cls.xml	(revision 0)
+++ DOM/PM/TBXProduct/TBXRugOpMaat.cls.xml	(revision 2533)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.TBXProduct.TBXRugOpMaat">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.TBXProduct.TBXRug</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Accept">
+<FormalSpec>Visitor:DOM.PM.TBXProduct.TBXProductVisitor</FormalSpec>
+<Implementation><![CDATA[	Do Visitor.VerwerkTBXRug(##this)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKleur">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefKleurImageURL">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefBreedteVanLade">
+<Abstract>1</Abstract>
+<ReturnType>%Integer</ReturnType>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/TBXProduct/TBXRugStrook.cls.xml
===================================================================
diff -u
--- DOM/PM/TBXProduct/TBXRugStrook.cls.xml	(revision 0)
+++ DOM/PM/TBXProduct/TBXRugStrook.cls.xml	(revision 2533)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.TBXProduct.TBXRugStrook">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.TBXProduct.TBXRug</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Accept">
+<FormalSpec>Visitor:DOM.PM.TBXProduct.TBXProductVisitor</FormalSpec>
+<Implementation><![CDATA[	Do Visitor.VerwerkTBXRug(##this)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKleuren">
+<Abstract>1</Abstract>
+<ReturnType>%List</ReturnType>
+</Method>
+
+<Method name="GeefKleur2de">
+<Abstract>1</Abstract>
+<FormalSpec>ZichtbareKleur:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefBiKleurenImageURL">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/TBXProduct/impl/TBXRugOpMaatImpl.cls.xml
===================================================================
diff -u
--- DOM/PM/TBXProduct/impl/TBXRugOpMaatImpl.cls.xml	(revision 0)
+++ DOM/PM/TBXProduct/impl/TBXRugOpMaatImpl.cls.xml	(revision 2533)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.TBXProduct.impl.TBXRugOpMaatImpl">
+<Description>
+Halfabrikaat RugOpMaat maw stalen rug</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.TBXProduct.impl.TBXRugImpl,DOM.PM.TBXProduct.impl.TBXSpaanplaatOpMaat</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefBreedte">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefBreedteVanLade() - 28
+]]></Implementation>
+</Method>
+
+<Method name="GeefBreedteVanLade">
+<Abstract>1</Abstract>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",..GeefPRNr(),"BreedteIntern"))
+]]></Implementation>
+</Method>
+
+<Method name="GeefMateriaal">
+<ReturnType>DOM.PM.enu.TBXRugMateriaal</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.enu.TBXRugMateriaal).Staal()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/TBXProduct/impl/TBXRugImpl.cls.xml
===================================================================
diff -u -r2529 -r2533
--- DOM/PM/TBXProduct/impl/TBXRugImpl.cls.xml	(.../TBXRugImpl.cls.xml)	(revision 2529)
+++ DOM/PM/TBXProduct/impl/TBXRugImpl.cls.xml	(.../TBXRugImpl.cls.xml)	(revision 2533)
@@ -4,26 +4,20 @@
 <Description>
 Halfabrikaat plaatmateriaal houtenrug</Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.TBXProduct.TBXRug,DOM.PM.TBXProduct.impl.TBXSpaanplaatImpl</Super>
+<Super>DOM.PM.impl.ProductImpl,DOM.PM.TBXProduct.TBXRug</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefHoogte">
-<ReturnType>DOM.PM.enu.TBXRugHoogte</ReturnType>
-<Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",..GeefPRNr(),"RugHoogte"))
-]]></Implementation>
-</Method>
-
-<Method name="GeefExacteHoogte">
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	Set RugCode=..GeefHoogte()
+	Set RugCode=..GeefHoogteVanLade()
 	Quit $Case(RugCode,"N":69,"M":84,"K":116,"B":135,"C":167,"D":199,:"")
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKleur">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",..GeefPRNr(),"Kleur"))
+<Method name="GeefHoogteVanLade">
+<ReturnType>DOM.PM.enu.TBXRugHoogte</ReturnType>
+<Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",..GeefPRNr(),"RugHoogte"))
 ]]></Implementation>
 </Method>
 </Class>