Index: DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml =================================================================== diff -u -r38632 -r38637 --- DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 38632) +++ DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 38637) @@ -187,7 +187,7 @@ DOM.PM.enu.TBXLadeKleur - + DOM.PM.enu.TBXLadehoogte @@ -401,8 +401,8 @@ Do ..MaakLade() Set ..ZijkantHoogte = "M" - Set ..ZijwandHoogte = "M" - Set ..RugHoogte = ..ZijwandHoogte + Set ..LadeHoogte = "M" + Set ..RugHoogte = ..LadeHoogte Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Laag() Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen() ]]> @@ -415,8 +415,8 @@ Do ..MaakBinnenlade() Set ..ZijkantHoogte = "M" - Set ..ZijwandHoogte = "M" - Set ..RugHoogte = ..ZijwandHoogte + Set ..LadeHoogte = "M" + Set ..RugHoogte = ..LadeHoogte Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Laag() Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen() ]]> @@ -430,8 +430,8 @@ If (..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()) || (..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXAntaro()) { Set ..ZijkantHoogte = "M" - Set ..ZijwandHoogte = "B" - Set ..RugHoogte = ..ZijwandHoogte + Set ..LadeHoogte = "B" + Set ..RugHoogte = ..LadeHoogte Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling() Set ..ZijwandVerhogingAantal = 1 Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen() @@ -450,8 +450,8 @@ If (..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()) { Set ..ZijkantHoogte = "M" - Set ..ZijwandHoogte = "B" - Set ..RugHoogte = ..ZijwandHoogte + Set ..LadeHoogte = "B" + Set ..RugHoogte = ..LadeHoogte Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling() Set ..ZijwandVerhogingAantal = 1 Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen() @@ -472,8 +472,8 @@ If (..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()) { Set ..ZijkantHoogte = "K" - Set ..ZijwandHoogte = "C" - Set ..RugHoogte = ..ZijwandHoogte + Set ..LadeHoogte = "C" + Set ..RugHoogte = ..LadeHoogte Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling() Set ..ZijwandVerhogingAantal = 1 Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen() @@ -495,8 +495,8 @@ If (..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()) { Set ..ZijkantHoogte = "K" - Set ..ZijwandHoogte = "C" - Set ..RugHoogte = ..ZijwandHoogte + Set ..LadeHoogte = "C" + Set ..RugHoogte = ..LadeHoogte Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling() Set ..ZijwandVerhogingAantal = 1 Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Reling() @@ -517,8 +517,8 @@ If ..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus() { Set ..ZijkantHoogte = "M" - Set ..ZijwandHoogte = "D" - Set ..RugHoogte = ..ZijwandHoogte + Set ..LadeHoogte = "D" + Set ..RugHoogte = ..LadeHoogte Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling() Set ..ZijwandVerhogingAantal = 2 Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen() @@ -536,9 +536,9 @@ Do ..MaakSpoelbaklade() Set ..ZijkantHoogte = "M" - Set ..ZijwandHoogte = "M" + Set ..LadeHoogte = "M" Set ..SpoelbakBinnenzijwandHoogte = "M" - Set ..RugHoogte = ..ZijwandHoogte + Set ..RugHoogte = ..LadeHoogte Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Laag() Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen() ]]> @@ -554,9 +554,9 @@ If ..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus() { Set ..ZijkantHoogte = "M" - Set ..ZijwandHoogte = "D" + Set ..LadeHoogte = "D" Set ..SpoelbakBinnenzijwandHoogte = "D" - Set ..RugHoogte = ..ZijwandHoogte + Set ..RugHoogte = ..LadeHoogte Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Boxside() Set ..ZijwandVerhogingAantal = 1 Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen() @@ -578,8 +578,8 @@ If ..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus() { Set ..ZijkantHoogte = "M" - Set ..ZijwandHoogte = "D" - Set ..RugHoogte = ..ZijwandHoogte + Set ..LadeHoogte = "D" + Set ..RugHoogte = ..LadeHoogte Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling() Set ..ZijwandVerhogingAantal = 2 Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen() @@ -600,8 +600,8 @@ If ..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus() { Set ..ZijkantHoogte = "M" - Set ..ZijwandHoogte = "D" - Set ..RugHoogte = ..ZijwandHoogte + Set ..LadeHoogte = "D" + Set ..RugHoogte = ..LadeHoogte Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling() Set ..ZijwandVerhogingAantal = 2 Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Reling() @@ -739,7 +739,7 @@ LadeKleur -ZijwandHoogte +LadeHoogte ZijwandVerhogingAantal Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml =================================================================== diff -u -r38574 -r38637 --- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml (.../HFRugHouderv001.cls.xml) (revision 38574) +++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml (.../HFRugHouderv001.cls.xml) (revision 38637) @@ -11,7 +11,7 @@ Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New() Set IngegevenKenmerken.RugHouderKleur ="SW" - Set IngegevenKenmerken.ZijwandHoogte = "B" + Set IngegevenKenmerken.LadeHoogte = "B" Set IngegevenKenmerken.RugHoogte = "B" Set IngegevenKenmerken.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout() Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontRelingHouderv001.cls.xml =================================================================== diff -u -r38566 -r38637 --- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontRelingHouderv001.cls.xml (.../HFFrontRelingHouderv001.cls.xml) (revision 38566) +++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontRelingHouderv001.cls.xml (.../HFFrontRelingHouderv001.cls.xml) (revision 38637) @@ -32,7 +32,7 @@ @@ -57,7 +57,7 @@ Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New() ;Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeVariant,"LadeVariant") ;Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantDesign,"ZijkantDesign") - Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijwandHoogte,"ZijwandHoogte") + Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeHoogte,"ZijwandHoogte") Do SelectieKenmerken.SetAt(IngegevenKenmerken.FrontHouderKleur,"FrontRelingHouderKleur") ;Do SelectieKenmerken.SetAt("FRONTB_RH","MateriaalType") ; BasisType OLD Index: zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml =================================================================== diff -u -r38628 -r38637 --- zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml (.../HalffabSelector.cls.xml) (revision 38628) +++ zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml (.../HalffabSelector.cls.xml) (revision 38637) @@ -453,7 +453,7 @@ Set IK.IsBinnenlade=0 Set IK.Uittrekbaarheid="V" Set IK.ZijkantHoogte="M" - Set IK.ZijwandHoogte="D" + Set IK.LadeHoogte="D" Set IK.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling() Set IK.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Metaal() Set IK.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).MetallicGrijs() Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv001.cls.xml =================================================================== diff -u -r38566 -r38637 --- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv001.cls.xml (.../HFFrontHouderv001.cls.xml) (revision 38566) +++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv001.cls.xml (.../HFFrontHouderv001.cls.xml) (revision 38637) @@ -13,7 +13,7 @@ Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New() Set IngegevenKenmerken.LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXIntivo() Set IngegevenKenmerken.ZijkantDesign = "A" - Set IngegevenKenmerken.ZijwandHoogte = "C" + Set IngegevenKenmerken.LadeHoogte = "C" Set IngegevenKenmerken.IsBinnenlade = 1 Set IngegevenKenmerken.FrontHouderKleur = "SW" Index: vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml =================================================================== diff -u -r38628 -r38637 --- vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml (.../CreateDataTBX.cls.xml) (revision 38628) +++ vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml (.../CreateDataTBX.cls.xml) (revision 38637) @@ -44,7 +44,7 @@ Set TBX.IsBinnenlade=0 Set TBX.Uittrekbaarheid="V" Set TBX.ZijkantHoogte="M" - Set TBX.ZijwandHoogte="D" + Set TBX.LadeHoogte="D" Set TBX.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling() Set TBX.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Metaal() Set TBX.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).MetallicGrijs() @@ -87,7 +87,7 @@ Set TBX.Uittrekbaarheid="V" Set TBX.ZijkantHoogte="L" - Set TBX.ZijwandHoogte="C" + Set TBX.LadeHoogte="C" Set TBX.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Boxcover() Set TBX.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas() Set TBX.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).Diamant() @@ -117,7 +117,7 @@ DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken @@ -305,7 +305,7 @@ // Filter HalffabList : Zoek bewerkbaar op Lengte met minimum-lengte = ExacteLengteInschuifElem ; Halffab Kenmerk=LadeDiepte If (HalffabList.Count()>0) { - d WLIP^vhDBG(97,"Filter HalffabList voor "_IngegevenKenmerken.ZijwandHoogte_" "_IngegevenKenmerken.LadeDiepte_" #Items : "_HalffabList.Count()) + d WLIP^vhDBG(97,"Filter HalffabList voor "_IngegevenKenmerken.LadeHoogte_" "_IngegevenKenmerken.LadeDiepte_" #Items : "_HalffabList.Count()) Kill arPreferred // HalffabList doorlopen en de meest interessante overhouden @@ -415,7 +415,6 @@ %Library.CacheStorage HFInschuifElementv001DefaultData -listnode "HFInschuifElementv001" blnDebug Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml =================================================================== diff -u -r38632 -r38637 --- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38632) +++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38637) @@ -56,7 +56,7 @@ Set TBXKenmerken.ZijkantDesign = ##class(DOM.PM.enu.TBXZijkantDesign).F() Set TBXKenmerken.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).K() Set TBXKenmerken.LadeKleur = ##class(DOM.PM.enu.TBXLadeKleur).IN() - Set TBXKenmerken.ZijwandHoogte = ##class(DOM.PM.enu.TBXLadehoogte).G() + Set TBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).G() Set TBXKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Boxside() Set TBXKenmerken.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Leder() Set TBXKenmerken.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).DiamantGezuurd() Index: APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml =================================================================== diff -u -r38632 -r38637 --- APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 38632) +++ APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 38637) @@ -136,9 +136,9 @@ 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) - Do ..IsValid(TBXKenmerken.ZijwandHoogte,"DOM.PM.enu.TBXLadeHoogte", ErrorLijst) + Set TBXKenmerken.LadeHoogte = Product.GeefZijwandHoogte() + Do ..Controleer(TBXKenmerken.LadeHoogte,Product.GeefZijwandHoogte(),"ZijwandHoogte", ErrorLijst) + Do ..IsValid(TBXKenmerken.LadeHoogte,"DOM.PM.enu.TBXLadeHoogte", ErrorLijst) Set TBXKenmerken.ZijwandVerhogingType = Product.GeefZijwandVerhogingType() Do ..Controleer(TBXKenmerken.ZijwandVerhogingType,Product.GeefZijwandVerhogingType(),"ZijwandVerhogingType", ErrorLijst) Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv001.cls.xml =================================================================== diff -u -r38566 -r38637 --- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv001.cls.xml (.../HFFrontHouderv001.cls.xml) (revision 38566) +++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv001.cls.xml (.../HFFrontHouderv001.cls.xml) (revision 38637) @@ -33,7 +33,7 @@ Set SelectieKenmerken = ##class(%ArrayOfDataTypes).%New() Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeVariant,"LadeVariant") Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantDesign,"ZijkantDesign") - Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijwandHoogte,"ZijwandHoogte") + Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeHoogte,"ZijwandHoogte") Do SelectieKenmerken.SetAt($S(IngegevenKenmerken.IsBinnenlade=1:"B",1:"L"),"FrontType") ;Do SelectieKenmerken.SetAt("FRONTB_OLD","MateriaalType") ; BasisType OLD ;Do SelectieKenmerken.SetAt("ZIF_OLD","Opties") @@ -42,7 +42,7 @@ } Else { // [CSC] Deze else is nooit getest geworden en zal ook niet werken omdat de variabele opties niet gezet werd - If (IngegevenKenmerken.ZijwandHoogte="D") && (IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling()) { + If (IngegevenKenmerken.LadeHoogte="D") && (IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling()) { Set RelingType=$S(IngegevenKenmerken.ZijwandVerhogingAantal=2:"DubRel",1:"OneRel") Do SelectieKenmerken.SetAt(RelingType,Opties) } Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontRelingHouderv001.cls.xml =================================================================== diff -u -r38566 -r38637 --- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontRelingHouderv001.cls.xml (.../HFFrontRelingHouderv001.cls.xml) (revision 38566) +++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontRelingHouderv001.cls.xml (.../HFFrontRelingHouderv001.cls.xml) (revision 38637) @@ -48,7 +48,7 @@ Set IngegevenKenmerken.VoorwandVerhogingKleur = ##class(DOM.PM.enu.TBXVoorwandVerhogingKleur).ZijdeWit() Set IngegevenKenmerken.IsBinnenlade = 1 Set IngegevenKenmerken.FrontHouderKleur = "SW" - Set IngegevenKenmerken.ZijwandHoogte = "C" + Set IngegevenKenmerken.LadeHoogte = "C" Do Context.HalffabItemsBoom.AddHalffabItem(..GeefFrontHouder(Context,##class(DOM.PM.enu.Verpakking).Industrie())) Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/DataSetTBXPlus.cls.xml =================================================================== diff -u -r29059 -r38637 --- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/DataSetTBXPlus.cls.xml (.../DataSetTBXPlus.cls.xml) (revision 29059) +++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/DataSetTBXPlus.cls.xml (.../DataSetTBXPlus.cls.xml) (revision 38637) @@ -123,7 +123,7 @@ // TempX method zal tijdelijk enkele properties OVERSCHRIJVEN, omdat deze configuratie voorlopig een correcte berekening van de builders oplevert. // Later moet deze method verdwijnen en moet de echte method ..GeefIngegevenKenmerkenD(...) opgeroepen worden. - Set IngegevenKenmerken.RugHoogte = "M" ; IngegevenKenmerken.ZijwandHoogte + Set IngegevenKenmerken.RugHoogte = "M" ; IngegevenKenmerken.LadeHoogte ; moet nog aangepast worden naar DubbeleReling() Set IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Laag() Index: APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml =================================================================== diff -u -r38628 -r38637 --- APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml (.../DtoNaarKenmerkVisitor.cls.xml) (revision 38628) +++ APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml (.../DtoNaarKenmerkVisitor.cls.xml) (revision 38637) @@ -114,7 +114,7 @@ Set ..IngegevenKenmerken.VoorwandVerhogingKleur = TBXKenmerken.VoorwandVerhogingKleur Set ..IngegevenKenmerken.ZijkantDesign = TBXKenmerken.ZijkantDesign Set ..IngegevenKenmerken.ZijkantHoogte = TBXKenmerken.ZijkantHoogte - Set ..IngegevenKenmerken.ZijwandHoogte = TBXKenmerken.ZijwandHoogte + Set ..IngegevenKenmerken.LadeHoogte = TBXKenmerken.ZijwandHoogte Set ..IngegevenKenmerken.ZijwandVerhogingType = TBXKenmerken.ZijwandVerhogingType Set ..IngegevenKenmerken.ZijwandVerhogingMateriaal = TBXKenmerken.ZijwandVerhogingMateriaal Set ..IngegevenKenmerken.ZijwandVerhogingKleur = TBXKenmerken.ZijwandVerhogingKleur Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFInschuifElementv001.cls.xml =================================================================== diff -u -r29059 -r38637 --- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFInschuifElementv001.cls.xml (.../HFInschuifElementv001.cls.xml) (revision 29059) +++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFInschuifElementv001.cls.xml (.../HFInschuifElementv001.cls.xml) (revision 38637) @@ -46,7 +46,7 @@ Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New() Set IngegevenKenmerken.LadeDiepte = "500" - Set IngegevenKenmerken.ZijwandHoogte = "D" + Set IngegevenKenmerken.LadeHoogte = "D" Set IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Boxcover() Set IngegevenKenmerken.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas() Set IngegevenKenmerken.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).Diamant() @@ -68,7 +68,7 @@ Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New() Set IngegevenKenmerken.LadeDiepte = "600" - Set IngegevenKenmerken.ZijwandHoogte = "C" + Set IngegevenKenmerken.LadeHoogte = "C" Set IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Boxcover() Set IngegevenKenmerken.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas() Set IngegevenKenmerken.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).Diamant() @@ -91,7 +91,7 @@ Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New() Set IngegevenKenmerken.LadeDiepte = "350" - Set IngegevenKenmerken.ZijwandHoogte = "D" + Set IngegevenKenmerken.LadeHoogte = "D" Set IngegevenKenmerken.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo() Set IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Boxcover() Set IngegevenKenmerken.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Leder()