Index: APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml =================================================================== diff -u -r44137 -r44139 --- APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 44137) +++ APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 44139) @@ -71,8 +71,8 @@ #dim Toepassing As DOM.PM.enu.TBXToepassing = ##class(DOM.PM.enu.TBXToepassing).Lade() If (Product.IsSpoelbakLade()) { Set Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak() } - If (Product.IsSifonLade() && Product.GeefUitsparingen().GetAt(1).IsRondeUitsparing()) { Set Toepassing = ##class(DOM.PM.enu.TBXToepassing).Sifon() } - If (Product.IsSifonLade() && Product.GeefUitsparingen().GetAt(1).IsRechteUitsparing()) { Set Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonTypeBlum() } ; To be done (added by WimV on 11/08/2011) + If (Product.IsSifonLade() && (Product.GeefUitsparingen().GetAt(1).GeefUitsparingType() = ##class(DOM.PM.enu.TBXUitsparingType).SifonType1())) { Set Toepassing = ##class(DOM.PM.enu.TBXToepassing).Sifon() } + If (Product.IsSifonLade() && (Product.GeefUitsparingen().GetAt(1).GeefUitsparingType() = ##class(DOM.PM.enu.TBXUitsparingType).SifonType2())) { Set Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonTypeBlum() } ; To be done (added by WimV on 11/08/2011) Set TBXKenmerken.Toepassing = Toepassing Set TBXKenmerken.HeeftOpvullijstRechts = Product.BevatOpvullijstRechts()