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