Index: DOM/PM/Maatwerk/Calc/Kost/StandaardActiviteitKostItemBuilder.cls.xml =================================================================== diff -u -r1075 -r1874 --- DOM/PM/Maatwerk/Calc/Kost/StandaardActiviteitKostItemBuilder.cls.xml (.../StandaardActiviteitKostItemBuilder.cls.xml) (revision 1075) +++ DOM/PM/Maatwerk/Calc/Kost/StandaardActiviteitKostItemBuilder.cls.xml (.../StandaardActiviteitKostItemBuilder.cls.xml) (revision 1874) @@ -66,19 +66,13 @@ 1 - -%Integer -1 -1 - - DOM.PM.Maatwerk.Calc.Kost.KostContext 1 -SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder,Naam:%String,KostenPlaats:%String,Variabele:DOM.PM.Maatwerk.Calc.Kost.IMultiplier,Factor:DOM.PM.Maatwerk.Calc.Kost.IMultiplier,VariabeleKost:%Float,VasteKost:%Float,MinimumKost:%Float,ActiviteitNr:%Integer +SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder,Naam:%String,KostenPlaats:%String,ActiviteitNr:%Integer,Variabele:DOM.PM.Maatwerk.Calc.Kost.IMultiplier,Factor:DOM.PM.Maatwerk.Calc.Kost.IMultiplier,VariabeleKost:%Float,VasteKost:%Float,MinimumKost:%Float 1 1 %Status @@ -89,8 +83,7 @@ Set ..VariabeleKost = VariabeleKost Set ..VasteKost = VasteKost Set ..MinimumKost = MinimumKost - Set ..ActiviteitNr = ActiviteitNr - Quit ##super(SamengesteldKostItemBuilder, Naam, KostenPlaats) + Quit ##super(SamengesteldKostItemBuilder, Naam, KostenPlaats, ActiviteitNr) ]]> @@ -111,7 +104,7 @@ Set GeldKost = KostPerTijd * TijdsKost - Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem).%New(..Naam, GeldKost, KostPerTijd_"*"_Factor_"*Max("_..GeefMinimumKost()_", ("_..GeefVariabeleKost()_"*"_Variabele_") + "_..GeefVasteKost()_")",TijdsKost,..ActiviteitNr,..GeefKostenPlaats()) + Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem).%New(..Naam, GeldKost, KostPerTijd_"*"_Factor_"*Max("_..GeefMinimumKost()_", ("_..GeefVariabeleKost()_"*"_Variabele_") + "_..GeefVasteKost()_")",TijdsKost,..GeefActiviteitNr(),..GeefKostenPlaats()) } Quit KostItem ]]> Index: DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanVoorbereiden.cls.xml =================================================================== diff -u -r1075 -r1874 --- DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanVoorbereiden.cls.xml (.../PlanVoorbereiden.cls.xml) (revision 1075) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanVoorbereiden.cls.xml (.../PlanVoorbereiden.cls.xml) (revision 1874) @@ -31,7 +31,7 @@ Set VariabeleKost = 0 Set VasteKost = 30 Set MinimumKost = 0 - Set PersenSpoelbakSifon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Snijden hulzen",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set PersenSpoelbakSifon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Snijden hulzen",KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do PersenSpoelbakSifon.GebruikEvaluator(V1VerpakkingEvaluator) // Picking zijkanten @@ -41,7 +41,7 @@ Set VariabeleKost = 0 Set VasteKost = (10+20)/2 Set MinimumKost = 0 - Set PersenSpoelbakSifon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Picking zijkanten",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set PersenSpoelbakSifon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Picking zijkanten",KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) // Picking onderdelen Set ActiviteitNr = 13 @@ -50,7 +50,7 @@ Set VariabeleKost = 0 Set VasteKost = (10+30)/2 Set MinimumKost = 0 - Set PersenSpoelbakSifon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Picking onderdelen",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set PersenSpoelbakSifon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Picking onderdelen",KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Quit Status ]]> Index: DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostVoorbereidenv001.cls.xml =================================================================== diff -u -r1528 -r1874 --- DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostVoorbereidenv001.cls.xml (.../KostVoorbereidenv001.cls.xml) (revision 1528) +++ DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostVoorbereidenv001.cls.xml (.../KostVoorbereidenv001.cls.xml) (revision 1874) @@ -32,7 +32,7 @@ Set VariabeleKost = 0 Set VasteKost = 10 Set MinimumKost = 0 - Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats,ActiviteitNr,Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) @@ -44,7 +44,7 @@ Set VariabeleKost = 0 Set VasteKost = 10 Set MinimumKost = 0 - Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) @@ -56,7 +56,7 @@ Set VariabeleKost = 0 Set VasteKost = 67 Set MinimumKost = 0 - Set ZagenBodemRug = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set ZagenBodemRug = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do ZagenBodemRug.GebruikEvaluator(##class(DOM.PM.Maatwerk.Calc.Kost.OfEvaluator).%New(RugAanwezigEvaluator,BodemAanwezigEvaluator)) @@ -69,7 +69,7 @@ Set VariabeleKost = 0 Set VasteKost = 10 Set MinimumKost = 0 - Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) @@ -81,7 +81,7 @@ Set VariabeleKost = 0 Set VasteKost = 30 Set MinimumKost = 0 - Set BorenBodem = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set BorenBodem = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do BorenBodem.GebruikEvaluator(BodemAanwezigEvaluator) @@ -94,7 +94,7 @@ Set VariabeleKost = 0 Set VasteKost = 60 Set MinimumKost = 0 - Set FrezenBorenRug = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set FrezenBorenRug = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do FrezenBorenRug.GebruikEvaluator(RugAanwezigEvaluator) @@ -107,7 +107,7 @@ Set VariabeleKost = 0 Set VasteKost = 5 Set MinimumKost = 0 - Set VoorbereidenZagenFront = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set VoorbereidenZagenFront = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do VoorbereidenZagenFront.GebruikEvaluator(FrontAanwezigEvaluator) @@ -120,7 +120,7 @@ Set VariabeleKost = 0 Set VasteKost = 5 Set MinimumKost = 0 - Set VoorbereidenMonterenFront = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set VoorbereidenMonterenFront = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do VoorbereidenMonterenFront.GebruikEvaluator(FrontAanwezigEvaluator) @@ -133,7 +133,7 @@ Set VariabeleKost = 0 Set VasteKost = 67 Set MinimumKost = 0 - Set ZagenFront = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set ZagenFront = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do ZagenFront.GebruikEvaluator(FrontAanwezigEvaluator) @@ -146,7 +146,7 @@ Set VariabeleKost = 0 Set VasteKost = 60 Set MinimumKost = 0 - Set FrezenBorenFront = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set FrezenBorenFront = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do FrezenBorenFront.GebruikEvaluator(FrontAanwezigEvaluator) Quit $$$OK Index: DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanZagenv001.cls.xml =================================================================== diff -u -r1075 -r1874 --- DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanZagenv001.cls.xml (.../PlanZagenv001.cls.xml) (revision 1075) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanZagenv001.cls.xml (.../PlanZagenv001.cls.xml) (revision 1874) @@ -29,7 +29,7 @@ Set VariabeleKost = 0 Set VasteKost = 25 Set MinimumKost = 0 - Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Lade zagen",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Lade zagen",KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Quit Status ]]> Index: DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostAfwerkenv001.cls.xml =================================================================== diff -u -r1528 -r1874 --- DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostAfwerkenv001.cls.xml (.../KostAfwerkenv001.cls.xml) (revision 1528) +++ DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostAfwerkenv001.cls.xml (.../KostAfwerkenv001.cls.xml) (revision 1874) @@ -29,7 +29,7 @@ Set VariabeleKost = 0 Set VasteKost = 30 Set MinimumKost = 0 - Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) @@ -41,7 +41,7 @@ Set VariabeleKost = 0 Set VasteKost = 57 Set MinimumKost = 0 - Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) @@ -53,7 +53,7 @@ Set VariabeleKost = 0 Set VasteKost = 45 Set MinimumKost = 0 - Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) @@ -65,7 +65,7 @@ Set VariabeleKost = 0 Set VasteKost = 50 Set MinimumKost = 0 - Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) @@ -77,7 +77,7 @@ Set VariabeleKost = 0 Set VasteKost = 50 Set MinimumKost = 0 - Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) @@ -89,7 +89,7 @@ Set VariabeleKost = 0 Set VasteKost = 30 Set MinimumKost = 0 - Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) @@ -101,7 +101,7 @@ Set VariabeleKost = 0 Set VasteKost = 30 Set MinimumKost = 0 - Set OpkuisenFront = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set OpkuisenFront = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do OpkuisenFront.GebruikEvaluator(FrontAanwezigEvaluator) @@ -114,7 +114,7 @@ Set VariabeleKost = 0 Set VasteKost = 15 Set MinimumKost = 0 - Set ControlerenFront = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set ControlerenFront = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do ControlerenFront.GebruikEvaluator(FrontAanwezigEvaluator) Index: vhUnitTest/DOM/PM/Maatwerk/OLM/TestBuilders.cls.xml =================================================================== diff -u -r1177 -r1874 --- vhUnitTest/DOM/PM/Maatwerk/OLM/TestBuilders.cls.xml (.../TestBuilders.cls.xml) (revision 1177) +++ vhUnitTest/DOM/PM/Maatwerk/OLM/TestBuilders.cls.xml (.../TestBuilders.cls.xml) (revision 1874) @@ -87,6 +87,8 @@ %Status 1 + +%Integer +1 +1 + + -SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder,Naam:%String,KostenPlaats:%String +SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder,Naam:%String,KostenPlaats:%String,ActiviteitNr:%Integer 1 1 %Status @@ -30,6 +37,12 @@ ]]> + +%Integer + + + %Library.CacheStorage ActiviteitKostItemBuilderDefaultData @@ -39,6 +52,9 @@ KostenPlaats + +ActiviteitNr + Index: DOM/PM/Maatwerk/Calc/Kost/impl/OLM/KostZagenv001.cls.xml =================================================================== diff -u -r1075 -r1874 --- DOM/PM/Maatwerk/Calc/Kost/impl/OLM/KostZagenv001.cls.xml (.../KostZagenv001.cls.xml) (revision 1075) +++ DOM/PM/Maatwerk/Calc/Kost/impl/OLM/KostZagenv001.cls.xml (.../KostZagenv001.cls.xml) (revision 1874) @@ -29,7 +29,7 @@ // Kosten voor de zaagsnede Set ActiviteitNr = 1 //Set Variabele = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.OLM.VariabeleAantalProducten).%New() - Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Zaagwerk",KostenPlaats, MultiplierFixedNul, MultiplierFixedEen,0,35,0,ActiviteitNr) + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Zaagwerk",KostenPlaats, ActiviteitNr, MultiplierFixedNul, MultiplierFixedEen,0,35,0) Do ##class(DOM.PM.Maatwerk.Calc.Kost.ExtraKostItemBuilder).%New(##this,"Zaagwerk surplus",0.045) Quit Status Index: DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanBewerkenv001.cls.xml =================================================================== diff -u -r1075 -r1874 --- DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanBewerkenv001.cls.xml (.../PlanBewerkenv001.cls.xml) (revision 1075) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanBewerkenv001.cls.xml (.../PlanBewerkenv001.cls.xml) (revision 1874) @@ -33,7 +33,7 @@ Set VariabeleKost = 0 Set VasteKost = 87 Set MinimumKost = 0 - Set KostBewerkenTipon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"TIP-ON bewerkingen",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set KostBewerkenTipon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"TIP-ON bewerkingen",KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do KostBewerkenTipon.GebruikEvaluator(##class(DOM.PM.Maatwerk.Calc.Kost.impl.TBX.BevatTiponEvaluator).%New()) // TODO: Correcte formule bepalen voor sifon/spoelbak bewerkingen @@ -44,7 +44,7 @@ Set VariabeleKost = 0 Set VasteKost = (694-393)/2 Set MinimumKost = 0 - Set KostBewerkenTipon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Sifon/spoelbak bewerkingen",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set KostBewerkenTipon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Sifon/spoelbak bewerkingen",KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do KostBewerkenTipon.GebruikEvaluator(SpoelbakOfSifonEvaluator) Quit Status Index: DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanInkortenv001.cls.xml =================================================================== diff -u -r1075 -r1874 --- DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanInkortenv001.cls.xml (.../PlanInkortenv001.cls.xml) (revision 1075) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanInkortenv001.cls.xml (.../PlanInkortenv001.cls.xml) (revision 1874) @@ -29,7 +29,7 @@ Set VariabeleKost = 0 Set VasteKost = 60 Set MinimumKost = 0 - Set InkortenZijReling = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Inkorten zijreling",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set InkortenZijReling = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Inkorten zijreling",KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do InkortenZijReling.GebruikEvaluator(##class(DOM.PM.Maatwerk.Calc.Kost.BewerkingNodigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).ZijReling(), "Lengte")) // Inkorten frontreling @@ -39,7 +39,7 @@ Set VariabeleKost = 0 Set VasteKost = 60 Set MinimumKost = 0 - Set InkortenFrontReling = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Inkorten frontreling",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set InkortenFrontReling = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Inkorten frontreling",KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do InkortenFrontReling.GebruikEvaluator(##class(DOM.PM.Maatwerk.Calc.Kost.BewerkingNodigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).FrontReling(), "Lengte")) // Inkorten front @@ -49,7 +49,7 @@ Set VariabeleKost = 0 Set VasteKost = 90 Set MinimumKost = 0 - Set InkortenFrontReling = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Inkorten front",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set InkortenFrontReling = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Inkorten front",KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do InkortenFrontReling.GebruikEvaluator(##class(DOM.PM.Maatwerk.Calc.Kost.BewerkingNodigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Front(), "Lengte")) // Inkorten inschuifelement @@ -59,7 +59,7 @@ Set VariabeleKost = 0 Set VasteKost = 90 Set MinimumKost = 0 - Set InkortenInschuifElement = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Inkorten inschuifelement",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set InkortenInschuifElement = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Inkorten inschuifelement",KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Set LengteBewerkt = ##class(DOM.PM.Maatwerk.Calc.Kost.BewerkingNodigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).InschuifElement(), "Lengte") Set BreedteBewerkt = ##class(DOM.PM.Maatwerk.Calc.Kost.BewerkingNodigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).InschuifElement(), "Breedte") @@ -73,7 +73,7 @@ Set VariabeleKost = 0 Set VasteKost = 30 Set MinimumKost = 0 - Set InkortenMat = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Inkorten matten",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set InkortenMat = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Inkorten matten",KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Set LengteBewerkt = ##class(DOM.PM.Maatwerk.Calc.Kost.BewerkingNodigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Antislipmat(), "Lengte") Set BreedteBewerkt = ##class(DOM.PM.Maatwerk.Calc.Kost.BewerkingNodigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Antislipmat(), "Breedte") Index: DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostMontagev001.cls.xml =================================================================== diff -u -r1528 -r1874 --- DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostMontagev001.cls.xml (.../KostMontagev001.cls.xml) (revision 1528) +++ DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostMontagev001.cls.xml (.../KostMontagev001.cls.xml) (revision 1874) @@ -36,7 +36,7 @@ Set VariabeleKost = 0 Set VasteKost = 90 Set MinimumKost = 0 - Set ZijkantVerlijmen = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set ZijkantVerlijmen = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do ZijkantVerlijmen.GebruikEvaluator(ZijkantAanwezigEvaluator) @@ -49,7 +49,7 @@ Set VariabeleKost = 0 Set VasteKost = 45 Set MinimumKost = 0 - Set RugVerlijmen = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set RugVerlijmen = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do RugVerlijmen.GebruikEvaluator(RugAanwezigEvaluator) @@ -62,7 +62,7 @@ Set VariabeleKost = 0 Set VasteKost = 20 Set MinimumKost = 0 - Set RugBodemVastschroeven = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set RugBodemVastschroeven = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do RugBodemVastschroeven.GebruikEvaluator(##class(DOM.PM.Maatwerk.Calc.Kost.OfEvaluator).%New(RugAanwezigEvaluator,BodemAanwezigEvaluator)) @@ -75,7 +75,7 @@ Set VariabeleKost = 0 Set VasteKost = 45 Set MinimumKost = 0 - Set TandemKoppeling = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set TandemKoppeling = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do TandemKoppeling.GebruikEvaluator(TandemKoppelingAanwezigEvaluator) @@ -88,7 +88,7 @@ Set VariabeleKost = 0 Set VasteKost = 15 Set MinimumKost = 0 - Set UitpakkenZijkanten = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set UitpakkenZijkanten = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do UitpakkenZijkanten.GebruikEvaluator(ZijkantAanwezigEvaluator) @@ -101,7 +101,7 @@ Set VariabeleKost = 0 Set VasteKost = 15 Set MinimumKost = 0 - Set UitpakkenTandem = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set UitpakkenTandem = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do UitpakkenTandem.GebruikEvaluator(GlijderAanwezigEvaluator) @@ -114,7 +114,7 @@ Set VariabeleKost = 0 Set VasteKost = 10 Set MinimumKost = 0 - Set LegeVerpakkingVerwijderen = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set LegeVerpakkingVerwijderen = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do LegeVerpakkingVerwijderen.GebruikEvaluator(##class(DOM.PM.Maatwerk.Calc.Kost.OfEvaluator).%New(GlijderAanwezigEvaluator,ZijkantAanwezigEvaluator)) @@ -127,7 +127,7 @@ Set VariabeleKost = 0 Set VasteKost = 30 Set MinimumKost = 0 - Set FrontBevestigingMonteren = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set FrontBevestigingMonteren = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do FrontBevestigingMonteren.GebruikEvaluator(FrontAanwezigEvaluator) @@ -140,7 +140,7 @@ Set VariabeleKost = 0 Set VasteKost = 60 Set MinimumKost = 0 - Set FrontBevestigingMonteren = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set FrontBevestigingMonteren = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do FrontBevestigingMonteren.GebruikEvaluator(FrontAanwezigEvaluator) Quit $$$OK Index: DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersenv001.cls.xml =================================================================== diff -u -r1075 -r1874 --- DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersenv001.cls.xml (.../PlanPersenv001.cls.xml) (revision 1075) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersenv001.cls.xml (.../PlanPersenv001.cls.xml) (revision 1874) @@ -34,7 +34,7 @@ Set VariabeleKost = 0 Set VasteKost = (16+31)/2 Set MinimumKost = 0 - Set PersenSpoelbakSifon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Persen spoelbak/sifon",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set PersenSpoelbakSifon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Persen spoelbak/sifon",KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do PersenSpoelbakSifon.GebruikEvaluator(SpoelbakOfSifonEvaluator) // Persen van een lade op lijn 1 @@ -44,7 +44,7 @@ Set VariabeleKost = 0 Set VasteKost = (82+127)/2 Set MinimumKost = 0 - Set PersenLijn1 = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Persen op pers1",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set PersenLijn1 = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Persen op pers1",KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) // Persen van een lade op lijn 2 Set ActiviteitNr = 9 @@ -53,7 +53,7 @@ Set VariabeleKost = 0 Set VasteKost = 95 Set MinimumKost = 0 - Set PersenLijn2 = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Persen op pers2",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) + Set PersenLijn2 = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Persen op pers2",KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Quit Status ]]> Index: DOM/PM/Maatwerk/Calc/Kost/impl/KAD/KostZagenv001.cls.xml =================================================================== diff -u -r1075 -r1874 --- DOM/PM/Maatwerk/Calc/Kost/impl/KAD/KostZagenv001.cls.xml (.../KostZagenv001.cls.xml) (revision 1075) +++ DOM/PM/Maatwerk/Calc/Kost/impl/KAD/KostZagenv001.cls.xml (.../KostZagenv001.cls.xml) (revision 1874) @@ -37,16 +37,16 @@ // Kosten voor het halen van profielen Set ActiviteitNr = 1 Set FactorHalenProfielen = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KAD.Zagen.FactorHalenProfielen).%New() - Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Halen profielen",KostenPlaats, MultiplierFixedNul, FactorHalenProfielen,0,30,0,ActiviteitNr) + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Halen profielen",KostenPlaats, ActiviteitNr, MultiplierFixedNul, FactorHalenProfielen,0,30,0) // Maat instellen Set ActiviteitNr = 2 - Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Maat instellen",KostenPlaats, MultiplierFixedNul, StaffelMultiplier,0,20,0,ActiviteitNr) + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Maat instellen",KostenPlaats, ActiviteitNr, MultiplierFixedNul, StaffelMultiplier,0,20,0) // Doorschuiven profiel Set ActiviteitNr = 3 Set VariabeleDoorschuivenProfiel = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KAD.Zagen.VariabeleDoorschuivenProfielen).%New() - Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Doorschuiven profiel",KostenPlaats, VariabeleDoorschuivenProfiel, MultiplierFixedTwee,1,8,9,ActiviteitNr) + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Doorschuiven profiel",KostenPlaats, ActiviteitNr, VariabeleDoorschuivenProfiel, MultiplierFixedTwee,1,8,9) Quit Status ]]>