Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r11688 -r11690
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 11688)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 11690)
@@ -835,11 +835,12 @@
 <Description>
 Geeft de wikkel-lengte voor een tandembox-lade in Probox verpakking </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>DesignCode:%String,IsBinnenlade:%Boolean,LadeHoogte:%String,LadeZijkantHoogte:%String,LadeBreedte:%Float</FormalSpec>
+<FormalSpec>DesignCode:%String,LadeType:DOM.PM.enu.TBXLadeType,LadeHoogte:%String,LadeZijkantHoogte:%String,LadeBreedte:%Float</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
 	Set LadeVariant=..GeefLadeVariantFromDesignCode(DesignCode)
+	Set IsBinnenlade=(LadeType=##class(DOM.PM.enu.TBXLadeType).BinnenLade())
 	Set WikkelInfo=##class(APPS.PM.Maatwerk.TBX.Probox.Calculator).GeefWikkelInfo(LadeVariant,IsBinnenlade,LadeHoogte,LadeBreedte)
 	Quit $LB(WikkelInfo.GeefWikkelLengte(),WikkelInfo.GeefAantal())
 ]]></Implementation>
@@ -860,11 +861,12 @@
 <Description>
 Geeft het volume-aandeel voor een tandembox-lade in Probox verpakking </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>DesignCode:%String,IsBinnenlade:%Boolean,LadeDiepte:%Integer,LadeHoogte:%String,LadeZijkantHoogte:%String,LadeBreedte:%Float</FormalSpec>
+<FormalSpec>DesignCode:%String,LadeType:DOM.PM.enu.TBXLadeType,LadeDiepte:%Integer,LadeHoogte:%String,LadeZijkantHoogte:%String,LadeBreedte:%Float</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
 	Set LadeVariant=..GeefLadeVariantFromDesignCode(DesignCode)
+	Set IsBinnenlade=(LadeType=##class(DOM.PM.enu.TBXLadeType).BinnenLade())
 	Set VolumeAandeel=##class(APPS.PM.Maatwerk.TBX.Probox.Calculator).GeefVolumeAandeel(LadeVariant,IsBinnenlade,LadeDiepte,LadeHoogte,LadeBreedte)
 	Quit VolumeAandeel
 ]]></Implementation>