Index: AXimpl/PM/SchaduwPrijs/CalculateAll.cls.xml
===================================================================
diff -u -r65692 -r67075
--- AXimpl/PM/SchaduwPrijs/CalculateAll.cls.xml	(.../CalculateAll.cls.xml)	(revision 65692)
+++ AXimpl/PM/SchaduwPrijs/CalculateAll.cls.xml	(.../CalculateAll.cls.xml)	(revision 67075)
@@ -69,10 +69,9 @@
 <Method name="Verwerk">
 <Implementation><![CDATA[
 	lock +SchaduwPrijsCalculate:10 else  Quit
-	
 	Do ..VerwijderAlles()
 	Set StartTijd=$H
-
+	
 	Write:..Debug !," ***** VOORRAAD (Zonder CachePerVariant of CachePerItem) *****"
 	Set ..itProduct=##class(AXProductIteratorZonderAdmin).%New()
 	Do ..VerwerkLijst()
@@ -100,13 +99,61 @@
 	#dim PRNr as %String
 	#dim GenTyp as %String
 	Set Count=1
-	While ..itProduct.HasNext() 
+	#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 ((##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefSchaduwBomBolOmleidingTbxNaarDotNet()) && (ProductAPI.BestaatProduct(PRNr))) {
+				If ($$$Not(PRNr = "") && (ProductTypeAPI.IsTandemboxProduct(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 $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.LegacyKenmerken.ItemVPK, "O", "C")) 
+						&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.VerpakkingType, "O", "C")) 
+						&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.OpvullijstKleur, "LG")) 
+						&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.LegacyKenmerken.ItemKLROPVL, "LG")) 
+						&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.LadeKleur, "OG") && $$$Not(IngegevenKenmerken.LadeDiepte = "400"))
+						&& (##class(TECH.StringUtils).Equals(IngegevenKenmerken.LadeVariant, ##class(DOM.PM.enu.Variant).TandemboxMengvorm(), ##class(DOM.PM.enu.Variant).TandemboxAntaro()))
+						&& $$$Not(##class(TECH.StringUtils).Equals(PRNr, "1206479", "C"))    	//Product met opvullijst LG
+						&& ##class(TECH.StringUtils).Equals(PRNr, "535122")    {
+						
+						#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(110).String("In catch")}
+				
 		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")
@@ -149,6 +196,17 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBerekeningsSpecificatie">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</ReturnType>
+<Implementation><![CDATA[
+	#dim Personality As DOM.common.impl.Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	
+	Quit ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal, KlantID, Personality)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AXimpl/PM/SchaduwPrijs/AXProductIterator.cls.xml
===================================================================
diff -u -r65692 -r67075
--- AXimpl/PM/SchaduwPrijs/AXProductIterator.cls.xml	(.../AXProductIterator.cls.xml)	(revision 65692)
+++ AXimpl/PM/SchaduwPrijs/AXProductIterator.cls.xml	(.../AXProductIterator.cls.xml)	(revision 67075)
@@ -47,7 +47,8 @@
    	_"	case isnull(ResProductMaster.ADUCALCTECHNOLOGYBOMBOL,0) WHEN 3 THEN sl.ITEMID WHEN 0 THEN sl.ITEMID ELSE ResProduct.DISPLAYPRODUCTNUMBER END as ProductID, "
     _"      sl.ItemID, "
     _"      case isnull(ResProductMaster.ADUCALCTECHNOLOGYBOMBOL,0) WHEN 3 THEN '' WHEN 0 THEN '' ELSE dim.ConfigID END as ConfigID, "
-    _"      isnull(AdminProductNummer,'') as AdminProductNummer "
+    _"      isnull(AdminProductNummer,'') as AdminProductNummer, "
+    _"      isnull(sl.CustAccount,'') as KlantNr "
 	_" from ecoresproduct resProductMaster"
 	_" join inventtable i"
 	_"	 on i.PARTITION = resproductmasteR.PARTITION and i.product = resProductMaster.recid"