Index: APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml =================================================================== diff -u -r44617 -r54509 --- APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 44617) +++ APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 54509) @@ -162,10 +162,11 @@ If (Product.%Extends("DOM.PM.TBXProduct.TBXLadeMetUitsparing")) { - Set Uitsparingen = Product.GeefUitsparingen() - Set Uitsparing1 = Uitsparingen.GetAt(1) + #dim Uitsparingen As %ListOfObjects = Product.GeefUitsparingen() + #dim Uitsparing1 As DOM.PM.TBXProduct.impl.TBXUitsparing = Uitsparingen.GetAt(1) + #dim Uitsparing2 As DOM.PM.TBXProduct.impl.TBXUitsparing - If (##class(TECH.StringUtils).Equals(Uitsparing1.GeefUitsparingType(), ##class(DOM.PM.enu.TBXUitsparingType).SifonType2(), ##class(DOM.PM.enu.TBXUitsparingType).SpoelbakType2())) + If (##class(TECH.StringUtils).Equals(Uitsparing1.GeefUitsparingType(), ##class(DOM.PM.enu.TBXUitsparingType).SifonType2(), ##class(DOM.PM.enu.TBXUitsparingType).SpoelbakType2(), ##class(DOM.PM.enu.TBXUitsparingType).SifonType3())) { Set TBXKenmerken.UitsparingBreedte1 = Uitsparing1.GeefBreedte() Do ..Controleer(TBXKenmerken.UitsparingBreedte1,Uitsparing1.GeefBreedte(),"UitsparingBreedte", ErrorLijst) @@ -177,6 +178,10 @@ Do ..Controleer(TBXKenmerken.TussenrugMateriaal,Uitsparing1.GeefTussenrugMateriaal(),"TussenrugMateriaal", ErrorLijst) Do ..IsValid(TBXKenmerken.TussenrugMateriaal,"DOM.PM.enu.TBXRugwandMateriaal", ErrorLijst) } + If (Uitsparing1.GeefUitsparingType() = ##class(DOM.PM.enu.TBXUitsparingType).SifonType3()) { + Set TBXKenmerken.UitsparingBreedte1 = Uitsparing1.GeefBreedte() + Do ..Controleer(TBXKenmerken.UitsparingBreedte1,Uitsparing1.GeefBreedte(),"UitsparingBreedte", ErrorLijst) + } Set TBXKenmerken.UitsparingDiepte = Uitsparing1.GeefDiepte() Do ..Controleer(TBXKenmerken.UitsparingDiepte,Uitsparing1.GeefDiepte(),"UitsparingDiepte", ErrorLijst)