Index: zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml =================================================================== diff -u -r38581 -r38628 --- zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml (.../HalffabSelector.cls.xml) (revision 38581) +++ zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml (.../HalffabSelector.cls.xml) (revision 38628) @@ -444,7 +444,7 @@ Set IK = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New() Set IK.LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXPlus() Set IK.ZijkantDesign="S" - Set IK.ZijkantKleur="MG" + Set IK.LadeKleur="MG" Set IK.FrontHouderKleur="MG" Set IK.RugHouderKleur="MG" Set IK.Draagkracht=30 Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml =================================================================== diff -u -r38600 -r38628 --- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38600) +++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38628) @@ -55,7 +55,7 @@ Set TBXKenmerken.VoorwandVerhogingKleur = ##class(DOM.PM.enu.TBXVoorwandVerhogingKleur).FloatGezuurd() Set TBXKenmerken.ZijkantDesign = ##class(DOM.PM.enu.TBXZijkantDesign).F() Set TBXKenmerken.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).K() - Set TBXKenmerken.ZijkantKleur = ##class(DOM.PM.enu.TBXLadeKleur).IN() + Set TBXKenmerken.LadeKleur = ##class(DOM.PM.enu.TBXLadeKleur).IN() Set TBXKenmerken.ZijwandHoogte = ##class(DOM.PM.enu.TBXZijwandHoogte).G() Set TBXKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Boxside() Set TBXKenmerken.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Leder() Index: DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml =================================================================== diff -u -r38575 -r38628 --- DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml (.../IKCanonischeWaardeGenerator.cls.xml) (revision 38575) +++ DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml (.../IKCanonischeWaardeGenerator.cls.xml) (revision 38628) @@ -88,7 +88,7 @@ _ ";" _ TBXKenmerken.VoorwandVerhogingKleur _ ";" _ TBXKenmerken.ZijkantDesign _ ";" _ TBXKenmerken.ZijkantHoogte - _ ";" _ TBXKenmerken.ZijkantKleur + _ ";" _ TBXKenmerken.LadeKleur _ ";" _ TBXKenmerken.ZijwandHoogte _ ";" _ TBXKenmerken.ZijwandVerhogingType _ ";" _ TBXKenmerken.ZijwandVerhogingMateriaal Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml =================================================================== diff -u -r29059 -r38628 --- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml (.../HFLadeZijkantv001.cls.xml) (revision 29059) +++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml (.../HFLadeZijkantv001.cls.xml) (revision 38628) @@ -35,7 +35,7 @@ Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantDesign,"ZijkantDesign") Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeDiepte,"LadeDiepte") Do SelectieKenmerken.SetAt(IngegevenKenmerken.Draagkracht,"Draagkracht") - Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantKleur,"ZijkantKleur") + Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeKleur,"ZijkantKleur") Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantHoogte,"ZijkantHoogte") Do SelectieKenmerken.SetAt(IngegevenKenmerken.Uittrekbaarheid,"Uittrekbaarheid") Index: vhTestFiles/UnitTests/APPS.PM.Maatwerk.impl.Beperking.KlasseCacher.GeefTeBeperkenIKProperties/TestTBX/Test/TBXKenmerken.txt =================================================================== diff -u -r38611 -r38628 --- vhTestFiles/UnitTests/APPS.PM.Maatwerk.impl.Beperking.KlasseCacher.GeefTeBeperkenIKProperties/TestTBX/Test/TBXKenmerken.txt (.../TBXKenmerken.txt) (revision 38611) +++ vhTestFiles/UnitTests/APPS.PM.Maatwerk.impl.Beperking.KlasseCacher.GeefTeBeperkenIKProperties/TestTBX/Test/TBXKenmerken.txt (.../TBXKenmerken.txt) (revision 38628) @@ -7,6 +7,7 @@ HeeftOpvullijstRechts : %Library.Boolean HeeftZijstabilisering : %Library.Boolean IsBinnenlade : %Library.Boolean +LadeKleur : DOM.PM.enu.TBXLadeKleur LadeVariant : DOM.PM.enu.LadeVariant RugHoogte : DOM.PM.enu.TBXRugHoogte RugwandMateriaal : DOM.PM.enu.TBXRugwandMateriaal @@ -23,7 +24,6 @@ VoorwandVerhogingType : DOM.PM.enu.TBXVoorwandVerhogingType ZijkantDesign : DOM.PM.enu.TBXZijkantDesign ZijkantHoogte : DOM.PM.enu.TBXZijkantHoogte -ZijkantKleur : DOM.PM.enu.TBXLadeKleur ZijwandHoogte : DOM.PM.enu.TBXZijwandHoogte ZijwandVerhogingKleur : DOM.PM.enu.TBXZijwandVerhogingKleur ZijwandVerhogingMateriaal : DOM.PM.enu.TBXZijwandVerhogingMateriaal Index: APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml =================================================================== diff -u -r38600 -r38628 --- APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 38600) +++ APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 38628) @@ -132,9 +132,9 @@ Do ..Controleer(TBXKenmerken.ZijkantHoogte,Product.GeefZijkantHoogte(),"ZijkantHoogte", ErrorLijst) Do ..IsValid(TBXKenmerken.ZijkantHoogte,"DOM.PM.enu.TBXZijkantHoogte", ErrorLijst) - Set TBXKenmerken.ZijkantKleur = Product.GeefZijkantKleur() - Do ..Controleer(TBXKenmerken.ZijkantKleur,Product.GeefZijkantKleur(),"ZijkantKleur", ErrorLijst) - Do ..IsValid(TBXKenmerken.ZijkantKleur,"DOM.PM.enu.TBXLadeKleur", ErrorLijst) + Set TBXKenmerken.LadeKleur = Product.GeefZijkantKleur() + Do ..Controleer(TBXKenmerken.LadeKleur,Product.GeefZijkantKleur(),"ZijkantKleur", ErrorLijst) + Do ..IsValid(TBXKenmerken.LadeKleur,"DOM.PM.enu.TBXLadeKleur", ErrorLijst) Set TBXKenmerken.ZijwandHoogte = Product.GeefZijwandHoogte() Do ..Controleer(TBXKenmerken.ZijwandHoogte,Product.GeefZijwandHoogte(),"ZijwandHoogte", ErrorLijst) Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml =================================================================== diff -u -r30379 -r38628 --- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml (.../HFLadeZijkantv001.cls.xml) (revision 30379) +++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml (.../HFLadeZijkantv001.cls.xml) (revision 38628) @@ -11,7 +11,7 @@ Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New() Set IngegevenKenmerken.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus() Set IngegevenKenmerken.ZijkantDesign = "S" - Set IngegevenKenmerken.ZijkantKleur = "MG" + Set IngegevenKenmerken.LadeKleur = "MG" Set IngegevenKenmerken.Draagkracht = 30 Set IngegevenKenmerken.LadeDiepte = 500 Set IngegevenKenmerken.Uittrekbaarheid = "V" @@ -36,7 +36,7 @@ Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New() Set IngegevenKenmerken.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus() Set IngegevenKenmerken.ZijkantDesign = "S" - Set IngegevenKenmerken.ZijkantKleur = "MG" + Set IngegevenKenmerken.LadeKleur = "MG" Set IngegevenKenmerken.Draagkracht = 30 Set IngegevenKenmerken.LadeDiepte = 450 Set IngegevenKenmerken.Uittrekbaarheid = "V" Index: APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml =================================================================== diff -u -r38579 -r38628 --- APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml (.../DtoNaarKenmerkVisitor.cls.xml) (revision 38579) +++ APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml (.../DtoNaarKenmerkVisitor.cls.xml) (revision 38628) @@ -119,6 +119,7 @@ Set ..IngegevenKenmerken.ZijwandVerhogingMateriaal = TBXKenmerken.ZijwandVerhogingMateriaal Set ..IngegevenKenmerken.ZijwandVerhogingKleur = TBXKenmerken.ZijwandVerhogingKleur Set ..IngegevenKenmerken.ZijwandVerhogingAantal = TBXKenmerken.ZijwandVerhogingAantal + Set ..IngegevenKenmerken.LadeKleur = TBXKenmerken.ZijkantKleur // TODO naam-mismatch Set ..IngegevenKenmerken.TipOn = TBXKenmerken.HeeftTipon Index: DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml =================================================================== diff -u -r38600 -r38628 --- DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 38600) +++ DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 38628) @@ -183,7 +183,7 @@ DOM.PM.enu.TBXZijkantHoogte - + DOM.PM.enu.TBXLadeKleur @@ -279,7 +279,7 @@ LadeKleur:%String ZijkantHoogte -ZijkantKleur +LadeKleur ZijwandHoogte Index: vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml =================================================================== diff -u -r38581 -r38628 --- vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml (.../CreateDataTBX.cls.xml) (revision 38581) +++ vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml (.../CreateDataTBX.cls.xml) (revision 38628) @@ -35,7 +35,7 @@ Set TBX.ZijkantDesign="S" ;Set TBX.DesignCode="S" ;Set TBX.LadeDesign="GS" - Set TBX.ZijkantKleur="MG" ; LadeKleur = Kleur zijwand + ... + Set TBX.LadeKleur="MG" ; LadeKleur = Kleur zijwand + ... Set TBX.FrontHouderKleur="MG" Set TBX.RugHouderKleur="MG" Set TBX.Draagkracht=30 @@ -77,7 +77,7 @@ Set TBX.ZijkantDesign="A" ;Set TBX.DesignCode="I" ;Set TBX.LadeDesign="WI" - Set TBX.ZijkantKleur="SW" ; LadeKleur = Kleur zijwand + ... + Set TBX.LadeKleur="SW" ; LadeKleur = Kleur zijwand + ... Set TBX.FrontHouderKleur="SW" Set TBX.RugHouderKleur="SW" Set TBX.Draagkracht=30 @@ -139,7 +139,7 @@ Set TBX.ZijkantDesign="A" ;Set TBX.DesignCode="A" ;Set TBX.LadeDesign="WA" - Set TBX.ZijkantKleur="SW" ; LadeKleur = Kleur zijwand + ... + Set TBX.LadeKleur="SW" ; LadeKleur = Kleur zijwand + ... Set TBX.FrontHouderKleur="SW" Set TBX.RugHouderKleur="SW" Set TBX.RelingKleur="SW" Index: APPS/EC/Winkelkar/impl/ProductKleurBepaler.cls.xml =================================================================== diff -u -r29059 -r38628 --- APPS/EC/Winkelkar/impl/ProductKleurBepaler.cls.xml (.../ProductKleurBepaler.cls.xml) (revision 29059) +++ APPS/EC/Winkelkar/impl/ProductKleurBepaler.cls.xml (.../ProductKleurBepaler.cls.xml) (revision 38628) @@ -52,7 +52,7 @@ /* Method VerwerkTBXKenmerken(TBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken) { - Set ..ProductKleur=TBXKenmerken.ZijkantKleur + Set ..ProductKleur=TBXKenmerken.LadeKleur } */ ]]>