Index: AXimpl/PM/SchaduwPrijs/CalculateAll.cls.xml
===================================================================
diff -u -r71135 -r71249
--- AXimpl/PM/SchaduwPrijs/CalculateAll.cls.xml	(.../CalculateAll.cls.xml)	(revision 71135)
+++ AXimpl/PM/SchaduwPrijs/CalculateAll.cls.xml	(.../CalculateAll.cls.xml)	(revision 71249)
@@ -149,7 +149,7 @@
 						#dim KostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem
 						
 						#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson = DotNetMaatwerkService.GeefMaatwerkDetails(IngegevenKenmerken, Klnr, 1, ProductData)
-						Set HalffabItemsBoom = MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails)
+						Set HalffabItemsBoom = MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails, IngegevenKenmerken)
 						Set KostItem = MaatwerkDetailsConvertor.GeefKostItems(MaatwerkDetails)
 						
 						Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New()
@@ -178,7 +178,7 @@
 	
 	Set StartTijd=$H
 	
-	Set ..itProduct=##class(AXProductIterator).%New(1)
+	Set ..itProduct=##class(AXProductIterator).%New(3) // Streefdatum = 1/04/2022
 	Do ..VerwerkLijstTAOR()
 	
 	lock -SchaduwPrijsCalculateTAOR:0 
@@ -205,7 +205,7 @@
 	Do ..VerwerkLijstTAOR()
 	
 	Write:..Debug !," ***** MAATWERK (CachePerVariant) *****"
-	Set ..itProduct=##class(AXProductIterator).%New(7) // Streefdatum = 1/12/2022
+	Set ..itProduct=##class(AXProductIterator).%New(8) // Streefdatum = 1/12/2022
 	Do ..VerwerkLijstTAOR()
 	
 	lock -SchaduwPrijsCalculateTAOR:0 
@@ -248,7 +248,7 @@
 				If ($$$Not(PRNr = "") && (ProductTypeAPI.IsTAORboxProduct(PRNr))) {
 					Set IsNotLosseComponenten = $$$Not(ProductTypeAPI.IsTaxLosseComponentenProduct(PRNr))
 					
-					If IsNotLosseComponenten {
+					If (IsNotLosseComponenten) {
 						// LosseComponenten kunnen met oudere creatiedatum voorkomen. Om te weten wat het KleinstePRNr is, nodig voor querry in zTryout.THB.BOMBOL.TAOR.VergelijkCacheDotnet, 
 						// moet je ze in deze If tijdelijk uitsluiten. Tenzij ^THBTaorPriceDiff gebruikt wordt, dan is dit irrelevant.
 						Set IsTaor = $$$True
@@ -276,7 +276,7 @@
 							#dim KostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem
 						
 							#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson = DotNetMaatwerkService.GeefMaatwerkDetails(IngegevenKenmerken, Klnr, 0, ProductData,,##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).PrijsBerekening())
-							Set HalffabItemsBoom = MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails)
+							Set HalffabItemsBoom = MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails, IngegevenKenmerken)
 							;Do $System.OBJ.Dump(HalffabItemsBoom)
 							Set KostItem = MaatwerkDetailsConvertor.GeefKostItems(MaatwerkDetails)
 						
Index: zTryout/THB/BOMBOL/TAOR/VergelijkCacheDotnet.cls.xml
===================================================================
diff -u -r71135 -r71249
--- zTryout/THB/BOMBOL/TAOR/VergelijkCacheDotnet.cls.xml	(.../VergelijkCacheDotnet.cls.xml)	(revision 71135)
+++ zTryout/THB/BOMBOL/TAOR/VergelijkCacheDotnet.cls.xml	(.../VergelijkCacheDotnet.cls.xml)	(revision 71249)
@@ -95,12 +95,11 @@
 						Set LijstKleinerDan1CentVerschillenBeperkt = $$$If(CountVerschillenKleinerDan1Cent > 30, LijstKleinerDan1CentVerschillenBeperkt, LijstKleinerDan1CentVerschillenBeperkt _ "/" _ ProductID)
 						Set CountVerschillenKleinerDan1Cent = CountVerschillenKleinerDan1Cent + 1
 					}
