Index: EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml
===================================================================
diff -u -r52910 -r53610
--- EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 52910)
+++ EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 53610)
@@ -48,6 +48,8 @@
 		}
 		If Product.NietMeeleveren.TIPONComponents Do Eigenschappen.NietMeeleveren.InsertOrdered("TiponSynchronisatieStang"_"TiponSynchronisatieTandwiel")
 		
+		Set Eigenschappen.RugHoogte = ..GeefTaxRugHoogte(Product)
+		
 		Do ..Converter.Convert(Product,Eigenschappen,..LadeEigenschappenConverteerOptiesTAX)
 		If $$$Trim(Eigenschappen.VerpakkingType) = "" { 
 			Set Eigenschappen.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()
@@ -123,6 +125,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTaxRugHoogte">
+<FormalSpec>Product:EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTAX</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.TAORRugHoogte</ReturnType>
+<Implementation><![CDATA[
+	#dim RugHoogte As DOM.PM.enu.TAORRugHoogte = ""
+	If (Product.Klasse = ##class(DOM.PM.enu.TAORToepassing).Sifon()) {
+		#dim IsLagerDanMHoogte As %Boolean = (Product.LadeHoogte = ##class(DOM.PM.enu.TAORRugHoogte).N())
+		If IsLagerDanMHoogte {
+			Set RugHoogte = Product.LadeHoogte
+		}
+		Else {
+			Set RugHoogte = ##class(DOM.PM.enu.TAORRugHoogte).M()   ; Default rughoogte voor TAX-sifonlade 
+		}
+	}
+	Else {
+		Set RugHoogte = Product.LadeHoogte
+	}
+	Quit RugHoogte
+]]></Implementation>
+</Method>
+
 <Method name="ZetMaterialenVoorSpoelbakEnSifonTBX">
 <FormalSpec><![CDATA[Product:EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTBX,&Eigenschappen:APPS.EDI.common.dto.v001.LadeTBX]]></FormalSpec>
 <Private>1</Private>
@@ -186,7 +210,6 @@
 	}
 	Do ..ConverterData.Add("Type", "Type")
 	Do ..ConverterData.Add("Klasse", "Toepassing")
-	Do ..ConverterData.Add("LadeHoogte", "RugHoogte")
 	Do ..ConverterData.Add("VerpakkingType","VerpakkingType")
 	Do ..ConverterData.Add("KoppelingType","KoppelingType","set:Input=""D"" Output = ""Drevel"" set:Input=""S"" Output=""Schroef""")
 	Quit ..ConverterData