Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler/Test.cls.xml
===================================================================
diff -u -r35863 -r36122
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 35863)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 36122)
@@ -6,31 +6,31 @@
 <Method name="Test: LadeCode bepalen van Lade met foute input">
 <Implementation><![CDATA[
 	Set TBXLadeCodeBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	#dim LadeCode As %String = TBXLadeCodeBepaler.BepaalLadeCode("SY2","A","B","C","V","WS")	
+	#dim LadeCode As %String = TBXLadeCodeBepaler.BepaalLadeCode("SY2","A","B",$$$False,"V","WS")	
 	Do $$$AssertEquals(LadeCode,"")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: LadeCode bepalen van Lade met 1 DesignCode">
 <Implementation><![CDATA[
 	Set TBXLadeCodeBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	#dim LadeCode As %String = TBXLadeCodeBepaler.BepaalLadeCode("SY2","M","M","L","V","WS")	
+	#dim LadeCode As %String = TBXLadeCodeBepaler.BepaalLadeCode("SY2","M","M",$$$False,"V","WS")	
 	Do $$$AssertEquals(LadeCode,"MY2")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: LadeCode bepalen van Lade met 2 DesignCodes (WA)">
 <Implementation><![CDATA[
 	Set TBXLadeCodeBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	#dim LadeCode As %String = TBXLadeCodeBepaler.BepaalLadeCode("SY2","M","D","L","V","WA")	
+	#dim LadeCode As %String = TBXLadeCodeBepaler.BepaalLadeCode("SY2","M","D",$$$False,"V","WA")	
 	Do $$$AssertEquals(LadeCode,"DMY2")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: LadeCode bepalen van Lade met 2 DesignCodes (WS)">
 <Implementation><![CDATA[
 	Set TBXLadeCodeBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
-	#dim LadeCode As %String = TBXLadeCodeBepaler.BepaalLadeCode("SY2","M","D","L","V","WS")	
+	#dim LadeCode As %String = TBXLadeCodeBepaler.BepaalLadeCode("SY2","M","D",$$$False,"V","WS")	
 	Do $$$AssertEquals(LadeCode,"DY2")
 ]]></Implementation>
 </Method>
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler.cls.xml
===================================================================
diff -u -r35863 -r36122
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler.cls.xml	(.../TBXLadeCodeBepaler.cls.xml)	(revision 35863)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler.cls.xml	(.../TBXLadeCodeBepaler.cls.xml)	(revision 36122)
@@ -32,7 +32,12 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim Index = Klasse_"-"_Uittrekbaarheid_"-"_IsBinnenlade_"-"_ZijkantHoogte_"-"_RugHoogte
+	#dim LadeType As %String = "L"
+	If IsBinnenlade {
+		Set LadeType = "B"
+	}
+	
+	#dim Index = Klasse_"-"_Uittrekbaarheid_"-"_LadeType_"-"_ZijkantHoogte_"-"_RugHoogte
 
 	#dim LadeCode As %String = ""
 	#dim idxLadeCode As %String = ""
@@ -43,6 +48,7 @@
 			Set LadeCode = idxLadeCode
 		}
 	}
+	
 	Quit LadeCode
 ]]></Implementation>
 </Method>