Index: APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml
===================================================================
diff -u -r2875 -r3181
--- APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml	(.../OpdrachtPlaat.cls.xml)	(revision 2875)
+++ APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml	(.../OpdrachtPlaat.cls.xml)	(revision 3181)
@@ -116,16 +116,25 @@
 	Set dtoPlaat=..%New()
 	Set dtoPlaat.Bewerking=""
 	Set dtoPlaat.KleurZichtbaar=Lade.GeefRugKleur()
-	Set dtoPlaat.Kleur2de=Lade.GeefRug().GeefKleur2de(dtoPlaat.KleurZichtbaar)
-	Set dtoPlaat.Hoogte=Lade.GeefRug().GeefHoogte()
-	Set dtoPlaat.PlaatLengte=Lade.GeefRug().GeefBreedte()
+	If Lade.GeefRug().%Extends("DOM.PM.TBXProduct.TBXRug") 
+	{
+		Set Plaat=Lade.GeefRug()
+		Set dtoPlaat.Hoogte=Plaat.GeefHoogte()
+	}
+	Else ; soms kan een bodem als rug gebruikt worden
+	{ 
+		Set Plaat=Lade.GeefBodem()
+		Set dtoPlaat.Hoogte=Plaat.GeefDiepte()
+	}
+	Set dtoPlaat.Kleur2de=Plaat.GeefKleur2de(dtoPlaat.KleurZichtbaar)
+	Set dtoPlaat.PlaatLengte=Plaat.GeefBreedte()
 	Set dtoPlaat.NodigePlaatLengte=Lade.GeefRugBreedte()/dtoPlaat.PlaatLengte
 	Set dtoPlaat.HoogteOms=Lade.GeefRugHoogte()_" "_dtoPlaat.Hoogte
 	Set dtoPlaat.Breedte=Lade.GeefRugBreedte()
 	Set dtoPlaat.HoogteSensor=1
 	Set dtoPlaat.AanslagSensor=1
-	Set dtoPlaat.ProductNr=Lade.GeefRug().GeefPRNr()
-	Set dtoPlaat.ImageURL=Lade.GeefRug().GeefKleurImageURL(dtoPlaat.KleurZichtbaar)
+	Set dtoPlaat.ProductNr=Plaat.GeefPRNr()
+	Set dtoPlaat.ImageURL=Plaat.GeefKleurImageURL(dtoPlaat.KleurZichtbaar)
 	Quit dtoPlaat
 ]]></Implementation>
 </Method>