-					If ((Prijsverschil >= 0.01) || (Prijsverschil <= -0.01)) {
+					If ((Prijsverschil < 0.02) && (Prijsverschil > -0.02)) {
+						Set CountVerschillenTussen1en2Cent = CountVerschillenTussen1en2Cent +1
+					}
+					If ((Prijsverschil >= 0.02) || (Prijsverschil <= -0.02)) {
 						Do ..Console.WriteLine("'"_$Justify(Prijsverschil,7,4)_"' verschil in prijs voor product '"_ProductID_"' "_$$$TAB_"- Prijs in Cache: '"_$Justify(ActuelePrijs,7,4)_"' "_$$$TAB_"en prijs in .net (nu in schaduw): '"_$Justify(SchaduwPrijs,7,4)_"' - BerekenDatum = '"_##class(TECH.DateTime.impl.DateTimeAPI).%New().HorologToTimeStamp(BerekenDatum)_"'")
-						
-						If ((Prijsverschil < 0.02) && (Prijsverschil > -0.02)) {
-							Set CountVerschillenTussen1en2Cent = CountVerschillenTussen1en2Cent +1
-						}
 					}
 				}
 			//}
@@ -143,7 +142,7 @@
 	Do ..Console.WriteLine("Totaal aantal TAOR-lades met KleinerDan-1-cent-prijsverschillen '"_CountVerschillenKleinerDan1Cent_"'")
 	Do ..Console.WriteLine("Lijst KleinerDan-1-cent-prijsverschillen (eerst gevonden 30): "_LijstKleinerDan1CentVerschillenBeperkt)
 	Do ..Console.WriteLine("Totaal aan TAOR-lades met prijsverschillen tussen 1 en 2 cent: '"_CountVerschillenTussen1en2Cent_"'")
-	Do ..Console.WriteLine("Totaal aantal TAOR-lades met prijsverschillen van meer dan 2 cent: '"_(CountVerschillen - CountVerschillenKleinerDan1Cent - CountVerschillenTussen1en2Cent)_"'")
+	Do ..Console.WriteLine("Totaal aantal TAOR-lades met prijsverschillen van meer dan 2 cent: '"_(CountVerschillen - CountVerschillenTussen1en2Cent)_"'")
 ]]></Implementation>
 </Method>
 
@@ -179,7 +178,7 @@
 			#dim KostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem
 			
 			#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson = ..DotNetMaatwerkService.GeefMaatwerkDetails(IngegevenKenmerken, KlantID, Aantal, ProductData)
-			Set HalffabItemsBoom = ..MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails)
+			Set HalffabItemsBoom = ..MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails, IngegevenKenmerken)
 			Set KostItem = ..MaatwerkDetailsConvertor.GeefKostItems(MaatwerkDetails)
 					
 			Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New()
Index: AXimpl/PM/SchaduwPrijs/AXProductIterator.cls.xml
===================================================================
diff -u -r71062 -r71249
--- AXimpl/PM/SchaduwPrijs/AXProductIterator.cls.xml	(.../AXProductIterator.cls.xml)	(revision 71062)
+++ AXimpl/PM/SchaduwPrijs/AXProductIterator.cls.xml	(.../AXProductIterator.cls.xml)	(revision 71249)
@@ -62,9 +62,9 @@
 	_"   on idc.DISTINCTPRODUCTVARIANT = resproduct.RECID"
     _" left outer join ADUEcoResAttributeCombination as Kenmerk      "
     _"   on dim.ConfigId=Kenmerk.ConfigId and sl.ITEMID=Kenmerk.ITEMID and dim.ConfigId<>'' and kenmerk.Partition=sl.Partition"
-	_" where resProductMaster.INSTANCERELATIONTYPE = 3267 and resproductmaster.ADUCALCTECHNOLOGYBOMBOL = 2 and resproductmaster.PARTITION = 5637144576"
+	_" and resProductMaster.INSTANCERELATIONTYPE = 3267 and resproductmaster.ADUCALCTECHNOLOGYBOMBOL = 2 and resproductmaster.PARTITION = 5637144576"
 	_" and i.DATAAREAID = 'vhbe' "
- 	_" and (sl.CREATEDDATETIME >= '"_$zd(VanafDatum,3)_"')" //  or sl.MODIFIEDDATETIME >= '"_$zd(VanafDatum,3)_"'
+ 	_" and (sl.CREATEDDATETIME >= '"_$zd(VanafDatum,3)_"')" // ' or sl.MODIFIEDDATETIME >= '"_$zd(VanafDatum,3)_"
 	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
 ]]></Implementation>
 </Method>