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"
+
+