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[