Index: APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml
===================================================================
diff -u -r2828 -r2829
--- APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml	(.../OpdrachtPlaat.cls.xml)	(revision 2828)
+++ APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml	(.../OpdrachtPlaat.cls.xml)	(revision 2829)
@@ -22,6 +22,10 @@
 <Type>%Integer</Type>
 </Property>
 
+<Property name="PlaatLengte">
+<Type>%Integer</Type>
+</Property>
+
 <Property name="Hoogte">
 <Description>
 uitgedrukt in 10x mm</Description>
@@ -53,7 +57,7 @@
 </Property>
 
 <Property name="LengteUntilChange">
-<Type>%Integer</Type>
+<Type>%Float</Type>
 </Property>
 
 <Property name="ChangeAfter">
@@ -88,7 +92,8 @@
 	Set dtoPlaat.Hoogte=Lade.GeefBodem().GeefDiepte()
 	Set dtoPlaat.HoogteOms=Lade.GeefBodem().GeefDiepteVanLade()
 	Set dtoPlaat.Breedte=Lade.GeefBodemBreedte()
-	Set dtoPlaat.NodigePlaatLengte=Lade.GeefBodemBreedte()/Lade.GeefBodem().GeefBreedte()
+	Set dtoPlaat.PlaatLengte=Lade.GeefBodem().GeefBreedte()
+	Set dtoPlaat.NodigePlaatLengte=Lade.GeefBodemBreedte()/dtoPlaat.PlaatLengte
 	Set dtoPlaat.HoogteSensor=1
 	Set dtoPlaat.AanslagSensor=1
 	Set dtoPlaat.ProductNr=Lade.GeefBodem().GeefPRNr()
@@ -113,7 +118,8 @@
 	Set dtoPlaat.KleurZichtbaar=Lade.GeefRugKleur()
 	Set dtoPlaat.Kleur2de=Lade.GeefRug().GeefKleur2de(dtoPlaat.KleurZichtbaar)
 	Set dtoPlaat.Hoogte=Lade.GeefRug().GeefHoogte()
-	Set dtoPlaat.NodigePlaatLengte=Lade.GeefRugBreedte()/Lade.GeefRug().GeefBreedte()
+	Set dtoPlaat.PlaatLengte=Lade.GeefRug().GeefBreedte()
+	Set dtoPlaat.NodigePlaatLengte=Lade.GeefRugBreedte()/dtoPlaat.PlaatLengte
 	Set dtoPlaat.HoogteOms=Lade.GeefRugHoogte()_" "_dtoPlaat.Hoogte
 	Set dtoPlaat.Breedte=Lade.GeefRugBreedte()
 	Set dtoPlaat.HoogteSensor=1
@@ -127,7 +133,7 @@
 <Method name="BuildList">
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
- Set List=$LB(..AanslagSensor,..Bewerking, ..ChangeAfter, $J(..LengteUntilChange,0,0), ..ChangeHoogte ,..ChangeKleur,..Breedte,..Hoogte,..HoogteOms,..HoogteSensor,..Kleur2de,..KleurZichtbaar,..ReturnsAfter,..ProductNr,..ImageURL)
+ Set List=$LB(..AanslagSensor,..Bewerking, ..ChangeAfter, $J(..LengteUntilChange,0,1), ..ChangeHoogte ,..ChangeKleur,..Breedte,..Hoogte,..HoogteOms,..HoogteSensor,..Kleur2de,..KleurZichtbaar,..ReturnsAfter,..ProductNr,..ImageURL)
  Quit List
 ]]></Implementation>
 </Method>