Index: DOM/PM/Maatwerk/Calc/HF/impl/BewerktHalffabItemPostProcessor.cls.xml =================================================================== diff -u -r29059 -r29136 --- DOM/PM/Maatwerk/Calc/HF/impl/BewerktHalffabItemPostProcessor.cls.xml (.../BewerktHalffabItemPostProcessor.cls.xml) (revision 29059) +++ DOM/PM/Maatwerk/Calc/HF/impl/BewerktHalffabItemPostProcessor.cls.xml (.../BewerktHalffabItemPostProcessor.cls.xml) (revision 29136) @@ -53,19 +53,22 @@ #dim HalffabrikaatBrutoAfmeting As %Decimal = 1 #dim TeBekomenAfmetingen As Array of %Decimal = ..TeBekomenAfmetingPerBewerkteDimensie + #dim OvermaatPerBewerkteDimensie As Array of %Numeric = ..GeefOvermaatPerBewerkteDimensie(.IngegevenKenmerken,.Context,..TeBekomenAfmetingPerBewerkteDimensie) #dim DimensiesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..BewerkteDimensies) While (DimensiesIterator.HasNext()) { #dim BewerkteDimensie As %String = DimensiesIterator.Next() #dim TeBekomenAfmeting As %Decimal = TeBekomenAfmetingen.GetAt(BewerkteDimensie) + #dim TeVerwerkenAfmeting As %Numeric = TeBekomenAfmeting + OvermaatPerBewerkteDimensie.GetAt(BewerkteDimensie) + #dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabItem.GeefHalffab() #dim BewerkingsCalculator As DOM.PM.Maatwerk.Calc.HF.IBewerkingsCalculator = Context.GeefBewerkingsInfo(Halffab.GeefProductID(),BewerkteDimensie).GeefBewerkingsCalculator() - #dim AangerekendPerStuk As %Decimal = ..AfmetingAangerekendPerStukBerekenaar.GeefAfmetingAangerekendPerStuk(BewerkingsCalculator, TeBekomenAfmeting, ..TeBekomenAantal) + #dim AangerekendPerStuk As %Decimal = ..AfmetingAangerekendPerStukBerekenaar.GeefAfmetingAangerekendPerStuk(BewerkingsCalculator, TeVerwerkenAfmeting, ..TeBekomenAantal) Set HalffabItem.AfmetingAangerekendPerStuk = HalffabItem.AfmetingAangerekendPerStuk * AangerekendPerStuk - Set HalffabItem.AfmetingMetBewerkingVerlies = HalffabItem.AfmetingMetBewerkingVerlies * BewerkingsCalculator.GeefAfmetingMetBewerkingVerlies(TeBekomenAfmeting,..TeBekomenAantal) + Set HalffabItem.AfmetingMetBewerkingVerlies = HalffabItem.AfmetingMetBewerkingVerlies * BewerkingsCalculator.GeefAfmetingMetBewerkingVerlies(TeVerwerkenAfmeting,..TeBekomenAantal) Set HalffabItem.AfmetingTeBekomen = HalffabItem.AfmetingTeBekomen * TeBekomenAfmeting Set HalffabItem.Aantal = HalffabItem.Aantal * BewerkingsCalculator.GeefAantalTePicken(TeBekomenAfmeting,..TeBekomenAantal,AangerekendPerStuk) / ..TeBekomenAantal Set HalffabrikaatBrutoAfmeting = HalffabrikaatBrutoAfmeting * BewerkingsCalculator.GeefBrutoAfmetingHalffabrikaat() @@ -85,6 +88,22 @@ + + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext,TeBekomenAfmetingPerBewerkteDimensies:%ArrayOfDataTypes +1 +%ArrayOfDataTypes +ELEMENTTYPE="%Numeric" + +