Index: ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml
===================================================================
diff -u -r41449 -r41512
--- ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml	(.../Lbx.cls.xml)	(revision 41449)
+++ ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml	(.../Lbx.cls.xml)	(revision 41512)
@@ -101,7 +101,7 @@
 		Set LbxKenmerken.UitsparingDataBreedteZ1 = Kenmerken.UitsparingData.Z1.Breedte
 		Set LbxKenmerken.RugWandMateriaal = Kenmerken.UitsparingData.X.Materiaal
 		If LbxKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Sifon(){
-			Set LbxKenmerken.UitsparingDataCodeZ1 = ##class(DOM.PM.enu.LBXKlasse).Sifon()_"_Recht_"_Kenmerken.RugHoogte_"_D"_Kenmerken.UitsparingData.Z1.Diepte_"_B"_Kenmerken.UitsparingData.Z1.Breedte
+			Set LbxKenmerken.UitsparingDataCodeZ1 = ..MaakUitsparingDataCode(Kenmerken.UitsparingData.Z1.Vorm,Kenmerken.UitsparingData.Z1.Hoogte,Kenmerken.UitsparingData.Z1.Diepte,Kenmerken.UitsparingData.Z1.Breedte)
 		}
 	} ElseIf Kenmerken.UitsparingData.UitsparingAantal = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel() {
 		Set LbxKenmerken.UitsparingDataAantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()
@@ -111,12 +111,27 @@
 		Set LbxKenmerken.UitsparingDataBreedteZ1 = Kenmerken.UitsparingData.Z1.Breedte
 		Set LbxKenmerken.UitsparingDataBreedteZ2 = Kenmerken.UitsparingData.Z2.Breedte
 		Set LbxKenmerken.RugWandMateriaal = Kenmerken.UitsparingData.X.Materiaal
-		Set LbxKenmerken.UitsparingDataCodeZ1 = ##class(DOM.PM.enu.LBXKlasse).Sifon()_"_Recht_"_Kenmerken.RugHoogte_"_D"_Kenmerken.UitsparingData.Z1.Diepte_"_B"_Kenmerken.UitsparingData.Z1.Breedte
-		Set LbxKenmerken.UitsparingDataCodeZ2 = ##class(DOM.PM.enu.LBXKlasse).Sifon()_"_Recht_"_Kenmerken.RugHoogte_"_D"_Kenmerken.UitsparingData.Z2.Diepte_"_B"_Kenmerken.UitsparingData.Z2.Breedte
+		Set LbxKenmerken.UitsparingDataCodeZ1 = ..MaakUitsparingDataCode(Kenmerken.UitsparingData.Z1.Vorm,Kenmerken.UitsparingData.Z1.Hoogte,Kenmerken.UitsparingData.Z1.Diepte,Kenmerken.UitsparingData.Z1.Breedte)
+		Set LbxKenmerken.UitsparingDataCodeZ2 = ..MaakUitsparingDataCode(Kenmerken.UitsparingData.Z2.Vorm,Kenmerken.UitsparingData.Z2.Hoogte,Kenmerken.UitsparingData.Z2.Diepte,Kenmerken.UitsparingData.Z2.Breedte)
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="MaakUitsparingDataCode">
+<FormalSpec>Vorm:%String,Hoogte:%String,Diepte:%String,Breedte:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set List = ##class(%ListOfDataTypes).%New()
+	do List.Insert(##class(DOM.PM.enu.LBXKlasse).Sifon())
+	do List.Insert(Vorm)
+	do List.Insert(Hoogte)
+	do List.Insert("D"_Diepte)
+	do List.Insert("B"_Breedte)
+	quit ##class(TECH.ListUtils).ListToPieces(List,"_")
+]]></Implementation>
+</Method>
+
 <Method name="ConverteerMat">
 <FormalSpec><![CDATA[Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken,&LbxKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken]]></FormalSpec>
 <Private>1</Private>