Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml
===================================================================
diff -u -r36359 -r37664
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 36359)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 37664)
@@ -168,12 +168,22 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Uittrekbaarheid As %String = ##class(DOM.PM.enu.TBXUittrekbaarheid).Volledig()
-	#dim DesignCode As %String = ##class(DOM.PM.enu.TBXDesigncode).Antaro()
+	#dim LadeDesign As %String = ..GeefLadeDesign(Product.LadeKleur)
 	
-	Set WebOrderLijn.ItemLT = ..TBXLadeCodeBepaler.BepaalLadeCode(Product.Klasse, Product.LadeHoogte, Product.RugHoogte, Product.IsBinnenlade, Uittrekbaarheid, DesignCode)
+	Set WebOrderLijn.ItemLT = ..TBXLadeCodeBepaler.BepaalLadeCode(Product.Klasse, Product.ZijkantHoogte, Product.RugHoogte, Product.IsBinnenlade, Uittrekbaarheid, LadeDesign)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLadeDesign">
+<FormalSpec>LadeKleur:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim DesignCode As %String = ##class(DOM.PM.enu.TBXDesigncode).Antaro()
+	Quit $Case(LadeKleur, "TS":"ZA", "SW":"WA", "MG":"GA", "IN":"IA", :"")
+]]></Implementation>
+</Method>
+
 <Method name="ConvertDwarsverdelingen">
 <FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&WebOrderLijn:WS.TBX.EM.OrderLijn]]></FormalSpec>
 <Private>1</Private>