Index: DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml =================================================================== diff -u -r38566 -r38570 --- DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml (.../IKCanonischeWaardeGenerator.cls.xml) (revision 38566) +++ DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml (.../IKCanonischeWaardeGenerator.cls.xml) (revision 38570) @@ -62,7 +62,7 @@ _ ";" _ TBXKenmerken.FrontOndersteuningAantal _ ";" _ TBXKenmerken.FrontOndersteuningType _ ";" _ TBXKenmerken.HangmapBoringAantal - _ ";" _ TBXKenmerken.Klasse + _ ";" _ TBXKenmerken.Toepassing _ ";" _ TBXKenmerken.HeeftOpvullijstLinks _ ";" _ TBXKenmerken.HeeftOpvullijstRechts _ ";" _ TBXKenmerken.PlaatMateriaal Index: DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml =================================================================== diff -u -r38568 -r38570 --- DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 38568) +++ DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 38570) @@ -72,7 +72,7 @@ %Boolean - + DOM.PM.enu.TBXToepassing @@ -342,23 +342,23 @@ @@ -759,6 +759,9 @@ TussenrugMateriaal + +Toepassing + Index: DOM/PM/Maatwerk/Calc/Kost/impl/TBX/BevatSpoelbakEvaluator.cls.xml =================================================================== diff -u -r38568 -r38570 --- DOM/PM/Maatwerk/Calc/Kost/impl/TBX/BevatSpoelbakEvaluator.cls.xml (.../BevatSpoelbakEvaluator.cls.xml) (revision 38568) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TBX/BevatSpoelbakEvaluator.cls.xml (.../BevatSpoelbakEvaluator.cls.xml) (revision 38570) @@ -9,7 +9,7 @@ HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Context:DOM.PM.Maatwerk.Calc.Kost.KostContext,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken %Boolean - Index: DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenSifonladeHelper.cls.xml =================================================================== diff -u -r38568 -r38570 --- DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenSifonladeHelper.cls.xml (.../IngegevenKenmerkenSifonladeHelper.cls.xml) (revision 38568) +++ DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenSifonladeHelper.cls.xml (.../IngegevenKenmerkenSifonladeHelper.cls.xml) (revision 38570) @@ -29,7 +29,7 @@ TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken - Index: APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml =================================================================== diff -u -r38566 -r38570 --- APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml (.../DtoNaarKenmerkVisitor.cls.xml) (revision 38566) +++ APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml (.../DtoNaarKenmerkVisitor.cls.xml) (revision 38570) @@ -91,7 +91,7 @@ Set ..IngegevenKenmerken.HeeftOpvullijstLinks = TBXKenmerken.HeeftOpvullijstLinks Set ..IngegevenKenmerken.HeeftOpvullijstRechts = TBXKenmerken.HeeftOpvullijstRechts Set ..IngegevenKenmerken.HeeftZijstabilisering = TBXKenmerken.HeeftZijstabilisering - Set ..IngegevenKenmerken.Klasse = TBXKenmerken.Klasse + Set ..IngegevenKenmerken.Toepassing = TBXKenmerken.Klasse Set ..IngegevenKenmerken.PlaatMateriaal = TBXKenmerken.PlaatMateriaal Set ..IngegevenKenmerken.RugKleur = TBXKenmerken.RugKleur Set ..IngegevenKenmerken.RugHouderKleur = TBXKenmerken.RugHouderKleur Index: APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml =================================================================== diff -u -r38568 -r38570 --- APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 38568) +++ APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 38570) @@ -69,11 +69,11 @@ Set TBXKenmerken.HeeftOpvullijstLinks = Product.BevatOpvullijstLinks() If (TBXKenmerken.HeeftOpvullijstLinks = "") { Do ErrorLijst.Insert("HeeftOpvullijstLinks niet ingevuld") } - Set Klasse = ##class(DOM.PM.enu.TBXToepassing).Lade() - If (Product.IsSpoelbakLade()) { Set Klasse = ##class(DOM.PM.enu.TBXToepassing).Spoelbak() } - If (Product.IsSifonLade() && Product.GeefUitsparingen().GetAt(1).IsRondeUitsparing()) { Set Klasse = ##class(DOM.PM.enu.TBXToepassing).Sifon() } - If (Product.IsSifonLade() && Product.GeefUitsparingen().GetAt(1).IsRechteUitsparing()) { Set Klasse = ##class(DOM.PM.enu.TBXToepassing).SifonTypeBlum() } ; To be done (added by WimV on 11/08/2011) - Set TBXKenmerken.Klasse = Klasse + #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) + Set TBXKenmerken.Toepassing = Toepassing Set TBXKenmerken.HeeftOpvullijstRechts = Product.BevatOpvullijstRechts() If (TBXKenmerken.HeeftOpvullijstRechts = "") { Do ErrorLijst.Insert("OpvulLijstRechts niet ingevuld") } Index: DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenSpoelbakHelper.cls.xml =================================================================== diff -u -r38568 -r38570 --- DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenSpoelbakHelper.cls.xml (.../IngegevenKenmerkenSpoelbakHelper.cls.xml) (revision 38568) +++ DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenSpoelbakHelper.cls.xml (.../IngegevenKenmerkenSpoelbakHelper.cls.xml) (revision 38570) @@ -26,7 +26,7 @@ TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken - Index: DOM/PM/Maatwerk/Calc/Kost/impl/TBX/BevatSifonEvaluator.cls.xml =================================================================== diff -u -r38568 -r38570 --- DOM/PM/Maatwerk/Calc/Kost/impl/TBX/BevatSifonEvaluator.cls.xml (.../BevatSifonEvaluator.cls.xml) (revision 38568) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TBX/BevatSifonEvaluator.cls.xml (.../BevatSifonEvaluator.cls.xml) (revision 38570) @@ -9,7 +9,7 @@ HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Context:DOM.PM.Maatwerk.Calc.Kost.KostContext,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken %Boolean - Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml =================================================================== diff -u -r38568 -r38570 --- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38568) +++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38570) @@ -29,7 +29,7 @@ Set TBXKenmerken.FrontOndersteuningAantal = 1 Set TBXKenmerken.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontSteun() Set TBXKenmerken.HangmapBoringAantal = 0 - Set TBXKenmerken.Klasse = ##class(DOM.PM.enu.TBXToepassing).Spoelbak() + Set TBXKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak() Set TBXKenmerken.HeeftOpvullijstLinks = 1 Set TBXKenmerken.HeeftOpvullijstRechts = 0 Set TBXKenmerken.PlaatMateriaal = "HS"