Index: zTryout/THB/BOMBOL/TAOR/VergelijkCacheDotnet.cls.xml
===================================================================
diff -u
--- zTryout/THB/BOMBOL/TAOR/VergelijkCacheDotnet.cls.xml	(revision 0)
+++ zTryout/THB/BOMBOL/TAOR/VergelijkCacheDotnet.cls.xml	(revision 70992)
@@ -0,0 +1,169 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.THB.BOMBOL.TAOR.VergelijkCacheDotnet">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Console">
+<Type>TECH.Console.Console</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductTypeApi">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Console = ##class(TECH.Console.impl.TerminalConsole).%New()
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Set ..ProductTypeApi = ##class(DOM.PM.impl.ProductTypeAPIimpl).%New()
+	
+	Do ..VoerUitQuery()
+	Set ..ProductIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet)
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = "SELECT ID FROM Prod.Product where ID > 3816504"
+	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Do ##class(zTryout.THB.BOMBOL.TAOR.VergelijkCacheDotnet).%New().VergelijkActuelePrijsMetPrijsInSchaduw()
+
+]]></Content>
+</UDLText>
+
+<Method name="VergelijkActuelePrijsMetPrijsInSchaduw">
+<Implementation><![CDATA[
+	#dim ProductID As %String
+	#dim CountTotaal As %Integer = 0
+	#dim CountVerschillen As %Integer = 0
+	
+	While ..ProductIterator.HasNext() {
+		Set ProductID = ..ProductIterator.Next().GetData(1)
+		
+		If (..ProductTypeApi.IsTAORboxProduct(ProductID)) {
+			#dim ActuelePrijs As %Decimal = ..GeefPrijsVanProduct(+ProductID)
+			#dim SchaduwPrijs As %Decimal = ..GeefSchaduwPrijsVanProduct(+ProductID)
+			Set CountTotaal = CountTotaal + 1
+			
+			If $$$Not(ActuelePrijs = SchaduwPrijs) {
+				Set CountVerschillen = CountVerschillen + 1
+				#dim Prijsverschil = ##class(TECH.Math).Round(SchaduwPrijs - ActuelePrijs, 2)
+				Do ..Console.WriteLine("'"_Prijsverschil_"' verschil in prijs voor product '"_ProductID_"' "_$$$TAB_"- Prijs in Cache: '"_ActuelePrijs_"' "_$$$TAB_"en prijs in .net (nu in schaduw): '"_SchaduwPrijs_"'")
+			}
+		}
+	}
+	
+	Do ..Console.WriteLine("Totaal aantal TAOR-lades gecontrolleerd: '"_CountTotaal_"'")
+	Do ..Console.WriteLine("Totaal aantal TAOR-lades met prijsverschillen '"_CountVerschillen_"'")
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Do ##class(zTryout.THB.BOMBOL.TAOR.VergelijkCacheDotnet).%New().HerrekenTaorProducten()
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method HerrekenTaorProductenInDeSchaduw()
+
+/// Uiteindelijk ervoor gekozen bestaande klasse te gebruiken: AXimpl.PM.SchaduwPrijs.CalculateAll
+{
+	#dim Product As DOM.PM.TAORProduct.TAORLade
+	#dim ProductID As %String
+	
+	While ..ProductIterator.HasNext() {
+		Set ProductID = ..ProductIterator.Next().GetData(1)
+		
+		If (..ProductTypeApi.IsTAORboxProduct(ProductID)) {
+			Set Product = ..ProductTypeApi.GeefTAORboxProduct(ProductID)
+			#dim ProductSpecificatie As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie = Product.GeefProductSpecificatie()
+			#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ""
+			
+			
+			;#dim ProductSpecificatie As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie = ..GeefProductSpecificatie(IngegevenKenmerken)
+			;#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningsSpecificatie(KlantID, Aantal)  
+			#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom
+			#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 KostItem = ..MaatwerkDetailsConvertor.GeefKostItems(MaatwerkDetails)
+					
+			Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New()
+			Do BouwsteenCreator.Init(MaatwerkProduct.GeefPRNr(), ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, $$$True)
+		}
+	}
+}
+
+Method GeefProductSpecificatie(IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken) As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie [ Private ]
+{
+	#dim Familie As DOM.PM.enu.Familie = IngegevenKenmerken.GeefFamilie()
+	#dim Variant As DOM.PM.enu.Variant = IngegevenKenmerken.GeefVariant()
+	
+	Quit ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(Familie, Variant, IngegevenKenmerken)
+}
+
+Method GeefBerekeningsSpecificatie(KlantID As DOM.VKP.VanHoeckeKlantID, Aantal As %Integer) As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie [ Private ]
+{
+	#dim Personality As DOM.common.impl.Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	
+	Quit ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal, KlantID, Personality)
+}
+*/
+]]></Content>
+</UDLText>
+
+<Method name="GeefPrijsVanProduct">
+<FormalSpec>ProductID:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Decimal</ReturnType>
+<Implementation><![CDATA[	Quit +($Piece(($$PRIJSGEG^KPRIJS(ProductID,"N")),"\",6))
+]]></Implementation>
+</Method>
+
+<Method name="GeefSchaduwPrijsVanProduct">
+<FormalSpec>ProductID:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Decimal</ReturnType>
+<Implementation><![CDATA[	Quit +($Piece(($$PRIJSGEG^KPRIJS(ProductID,"S")),"\",6))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/PM/SchaduwPrijs/CalculateAll.cls.xml
===================================================================
diff -u -r67076 -r70992
--- AXimpl/PM/SchaduwPrijs/CalculateAll.cls.xml	(.../CalculateAll.cls.xml)	(revision 67076)
+++ AXimpl/PM/SchaduwPrijs/CalculateAll.cls.xml	(.../CalculateAll.cls.xml)	(revision 70992)
@@ -160,6 +160,116 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkEenMaandTAOR">
+<Description>
+D ##class(AXimpl.PM.SchaduwPrijs.CalculateAll).VerwijderAlles()
+D ##class(AXimpl.PM.SchaduwPrijs.CalculateAll).%New().VerwerkEenMaandTAOR()
+D ##class(AXimpl.PM.SchaduwPrijs.CalculateAll).%New().VerwerkTAOR()</Description>
+<Implementation><![CDATA[
+	Set ..Debug=1
+	lock +SchaduwPrijsCalculateTAOR:10 else  Quit
+	
+	Set StartTijd=$H
+	
+	Set ..itProduct=##class(AXProductIterator).%New(1)
+	Do ..VerwerkLijstTAOR()
+	
+	lock -SchaduwPrijsCalculateTAOR:0 
+	Write:..Debug !,"Verwerkingstijd (in min): ",$$DIFFTIME^vhLib.DataTypes(StartTijd,$H,"M"),! 
+	Read:..Debug "Druk op enter om verder te gaan" K
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTAOR">
+<Implementation><![CDATA[
+	lock +SchaduwPrijsCalculateTAOR:10 else  Quit
+	Do ..VerwijderAlles()
+	Set StartTijd=$H
+	
+	Write:..Debug !," ***** VOORRAAD (Zonder CachePerVariant of CachePerItem) *****"
+	Set ..itProduct=##class(AXProductIteratorZonderAdmin).%New()
+	Do ..VerwerkLijstTAOR()
+
+	Write:..Debug !," ***** SETS (CachePerItem) *****"
+	Set ..itProduct=##class(AXProductIteratorPerItem).%New()
+	Do ..VerwerkLijstTAOR()
+	
+	Write:..Debug !," ***** MAATWERK (CachePerVariant) *****"
+	Set ..itProduct=##class(AXProductIterator).%New(6)
+	Do ..VerwerkLijstTAOR()
+	
+	lock -SchaduwPrijsCalculateTAOR:0 
+	Write:..Debug !,"Verwerkingstijd (in min): ",$$DIFFTIME^vhLib.DataTypes(StartTijd,$H,"M"),! 
+	Read:..Debug "Druk op enter om verder te gaan" K
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLijstTAOR">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set StartTijd=$H
+	#dim lbProductIDs as %List
+	#dim ProductID as %String
+	#dim RecID as %String
+	#dim PRNr as %String
+	#dim GenTyp as %String
+	Set Count=1
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	#dim ProductAPI As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set BerekeningServiceProduct = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()	
+	Set VerkoopAPI = ##class(DOM.VKP.impl.VerkoopAPI).%New()
+	Set DotNetMaatwerkService = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails).%New()
+	Set MaatwerkDetailsConvertor = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonNaarDomConverter).%New()
+	
+	While ..itProduct.HasNext()
+	{
+		Set rs=..itProduct.Next()
+		Set ProductID=rs.Data("ProductID")
+		Set PRNr=$G(rs.Data("AdminProductNummer"))
+		Set ItemID=rs.Data("ItemID")
+		Set ConfigID=$G(rs.Data("ConfigID"))
+		
+		try {
+			If (ProductAPI.BestaatProduct(PRNr)) {
+				If ($$$Not(PRNr = "") && (ProductTypeAPI.IsTAORboxProduct(PRNr)) && $$$Not($Get(^PRBS("BSS",PRNr)) = "")) {
+					#dim Klnr As %String = "K||4682"
+					If (VerkoopAPI.BestaatKlant("K||"_+rs.Data("KlantNr"))) {
+						Set Klnr = "K||"_+rs.Data("KlantNr")
+					}
+					
+					#Dim Product As DOM.PM.impl.MaatwerkProductImpl = ProductAPI.GeefProduct(PRNr)
+					Set ProductData = ##class(DOM.PM.dto.ProductData).%New()
+					Set ProductData.PRNr = PRNr
+					Set ProductData.DossierNummer = Product.GeefDossierCode()
+						
+					#dim ProductSpecificatie As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie = Product.GeefProductSpecificatie()	
+					#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ProductSpecificatie.GeefIngegevenKenmerken()
+					
+					If (IngegevenKenmerken.LadeVariant = ##class(DOM.PM.enu.Variant).Taorbox()) {
+						;&& $$$Not(##class(TECH.StringUtils).Equals(PRNr, "1206479"))  	//Product met opvullijst LG 
+						
+						#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningsSpecificatie(Klnr, 1)  
+						#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom
+						#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 KostItem = MaatwerkDetailsConvertor.GeefKostItems(MaatwerkDetails)
+						
+						Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New()
+						Do BouwsteenCreator.Init(PRNr, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, $$$True)
+					}
+				}
+			}
+		} catch { Do ##class(Tools.Wlip).%New(191).String("SchaduwPrijs-berekening voor TAOR gefaald, want in de catch terechtgekomen!") }
+		
+		Do ..ConverteerOne(ProductID, PRNr, ItemID, ConfigID)
+		Set Count=Count+1
+		Write:-..Debug&(Count#1000=0) !,"Aantal: ",Count," Tijd (in min): ",$$DIFFTIME^vhLib.DataTypes(StartTijd,$H,"M")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ConverteerOne">
 <FormalSpec>ProductID:%String,PRNr:%String,ItemID:%String,ConfigID:%String</FormalSpec>
 <Implementation><![CDATA[