Index: DOM/PM/Maatwerk/Calc/Kost/impl/KostItemNaarDtoVisitor.cls.xml =================================================================== diff -u -r29059 -r33068 --- DOM/PM/Maatwerk/Calc/Kost/impl/KostItemNaarDtoVisitor.cls.xml (.../KostItemNaarDtoVisitor.cls.xml) (revision 29059) +++ DOM/PM/Maatwerk/Calc/Kost/impl/KostItemNaarDtoVisitor.cls.xml (.../KostItemNaarDtoVisitor.cls.xml) (revision 33068) @@ -29,7 +29,7 @@ %Status Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/KostItemNaarDtoVisitor/GeefKostItem/Test.cls.xml =================================================================== diff -u -r29059 -r33068 --- vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/KostItemNaarDtoVisitor/GeefKostItem/Test.cls.xml (.../Test.cls.xml) (revision 29059) +++ vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/KostItemNaarDtoVisitor/GeefKostItem/Test.cls.xml (.../Test.cls.xml) (revision 33068) @@ -21,7 +21,7 @@ Do $$$AssertEquals(ActiviteitKostItemDto.Naam,ActiviteitKostItem.GeefNaam()) Do $$$AssertEquals(ActiviteitKostItemDto.Aantal,ActiviteitKostItem.GeefAantal()) Do $$$AssertEquals(ActiviteitKostItemDto.Tijd,ActiviteitKostItem.GeefTijd()) - Do $$$AssertEquals(ActiviteitKostItemDto.ActiviteitNr,ActiviteitKostItem.GeefActiviteitNummer()) + Do $$$AssertEquals(ActiviteitKostItemDto.ActiviteitCode,ActiviteitKostItem.GeefActiviteitCode()) ]]> Index: DOM/PM/Maatwerk/Calc/Kost/StandaardActiviteitKostItemBuilder.cls.xml =================================================================== diff -u -r33059 -r33068 --- DOM/PM/Maatwerk/Calc/Kost/StandaardActiviteitKostItemBuilder.cls.xml (.../StandaardActiviteitKostItemBuilder.cls.xml) (revision 33059) +++ DOM/PM/Maatwerk/Calc/Kost/StandaardActiviteitKostItemBuilder.cls.xml (.../StandaardActiviteitKostItemBuilder.cls.xml) (revision 33068) @@ -75,7 +75,7 @@ -SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder,Naam:%String,KostenPlaatsID:DOM.common.KostenPlaatsID,ActiviteitNr:%String,Aantal:%Decimal,Variabele:DOM.PM.Maatwerk.Calc.Kost.IMultiplier,Factor:DOM.PM.Maatwerk.Calc.Kost.IMultiplier,VariabeleKost:%Float,VasteKost:%Float,MinimumKost:%Float,AantalMultiplier:DOM.PM.Maatwerk.Calc.Kost.IMultiplier +SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder,Naam:%String,KostenPlaatsID:DOM.common.KostenPlaatsID,ActiviteitCode:%String,Aantal:%Decimal,Variabele:DOM.PM.Maatwerk.Calc.Kost.IMultiplier,Factor:DOM.PM.Maatwerk.Calc.Kost.IMultiplier,VariabeleKost:%Float,VasteKost:%Float,MinimumKost:%Float,AantalMultiplier:DOM.PM.Maatwerk.Calc.Kost.IMultiplier 1 1 %Status @@ -86,7 +86,7 @@ Set ..VasteKost = VasteKost Set ..MinimumKost = MinimumKost Set ..AantalMultiplier = $$$Implementation(AantalMultiplier,##class(DOM.PM.Maatwerk.Calc.Kost.FixedMultiplier).%New(1)) - Quit ##super(SamengesteldKostItemBuilder, Naam, KostenPlaatsID, ActiviteitNr, Aantal) + Quit ##super(SamengesteldKostItemBuilder, Naam, KostenPlaatsID, ActiviteitCode, Aantal) ]]> Index: DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/common/VariabeleAfmetingActiviteitKostItemBuilder.cls.xml =================================================================== diff -u -r33059 -r33068 --- DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/common/VariabeleAfmetingActiviteitKostItemBuilder.cls.xml (.../VariabeleAfmetingActiviteitKostItemBuilder.cls.xml) (revision 33059) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/common/VariabeleAfmetingActiviteitKostItemBuilder.cls.xml (.../VariabeleAfmetingActiviteitKostItemBuilder.cls.xml) (revision 33068) @@ -46,7 +46,7 @@ -SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder,Naam:%String,KostenPlaatsID:DOM.common.KostenPlaatsID,ActiviteitNr:%String,Aantal:%Decimal,Factor:DOM.PM.Maatwerk.Calc.Kost.IMultiplier,VasteKost:%Float,DeltaBreedte:%Float,DeltaDiepte:%Float,DeltaHoogte:%Float +SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder,Naam:%String,KostenPlaatsID:DOM.common.KostenPlaatsID,ActiviteitCode:%String,Aantal:%Decimal,Factor:DOM.PM.Maatwerk.Calc.Kost.IMultiplier,VasteKost:%Float,DeltaBreedte:%Float,DeltaDiepte:%Float,DeltaHoogte:%Float 1 1 %Status @@ -56,7 +56,7 @@ Set ..DeltaHoogte = DeltaHoogte Set ..DeltaDiepte = DeltaDiepte Set ..DeltaBreedte = DeltaBreedte - Quit ##super(SamengesteldKostItemBuilder, Naam, KostenPlaatsID, ActiviteitNr, Aantal) + Quit ##super(SamengesteldKostItemBuilder, Naam, KostenPlaatsID, ActiviteitCode, Aantal) ]]> Index: DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/common/SamengesteldKostItemBuilder.cls.xml =================================================================== diff -u -r29847 -r33068 --- DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/common/SamengesteldKostItemBuilder.cls.xml (.../SamengesteldKostItemBuilder.cls.xml) (revision 29847) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/common/SamengesteldKostItemBuilder.cls.xml (.../SamengesteldKostItemBuilder.cls.xml) (revision 33068) @@ -31,9 +31,9 @@ -DetailActiviteit:TECH.String,Kostenplaats:TECH.String,ActiviteitNr:TECH.Integer,Tijd:TECH.Decimal=0 +DetailActiviteit:TECH.String,Kostenplaats:TECH.String,ActiviteitCode:TECH.Integer,Tijd:TECH.Decimal=0 -DetailActiviteit:TECH.String,Kostenplaats:TECH.String,ActiviteitNr:TECH.Integer,Tijd:TECH.Decimal=0,Factor:%CacheString +DetailActiviteit:TECH.String,Kostenplaats:TECH.String,ActiviteitCode:TECH.Integer,Tijd:TECH.Decimal=0,Factor:%CacheString -DetailActiviteit:TECH.String,Kostenplaats:TECH.String,ActiviteitNr:TECH.Integer,VasteTijdKost:TECH.Decimal,VariabeleTijdKost:TECH.Decimal=0,Factor:%CacheString -DetailActiviteit:TECH.String,Kostenplaats:TECH.String,ActiviteitCode:TECH.Integer,VasteTijdKost:TECH.Decimal,VariabeleTijdKost:TECH.Decimal=0,Factor:%CacheString + -DetailActiviteit:TECH.String,Kostenplaats:TECH.String,ActiviteitNr:TECH.Integer,Tijd:TECH.Decimal=0,DeltaBreedte:TECH.Decimal=0,DeltaDiepte:TECH.Decimal=0,DeltaHoogte:TECH.Decimal=0 +DetailActiviteit:TECH.String,Kostenplaats:TECH.String,ActiviteitCode:TECH.Integer,Tijd:TECH.Decimal=0,DeltaBreedte:TECH.Decimal=0,DeltaDiepte:TECH.Decimal=0,DeltaHoogte:TECH.Decimal=0 -DetailActiviteit:TECH.String,Kostenplaats:TECH.String,ActiviteitNr:TECH.Integer,Factor:%CacheString="",Tijd:TECH.Decimal=0,DeltaBreedte:TECH.Decimal=0,DeltaDiepte:TECH.Decimal=0,DeltaHoogte:TECH.Decimal=0 +DetailActiviteit:TECH.String,Kostenplaats:TECH.String,ActiviteitCode:TECH.Integer,Factor:%CacheString="",Tijd:TECH.Decimal=0,DeltaBreedte:TECH.Decimal=0,DeltaDiepte:TECH.Decimal=0,DeltaHoogte:TECH.Decimal=0 1 DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilder Data:DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData 1 DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilder - Index: DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanBewerkenv001.cls.xml =================================================================== diff -u -r29059 -r33068 --- DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanBewerkenv001.cls.xml (.../PlanBewerkenv001.cls.xml) (revision 29059) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanBewerkenv001.cls.xml (.../PlanBewerkenv001.cls.xml) (revision 33068) @@ -26,24 +26,24 @@ Set KostenPlaats = "TBZAAG" // Kosten voor het uitvoeren van de bewerkingen nodig voor een TIP-ON - Set ActiviteitNr = 5 + Set ActiviteitCode = 5 Set Variabele = MultiplierFixedNul Set Factor = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.TBX.MultiplierTipOn).%New() Set VariabeleKost = 0 Set VasteKost = 1 Set MinimumKost = 0 - Set KostBewerkenTipon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"TIP-ON bewerkingen",KostenPlaats, ActiviteitNr, Aantal, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) + Set KostBewerkenTipon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"TIP-ON bewerkingen",KostenPlaats, ActiviteitCode, Aantal, 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 // Kosten voor het uitvoeren van bewerkingen nodig voor sifon/spoelbak - Set ActiviteitNr = 6 + Set ActiviteitCode = 6 Set Variabele = MultiplierFixedNul Set Factor = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.TBX.MultiplierSifonSpoelbak).%New() Set VariabeleKost = 0 Set VasteKost = 1 Set MinimumKost = 0 - Set KostBewerkenTipon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Sifon/spoelbak bewerkingen",KostenPlaats, ActiviteitNr, Aantal, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) + Set KostBewerkenTipon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Sifon/spoelbak bewerkingen",KostenPlaats, ActiviteitCode, Aantal, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do KostBewerkenTipon.GebruikEvaluator(SpoelbakOfSifonEvaluator) Quit Status Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/LBX/Builder/KostZijlijnv001/Test.cls.xml =================================================================== diff -u -r33059 -r33068 --- vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/LBX/Builder/KostZijlijnv001/Test.cls.xml (.../Test.cls.xml) (revision 33059) +++ vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/LBX/Builder/KostZijlijnv001/Test.cls.xml (.../Test.cls.xml) (revision 33068) @@ -68,13 +68,13 @@ SamengesteldKostItem:DOM.PM.Maatwerk.Calc.Kost.KostItem,TeZoeken:%String - SamengesteldKostItem:DOM.PM.Maatwerk.Calc.Kost.KostItem,TeZoeken:%String - Index: DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersenv001.cls.xml =================================================================== diff -u -r29059 -r33068 --- DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersenv001.cls.xml (.../PlanPersenv001.cls.xml) (revision 29059) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersenv001.cls.xml (.../PlanPersenv001.cls.xml) (revision 33068) @@ -27,22 +27,22 @@ Set Aantal = 1 // Persen van een lade op lijn 1 - Set ActiviteitNr = 8 + Set ActiviteitCode = 8 Set Variabele = MultiplierFixedNul Set Factor = MultiplierFixedEen Set VariabeleKost = 0 Set VasteKost = 26 Set MinimumKost = 0 - Set PersenLijn1 = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.TBX.PlanPersenLadev001).%New(##this,"Persen op pers1",KostenPlaats, ActiviteitNr) + Set PersenLijn1 = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.TBX.PlanPersenLadev001).%New(##this,"Persen op pers1",KostenPlaats, ActiviteitCode) // Persen van een lade op lijn 2 - Set ActiviteitNr = 9 + Set ActiviteitCode = 9 Set Variabele = MultiplierFixedNul Set Factor = MultiplierFixedEen Set VariabeleKost = 0 Set VasteKost = 30 Set MinimumKost = 0 - Set PersenLijn2 = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.TBX.PlanPersenLadev001).%New(##this,"Persen op pers2",KostenPlaats, ActiviteitNr) + Set PersenLijn2 = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.TBX.PlanPersenLadev001).%New(##this,"Persen op pers2",KostenPlaats, ActiviteitCode) Quit Status ]]> Index: DOM/PM/Maatwerk/Calc/Kost/impl/PlatteLijstWriterVisitor.cls.xml =================================================================== diff -u -r29059 -r33068 --- DOM/PM/Maatwerk/Calc/Kost/impl/PlatteLijstWriterVisitor.cls.xml (.../PlatteLijstWriterVisitor.cls.xml) (revision 29059) +++ DOM/PM/Maatwerk/Calc/Kost/impl/PlatteLijstWriterVisitor.cls.xml (.../PlatteLijstWriterVisitor.cls.xml) (revision 33068) @@ -44,7 +44,7 @@ Do Kolommen.Insert("Extra") Do Kolommen.Insert("Kostenplaats") Do Kolommen.Insert("Details") - Do Kolommen.Insert("ActiviteitNr") + Do Kolommen.Insert("ActiviteitCode") Do ..SchrijfRij(Kolommen) ]]> @@ -63,7 +63,7 @@ Do Kolommen.Insert(Item.GeefTijd() _ " sec") Do Kolommen.Insert(Item.GeefKostenPlaatsID()) Do Kolommen.Insert(Item.GeefDetails()) - Do Kolommen.Insert(Item.GeefActiviteitNummer()) + Do Kolommen.Insert(Item.GeefActiviteitCode()) Do ..SchrijfRij(Kolommen) Quit $$$OK ]]> Index: DOM/PM/Maatwerk/Calc/Kost/impl/KAD/KostZagenv001.cls.xml =================================================================== diff -u -r29059 -r33068 --- DOM/PM/Maatwerk/Calc/Kost/impl/KAD/KostZagenv001.cls.xml (.../KostZagenv001.cls.xml) (revision 29059) +++ DOM/PM/Maatwerk/Calc/Kost/impl/KAD/KostZagenv001.cls.xml (.../KostZagenv001.cls.xml) (revision 33068) @@ -34,18 +34,18 @@ Set KostenPlaats = "TBZAAG" // Kosten voor het halen van profielen - Set ActiviteitNr = 1 + Set ActiviteitCode = 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, ActiviteitNr, Aantal, MultiplierFixedNul, FactorHalenProfielen,0,30,0) + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Halen profielen",KostenPlaats, ActiviteitCode, Aantal, MultiplierFixedNul, FactorHalenProfielen,0,30,0) // Maat instellen - Set ActiviteitNr = 2 - Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Maat instellen",KostenPlaats, ActiviteitNr, Aantal, MultiplierFixedNul, StaffelMultiplier,0,20,0) + Set ActiviteitCode = 2 + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Maat instellen",KostenPlaats, ActiviteitCode, Aantal, MultiplierFixedNul, StaffelMultiplier,0,20,0) // Doorschuiven profiel - Set ActiviteitNr = 3 + Set ActiviteitCode = 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, ActiviteitNr, Aantal, VariabeleDoorschuivenProfiel, MultiplierFixedTwee,1,8,9) + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Doorschuiven profiel",KostenPlaats, ActiviteitCode, Aantal, VariabeleDoorschuivenProfiel, MultiplierFixedTwee,1,8,9) Quit Status ]]> Index: APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml =================================================================== diff -u -r29059 -r33068 --- APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml (.../ActiviteitInfoTBX.cls.xml) (revision 29059) +++ APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml (.../ActiviteitInfoTBX.cls.xml) (revision 33068) @@ -113,7 +113,7 @@ %Status 1 KostenplaatsKostItem - + %Integer Index: DOM/PM/Maatwerk/Calc/Kost/impl/GekoppeldeIK/MatBasisProductKostItemBuilderBasis.cls.xml =================================================================== diff -u -r29059 -r33068 --- DOM/PM/Maatwerk/Calc/Kost/impl/GekoppeldeIK/MatBasisProductKostItemBuilderBasis.cls.xml (.../MatBasisProductKostItemBuilderBasis.cls.xml) (revision 29059) +++ DOM/PM/Maatwerk/Calc/Kost/impl/GekoppeldeIK/MatBasisProductKostItemBuilderBasis.cls.xml (.../MatBasisProductKostItemBuilderBasis.cls.xml) (revision 33068) @@ -53,7 +53,7 @@ #dim KostItem As DOM.PM.Maatwerk.Calc.Kost.KostItem = ItemIterator.Next() If (KostItem.%IsA(##class(DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem).%ClassName(1))) { #dim KostItemAlsAKI As DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem = KostItem - If ((KostItemAlsAKI.GeefActiviteitNummer()) = 1) { + If ((KostItemAlsAKI.GeefActiviteitCode()) = 1) { Do Resultaat.VoegToe(KostItemAlsAKI) } Index: DOM/PM/Maatwerk/Calc/Kost/ActiviteitKostItem.cls.xml =================================================================== diff -u -r33059 -r33068 --- DOM/PM/Maatwerk/Calc/Kost/ActiviteitKostItem.cls.xml (.../ActiviteitKostItem.cls.xml) (revision 33059) +++ DOM/PM/Maatwerk/Calc/Kost/ActiviteitKostItem.cls.xml (.../ActiviteitKostItem.cls.xml) (revision 33068) @@ -5,27 +5,27 @@ 1 DOM.PM.Maatwerk.Calc.Kost.KostenPlaatsKostItem - + Het activiteitennummer moet uniek zijn binnen de Familie en Variant van het maatwerkproduct. Wordt ingevuld/bepaald door de builders. %Integer 1 -Naam:%String,Kost:%Float,Details:%String,Tijd:%Integer,KostenPlaatsID:DOM.common.KostenPlaatsID,Aantal:%Decimal,ActiviteitNr:%String +Naam:%String,Kost:%Float,Details:%String,Tijd:%Integer,KostenPlaatsID:DOM.common.KostenPlaatsID,Aantal:%Decimal,ActiviteitCode:%String 1 1 %Status - + %String - Index: DOM/PM/Maatwerk/Calc/Kost/impl/KostItemWriterVisitor.cls.xml =================================================================== diff -u -r29479 -r33068 --- DOM/PM/Maatwerk/Calc/Kost/impl/KostItemWriterVisitor.cls.xml (.../KostItemWriterVisitor.cls.xml) (revision 29479) +++ DOM/PM/Maatwerk/Calc/Kost/impl/KostItemWriterVisitor.cls.xml (.../KostItemWriterVisitor.cls.xml) (revision 33068) @@ -78,7 +78,7 @@ Do ..Writer.WriteLine(..GeefIndentatie()_"[KostenPlaatsKostItem] "_Item.GeefAantal()_"x "_Item.GeefNaam()) Do ..Writer.Write(..GeefIndentatie()_$$$TAB_"Kost: "_$$$TAB_..GeefKost(Item)_$$$TAB_"EUR") Do ..Writer.Write(..GeefIndentatie()_$$$TAB_"Tijd:"_$$$TAB_Item.GeefTijd()_"s") - Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Activiteit:"_$$$TAB_Item.GeefActiviteitNummer()_"") + Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Activiteit:"_$$$TAB_Item.GeefActiviteitCode()_"") Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Details:"_$$$TAB_Item.GeefDetails()) Quit $$$OK ]]> @@ -91,7 +91,7 @@ Do ..Writer.WriteLine(..GeefIndentatie()_"[ActiviteitKostItem] "_Item.GeefAantal()_"x "_Item.GeefNaam()) Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Kost:"_$$$TAB_..GeefKost(Item)_$$$TAB_"EUR") Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Tijd:"_$$$TAB_Item.GeefTijd()_"s") - Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Activiteit:"_$$$TAB_Item.GeefActiviteitNummer()_"") + Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Activiteit:"_$$$TAB_Item.GeefActiviteitCode()_"") Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Details:"_$$$TAB_Item.GeefDetails()) Quit $$$OK ]]> Index: DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanVerpakkenv001.cls.xml =================================================================== diff -u -r29059 -r33068 --- DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanVerpakkenv001.cls.xml (.../PlanVerpakkenv001.cls.xml) (revision 29059) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanVerpakkenv001.cls.xml (.../PlanVerpakkenv001.cls.xml) (revision 33068) @@ -24,13 +24,13 @@ Set Aantal = 1 // Verpakken van producten die per stuk worden geleverd - Set ActiviteitNr = 11 + Set ActiviteitCode = 11 Set Variabele = MultiplierFixedNul Set Factor = MultiplierFixedEen Set VariabeleKost = 0 Set VasteKost = 30 Set MinimumKost = 0 - Set PersenSpoelbakSifon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Snijden V1 doos",KostenPlaats, ActiviteitNr, Aantal, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) + Set PersenSpoelbakSifon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Snijden V1 doos",KostenPlaats, ActiviteitCode, Aantal, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do PersenSpoelbakSifon.GebruikEvaluator(V1VerpakkingEvaluator) Quit Status Index: DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanVoorbereiden.cls.xml =================================================================== diff -u -r29059 -r33068 --- DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanVoorbereiden.cls.xml (.../PlanVoorbereiden.cls.xml) (revision 29059) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanVoorbereiden.cls.xml (.../PlanVoorbereiden.cls.xml) (revision 33068) @@ -24,32 +24,32 @@ Set Aantal = 1 // Verpakken van producten die per stuk worden geleverd - Set ActiviteitNr = 12 + Set ActiviteitCode = 12 Set Variabele = MultiplierFixedNul Set Factor = MultiplierFixedEen Set VariabeleKost = 0 Set VasteKost = 30 Set MinimumKost = 0 - Set PersenSpoelbakSifon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Snijden hulzen",KostenPlaats, ActiviteitNr, Aantal, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) + Set PersenSpoelbakSifon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Snijden hulzen",KostenPlaats, ActiviteitCode, Aantal, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Do PersenSpoelbakSifon.GebruikEvaluator(V1VerpakkingEvaluator) // Picking zijkanten - Set ActiviteitNr = 13 + Set ActiviteitCode = 13 Set Variabele = MultiplierFixedNul Set Factor = MultiplierFixedEen 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, ActiviteitNr, Aantal, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) + Set PersenSpoelbakSifon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Picking zijkanten",KostenPlaats, ActiviteitCode, Aantal, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) // Picking onderdelen - Set ActiviteitNr = 13 + Set ActiviteitCode = 13 Set Variabele = MultiplierFixedNul Set Factor = MultiplierFixedEen 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, ActiviteitNr, Aantal, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) + Set PersenSpoelbakSifon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Picking onderdelen",KostenPlaats, ActiviteitCode, Aantal, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost) Quit Status ]]> Index: DOM/PM/Maatwerk/Calc/Kost/ActiviteitKostItemBuilder.cls.xml =================================================================== diff -u -r33059 -r33068 --- DOM/PM/Maatwerk/Calc/Kost/ActiviteitKostItemBuilder.cls.xml (.../ActiviteitKostItemBuilder.cls.xml) (revision 33059) +++ DOM/PM/Maatwerk/Calc/Kost/ActiviteitKostItemBuilder.cls.xml (.../ActiviteitKostItemBuilder.cls.xml) (revision 33068) @@ -10,7 +10,7 @@ 1 - + %String 1 1 @@ -22,14 +22,14 @@ -SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder,Naam:%String,KostenPlaatsID:DOM.common.KostenPlaatsID,ActiviteitNr:%String,Aantal:%Decimal +SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder,Naam:%String,KostenPlaatsID:DOM.common.KostenPlaatsID,ActiviteitCode:%String,Aantal:%Decimal 1 1 %Status @@ -41,9 +41,9 @@ ]]> - + %String - @@ -61,7 +61,7 @@ #dim KostPerTijd As %Float = ##class(TECH.Math).Round(..GeefKostPerTijd(Context),4) #dim Kost As %Float = KostPerTijd*TijdsKost /*Eventuele verbetering Als de Kost hier gelijk is aan 0, dan mag het lege object "" terug gegeven worden.*/ - Quit ##class(DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem).%New(..GeefNaam(),Kost, Detail, TijdsKost, ..GeefKostenPlaatsID(), ..Aantal, ..GeefActiviteitNr()) + Quit ##class(DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem).%New(..GeefNaam(),Kost, Detail, TijdsKost, ..GeefKostenPlaatsID(), ..Aantal, ..GeefActiviteitCode()) ]]> Index: DOM/PM/Maatwerk/Calc/Kost/impl/common/VasteEnVariabeleActiviteitKostItemBuilder.cls.xml =================================================================== diff -u -r33059 -r33068 --- DOM/PM/Maatwerk/Calc/Kost/impl/common/VasteEnVariabeleActiviteitKostItemBuilder.cls.xml (.../VasteEnVariabeleActiviteitKostItemBuilder.cls.xml) (revision 33059) +++ DOM/PM/Maatwerk/Calc/Kost/impl/common/VasteEnVariabeleActiviteitKostItemBuilder.cls.xml (.../VasteEnVariabeleActiviteitKostItemBuilder.cls.xml) (revision 33068) @@ -28,15 +28,15 @@ -SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder,Naam:%String,KostenPlaatsID:DOM.common.KostenPlaatsID,ActiviteitNr:%String,Aantal:%Decimal,VasteKost:TECH.Numeric,VariabeleKost:TECH.Numeric,Factor:DOM.PM.Maatwerk.Calc.Kost.IMultiplier +SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder,Naam:%String,KostenPlaatsID:DOM.common.KostenPlaatsID,ActiviteitCode:%String,Aantal:%Decimal,VasteKost:TECH.Numeric,VariabeleKost:TECH.Numeric,Factor:DOM.PM.Maatwerk.Calc.Kost.IMultiplier 1 1 %Status Index: DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersenLadev001.cls.xml =================================================================== diff -u -r33059 -r33068 --- DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersenLadev001.cls.xml (.../PlanPersenLadev001.cls.xml) (revision 33059) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersenLadev001.cls.xml (.../PlanPersenLadev001.cls.xml) (revision 33068) @@ -5,11 +5,11 @@ DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItemBuilder -SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder,Naam:%String,KostenPlaatsID:DOM.common.KostenPlaatsID,ActiviteitNr:%String +SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder,Naam:%String,KostenPlaatsID:DOM.common.KostenPlaatsID,ActiviteitCode:%String 1 1 %Status - Index: DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/common/VariabeleAfmetingActiviteitKostItemBuilderData.cls.xml =================================================================== diff -u -r29146 -r33068 --- DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/common/VariabeleAfmetingActiviteitKostItemBuilderData.cls.xml (.../VariabeleAfmetingActiviteitKostItemBuilderData.cls.xml) (revision 29146) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/common/VariabeleAfmetingActiviteitKostItemBuilderData.cls.xml (.../VariabeleAfmetingActiviteitKostItemBuilderData.cls.xml) (revision 33068) @@ -7,7 +7,7 @@ DOM.common.KostenPlaatsID - + %Integer @@ -44,13 +44,13 @@ -ActiviteitNr:%Integer,KostenplaatsID:%String,Omschrijving:%String +ActiviteitCode:%Integer,KostenplaatsID:%String,Omschrijving:%String 1 1 %Status 1