Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugv001.cls.xml
===================================================================
diff -u -r29059 -r38571
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugv001.cls.xml (.../HFRugv001.cls.xml) (revision 29059)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugv001.cls.xml (.../HFRugv001.cls.xml) (revision 38571)
@@ -57,7 +57,7 @@
Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
Set IngegevenKenmerken.RugKleur = "LG"
- Set IngegevenKenmerken.RugMateriaal = ##class(DOM.PM.enu.TBXRugMateriaal).Staal()
+ Set IngegevenKenmerken.RugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
Set IngegevenKenmerken.RugHoogte = "D"
Set IngegevenKenmerken.CorpusBinnenbreedte = 863
Index: DOM/PM/TBXProduct/impl/TBXRechteUitsparing.cls.xml
===================================================================
diff -u -r29059 -r38571
--- DOM/PM/TBXProduct/impl/TBXRechteUitsparing.cls.xml (.../TBXRechteUitsparing.cls.xml) (revision 29059)
+++ DOM/PM/TBXProduct/impl/TBXRechteUitsparing.cls.xml (.../TBXRechteUitsparing.cls.xml) (revision 38571)
@@ -13,12 +13,12 @@
-DOM.PM.enu.TBXRugMateriaal
+DOM.PM.enu.TBXRugwandMateriaal
1
-Diepte:%Integer,Breedte:%Integer,AfstandTotZijkantLinks:%Integer,AfstandTotZijkantRechts:%Integer,ZijkantKleur:%String,TussenrugMateriaal:DOM.PM.enu.TBXRugMateriaal
+Diepte:%Integer,Breedte:%Integer,AfstandTotZijkantLinks:%Integer,AfstandTotZijkantRechts:%Integer,ZijkantKleur:%String,TussenrugMateriaal:DOM.PM.enu.TBXRugwandMateriaal
1
1
%Status
@@ -66,7 +66,7 @@
-DOM.PM.enu.TBXRugMateriaal
+DOM.PM.enu.TBXRugwandMateriaal
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml
===================================================================
diff -u -r29059 -r38571
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml (.../HFRugHouderv001.cls.xml) (revision 29059)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml (.../HFRugHouderv001.cls.xml) (revision 38571)
@@ -22,7 +22,7 @@
Index: DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml
===================================================================
diff -u -r37477 -r38571
--- DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml (.../TBXLadeImpl.cls.xml) (revision 37477)
+++ DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml (.../TBXLadeImpl.cls.xml) (revision 38571)
@@ -374,11 +374,11 @@
If ('$IsObject(..Rug) && ..BevatRug())
{
#dim Bouwsteen As DOM.PM.Bouwstenen.Bouwsteen = ""
- If (..GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout())
+ If (..GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugwandMateriaal).Hout())
{
Set Bouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_..GeefBouwsteenNaamVoorHoutenRug())
}
- ElseIf (..GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Staal())
+ ElseIf (..GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugwandMateriaal).Staal())
{
Set Bouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_"PRSRUG.001")
}
@@ -729,11 +729,11 @@
%String
-DOM.PM.enu.TBXRugMateriaal
+DOM.PM.enu.TBXRugwandMateriaal
Index: BL/PPS/TBX/DocLijnvullerLijst.cls.xml
===================================================================
diff -u -r31550 -r38571
--- BL/PPS/TBX/DocLijnvullerLijst.cls.xml (.../DocLijnvullerLijst.cls.xml) (revision 31550)
+++ BL/PPS/TBX/DocLijnvullerLijst.cls.xml (.../DocLijnvullerLijst.cls.xml) (revision 38571)
@@ -133,7 +133,7 @@
%Boolean
Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r38548 -r38571
--- BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 38548)
+++ BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 38571)
@@ -684,7 +684,7 @@
. Set pxLabel.BreedteB=IB-75
#dim Lade As DOM.PM.TBXProduct.TBXLade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
- if Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout() {
+ if Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugwandMateriaal).Hout() {
set pxLabel.RWHInfo = "RWH: "_Lade.GeefRugHouderKleur()_" "_Lade.GeefZijwandHoogte()
#dim InfoLabelRug As %String = "Rug"
@@ -697,7 +697,7 @@
set pxLabel.RWHInfo = pxLabel.RWHInfo_" .22"
}
}
- elseif Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Staal() {
+ elseif Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() {
Set pxLabel.RugInfo = "StalenRug: "_Lade.GeefRugKleur()_" "_Lade.GeefRugHoogte()_" "_(pxLabel.IB-28)
Set pxLabel.RWHInfo = "RWH: -- -- --"
}
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugv001.cls.xml
===================================================================
diff -u -r29059 -r38571
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugv001.cls.xml (.../HFRugv001.cls.xml) (revision 29059)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugv001.cls.xml (.../HFRugv001.cls.xml) (revision 38571)
@@ -48,7 +48,7 @@
Set HalffabList = Context.SelecteerHalffabrikaten(##this,SelectieKenmerken)
- Set IsStalenRug=(IngegevenKenmerken.RugMateriaal=##class(DOM.PM.enu.TBXRugMateriaal).Staal())
+ Set IsStalenRug=(IngegevenKenmerken.RugMateriaal=##class(DOM.PM.enu.TBXRugwandMateriaal).Staal())
If (IsStalenRug)
{
@@ -113,7 +113,7 @@
-DOM.PM.enu.TBXRugMateriaal
-DOM.PM.enu.TBXRugwandMateriaal
+
Index: DOM/PM/TBXProduct/TBXLade.cls.xml
===================================================================
diff -u -r37477 -r38571
--- DOM/PM/TBXProduct/TBXLade.cls.xml (.../TBXLade.cls.xml) (revision 37477)
+++ DOM/PM/TBXProduct/TBXLade.cls.xml (.../TBXLade.cls.xml) (revision 38571)
@@ -15,404 +15,484 @@
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
DOM.PM.TBXProduct.TBXRug
+
1
DOM.PM.enu.TBXBodemBewerking
+
1
DOM.PM.TBXProduct.TBXBodem
+
1
%Integer
+
1
%Integer
+
1
%Integer
+
1
DOM.PM.enu.TBXAntislipmat
+
1
DOM.PM.enu.TBXBlumotion
+
1
%Integer
+
1
%Integer
+
1
%String
+
1
DOM.PM.enu.TBXBoxsideKleur
+
1
%Float
+
1
DOM.PM.enu.TBXDwarsverdeling
+
1
DOM.PM.enu.TBXFrontBevestiging
+
1
%String
+
1
%Integer
+
1
DOM.PM.enu.TBXFrontOndersteuningType
+
DEPRECATED: Gebruik GeefInbouwBreedte()
1
%Float
+
1
%Float
+
1
%Float
+
1
DOM.PM.enu.TBXLadeType
+
1
%String
+
1
%Float
+
1
%String
+
1
DOM.PM.TBXProduct.TBXReling
+
1
%String
+
1
DOM.PM.enu.TBXRugHoogte
+
1
%Integer
+
1
%String
+
1
%String
+
1
-DOM.PM.enu.TBXRugMateriaal
+DOM.PM.enu.TBXRugwandMateriaal
+
1
DOM.PM.TBXProduct.TBXReling
+
1
DOM.PM.enu.TBXUittrekbaarheid
+
1
DOM.PM.enu.TBXVerpakking
+
1
DOM.PM.enu.TBXVoorwandVerhogingType
+
1
DOM.PM.enu.TBXVoorwandVerhogingMateriaal
+
1
DOM.PM.enu.TBXVoorwandVerhogingKleur
+
1
%Integer
+
1
DOM.PM.enu.TBXZijkantDesign
+
1
DOM.PM.enu.TBXZijkantHoogte
+
1
DOM.PM.enu.TBXZijkantKleur
+
1
DOM.PM.enu.TBXZijwandHoogte
+
1
%Integer
+
1
DOM.PM.enu.TBXZijwandVerhogingKleur
+
1
DOM.PM.enu.TBXZijwandVerhogingMateriaal
+
1
DOM.PM.enu.TBXZijwandVerhogingType
+
1
%Boolean
+
1
%Boolean
+
1
%Boolean
+
1
%String
+
1
TECH.Iterator
ELEMENTTYPE="DOM.PM.Bouwstenen.BouwsteenKind"
+
Index: vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml
===================================================================
diff -u -r29059 -r38571
--- vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml (.../CreateDataTBX.cls.xml) (revision 29059)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml (.../CreateDataTBX.cls.xml) (revision 38571)
@@ -54,7 +54,7 @@
Set TBX.BodemKleur="UTLG" ; = UnitTest LichtGrijs
Set TBX.RugHoogte="D"
Set TBX.RugKleur="UTLG" ; = UnitTest LichtGrijs
- Set TBX.RugMateriaal=##class(DOM.PM.enu.TBXRugMateriaal).Hout()
+ Set TBX.RugMateriaal=##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
// Calculated Properties
;Set TBX.CorpusBinnenmaat=863
@@ -100,7 +100,7 @@
Set TBX.BodemKleur="UTLG" ; = UnitTest LichtGrijs
Set TBX.RugHoogte="C"
Set TBX.RugKleur="UTLG" ; = UnitTest LichtGrijs
- Set TBX.RugMateriaal=##class(DOM.PM.enu.TBXRugMateriaal).Hout()
+ Set TBX.RugMateriaal=##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
// Calculated Properties
;Set TBX.CorpusBinnenmaat=863
@@ -156,7 +156,7 @@
Set TBX.BodemKleur="UTLG" ; = UnitTest LichtGrijs
Set TBX.RugHoogte="B"
Set TBX.RugKleur="UTLG" ; = UnitTest LichtGrijs
- Set TBX.RugMateriaal=##class(DOM.PM.enu.TBXRugMateriaal).Hout()
+ Set TBX.RugMateriaal=##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
// Calculated Properties
;Set TBX.CorpusBinnenmaat=863
Index: BL/PPS/TBX/DocStaalRugOverzichtLijst.cls.xml
===================================================================
diff -u -r29059 -r38571
--- BL/PPS/TBX/DocStaalRugOverzichtLijst.cls.xml (.../DocStaalRugOverzichtLijst.cls.xml) (revision 29059)
+++ BL/PPS/TBX/DocStaalRugOverzichtLijst.cls.xml (.../DocStaalRugOverzichtLijst.cls.xml) (revision 38571)
@@ -35,7 +35,7 @@
Set oQ=##class(DS.PPS.TBX.Queue).%OpenId(ResultSet.Data("ID"))
Continue:oQ.Status="PB" ; sequencelijnen met status "PB" worden overgeslagen
Set Product = ProductAPI.GeefProduct(oQ.ProductGetObjectId())
- If (('Product.%Extends("DOM.PM.TBXProduct.TBXLadeMetUitsparing")) && (Product.GeefRugMateriaal() = ##class(DOM.PM.enu.TBXRugMateriaal).Staal()) && Product.BevatRug())
+ If (('Product.%Extends("DOM.PM.TBXProduct.TBXLadeMetUitsparing")) && (Product.GeefRugMateriaal() = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()) && Product.BevatRug())
{
Set Rug = Product.GeefRug()
Set RugPRNr = Rug.GeefPRNr()
Index: zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml
===================================================================
diff -u -r31421 -r38571
--- zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml (.../HalffabSelector.cls.xml) (revision 31421)
+++ zTryout/FM/DOM/PM/Maatwerk/HalffabSelector.cls.xml (.../HalffabSelector.cls.xml) (revision 38571)
@@ -463,7 +463,7 @@
Set IK.BodemKleur="UTLG" ; = UnitTest LichtGrijs
Set IK.RugHoogte="D"
Set IK.RugKleur="UTLG" ; = UnitTest LichtGrijs
- Set IK.RugMateriaal=##class(DOM.PM.enu.TBXRugMateriaal).Hout()
+ Set IK.RugMateriaal=##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
*/
Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
/*
Index: DOM/PM/TBXProduct/TBXRechteUitsparing.cls.xml
===================================================================
diff -u -r29059 -r38571
--- DOM/PM/TBXProduct/TBXRechteUitsparing.cls.xml (.../TBXRechteUitsparing.cls.xml) (revision 29059)
+++ DOM/PM/TBXProduct/TBXRechteUitsparing.cls.xml (.../TBXRechteUitsparing.cls.xml) (revision 38571)
@@ -15,11 +15,13 @@
1
%String
+
1
-DOM.PM.enu.TBXRugMateriaal
+DOM.PM.enu.TBXRugwandMateriaal
+
Index: DOM/PM/TBXProduct/impl/TBXSifonladeTypeBlumImpl.cls.xml
===================================================================
diff -u -r29059 -r38571
--- DOM/PM/TBXProduct/impl/TBXSifonladeTypeBlumImpl.cls.xml (.../TBXSifonladeTypeBlumImpl.cls.xml) (revision 29059)
+++ DOM/PM/TBXProduct/impl/TBXSifonladeTypeBlumImpl.cls.xml (.../TBXSifonladeTypeBlumImpl.cls.xml) (revision 38571)
@@ -106,17 +106,17 @@
1
-DOM.PM.enu.TBXRugMateriaal
+DOM.PM.enu.TBXRugwandMateriaal
Index: DOM/PM/TBXProduct/impl/TBXSpoelbakladeImpl.cls.xml
===================================================================
diff -u -r29059 -r38571
--- DOM/PM/TBXProduct/impl/TBXSpoelbakladeImpl.cls.xml (.../TBXSpoelbakladeImpl.cls.xml) (revision 29059)
+++ DOM/PM/TBXProduct/impl/TBXSpoelbakladeImpl.cls.xml (.../TBXSpoelbakladeImpl.cls.xml) (revision 38571)
@@ -51,7 +51,7 @@
1
-DOM.PM.enu.TBXRugMateriaal
+DOM.PM.enu.TBXRugwandMateriaal
Index: vhUnitTest/DOM/PM/Maatwerk/TBXProduct/TestTBXLade.cls.xml
===================================================================
diff -u -r38290 -r38571
--- vhUnitTest/DOM/PM/Maatwerk/TBXProduct/TestTBXLade.cls.xml (.../TestTBXLade.cls.xml) (revision 38290)
+++ vhUnitTest/DOM/PM/Maatwerk/TBXProduct/TestTBXLade.cls.xml (.../TestTBXLade.cls.xml) (revision 38571)
@@ -78,7 +78,7 @@
Do $$$AssertEquals(Product.GeefRugHoogteMM(),199,"D rughoogte")
Do $$$AssertEquals(Product.GeefRugKleur(),"LG","Rugkleur metaalgrijs")
Do $$$AssertEquals(Product.GeefRugHouderKleur(),"MG","Rughouderkleur metaalgrijs")
- Do $$$AssertEquals(Product.GeefRugMateriaal(),##class(DOM.PM.enu.TBXRugMateriaal).Hout(),"Rugmateriaal hout")
+ Do $$$AssertEquals(Product.GeefRugMateriaal(),##class(DOM.PM.enu.TBXRugwandMateriaal).Hout(),"Rugmateriaal hout")
Do $$$AssertTrue('$IsObject(Product.GeefTussenReling()),"Product heeft geen tussenreling")
Do $$$AssertEquals(Product.GeefUittrekbaarheid(),##class(DOM.PM.enu.TBXUittrekbaarheid).Volledig(),"Enkele uittrekbaarheid")
Do $$$AssertEquals(Product.GeefWandDikte(),0,"Wanddikte 0 (niet ingesteld)")
@@ -107,9 +107,9 @@
Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(1).GeefBreedteInBodem(),634+63,"Spoelbak is 697mm breed")
Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(1).GeefDiepte(),360,"Spoelbak is 360mm diep tov front")
Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(1).GeefDiepteInBodem(),360-24,"Spoelbak is 336mm diep in de bodem uitgewerkt")
- Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(1).GeefTussenrugMateriaal(),##class(DOM.PM.enu.TBXRugMateriaal).Hout(),"Tussenrugmateriaal is hout")
+ Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(1).GeefTussenrugMateriaal(),##class(DOM.PM.enu.TBXRugwandMateriaal).Hout(),"Tussenrugmateriaal is hout")
- Do $$$AssertEquals(Product.GeefRugMateriaal(),##class(DOM.PM.enu.TBXRugMateriaal).Hout(),"De rug is in hout")
+ Do $$$AssertEquals(Product.GeefRugMateriaal(),##class(DOM.PM.enu.TBXRugwandMateriaal).Hout(),"De rug is in hout")
// Testen TussenstukDiepte (bij LD=500)
Do $$$AssertEquals(Product.GeefLadeDiepte(),500,"Ladediepte van 500") ; ter controle
@@ -183,15 +183,15 @@
Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(1).GeefAfstandTotBodemRechts(),537-69,"Sifon zit 468mm van rechts van de bodem")
Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(1).GeefDiepte(),360,"Sifon is 360mm diep")
Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(1).GeefZijkantKleur(),"MG","Kleur van de binnenzijkant")
- Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(1).GeefTussenrugMateriaal(),##class(DOM.PM.enu.TBXRugMateriaal).Hout(),"Tussenrugmateriaal is hout")
+ Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(1).GeefTussenrugMateriaal(),##class(DOM.PM.enu.TBXRugwandMateriaal).Hout(),"Tussenrugmateriaal is hout")
Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(2).GeefAfstandTotZijkantLinks(),61+69+263+144,"Sifon zit 606.5mm van links van de zijkant")
Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(2).GeefAfstandTotZijkantRechts(),81+69,"Sifon zit 162.5mm van rechts van de zijkant")
Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(2).GeefAfstandTotBodemLinks(),61+263+144,"Sifon zit 162.5mm van links van de bodem")
Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(2).GeefAfstandTotBodemRechts(),81,"Sifon zit 81mm van rechts van de bodem")
Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(2).GeefDiepte(),360,"Sifon is 360mm diep")
Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(2).GeefZijkantKleur(),"MG","Kleur van de binnenzijkant")
- Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(2).GeefTussenrugMateriaal(),##class(DOM.PM.enu.TBXRugMateriaal).Hout(),"Tussenrugmateriaal is hout")
+ Do $$$AssertEquals(Product.GeefUitsparingen().GetAt(2).GeefTussenrugMateriaal(),##class(DOM.PM.enu.TBXRugwandMateriaal).Hout(),"Tussenrugmateriaal is hout")
]]>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml
===================================================================
diff -u -r30379 -r38571
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml (.../HFRugHouderv001.cls.xml) (revision 30379)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml (.../HFRugHouderv001.cls.xml) (revision 38571)
@@ -13,7 +13,7 @@
Set IngegevenKenmerken.RugHouderKleur ="SW"
Set IngegevenKenmerken.ZijwandHoogte = "B"
Set IngegevenKenmerken.RugHoogte = "B"
- Set IngegevenKenmerken.RugMateriaal = ##class(DOM.PM.enu.TBXRugMateriaal).Hout()
+ Set IngegevenKenmerken.RugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFRugHouderv001).%New("")
Index: APPS/PM/Maatwerk/TBX/Frees/Generator.cls.xml
===================================================================
diff -u -r29059 -r38571
--- APPS/PM/Maatwerk/TBX/Frees/Generator.cls.xml (.../Generator.cls.xml) (revision 29059)
+++ APPS/PM/Maatwerk/TBX/Frees/Generator.cls.xml (.../Generator.cls.xml) (revision 38571)
@@ -63,7 +63,7 @@
#dim Diepte As %Decimal = TandemBox.GeefBodemDiepte()
#dim Dikte As %Decimal = 16.1
- #dim Variabelen As %String ; Multi-dimensional
+ #dim Variabelen As %String ; Multi-dimensional
Set Variabelen("l") = Breedte // Bodemlengte = ladebreedte
Set Variabelen("b") = Diepte // Bodembreedte = ladediepte
@@ -100,7 +100,7 @@
If (Uitsparingen.GetAt(1).IsRechteUitsparing())
{
Set Variabelen("CorrSp") = 0.8
- If (Uitsparingen.GetAt(1).GeefTussenrugMateriaal() = ##class(DOM.PM.enu.TBXRugMateriaal).Hout())
+ If (Uitsparingen.GetAt(1).GeefTussenrugMateriaal() = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout())
{
Set Variabelen("CorrSp") = Variabelen("CorrSp") + 3 // extra uitsparing nodig bij houten ruggen
}
Index: APPS/Halux/PPS/TBXZaag/Opdrachten.cls.xml
===================================================================
diff -u -r29059 -r38571
--- APPS/Halux/PPS/TBXZaag/Opdrachten.cls.xml (.../Opdrachten.cls.xml) (revision 29059)
+++ APPS/Halux/PPS/TBXZaag/Opdrachten.cls.xml (.../Opdrachten.cls.xml) (revision 38571)
@@ -120,7 +120,7 @@
{
If Lade.BevatBodem() && 'Lade.GeefBodem().HeeftInkeping()
{
- If (Lade.BevatRug())&&(Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout())&&(SubBatch'=##class(APPS.Halux.PPS.TBXZaag.enu.SubBatch).SpoelbakSifon())
+ If (Lade.BevatRug())&&(Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugwandMateriaal).Hout())&&(SubBatch'=##class(APPS.Halux.PPS.TBXZaag.enu.SubBatch).SpoelbakSifon())
{
Set Code=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug()
}
@@ -129,7 +129,7 @@
Set Code=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem()
}
}
- Elseif Lade.BevatRug()&&(Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout())
+ Elseif Lade.BevatRug()&&(Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugwandMateriaal).Hout())
{
If (SubBatch'=##class(APPS.Halux.PPS.TBXZaag.enu.SubBatch).SpoelbakSifon())
{
Index: EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml
===================================================================
diff -u -r38425 -r38571
--- EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 38425)
+++ EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 38571)
@@ -183,7 +183,7 @@
Do ..ConverterData.Add(PropertyName,PropertyName)
}
Do ..ConverterData.Add("LadeHoogte", "RugHoogte")
- Do ..ConverterData.Add("TussenrugMateriaal","TussenrugMateriaal","Set Output = $Case(Input, ""W"":##class(DOM.PM.enu.TBXRugMateriaal).Hout(), ""S"":##class(DOM.PM.enu.TBXRugMateriaal).Staal(), :Input)")
+ Do ..ConverterData.Add("TussenrugMateriaal","TussenrugMateriaal","Set Output = $Case(Input, ""W"":##class(DOM.PM.enu.TBXRugwandMateriaal).Hout(), ""S"":##class(DOM.PM.enu.TBXRugwandMateriaal).Staal(), :Input)")
Quit ..ConverterData
]]>
Index: DOM/PM/enu/TBXRugwandMateriaal.cls.xml
===================================================================
diff -u -r38307 -r38571
--- DOM/PM/enu/TBXRugwandMateriaal.cls.xml (.../TBXRugwandMateriaal.cls.xml) (revision 38307)
+++ DOM/PM/enu/TBXRugwandMateriaal.cls.xml (.../TBXRugwandMateriaal.cls.xml) (revision 38571)
@@ -4,11 +4,11 @@
TECH.Enumeration
-;Hout;Staal
+,Hout,Staal
-;Hout;Staal
+,Hout,Staal
Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml
===================================================================
diff -u -r38570 -r38571
--- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38570)
+++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38571)
@@ -36,9 +36,9 @@
Set TBXKenmerken.RugKleur = "DG"
Set TBXKenmerken.RugHouderKleur = "RHK"
Set TBXKenmerken.RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).N()
- Set TBXKenmerken.RugMateriaal = ##class(DOM.PM.enu.TBXRugMateriaal).Hout()
+ Set TBXKenmerken.RugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
Set TBXKenmerken.SpoelbakBinnenzijwandHoogte = "M"
- Set TBXKenmerken.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugMateriaal).Staal()
+ Set TBXKenmerken.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
Set TBXKenmerken.UitsparingZijkantKleur = "SZK"
Set TBXKenmerken.HeeftZijstabilisering = 1
Set TBXKenmerken.UitsparingBreedte1 = 102
Index: DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml
===================================================================
diff -u -r38570 -r38571
--- DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 38570)
+++ DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 38571)
@@ -105,7 +105,7 @@
-DOM.PM.enu.TBXRugMateriaal
+DOM.PM.enu.TBXRugwandMateriaal
@@ -118,7 +118,7 @@
-DOM.PM.enu.TBXRugMateriaal
+DOM.PM.enu.TBXRugwandMateriaal
@@ -269,7 +269,7 @@
Set ..FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontSteun()
Set ..HangmapBoringAantal = 0
Set ..DwarsverdelingAantal = ##class(DOM.PM.enu.TBXDwarsverdeling).Zonder()
- Set ..RugMateriaal = ##class(DOM.PM.enu.TBXRugMateriaal).Hout()
+ Set ..RugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
Set ..Verpakking = ##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen() ; Stuk
Set ..PlaatMateriaal="HS"
]]>
Index: DOM/PM/TBXProduct/TBXRug.cls.xml
===================================================================
diff -u -r29059 -r38571
--- DOM/PM/TBXProduct/TBXRug.cls.xml (.../TBXRug.cls.xml) (revision 29059)
+++ DOM/PM/TBXProduct/TBXRug.cls.xml (.../TBXRug.cls.xml) (revision 38571)
@@ -13,20 +13,24 @@
%Integer
+
DOM.PM.enu.TBXRugHoogte
+
1
%Integer
+
1
-DOM.PM.enu.TBXRugMateriaal
+DOM.PM.enu.TBXRugwandMateriaal
+
Index: APPS/PM/Maatwerk/dto/TBXKenmerken.cls.xml
===================================================================
diff -u -r38568 -r38571
--- APPS/PM/Maatwerk/dto/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 38568)
+++ APPS/PM/Maatwerk/dto/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 38571)
@@ -102,7 +102,7 @@
-DOM.PM.enu.TBXRugMateriaal
+DOM.PM.enu.TBXRugwandMateriaal
@@ -119,7 +119,7 @@
-DOM.PM.enu.TBXRugMateriaal
+DOM.PM.enu.TBXRugwandMateriaal
Index: zTryout/FM/TBX/ZaagEtiket.cls.xml
===================================================================
diff -u -r29059 -r38571
--- zTryout/FM/TBX/ZaagEtiket.cls.xml (.../ZaagEtiket.cls.xml) (revision 29059)
+++ zTryout/FM/TBX/ZaagEtiket.cls.xml (.../ZaagEtiket.cls.xml) (revision 38571)
@@ -90,7 +90,7 @@
. Set pxLabel.BreedteB=IB-75
set Lade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
- if Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout() {
+ if Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugwandMateriaal).Hout() {
set pxLabel.RWHInfo = "RWH: "_Lade.GeefRugHouderKleur()_" "_Lade.GeefZijwandHoogte()
if Lade.BevatVerlaagdeRug() {
set pxLabel.RugInfo = "VRug "_RH_":"_pxLabel.RHNet_" "_pxLabel.BreedteR_" #"_pxLabel.Bor
@@ -101,7 +101,7 @@
set pxLabel.RWHInfo = pxLabel.RWHInfo_" .22"
}
}
- elseif Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Staal() {
+ elseif Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() {
Set pxLabel.RugInfo = "StalenRug: "_Lade.GeefRugKleur()_" "_Lade.GeefRugHoogte()_" "_(pxLabel.IB-28)
Set pxLabel.RWHInfo = "RWH: -- -- --"
}
Index: DOM/PM/TBXProduct/impl/TBXRugOpMaatImpl.cls.xml
===================================================================
diff -u -r29214 -r38571
--- DOM/PM/TBXProduct/impl/TBXRugOpMaatImpl.cls.xml (.../TBXRugOpMaatImpl.cls.xml) (revision 29214)
+++ DOM/PM/TBXProduct/impl/TBXRugOpMaatImpl.cls.xml (.../TBXRugOpMaatImpl.cls.xml) (revision 38571)
@@ -21,8 +21,8 @@
-DOM.PM.enu.TBXRugMateriaal
-DOM.PM.enu.TBXRugwandMateriaal
+
Index: BL/PPS/TBX/DocRugwandhouderLijst.cls.xml
===================================================================
diff -u -r30901 -r38571
--- BL/PPS/TBX/DocRugwandhouderLijst.cls.xml (.../DocRugwandhouderLijst.cls.xml) (revision 30901)
+++ BL/PPS/TBX/DocRugwandhouderLijst.cls.xml (.../DocRugwandhouderLijst.cls.xml) (revision 38571)
@@ -45,7 +45,7 @@
#dim PRNr As DOM.common.ProductID = oQ.ProductGetObjectId()
#dim Lade As DOM.PM.TBXProduct.TBXLade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
- If (Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout()) &&
+ If (Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()) &&
( Lade.%Extends("DOM.PM.TBXProduct.TBXLadeMetUitsparing") || (Lade.GeefBlumotion() = ##class(DOM.PM.enu.TBXBlumotion).TipOn()) )
{
For BouwsteenLabel = "PRRUGLI.001","PRRUGRE.001","PRRUGSPLI.001","PRRUGSPRE.001"
Index: zTryout/FM/TBX/LadeFinder.cls.xml
===================================================================
diff -u -r29059 -r38571
--- zTryout/FM/TBX/LadeFinder.cls.xml (.../LadeFinder.cls.xml) (revision 29059)
+++ zTryout/FM/TBX/LadeFinder.cls.xml (.../LadeFinder.cls.xml) (revision 38571)
@@ -164,7 +164,7 @@
#dim Rug As DOM.PM.TBXProduct.TBXRug = Product.GeefRug()
If ((Rug ="") || (Rug.GeefID() = 89322) || (Rug.GeefID() = 89325)) {
Set Resultaat = 0 // skip laden waarvan de rug is vervangen door het generisch product
- } ElseIf (Rug.GeefMateriaal() = ##class(DOM.PM.enu.TBXRugMateriaal).Staal()) {
+ } ElseIf (Rug.GeefMateriaal() = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()) {
Set Resultaat = 1
} Else {
Set Resultaat = 0
Index: zTryout/FM/BL/PPS/TBX/EtiketSimulatie.cls.xml
===================================================================
diff -u -r29059 -r38571
--- zTryout/FM/BL/PPS/TBX/EtiketSimulatie.cls.xml (.../EtiketSimulatie.cls.xml) (revision 29059)
+++ zTryout/FM/BL/PPS/TBX/EtiketSimulatie.cls.xml (.../EtiketSimulatie.cls.xml) (revision 38571)
@@ -73,7 +73,7 @@
set Lade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
- if Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout() {
+ if Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugwandMateriaal).Hout() {
set pxLabel.RWHInfo = "RWH: "_Lade.GeefRugHouderKleur()_" "_Lade.GeefZijwandHoogte()
if Lade.BevatVerlaagdeRug() {
set pxLabel.RugInfo = "VRug "_RH_":"_pxLabel.RHNet_" "_pxLabel.BreedteR_" #"_pxLabel.Bor
@@ -85,7 +85,7 @@
set pxLabel.RugInfo = "Rug: "_pxLabel.RHNet_" "_pxLabel.BreedteR_" #"_pxLabel.Bor
}
}
- elseif Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Staal() {
+ elseif Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() {
Set pxLabel.RugInfo = "StalenRug: "_Lade.GeefRugKleur()_" "_Lade.GeefRugHoogte()_" "_(pxLabel.IB-28)
Set pxLabel.RWHInfo = "RWH: -- -- --"
}
Index: vhTest/Mock/DOM/PM/TBXProduct/TBXLade.cls.xml
===================================================================
diff -u -r34548 -r38571
--- vhTest/Mock/DOM/PM/TBXProduct/TBXLade.cls.xml (.../TBXLade.cls.xml) (revision 34548)
+++ vhTest/Mock/DOM/PM/TBXProduct/TBXLade.cls.xml (.../TBXLade.cls.xml) (revision 38571)
@@ -363,7 +363,7 @@
-DOM.PM.enu.TBXRugMateriaal
+DOM.PM.enu.TBXRugwandMateriaal