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
]]>