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