Index: DOM/PM/impl/DataM/DataMLadeCreator.cls.xml
===================================================================
diff -u -r734 -r903
--- DOM/PM/impl/DataM/DataMLadeCreator.cls.xml	(.../DataMLadeCreator.cls.xml)	(revision 734)
+++ DOM/PM/impl/DataM/DataMLadeCreator.cls.xml	(.../DataMLadeCreator.cls.xml)	(revision 903)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:00:59">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-25 13:14:00">
 <Class name="DOM.PM.impl.DataM.DataMLadeCreator">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.impl.DataM.DataMProductCreator</Super>
-<TimeChanged>62118,53779.413337</TimeChanged>
+<TimeChanged>62147,47703.633978</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefGenerischPRNr">
@@ -29,11 +29,13 @@
 	Set ZijkantDesign = LadeZijkantHalffab.ZijkantDesign
 	Set DesignCode=$S(ZijkantDesign="S":"/",1:ZijkantDesign)  ; S,F,B,...
 	Set FrontBevestiging = ""
-	Set KortTekst = "TB"_Glijder_RugHalffab.RugHoogte_DesignCode_FrontBevestiging_"."
+	Set KortTekst = "TB"_Glijder_RugHalffab.RugHoogte_DesignCode_FrontBevestiging_"."   // RugHoogte moet uiteindelijk uit het halffab "RugHouder" opgehaald worden en NIET uit de rug. 
 	Set $E(KortTekst,7) = DossierNummer
 	
-	Set $E(KortTekst,12) = BodemHalffab.LadeDiepte_"x"_BodemHalffab.LadeBreedte
+	Set IngegevenKenmerken = ..ProductSpecificatie.GeefIngegevenKenmerken()
 	
+	Set $E(KortTekst,12) = IngegevenKenmerken.LadeDiepte_"x"_IngegevenKenmerken.InbouwBreedte
+	
 	Set $E(KortTekst,22)=LadeZijkantHalffab.Kleur
 	
 	// Er is ook nog wat tekst voor verpakking en sifon/spoelbak/hangmap/buro
@@ -44,5 +46,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1794067670"/>
+<Checksum value="1996732121"/>
 </Export>