Index: DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostAfwerkenv001.cls.xml
===================================================================
diff -u -r1506 -r1510
--- DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostAfwerkenv001.cls.xml (.../KostAfwerkenv001.cls.xml) (revision 1506)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostAfwerkenv001.cls.xml (.../KostAfwerkenv001.cls.xml) (revision 1510)
@@ -14,16 +14,12 @@
Index: DOM/PM/Maatwerk/Calc/HF/impl/WriterVisitor.cls.xml
===================================================================
diff -u -r1075 -r1510
--- DOM/PM/Maatwerk/Calc/HF/impl/WriterVisitor.cls.xml (.../WriterVisitor.cls.xml) (revision 1075)
+++ DOM/PM/Maatwerk/Calc/HF/impl/WriterVisitor.cls.xml (.../WriterVisitor.cls.xml) (revision 1510)
@@ -10,7 +10,7 @@
%Status
@@ -30,7 +30,7 @@
%Status
@@ -40,7 +40,7 @@
%Status
@@ -57,5 +57,20 @@
Quit Indentatie
]]>
+
+
+UnID
+1
+%String
+
+
Index: DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostMontagev001.cls.xml
===================================================================
diff -u -r1506 -r1510
--- DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostMontagev001.cls.xml (.../KostMontagev001.cls.xml) (revision 1506)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostMontagev001.cls.xml (.../KostMontagev001.cls.xml) (revision 1510)
@@ -24,6 +24,7 @@
Set ZijkantAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).LadeZijkant())
Set TandemKoppelingAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).TandemKoppeling())
Set GlijderAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Glijder())
+ Set FrontAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Front())
// TODO: Correcte kostenplaats definiëren
Set KostenPlaats = "TBZAAG"
@@ -112,6 +113,29 @@
Do LegeVerpakkingVerwijderen.GebruikEvaluator(##class(DOM.PM.Maatwerk.Calc.Kost.OfEvaluator).%New(GlijderAanwezigEvaluator,ZijkantAanwezigEvaluator))
+
+ Set ActiviteitNr = 23
+ Set ActiviteitNaam = "Frontbevestiging monteren"
+ Set Variabele = MultiplierFixedNul
+ Set Factor = MultiplierFixedEen
+ 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)
+ Do FrontBevestigingMonteren.GebruikEvaluator(FrontAanwezigEvaluator)
+
+
+
+ Set ActiviteitNr = 26
+ Set ActiviteitNaam = "Front monteren"
+ Set Variabele = MultiplierFixedNul
+ Set Factor = MultiplierFixedEen
+ 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)
+ Do FrontBevestigingMonteren.GebruikEvaluator(FrontAanwezigEvaluator)
+
Quit $$$OK
]]>
Index: DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostVoorbereidenv001.cls.xml
===================================================================
diff -u -r1506 -r1510
--- DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostVoorbereidenv001.cls.xml (.../KostVoorbereidenv001.cls.xml) (revision 1506)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostVoorbereidenv001.cls.xml (.../KostVoorbereidenv001.cls.xml) (revision 1510)
@@ -21,6 +21,7 @@
Set RugAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Rug())
Set BodemAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Bodem())
+ Set FrontAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Front())
// TODO: Correcte kostenplaats definiëren
Set KostenPlaats = "TBZAAG"
@@ -93,6 +94,54 @@
Set FrezenBorenRug = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr)
Do FrezenBorenRug.GebruikEvaluator(RugAanwezigEvaluator)
+
+
+ Set ActiviteitNr = 20
+ Set ActiviteitNaam = "Werkplaatsvoorbereiding zagen (front)"
+ Set Variabele = MultiplierFixedNul
+ Set Factor = MultiplierFixedEen
+ 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)
+ Do VoorbereidenZagenFront.GebruikEvaluator(FrontAanwezigEvaluator)
+
+
+
+ Set ActiviteitNr = 21
+ Set ActiviteitNaam = "Werkplaatsvoorbereiding monteren (front)"
+ Set Variabele = MultiplierFixedNul
+ Set Factor = MultiplierFixedEen
+ 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)
+ Do VoorbereidenMonterenFront.GebruikEvaluator(FrontAanwezigEvaluator)
+
+
+
+ Set ActiviteitNr = 22
+ Set ActiviteitNaam = "Zagen front"
+ Set Variabele = MultiplierFixedNul
+ Set Factor = MultiplierFixedEen
+ 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)
+ Do ZagenFront.GebruikEvaluator(FrontAanwezigEvaluator)
+
+
+
+ Set ActiviteitNr = 23
+ Set ActiviteitNaam = "Frezen en boren front"
+ Set Variabele = MultiplierFixedNul
+ Set Factor = MultiplierFixedEen
+ 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)
+ Do FrezenBorenFront.GebruikEvaluator(FrontAanwezigEvaluator)
+
Quit $$$OK
]]>