Index: EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml
===================================================================
diff -u -r40479 -r40728
--- EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 40479)
+++ EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 40728)
@@ -87,6 +87,8 @@
 		}
 		Do ..Converter.Convert(Product,Eigenschappen,..LadeEigenschappenConverteerOptiesTBX)
 		
+		Do ..ZetMaterialenVoorSpoelbakEnSifonTBX(Product,Eigenschappen)
+		
 		If ##class(TECH.StringUtils).Equals(Product.FrontOndersteuningAantal, 1,2,3) {
 			Set Eigenschappen.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontStabilisator()
 			Set Eigenschappen.FrontOndersteuningAantal = Product.FrontOndersteuningAantal
@@ -95,31 +97,6 @@
 			Set Eigenschappen.FrontOndersteuningAantal = ""
 		}
 		
-		If (Product.Klasse = ##class(DOM.PM.enu.TBXToepassing).Spoelbak()){
-			If (Product.RugwandMateriaal = "") {
-				If ((##class(TECH.StringUtils).Equals(Product.UitsparingDataBreedteX,"147","197") && (Product.RugHoogte = "M")) || ((Product.UitsparingDataBreedteX = "143") && (Product.RugHoogte = "D"))) {
-					Set Eigenschappen.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
-				} Else {
-					Set Eigenschappen.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
-				}
-			} Else {
-				Set Eigenschappen.RugwandMateriaal = $Case(Product.RugwandMateriaal, "W":##class(DOM.PM.enu.TBXRugwandMateriaal).Hout(), "S":##class(DOM.PM.enu.TBXRugwandMateriaal).Staal(),:##class(DOM.PM.enu.TBXRugwandMateriaal).Hout())
-			}
-		} ElseIf (Product.Klasse = ##class(DOM.PM.enu.TBXToepassing).SifonTypeBlum()) {
-			If (Product.TussenrugMateriaal = "") {
-				If ((##class(TECH.StringUtils).Equals(Product.UitsparingDataBreedteZ1,"150","250")) || (##class(TECH.StringUtils).Equals(Product.UitsparingDataBreedteZ2,"150","250"))) {
-					Set Eigenschappen.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
-					Set Eigenschappen.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
-				} Else {
-					Set Eigenschappen.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
-					Set Eigenschappen.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
-				}
-			} Else {
-				Set Eigenschappen.RugwandMateriaal = $Case(Product.RugwandMateriaal, "W":##class(DOM.PM.enu.TBXRugwandMateriaal).Hout(), "S":##class(DOM.PM.enu.TBXRugwandMateriaal).Staal(),:##class(DOM.PM.enu.TBXRugwandMateriaal).Hout())
-				Set Eigenschappen.TussenrugMateriaal = $Case(Product.TussenrugMateriaal, "W":##class(DOM.PM.enu.TBXRugwandMateriaal).Hout(), "S":##class(DOM.PM.enu.TBXRugwandMateriaal).Staal(),:##class(DOM.PM.enu.TBXRugwandMateriaal).Hout())
-			}
-		}
-		
 		If (KlantId = ##class(DOM.VKP.enu.Klant).Labonorm()) && (Product.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).Pallet()) {
 			Set Eigenschappen.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).Procom()
 		}
@@ -136,6 +113,37 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetMaterialenVoorSpoelbakEnSifonTBX">
+<FormalSpec><![CDATA[Product:EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTBX,&Eigenschappen:APPS.EDI.common.dto.v001.LadeTBX]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (Product.Klasse = ##class(DOM.PM.enu.TBXToepassing).Spoelbak()){
+		If (Product.RugwandMateriaal = "") {
+			If ((##class(TECH.StringUtils).Equals(Product.UitsparingDataBreedteX,"147","197") && (Product.RugHoogte = "M")) || ((Product.UitsparingDataBreedteX = "143") && (Product.RugHoogte = "D"))) {
+				Set Eigenschappen.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+			} Else {
+				Set Eigenschappen.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+			}
+		} Else {
+			Set Eigenschappen.RugwandMateriaal = $Case(Product.RugwandMateriaal, "W":##class(DOM.PM.enu.TBXRugwandMateriaal).Hout(), "S":##class(DOM.PM.enu.TBXRugwandMateriaal).Staal(),:##class(DOM.PM.enu.TBXRugwandMateriaal).Hout())
+		}
+	} ElseIf (Product.Klasse = ##class(DOM.PM.enu.TBXToepassing).SifonTypeBlum()) {
+		If (Product.TussenrugMateriaal = "") {
+			If ((##class(TECH.StringUtils).Equals(Product.UitsparingDataBreedteZ1,"150","250")) || (##class(TECH.StringUtils).Equals(Product.UitsparingDataBreedteZ2,"150","250"))) {
+				Set Eigenschappen.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+				Set Eigenschappen.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+			} Else {
+				Set Eigenschappen.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+				Set Eigenschappen.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+			}
+		} Else {
+			Set Eigenschappen.RugwandMateriaal = $Case(Product.RugwandMateriaal, "W":##class(DOM.PM.enu.TBXRugwandMateriaal).Hout(), "S":##class(DOM.PM.enu.TBXRugwandMateriaal).Staal(),:##class(DOM.PM.enu.TBXRugwandMateriaal).Hout())
+			Set Eigenschappen.TussenrugMateriaal = $Case(Product.TussenrugMateriaal, "W":##class(DOM.PM.enu.TBXRugwandMateriaal).Hout(), "S":##class(DOM.PM.enu.TBXRugwandMateriaal).Staal(),:##class(DOM.PM.enu.TBXRugwandMateriaal).Hout())
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Property name="LadeEigenschappenConverteerOptiesTAX">
 <Type>TECH.ObjectUtils.ObjectConvertData</Type>
 <Private>1</Private>