Index: APPS/PM/Maatwerk/Lade/impl/InbouwBreedteBerekenaar.cls.xml
===================================================================
diff -u -r58038 -r62827
--- APPS/PM/Maatwerk/Lade/impl/InbouwBreedteBerekenaar.cls.xml	(.../InbouwBreedteBerekenaar.cls.xml)	(revision 58038)
+++ APPS/PM/Maatwerk/Lade/impl/InbouwBreedteBerekenaar.cls.xml	(.../InbouwBreedteBerekenaar.cls.xml)	(revision 62827)
@@ -24,20 +24,45 @@
 <FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.LadeKenmerken</FormalSpec>
 <ReturnType>%Double</ReturnType>
 <Implementation><![CDATA[
-	#dim AantalOpvullijsten As %Integer = 0
-	Set:IngegevenKenmerken.HeeftOpvullijstLinks AantalOpvullijsten = AantalOpvullijsten + 1
-	Set:IngegevenKenmerken.HeeftOpvullijstRechts AantalOpvullijsten = AantalOpvullijsten + 1
-	If IngegevenKenmerken.CorpusBreedte <= 1 {
-		Set Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New("De corpusbreedte mag niet gelijk zijn aan 0.")
-		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	#dim InbouwBreedte As %Double
+	If (IngegevenKenmerken.CorpusBreedte <= 1) && IngegevenKenmerken.%Extends(##class(APPS.PM.Maatwerk.dto.TBXKenmerken).%ClassName($$$True)) {
+		Set InbouwBreedte = ..GeefInterneBreedteVoorTbxLegacy(IngegevenKenmerken.LegacyKenmerken)
 	}
-	#dim CorpusBreedte As %Double = IngegevenKenmerken.CorpusBreedte
-	#dim CorpusWandDikte As %Double = $Select(IngegevenKenmerken.IsBinnenbreedte:0,1:IngegevenKenmerken.CorpusWandDikte)
-	#dim OpvullijstBreedte As %Double = ..OpvullijstBreedteBepaler.GeefBreedte(IngegevenKenmerken)
-	#dim InbouwBreedte As %Double = CorpusBreedte - (2*CorpusWandDikte) - (AantalOpvullijsten*OpvullijstBreedte)
+	Else {
+		#dim AantalOpvullijsten As %Integer = 0
+		Set:IngegevenKenmerken.HeeftOpvullijstLinks AantalOpvullijsten = AantalOpvullijsten + 1
+		Set:IngegevenKenmerken.HeeftOpvullijstRechts AantalOpvullijsten = AantalOpvullijsten + 1
+		If IngegevenKenmerken.CorpusBreedte <= 1 {
+			Set Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New("De corpusbreedte mag niet gelijk zijn aan 0.")
+			Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+		}
+		#dim CorpusBreedte As %Double = IngegevenKenmerken.CorpusBreedte
+		#dim CorpusWandDikte As %Double = $Select(IngegevenKenmerken.IsBinnenbreedte:0,1:IngegevenKenmerken.CorpusWandDikte)
+		#dim OpvullijstBreedte As %Double = ..OpvullijstBreedteBepaler.GeefBreedte(IngegevenKenmerken)
+		Set InbouwBreedte = CorpusBreedte - (2*CorpusWandDikte) - (AantalOpvullijsten*OpvullijstBreedte)
+	}
 	Quit InbouwBreedte
 ]]></Implementation>
 </Method>
+
+<Method name="GeefInterneBreedteVoorTbxLegacy">
+<FormalSpec>TbxLegacy:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	If (TbxLegacy.ItemCB <= 1) {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("De corpusbreedte van TBXKenmerken en TBXLegacyKenmerken zijn niet ingevuld.")
+	}
+	
+	#dim DFLMinTolerantie As %Integer = ##class(BL.PR.GA.TandemBox).DFLMinTolerantie(TbxLegacy.ItemWD)
+	
+	#dim AantalOpvullijsten As %Integer = 0
+	Set:(TbxLegacy.ItemOPVL="L")||(TbxLegacy.ItemOPVL="R") AantalOpvullijsten = 1
+	Set:(TbxLegacy.ItemOPVL="L+R") AantalOpvullijsten = 2
+	
+	Quit TbxLegacy.ItemCB - (2*TbxLegacy.ItemWD) - (AantalOpvullijsten*25) - DFLMinTolerantie
+]]></Implementation>
+</Method>
 </Class>