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()