Index: zTryout/PVR/Scrapbook.cls.xml
===================================================================
diff -u -r67257 -r71464
--- zTryout/PVR/Scrapbook.cls.xml	(.../Scrapbook.cls.xml)	(revision 67257)
+++ zTryout/PVR/Scrapbook.cls.xml	(.../Scrapbook.cls.xml)	(revision 71464)
@@ -11,6 +11,115 @@
 <Private>1</Private>
 </Property>
 
+<UDLText name="T">
+<Content><![CDATA[
+/*
+SOSrpa01
+
+mcl-lt067
+matthiasC
+
+*/
+]]></Content>
+</UDLText>
+
+<Method name="GeefImageIterator">
+<Description>
+Do ##class(zTryout.PVR.Scrapbook).%New().GeefImageIterator()</Description>
+<FormalSpec>CaseID:%String=""</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim HTMLLijstVanAfbeeldingen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim HTMLLijstIteratorVanAfbeeldingen As TECH.ListIterator = ##class(TECH.ListIterator).%New(HTMLLijstVanAfbeeldingen)
+	
+	#dim JpgImageIterator as TECH.Iterator = ..GeefIteratorVanLijstVanBestandNamen("*.jpg")
+	
+	While JpgImageIterator.HasNext() {
+		Do HTMLLijstVanAfbeeldingen.Insert("<img src='images2/"_JpgImageIterator.Next()_"'/>")
+	}
+	
+	#dim PngImageIterator as TECH.Iterator = ..GeefIteratorVanLijstVanBestandNamen("*.png")
+	
+	While PngImageIterator.HasNext() {
+		Do HTMLLijstVanAfbeeldingen.Insert("<img src='images2/"_PngImageIterator.Next()_"'/>")
+	}
+	
+	If (HTMLLijstVanAfbeeldingen.Count() = 0) {
+		Do HTMLLijstVanAfbeeldingen.Insert("<p>Er zijn geen gekopelde afbeeldingen.</p>")
+	}
+	
+	Do HTMLLijstIteratorVanAfbeeldingen.Reset()
+	
+	Quit HTMLLijstIteratorVanAfbeeldingen
+]]></Implementation>
+</Method>
+
+<Method name="GeefMailIterator">
+<FormalSpec>CaseID:%String=""</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim HTMLLijstVanMails As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim HTMLLijstIteratorVanMails As TECH.ListIterator = ##class(TECH.ListIterator).%New(HTMLLijstVanMails)
+	
+	#dim MsgImageIterator as TECH.Iterator = ..GeefIteratorVanLijstVanBestandNamen("*.msg")
+	
+	While MsgImageIterator.HasNext() {
+		#dim BestandNaam As %String = MsgImageIterator.Next()
+		Do HTMLLijstVanMails.Insert("<a href='images2/"_BestandNaam_"'>"_ BestandNaam _"</a>")
+	}
+	
+	If (HTMLLijstVanMails.Count() = 0) {
+		Do HTMLLijstVanMails.Insert("<p>Er zijn geen mails.</p>")
+	}
+	
+	Do HTMLLijstIteratorVanMails.Reset()
+	
+	Quit HTMLLijstIteratorVanMails
+]]></Implementation>
+</Method>
+
+<Method name="GeefVideoIterator">
+<FormalSpec>CaseID:%String=""</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim HTMLLijstVanVideos As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim HTMLLijstIteratorVanVideos As TECH.ListIterator = ##class(TECH.ListIterator).%New(HTMLLijstVanVideos)
+	
+	#dim MsgImageIterator as TECH.Iterator = ..GeefIteratorVanLijstVanBestandNamen("*.mp4")
+	
+	While MsgImageIterator.HasNext() {
+		#dim BestandNaam As %String = MsgImageIterator.Next()
+		Do HTMLLijstVanVideos.Insert("<a href='images2/"_BestandNaam_"'>"_ BestandNaam _"</a>")
+	}
+	
+	If (HTMLLijstVanVideos.Count() = 0) {
+		Do HTMLLijstVanVideos.Insert("<p>Er zijn geen video's.</p>")
+	}
+	
+	Do HTMLLijstIteratorVanVideos.Reset()
+	
+	Quit HTMLLijstIteratorVanVideos
+]]></Implementation>
+</Method>
+
+<Method name="GeefIteratorVanLijstVanBestandNamen">
+<FormalSpec>Extensie:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim LijstBestanden As %ListOfObjects = ##class(TECH.Files).%New().GetFileList("C:\Users\PeterV\Desktop\Webpagina cases\images", Extensie)
+	#dim LijstVanBestandNamen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim IteratorLijstBestanden As TECH.Iterator = ##class(TECH.ListIterator).%New(LijstBestanden)
+	
+	While IteratorLijstBestanden.HasNext() {
+		#dim FileInfo As TECH.FileInfo = IteratorLijstBestanden.Next()
+		Do ##class(Tools.Wlip).%New(110).String($Piece(FileInfo.Name,7))
+		Do LijstVanBestandNamen.Insert($Piece(FileInfo.Name,"\",7))
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(LijstVanBestandNamen)
+]]></Implementation>
+</Method>
+
 <Method name="DoeIets">
 <Description>
 Do ##class(zTryout.PVR.Scrapbook).%New().DoeIets()</Description>
@@ -153,6 +262,113 @@
 <ClassMethod>1</ClassMethod>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+// Do ##class(zTryout.PVR.Scrapbook).%New().GeefTBXInfo(ProductId)
+
+]]></Content>
+</UDLText>
+
+<Method name="GeefTBXInfo">
+<FormalSpec>ProductList:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[
+	Set scheidingsTeken = " @ "
+	#dim List As %ListOfDataTypes= ##class(TECH.ListUtils).ListbuildToList(ProductList)
+	Set iterator = ##class(TECH.ListIterator).%New(List)
+	//Write "Actuele prijs"_$C(9)_"Schaduwprijs"_$C(9)_"Korttekst"_$C(9)_"Langtekst"
+	Write "Productnummer"_scheidingsTeken_"Actuele prijs"_scheidingsTeken_"Schaduwprijs"_scheidingsTeken_"Korttekst"_scheidingsTeken_"Langtekst"
+	while iterator.HasNext() {
+		Set ProductId = iterator.Next()
+		set t = ##class(DOM.PM.impl.DataM.DataMProduct).%New()
+		Do t.Open(ProductId)
+		Write !
+		//Write +($Piece(($$PRIJSGEG^KPRIJS(ProductId,"N")),"\",6)) _$C(9)_ +($Piece(($$PRIJSGEG^KPRIJS(ProductId,"S")),"\",6)) _$C(9)_t.GeefKorttekst()_$C(9)_t.GeefLangtekst()
+		Write ProductId_scheidingsTeken_+($Piece(($$PRIJSGEG^KPRIJS(ProductId,"N")),"\",6)) _scheidingsTeken_ +($Piece(($$PRIJSGEG^KPRIJS(ProductId,"S")),"\",6)) _scheidingsTeken_t.GeefKorttekst()_scheidingsTeken_t.GeefLangtekst()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefTBXInfoStartStop">
+<FormalSpec>ProductStart:%String,ProductStop:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set scheidingsTeken = " @ "
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	#dim Teller As %Integer = 0
+	
+	Write "Productnummer"_scheidingsTeken_"Actuele prijs"_scheidingsTeken_"Schaduwprijs"_scheidingsTeken_"Korttekst"_scheidingsTeken_"Langtekst"
+	while (ProductStart + Teller <= ProductStop){
+		Set ProductId = ProductStart + Teller
+		If (ProductTypeAPI.IsTandemboxProduct(ProductId)) {
+			set t = ##class(DOM.PM.impl.DataM.DataMProduct).%New()
+			Do t.Open(ProductId)
+			Write !
+			Write ProductId_scheidingsTeken_+($Piece(($$PRIJSGEG^KPRIJS(ProductId,"N")),"\",6)) _scheidingsTeken_ +($Piece(($$PRIJSGEG^KPRIJS(ProductId,"S")),"\",6)) _scheidingsTeken_t.GeefKorttekst()_scheidingsTeken_t.GeefLangtekst()
+		}
+		Set Teller = Teller +1
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefLBXInfoStartStop">
+<FormalSpec>ProductStart:%String,ProductStop:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set scheidingsTeken = " @ "
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	#dim Teller As %Integer = 0
+	
+	Write "Productnummer"_scheidingsTeken_"Actuele prijs"_scheidingsTeken_"Schaduwprijs"_scheidingsTeken_"Korttekst"_scheidingsTeken_"Langtekst"
+	while (ProductStart + Teller <= ProductStop){
+		Set ProductId = ProductStart + Teller
+		If (ProductTypeAPI.IsLegraboxProduct(ProductId)) {
+			set t = ##class(DOM.PM.impl.DataM.DataMProduct).%New()
+			Do t.Open(ProductId)
+			Write !
+			Write ProductId_scheidingsTeken_+($Piece(($$PRIJSGEG^KPRIJS(ProductId,"N")),"\",6)) _scheidingsTeken_ +($Piece(($$PRIJSGEG^KPRIJS(ProductId,"S")),"\",6)) _scheidingsTeken_t.GeefKorttekst()_scheidingsTeken_t.GeefLangtekst()
+		}
+		Set Teller = Teller +1
+	}
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method CalcLbxBSS() {
+
+	#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="VerwerkSpaceTowers">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -226,6 +442,1915 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GlobalRugFix">
+<Description>
+Do ##class(zTryout.PVR.Scrapbook).%New().GlobalRugFix(ProductID)</Description>
+<FormalSpec>ProductID:%String</FormalSpec>
+<Implementation><![CDATA[
+	If $Data(^PRBS("BS",ProductID,"PRRUGHS.001")) {
+		Merge ^PRBS("BS",ProductID,"RUGX.001") = ^PRBS("BS",ProductID,"PRRUGHS.001")	
+		Merge ^PRBS("IP",$Piece(^PRBS("BS",ProductID,"PRRUGHS.001"),"\",1),ProductID,"RUGX.001")= ^PRBS("IP",$Piece(^PRBS("BS",ProductID,"PRRUGHS.001"),"\",1),ProductID,"PRRUGHS.001")
+		
+		Kill ^PRBS("IP",$Piece(^PRBS("BS",ProductID,"PRRUGHS.001"),"\",1),ProductID,"PRRUGHS.001")
+		Kill ^PRBS("BS",ProductID,"PRRUGHS.001")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GlobalBodemFix">
+<Description>
+Do ##class(zTryout.PVR.Scrapbook).%New().GlobalRugFix(ProductID)</Description>
+<FormalSpec>ProductID:%String</FormalSpec>
+<Implementation><![CDATA[
+	If $Data(^PRBS("BS",ProductID,"PRBDHZ.001")) {
+		Merge ^PRBS("BS",ProductID,"PRBDHO.001") = ^PRBS("BS",ProductID,"PRBDHZ.001")	
+		Merge ^PRBS("IP",$Piece(^PRBS("BS",ProductID,"PRBDHZ.001"),"\",1),ProductID,"PRBDHO.001")= ^PRBS("IP",$Piece(^PRBS("BS",ProductID,"PRBDHZ.001"),"\",1),ProductID,"PRBDHZ.001")
+		
+		Kill ^PRBS("IP",$Piece(^PRBS("BS",ProductID,"PRBDHZ.001"),"\",1),ProductID,"PRBDHZ.001")
+		Kill ^PRBS("BS",ProductID,"PRBDHZ.001")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstTbxProducten">
+<Description>
+Set Lst = ##class(zTryout.PVR.Scrapbook).%New().GeefLijstTbxProducten()  Write Lst.Count(),! </Description>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set LijstProductIds = ##class(%ListOfDataTypes).%New()
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	#dim ProductAPI As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	#dim IngegevenKenmerkenAPI As DOM.PM.IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).%New().GeefIngegevenKenmerkenAPI()
+	
+	#dim SubNode As %String
+	Set SubNode = $H
+	
+	#dim ProductId As %String = 0   ; 3499999
+	For ProductId =   520398 : 1 : 520400 {
+		If ($Piece($$GENTYP^HAD(ProductId,,1),"\",1) = "TBX") {			
+			/*#dim MustRecalcBSS As %Boolean = $$$True  ;   ($P($G(^PRBS("BSS",ProductId,"PRLALI.001")),"\",2) > 1)
+			
+			If (MustRecalcBSS) {
+				#dim Product As DOM.PM.impl.MaatwerkProductImpl = ProductAPI.GeefProduct(4384493)
+				#dim ProductAPI As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+				#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = Product.GeefIngegevenKenmerken()
+				
+				Set WS = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails).%New()
+				Do WS.GeefMaatwerkDetails(IngegevenKenmerken, "12486", 1)
+				
+				
+				//"KlantID":12486, "ProductData": { "klassenaam":"WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails.ProductData", "DossierNummer":"UBFJ", "PRNr":4384493}, "ZijkantLogoData": { "klassenaam":"WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails.ZijkantLogoData", "Hoogte":15.9, "IsGratis":false, "Naam":"Fässler"}}
+				
+			}*/
+			/*
+			If $Data(^PRBS("BS",ProductId,"RUGX.001")) {
+				Do LijstProductIds.Insert(ProductId)
+			}
+			*/
+			
+			If $Data(^PRBS("BS",ProductId,"PRBDHZ.001")) {
+				;Do ..GlobalRugFix(ProductId)
+				Do ..GlobalBodemFix(ProductId)
+				Do LijstProductIds.Insert(ProductId)
+			}
+			
+			
+		}
+	}
+	;Do ##class(Tools.Wlip).%New(110).ListOfDataTypes(LijstProductIds)
+	
+	
+	Quit LijstProductIds
+]]></Implementation>
+</Method>
+
+<Method name="GeefKorttekstVanProduct">
+<Description>
+Alle x38 ruggen
+Do ##class(zTryout.PVR.Scrapbook).%New().GeefKorttekstVanProduct()</Description>
+<FormalSpec>ProductID:%Integer</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim DataMProduct As DOM.PM.impl.DataM.DataMProduct = ##class(DOM.PM.impl.DataM.DataMProduct).%New()
+	//Do DataMProduct.Open(ProductID)
+	
+	Set Lijst = ##class(%ListOfDataTypes).%New()
+	
+	Do Lijst.Insert(937835)
+	Do Lijst.Insert(937842)
+	Do Lijst.Insert(942898)
+	Do Lijst.Insert(943175)
+	Do Lijst.Insert(943176)
+	Do Lijst.Insert(943177)
+	Do Lijst.Insert(1074469)
+	Do Lijst.Insert(1198789)
+	Do Lijst.Insert(1198802)
+	Do Lijst.Insert(1198804)
+	Do Lijst.Insert(1666108)
+	Do Lijst.Insert(1666110)
+	Do Lijst.Insert(1666112)
+	Do Lijst.Insert(1741086)
+	Do Lijst.Insert(1741103)
+	Do Lijst.Insert(1782849)
+	Do Lijst.Insert(1789592)
+	Do Lijst.Insert(1789617)
+	Do Lijst.Insert(1803810)
+	Do Lijst.Insert(1803811)
+	Do Lijst.Insert(1817883)
+	Do Lijst.Insert(1817884)
+	Do Lijst.Insert(1817890)
+	Do Lijst.Insert(1820987)
+	Do Lijst.Insert(1821457)
+	Do Lijst.Insert(1834815)
+	Do Lijst.Insert(1834834)
+	Do Lijst.Insert(1884216)
+	Do Lijst.Insert(1978614)
+	Do Lijst.Insert(1994137)
+	Do Lijst.Insert(2072405)
+	Do Lijst.Insert(2150118)
+	Do Lijst.Insert(2179412)
+	Do Lijst.Insert(2226185)
+	Do Lijst.Insert(2231032)
+	Do Lijst.Insert(2275159)
+	Do Lijst.Insert(2275160)
+	Do Lijst.Insert(2307022)
+	Do Lijst.Insert(2311758)
+	Do Lijst.Insert(2312379)
+	Do Lijst.Insert(2312391)
+	Do Lijst.Insert(2312400)
+	Do Lijst.Insert(2312501)
+	Do Lijst.Insert(2312502)
+	Do Lijst.Insert(2312504)
+	Do Lijst.Insert(2312867)
+	Do Lijst.Insert(2312868)
+	Do Lijst.Insert(2312874)
+	Do Lijst.Insert(2336459)
+	Do Lijst.Insert(2357299)
+	Do Lijst.Insert(2377742)
+	Do Lijst.Insert(2377751)
+	Do Lijst.Insert(2377752)
+	Do Lijst.Insert(2394520)
+	Do Lijst.Insert(2402073)
+	Do Lijst.Insert(2427778)
+	Do Lijst.Insert(2446744)
+	Do Lijst.Insert(2459223)
+	Do Lijst.Insert(2470101)
+	Do Lijst.Insert(2481583)
+	Do Lijst.Insert(2488335)
+	Do Lijst.Insert(2505928)
+	Do Lijst.Insert(2505929)
+	Do Lijst.Insert(2505934)
+	Do Lijst.Insert(2578081)
+	Do Lijst.Insert(2620558)
+	Do Lijst.Insert(2620559)
+	Do Lijst.Insert(2629396)
+	Do Lijst.Insert(2637480)
+	Do Lijst.Insert(2651894)
+	Do Lijst.Insert(2702215)
+	Do Lijst.Insert(2702220)
+	Do Lijst.Insert(2911325)
+	Do Lijst.Insert(3305620)
+	Do Lijst.Insert(3305627)
+	
+	Set Iterator = ##class(TECH.ListIterator).%New(Lijst)
+	
+	While Iterator.HasNext() {
+			//Do DataMProduct.Open(ProductID)
+		Set PRNr = Iterator.Next()
+		If $L($Piece($G(^PRBS("BS",PRNr,"RUGX.001")),"\",1)) > 0 {
+			If $$$Not(##class(TECH.StringUtils).Equals($Piece(^PRBS("BS",PRNr,"RUGX.001"),"\",1),"1719202","1719204")) {
+				//Do ##class(Tools.Wlip).%New(110).String(PRNr)
+			
+			Do DataMProduct.Open(PRNr)
+			If ($Extract(DataMProduct.GeefKorttekst(),24,25) = "LG") {
+				Set $Piece(^PRBS("BS",PRNr,"RUGX.001"),"\",1) = "1719202"
+			}
+			If ($Extract(DataMProduct.GeefKorttekst(),24,25) = "DG") {
+				Set $Piece(^PRBS("BS",PRNr,"RUGX.001"),"\",1) = "1719204"
+			}
+			
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="wlipIKTBX">
+<Description>
+Do ##class(zTryout.PVR.Scrapbook).%New().wlipIKTBX(PRNr)</Description>
+<FormalSpec>PRNr</FormalSpec>
+<Implementation><![CDATA[
+	Set productAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set Product = productAPI.GeefProduct(PRNr)
+	Set IK = Product.GeefIngegevenKenmerken()
+	Do ##class(Tools.Wlip).%New(110).ObjToText(IK)
+	
+	Set conv = ##class(DOTNET.PM.Maatwerk.Converter.DomNaarDotnet.TbxKenmerken).%New()
+	Set dotnetIK = conv.Convert(IK)
+	Do ##class(Tools.Wlip).%New(110).ObjToText(dotnetIK)
+]]></Implementation>
+</Method>
+
+<Method name="GenerischProdAanpassen">
+<Description>
+Do ##class(zTryout.PVR.Scrapbook).%New().GenerischProdAanpassen()</Description>
+<Implementation><![CDATA[
+	Set LijstProductIds = ##class(%ListOfDataTypes).%New()
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	#dim ProductAPI As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	#dim IngegevenKenmerkenAPI As DOM.PM.IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).%New().GeefIngegevenKenmerkenAPI()
+	
+	#dim SubNode As %String
+	Set SubNode = $H
+	Set Teller = 0
+	
+	#dim ProductId As %String = 0
+	For ProductId =   3480000 : 1 : 3580000 {
+		If (ProductAPI.BestaatProduct(ProductId) && ($Piece($$GENTYP^HAD(ProductId,,1),"\",1) = "TBX")) {
+			#dim Verpakking = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX", ProductId, "VERPAK"),1) //$LG(^Prod.Ken.DataDefinitieD(ProductId,"TBX||VERPAK"),1)
+			#dim KPRNul = ^KPR(ProductId, 0)
+			#dim GenProdId = $Piece(^KPR(ProductId, 0), "\", 3)
+			
+			If ##class(TECH.StringUtils).Equals(Verpakking, "X") && $$$Not(GenProdId = ##class(DOM.PM.Maatwerk.enu.GenerischProductID).TBXProbox()) {
+				Set Teller = Teller +1
+				Set ^KPR(ProductId, 0) = ##class(TECH.StringUtils).Replace(KPRNul,"\" _GenProdId_ "\", "\" _ ##class(DOM.PM.Maatwerk.enu.GenerischProductID).TBXProbox()_ "\" )
+			} ElseIf ##class(TECH.StringUtils).Equals(Verpakking, "B") && $$$Not(GenProdId = ##class(DOM.PM.Maatwerk.enu.GenerischProductID).TBXVHoss()) {
+				Set Teller = Teller +1
+				Set ^KPR(ProductId, 0) = ##class(TECH.StringUtils).Replace(KPRNul,"\" _GenProdId_ "\", "\" _ ##class(DOM.PM.Maatwerk.enu.GenerischProductID).TBXVHoss()_ "\" )
+			} ElseIf ##class(TECH.StringUtils).Equals(Verpakking, "P") && $$$Not(GenProdId = ##class(DOM.PM.Maatwerk.enu.GenerischProductID).TBXPallet()) {
+				Set Teller = Teller +1
+				Set ^KPR(ProductId, 0) = ##class(TECH.StringUtils).Replace(KPRNul,"\" _GenProdId_ "\", "\" _ ##class(DOM.PM.Maatwerk.enu.GenerischProductID).TBXPallet()_ "\" )
+			}
+			
+		}
+	}
+	Write Teller
+]]></Implementation>
+</Method>
+
+<Method name="PairIdMetLengte">
+<Description>
+Do ##class(zTryout.PVR.Scrapbook).%New().PairIdMetLengte()</Description>
+<Implementation><![CDATA[
+	Set ProductAPI = ##class(DOM.PM.impl.ProductAPI).%New()
+	
+	#dim LengteProduct As %Integer 
+	Set Lijst = ##class(%ListOfDataTypes).%New()
+	
+	Do Lijst.Insert("9.300.420.16")
+	Do Lijst.Insert("9.541.613.2")
+	Do Lijst.Insert("9.945.064.16")
+	Do Lijst.Insert("9.541.508.2")
+	Do Lijst.Insert("9.945.129.16")
+	Do Lijst.Insert("9.680.265.2")
+	Do Lijst.Insert("9.541.664.2")
+	Do Lijst.Insert("9.541.630.2")
+	Do Lijst.Insert("9.541.681.2")
+	Do Lijst.Insert("9.541.737.2")
+	Do Lijst.Insert("7.002.210.5")
+	Do Lijst.Insert("9.945.111.16")
+	Do Lijst.Insert("9.541.672.2")
+	Do Lijst.Insert("9.542.148.2")
+	Do Lijst.Insert("K.441.164.0")
+	Do Lijst.Insert("0.441.164.0")
+	Do Lijst.Insert("K.972.453.8")
+	Do Lijst.Insert("K.847.902.0")
+	Do Lijst.Insert("0.847.902.0")
+	Do Lijst.Insert("0.847.902.2")
+	Do Lijst.Insert("0.847.902.4")
+	Do Lijst.Insert("K.152.613.5")
+	Do Lijst.Insert("K.847.339.0")
+	Do Lijst.Insert("0.847.339.0")
+	Do Lijst.Insert("0.847.339.2")
+	Do Lijst.Insert("0.847.339.4")
+	Do Lijst.Insert("0.352.100.0")
+	Do Lijst.Insert("K.627.209.0")
+	Do Lijst.Insert("0.975.278.0")
+	Do Lijst.Insert("0.975.278.2")
+	Do Lijst.Insert("0.975.278.4")
+	Do Lijst.Insert("0.417.140.0")
+	Do Lijst.Insert("9.282.936.9")
+	Do Lijst.Insert("9.283.029.9")
+	Do Lijst.Insert("9.283.118.9")
+	Do Lijst.Insert("9.283.207.9")
+	Do Lijst.Insert("9.282.944.9")
+	Do Lijst.Insert("9.283.037.9")
+	Do Lijst.Insert("9.283.126.9")
+	Do Lijst.Insert("9.283.215.9")
+	Do Lijst.Insert("9.282.952.9")
+	Do Lijst.Insert("9.283.045.9")
+	Do Lijst.Insert("9.283.223.9")
+	Do Lijst.Insert("9.282.961.9")
+	Do Lijst.Insert("9.283.053.9")
+	Do Lijst.Insert("9.283.231.9")
+	Do Lijst.Insert("9.282.979.9")
+	Do Lijst.Insert("9.283.061.9")
+	Do Lijst.Insert("9.283.151.9")
+	Do Lijst.Insert("9.283.240.9")
+	Do Lijst.Insert("9.282.987.9")
+	Do Lijst.Insert("9.283.070.9")
+	Do Lijst.Insert("9.283.169.9")
+	Do Lijst.Insert("9.283.258.9")
+	Do Lijst.Insert("9.283.177.9")
+	Do Lijst.Insert("9.283.002.9")
+	Do Lijst.Insert("9.283.096.9")
+	Do Lijst.Insert("9.283.185.9")
+	Do Lijst.Insert("9.283.274.9")
+	Do Lijst.Insert("9.283.011.9")
+	Do Lijst.Insert("9.283.100.9")
+	Do Lijst.Insert("9.283.193.9")
+	Do Lijst.Insert("9.283.282.9")
+	Do Lijst.Insert("9.783.331.7")
+	Do Lijst.Insert("9.825.816.7")
+	Do Lijst.Insert("9.826.031.7")
+	Do Lijst.Insert("9.827.452.7")
+	Do Lijst.Insert("9.821.888.7")
+	Do Lijst.Insert("9.825.841.7")
+	Do Lijst.Insert("9.826.154.7")
+	Do Lijst.Insert("9.827.461.7")
+	Do Lijst.Insert("9.822.558.7")
+	Do Lijst.Insert("9.825.859.7")
+	Do Lijst.Insert("9.826.162.7")
+	Do Lijst.Insert("9.827.479.7")
+	Do Lijst.Insert("9.822.566.7")
+	Do Lijst.Insert("9.825.867.7")
+	Do Lijst.Insert("9.826.171.7")
+	Do Lijst.Insert("9.827.487.7")
+	Do Lijst.Insert("9.822.574.7")
+	Do Lijst.Insert("9.825.875.7")
+	Do Lijst.Insert("9.826.189.7")
+	Do Lijst.Insert("9.827.495.7")
+	Do Lijst.Insert("9.822.582.7")
+	Do Lijst.Insert("9.825.891.7")
+	Do Lijst.Insert("9.826.502.7")
+	Do Lijst.Insert("9.827.509.7")
+	Do Lijst.Insert("9.822.591.7")
+	Do Lijst.Insert("9.825.913.7")
+	Do Lijst.Insert("9.826.511.7")
+	Do Lijst.Insert("9.827.517.7")
+	Do Lijst.Insert("9.822.604.7")
+	Do Lijst.Insert("9.825.921.7")
+	Do Lijst.Insert("9.826.529.7")
+	Do Lijst.Insert("9.827.525.7")
+	Do Lijst.Insert("9.822.647.7")
+	Do Lijst.Insert("9.825.948.7")
+	Do Lijst.Insert("9.826.537.7")
+	Do Lijst.Insert("9.827.550.7")
+	Do Lijst.Insert("0.883.712.2")
+	Do Lijst.Insert("0.811.361.0")
+	Do Lijst.Insert("0.811.361.2")
+	Do Lijst.Insert("0.811.361.4")
+	Do Lijst.Insert("9.105.368.13")
+	Do Lijst.Insert("9.105.376.13")
+	Do Lijst.Insert("9.105.457.13")
+	Do Lijst.Insert("9.105.325.13")
+	Do Lijst.Insert("9.105.465.13")
+	Do Lijst.Insert("9.105.333.13")
+	Do Lijst.Insert("9.105.473.13")
+	Do Lijst.Insert("9.105.252.13")
+	Do Lijst.Insert("9.105.481.13")
+	Do Lijst.Insert("9.105.261.13")
+	Do Lijst.Insert("9.105.490.13")
+	Do Lijst.Insert("9.105.406.13")
+	Do Lijst.Insert("9.105.279.13")
+	Do Lijst.Insert("9.105.384.13")
+	Do Lijst.Insert("9.105.503.13")
+	Do Lijst.Insert("9.105.511.13")
+	Do Lijst.Insert("9.105.287.13")
+	Do Lijst.Insert("9.105.295.13")
+	Do Lijst.Insert("9.105.309.13")
+	Do Lijst.Insert("9.105.317.13")
+	Do Lijst.Insert("9.105.341.13")
+	Do Lijst.Insert("9.105.414.13")
+	Do Lijst.Insert("9.105.350.13")
+	Do Lijst.Insert("9.105.392.13")
+	Do Lijst.Insert("9.105.422.13")
+	Do Lijst.Insert("9.105.431.13")
+	Do Lijst.Insert("9.105.449.13")
+	Do Lijst.Insert("9.836.052.10")
+	Do Lijst.Insert("9.859.371.10")
+	Do Lijst.Insert("9.859.401.10")
+	Do Lijst.Insert("9.859.419.10")
+	Do Lijst.Insert("9.859.443.10")
+	Do Lijst.Insert("9.859.451.10")
+	Do Lijst.Insert("9.859.460.10")
+	Do Lijst.Insert("9.915.629.10")
+	Do Lijst.Insert("9.915.637.10")
+	Do Lijst.Insert("9.915.572.10")
+	Do Lijst.Insert("9.907.898.10")
+	Do Lijst.Insert("9.907.901.10")
+	Do Lijst.Insert("9.842.541.10")
+	Do Lijst.Insert("9.842.974.10")
+	Do Lijst.Insert("9.842.982.10")
+	Do Lijst.Insert("9.843.610.10")
+	Do Lijst.Insert("9.905.810.10")
+	Do Lijst.Insert("9.907.235.10")
+	Do Lijst.Insert("9.907.499.10")
+	Do Lijst.Insert("9.907.677.10")
+	Do Lijst.Insert("9.907.715.10")
+	Do Lijst.Insert("9.907.740.10")
+	Do Lijst.Insert("9.907.855.10")
+	Do Lijst.Insert("9.907.863.10")
+	Do Lijst.Insert("9.908.916.10")
+	Do Lijst.Insert("9.909.009.10")
+	Do Lijst.Insert("9.843.946.10")
+	Do Lijst.Insert("9.907.910.10")
+	Do Lijst.Insert("9.916.170.10")
+	Do Lijst.Insert("0.210.175.7")
+	Do Lijst.Insert("0.884.311.5")
+	Do Lijst.Insert("0.434.438.5")
+	Do Lijst.Insert("0.307.091.5")
+	Do Lijst.Insert("0.269.993.8")
+	Do Lijst.Insert("0.608.865.6")
+	Do Lijst.Insert("0.432.184.0")
+	Do Lijst.Insert("0.554.977.7")
+	Do Lijst.Insert("0.522.173.4")
+	Do Lijst.Insert("0.932.545.2")
+	Do Lijst.Insert("0.161.326.7")
+	Do Lijst.Insert("0.834.699.7")
+	Do Lijst.Insert("0.924.098.0")
+	Do Lijst.Insert("0.335.914.8")
+	Do Lijst.Insert("0.213.421.9")
+	Do Lijst.Insert("0.705.314.3")
+	Do Lijst.Insert("0.975.101.3")
+	Do Lijst.Insert("0.893.707.5")
+	Do Lijst.Insert("0.589.758.7")
+	Do Lijst.Insert("0.751.342.4")
+	Do Lijst.Insert("0.773.147.6")
+	Do Lijst.Insert("0.942.522.5")
+	Do Lijst.Insert("0.624.279.3")
+	Do Lijst.Insert("0.130.201.3")
+	Do Lijst.Insert("0.185.909.2")
+	Do Lijst.Insert("0.806.302.2")
+	Do Lijst.Insert("0.810.731.6")
+	Do Lijst.Insert("K.210.175.7")
+	Do Lijst.Insert("7.001.807.1")
+	Do Lijst.Insert("7.001.809.3")
+	Do Lijst.Insert("7.001.808.2")
+	Do Lijst.Insert("7.001.810.4")
+	Do Lijst.Insert("7.001.811.5")
+	Do Lijst.Insert("7.001.812.6")
+	Do Lijst.Insert("7.001.813.0")
+	Do Lijst.Insert("7.001.814.1")
+	Do Lijst.Insert("7.001.815.2")
+	Do Lijst.Insert("7.001.816.3")
+	Do Lijst.Insert("7.001.817.4")
+	Do Lijst.Insert("7.001.818.5")
+	Do Lijst.Insert("7.002.150.1")
+	Do Lijst.Insert("7.002.151.2")
+	Do Lijst.Insert("7.002.152.3")
+	Do Lijst.Insert("7.002.153.4")
+	Do Lijst.Insert("7.002.154.5")
+	Do Lijst.Insert("7.002.155.6")
+	Do Lijst.Insert("7.002.156.0")
+	Do Lijst.Insert("7.002.157.1")
+	Do Lijst.Insert("7.002.169.6")
+	Do Lijst.Insert("7.002.167.4")
+	Do Lijst.Insert("7.002.168.5")
+	Do Lijst.Insert("7.002.166.3")
+	Do Lijst.Insert("K.944.773.4")
+	Do Lijst.Insert("K.728.773.8")
+	Do Lijst.Insert("0.944.773.4")
+	Do Lijst.Insert("0.728.773.8")
+	Do Lijst.Insert("0.735.201.1")
+	Do Lijst.Insert("K.223.093.4")
+	Do Lijst.Insert("K.667.388.8")
+	Do Lijst.Insert("0.223.093.4")
+	Do Lijst.Insert("0.667.388.8")
+	Do Lijst.Insert("0.933.650.1")
+	Do Lijst.Insert("0.740.899.3")
+	Do Lijst.Insert("0.315.038.9")
+	Do Lijst.Insert("0.434.798.4")
+	Do Lijst.Insert("0.161.949.3")
+	Do Lijst.Insert("0.816.847.8")
+	Do Lijst.Insert("0.661.019.2")
+	Do Lijst.Insert("0.142.225.6")
+	Do Lijst.Insert("0.718.333.3")
+	Do Lijst.Insert("0.879.059.5")
+	Do Lijst.Insert("0.249.824.6")
+	Do Lijst.Insert("0.240.646.3")
+	Do Lijst.Insert("0.154.884.7")
+	Do Lijst.Insert("0.798.281.6")
+	Do Lijst.Insert("0.422.276.6")
+	Do Lijst.Insert("0.798.493.9")
+	Do Lijst.Insert("0.558.124.6")
+	Do Lijst.Insert("0.551.198.2")
+	Do Lijst.Insert("0.910.398.2")
+	Do Lijst.Insert("0.184.540.3")
+	Do Lijst.Insert("0.485.123.8")
+	Do Lijst.Insert("0.962.975.9")
+	Do Lijst.Insert("0.428.693.8")
+	Do Lijst.Insert("0.404.089.8")
+	Do Lijst.Insert("0.917.712.9")
+	Do Lijst.Insert("0.497.306.4")
+	Do Lijst.Insert("0.314.198.6")
+	Do Lijst.Insert("0.712.682.8")
+	Do Lijst.Insert("0.751.091.8")
+	Do Lijst.Insert("0.187.443.9")
+	Do Lijst.Insert("0.974.058.9")
+	Do Lijst.Insert("0.870.542.4")
+	Do Lijst.Insert("0.235.778.8")
+	Do Lijst.Insert("0.884.672.8")
+	Do Lijst.Insert("K.884.672.8")
+	Do Lijst.Insert("0.811.886.1")
+	Do Lijst.Insert("0.240.274.0")
+	Do Lijst.Insert("K.240.274.0")
+	Do Lijst.Insert("0.723.648.7")
+	Do Lijst.Insert("K.723.648.7")
+	Do Lijst.Insert("0.609.027.6")
+	Do Lijst.Insert("K.609.027.6")
+	Do Lijst.Insert("0.181.983.8")
+	Do Lijst.Insert("0.318.134.3")
+	Do Lijst.Insert("K.318.134.3")
+	Do Lijst.Insert("0.507.593.4")
+	Do Lijst.Insert("0.899.567.1")
+	Do Lijst.Insert("0.637.111.5")
+	Do Lijst.Insert("0.447.756.1")
+	Do Lijst.Insert("0.933.933.7")
+	Do Lijst.Insert("K.362.618.3")
+	Do Lijst.Insert("0.362.618.3")
+	Do Lijst.Insert("0.150.066.2")
+	Do Lijst.Insert("0.452.370.6")
+	Do Lijst.Insert("0.514.072.6")
+	Do Lijst.Insert("9.687.537.14")
+	Do Lijst.Insert("9.345.539.12")
+	Do Lijst.Insert("7.001.321.5")
+	Do Lijst.Insert("7.000.347.4")
+	Do Lijst.Insert("9.090.263.16")
+	Do Lijst.Insert("9.346.641.12")
+	Do Lijst.Insert("9.090.298.16")
+	Do Lijst.Insert("9.803.421.14")
+	Do Lijst.Insert("9.678.121.12")
+	Do Lijst.Insert("7.001.324.1")
+	Do Lijst.Insert("7.000.567.0")
+	Do Lijst.Insert("9.090.361.16")
+	Do Lijst.Insert("9.678.384.12")
+	Do Lijst.Insert("9.090.379.16")
+	Do Lijst.Insert("7.001.166.4")
+	Do Lijst.Insert("9.090.310.16")
+	Do Lijst.Insert("9.090.328.16")
+	Do Lijst.Insert("7.001.164.2")
+	Do Lijst.Insert("9.687.651.14")
+	Do Lijst.Insert("9.458.074.10")
+	Do Lijst.Insert("7.001.322.6")
+	Do Lijst.Insert("7.000.566.6")
+	Do Lijst.Insert("9.458.031.10")
+	Do Lijst.Insert("9.090.336.16")
+	Do Lijst.Insert("9.090.344.16")
+	Do Lijst.Insert("9.688.134.14")
+	Do Lijst.Insert("9.457.680.10")
+	Do Lijst.Insert("7.001.323.0")
+	Do Lijst.Insert("7.000.565.5")
+	Do Lijst.Insert("9.457.671.10")
+	Do Lijst.Insert("9.944.092.17")
+	Do Lijst.Insert("7.001.334.4")
+	Do Lijst.Insert("9.281.174.10")
+	Do Lijst.Insert("9.387.614.10")
+	Do Lijst.Insert("7.001.431.3")
+	Do Lijst.Insert("9.491.357.16")
+	Do Lijst.Insert("7.000.497.0")
+	Do Lijst.Insert("7.002.478.0")
+	Do Lijst.Insert("9.388.068.10")
+	Do Lijst.Insert("9.944.271.17")
+	Do Lijst.Insert("7.001.336.6")
+	Do Lijst.Insert("9.287.598.10")
+	Do Lijst.Insert("9.391.697.10")
+	Do Lijst.Insert("7.001.432.4")
+	Do Lijst.Insert("9.631.744.16")
+	Do Lijst.Insert("7.000.498.1")
+	Do Lijst.Insert("7.002.479.1")
+	Do Lijst.Insert("9.391.735.10")
+	Do Lijst.Insert("7.000.267.1")
+	Do Lijst.Insert("7.000.263.4")
+	Do Lijst.Insert("7.000.264.5")
+	Do Lijst.Insert("7.000.266.0")
+	Do Lijst.Insert("7.000.510.6")
+	Do Lijst.Insert("7.000.265.6")
+	Do Lijst.Insert("7.000.262.3")
+	Do Lijst.Insert("9.973.246.17")
+	Do Lijst.Insert("7.001.337.0")
+	Do Lijst.Insert("9.593.737.12")
+	Do Lijst.Insert("9.593.745.12")
+	Do Lijst.Insert("7.001.434.6")
+	Do Lijst.Insert("9.632.180.16")
+	Do Lijst.Insert("7.000.511.0")
+	Do Lijst.Insert("7.002.481.3")
+	Do Lijst.Insert("9.593.818.12")
+	Do Lijst.Insert("9.350.389.14")
+	Do Lijst.Insert("9.943.797.17")
+	Do Lijst.Insert("7.001.335.5")
+	Do Lijst.Insert("9.288.071.10")
+	Do Lijst.Insert("9.631.931.16")
+	Do Lijst.Insert("7.000.499.2")
+	Do Lijst.Insert("7.002.480.2")
+	Do Lijst.Insert("9.392.073.10")
+	Do Lijst.Insert("7.001.433.5")
+	Do Lijst.Insert("9.392.081.10")
+	Do Lijst.Insert("7.002.110.3")
+	Do Lijst.Insert("7.002.204.6")
+	Do Lijst.Insert("7.002.111.4")
+	Do Lijst.Insert("9.781.762.8")
+	Do Lijst.Insert("9.988.243.15")
+	Do Lijst.Insert("9.781.789.8")
+	Do Lijst.Insert("9.988.251.15")
+	Do Lijst.Insert("9.781.801.8")
+	Do Lijst.Insert("9.988.260.15")
+	Do Lijst.Insert("9.781.827.8")
+	Do Lijst.Insert("9.988.278.15")
+	Do Lijst.Insert("9.781.843.8")
+	Do Lijst.Insert("9.988.286.15")
+	Do Lijst.Insert("9.781.860.8")
+	Do Lijst.Insert("9.988.294.15")
+	Do Lijst.Insert("9.781.886.8")
+	Do Lijst.Insert("9.988.308.15")
+	Do Lijst.Insert("9.781.908.8")
+	Do Lijst.Insert("9.988.316.15")
+	Do Lijst.Insert("9.781.924.8")
+	Do Lijst.Insert("9.988.324.15")
+	Do Lijst.Insert("9.782.203.8")
+	Do Lijst.Insert("7.002.271.3")
+	Do Lijst.Insert("7.002.281.6")
+	Do Lijst.Insert("9.988.332.15")
+	Do Lijst.Insert("9.782.211.8")
+	Do Lijst.Insert("7.002.272.4")
+	Do Lijst.Insert("7.002.282.0")
+	Do Lijst.Insert("9.988.341.15")
+	Do Lijst.Insert("9.782.220.8")
+	Do Lijst.Insert("7.002.273.5")
+	Do Lijst.Insert("7.002.283.1")
+	Do Lijst.Insert("9.988.359.15")
+	Do Lijst.Insert("9.782.238.8")
+	Do Lijst.Insert("7.002.274.6")
+	Do Lijst.Insert("7.002.284.2")
+	Do Lijst.Insert("9.988.367.15")
+	Do Lijst.Insert("9.782.246.8")
+	Do Lijst.Insert("7.002.275.0")
+	Do Lijst.Insert("7.002.285.3")
+	Do Lijst.Insert("9.988.375.15")
+	Do Lijst.Insert("9.042.269.9")
+	Do Lijst.Insert("9.053.929.9")
+	Do Lijst.Insert("9.042.251.9")
+	Do Lijst.Insert("9.960.438.8")
+	Do Lijst.Insert("9.988.405.15")
+	Do Lijst.Insert("9.960.454.8")
+	Do Lijst.Insert("9.988.383.15")
+	Do Lijst.Insert("9.960.471.8")
+	Do Lijst.Insert("9.988.391.15")
+	Do Lijst.Insert("9.365.386.9")
+	Do Lijst.Insert("9.086.819.9")
+	Do Lijst.Insert("9.390.925.11")
+	Do Lijst.Insert("7.002.235.2")
+	Do Lijst.Insert("7.002.244.4")
+	Do Lijst.Insert("7.002.253.6")
+	Do Lijst.Insert("7.002.262.1")
+	Do Lijst.Insert("7.002.236.3")
+	Do Lijst.Insert("7.002.245.5")
+	Do Lijst.Insert("7.002.254.0")
+	Do Lijst.Insert("7.002.263.2")
+	Do Lijst.Insert("7.002.237.4")
+	Do Lijst.Insert("7.002.246.6")
+	Do Lijst.Insert("7.002.255.1")
+	Do Lijst.Insert("7.002.264.3")
+	Do Lijst.Insert("7.002.238.5")
+	Do Lijst.Insert("7.002.247.0")
+	Do Lijst.Insert("7.002.256.2")
+	Do Lijst.Insert("7.002.265.4")
+	Do Lijst.Insert("7.002.239.6")
+	Do Lijst.Insert("7.002.248.1")
+	Do Lijst.Insert("7.002.257.3")
+	Do Lijst.Insert("7.002.266.5")
+	Do Lijst.Insert("7.002.240.0")
+	Do Lijst.Insert("7.002.249.2")
+	Do Lijst.Insert("7.002.258.4")
+	Do Lijst.Insert("7.002.267.6")
+	Do Lijst.Insert("7.002.241.1")
+	Do Lijst.Insert("7.002.250.3")
+	Do Lijst.Insert("7.002.259.5")
+	Do Lijst.Insert("7.002.268.0")
+	Do Lijst.Insert("7.002.242.2")
+	Do Lijst.Insert("7.002.251.4")
+	Do Lijst.Insert("7.002.260.6")
+	Do Lijst.Insert("7.002.269.1")
+	Do Lijst.Insert("7.002.243.3")
+	Do Lijst.Insert("7.002.252.5")
+	Do Lijst.Insert("7.002.261.0")
+	Do Lijst.Insert("7.002.270.2")
+	Do Lijst.Insert("7.001.687.0")
+	Do Lijst.Insert("7.001.688.1")
+	Do Lijst.Insert("7.001.689.2")
+	Do Lijst.Insert("7.001.690.3")
+	Do Lijst.Insert("7.001.691.4")
+	Do Lijst.Insert("7.001.692.5")
+	Do Lijst.Insert("7.002.041.4")
+	Do Lijst.Insert("7.001.693.6")
+	Do Lijst.Insert("7.001.694.0")
+	Do Lijst.Insert("7.001.695.1")
+	Do Lijst.Insert("7.002.276.1")
+	Do Lijst.Insert("7.002.286.4")
+	Do Lijst.Insert("7.001.708.0")
+	Do Lijst.Insert("7.002.119.5")
+	Do Lijst.Insert("7.002.278.3")
+	Do Lijst.Insert("7.002.288.6")
+	Do Lijst.Insert("7.001.707.6")
+	Do Lijst.Insert("7.002.279.4")
+	Do Lijst.Insert("7.002.289.0")
+	Do Lijst.Insert("7.001.706.5")
+	Do Lijst.Insert("7.002.118.4")
+	Do Lijst.Insert("7.002.280.5")
+	Do Lijst.Insert("7.002.290.1")
+	Do Lijst.Insert("7.001.705.4")
+	Do Lijst.Insert("7.001.713.5")
+	Do Lijst.Insert("7.001.710.2")
+	Do Lijst.Insert("7.002.292.3")
+	Do Lijst.Insert("7.001.714.6")
+	Do Lijst.Insert("7.001.711.3")
+	Do Lijst.Insert("7.002.293.4")
+	Do Lijst.Insert("7.001.715.0")
+	Do Lijst.Insert("7.001.712.4")
+	Do Lijst.Insert("7.002.294.5")
+	Do Lijst.Insert("7.001.696.2")
+	Do Lijst.Insert("7.001.697.3")
+	Do Lijst.Insert("7.001.698.4")
+	Do Lijst.Insert("7.001.699.5")
+	Do Lijst.Insert("7.001.700.6")
+	Do Lijst.Insert("7.001.701.0")
+	Do Lijst.Insert("7.002.042.5")
+	Do Lijst.Insert("7.001.702.1")
+	Do Lijst.Insert("7.001.703.2")
+	Do Lijst.Insert("7.002.095.2")
+	Do Lijst.Insert("7.001.704.3")
+	Do Lijst.Insert("8.680.532.5")
+	Do Lijst.Insert("8.681.199.5")
+	Do Lijst.Insert("8.681.181.5")
+	Do Lijst.Insert("8.681.202.5")
+	Do Lijst.Insert("8.680.711.5")
+	Do Lijst.Insert("8.681.211.5")
+	Do Lijst.Insert("8.681.059.5")
+	Do Lijst.Insert("8.681.229.5")
+	Do Lijst.Insert("8.681.067.5")
+	Do Lijst.Insert("8.681.237.5")
+	Do Lijst.Insert("8.681.075.5")
+	Do Lijst.Insert("8.681.245.5")
+	Do Lijst.Insert("8.681.083.5")
+	Do Lijst.Insert("8.681.253.5")
+	Do Lijst.Insert("8.681.172.5")
+	Do Lijst.Insert("8.681.261.5")
+	Do Lijst.Insert("8.681.091.5")
+	Do Lijst.Insert("8.681.270.5")
+	Do Lijst.Insert("8.681.113.5")
+	Do Lijst.Insert("8.681.288.5")
+	Do Lijst.Insert("8.681.148.5")
+	Do Lijst.Insert("8.681.296.5")
+	Do Lijst.Insert("8.681.121.5")
+	Do Lijst.Insert("8.681.300.5")
+	Do Lijst.Insert("8.681.130.5")
+	Do Lijst.Insert("8.681.318.5")
+	Do Lijst.Insert("8.681.164.5")
+	Do Lijst.Insert("8.681.326.5")
+	Do Lijst.Insert("8.681.156.5")
+	Do Lijst.Insert("8.681.334.5")
+	Do Lijst.Insert("8.192.040.17")
+	Do Lijst.Insert("8.192.023.17")
+	Do Lijst.Insert("9.205.214.12")
+	Do Lijst.Insert("9.205.192.12")
+	Do Lijst.Insert("9.205.141.12")
+	Do Lijst.Insert("9.205.150.12")
+	Do Lijst.Insert("9.205.133.12")
+	Do Lijst.Insert("9.205.206.12")
+	Do Lijst.Insert("9.205.184.12")
+	Do Lijst.Insert("9.205.168.12")
+	Do Lijst.Insert("9.205.176.12")
+	Do Lijst.Insert("9.205.117.12")
+	Do Lijst.Insert("9.087.823.12")
+	Do Lijst.Insert("9.087.882.12")
+	Do Lijst.Insert("9.205.028.12")
+	Do Lijst.Insert("9.204.978.12")
+	Do Lijst.Insert("9.204.986.12")
+	Do Lijst.Insert("0.792.219.1")
+	Do Lijst.Insert("0.728.773.1")
+	Do Lijst.Insert("9.010.197.5")
+	Do Lijst.Insert("9.448.141.5")
+	Do Lijst.Insert("9.010.201.5")
+	Do Lijst.Insert("0.738.493.1")
+	Do Lijst.Insert("9.099.716.4")
+	Do Lijst.Insert("9.099.511.4")
+	
+	
+	Set Iterator = ##class(TECH.ListIterator).%New(Lijst)
+	
+	While Iterator.HasNext() {
+		Set LengteProduct = 0
+		Set IdentNummer = Iterator.Next()
+		Set ProductId = ProductAPI.GeefProductIdVoorIdentNummer(IdentNummer)
+		Set LengteProduct = $Piece($Get(^KPR(ProductId, 15)), "\", 7)
+		Write !,"select forUpdate inventTable where inventTable.ItemId == '"_IdentNummer_"';"
+		Write !,"if (inventTable)"
+		Write !,"{"
+		Write !,"inventTable.VH_IsInkortbaar = NoYes::Yes;"
+		Set:'(LengteProduct>0) LengteProduct = 0
+    	Write !,"inventTable.VH_Lengte = "_LengteProduct_";"
+    	Write !,"inventTable.update();"
+    	Write !,"}"
+    	Write !,"inventTable = null;"
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AlleProducten">
+<Description>
+Do ##class(zTryout.PVR.Scrapbook).%New().AlleProducten()</Description>
+<Implementation><![CDATA[
+	Set LijstProductIds = ##class(%ListOfDataTypes).%New()
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	#dim ProductAPI As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	#dim IngegevenKenmerkenAPI As DOM.PM.IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).%New().GeefIngegevenKenmerkenAPI()
+	Set DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	
+	#dim SubNode As %String
+	Set SubNode = $H
+	Set Teller = 0
+	Write !,DateTimeAPI.CurrentTimeStamp()
+	#dim ProductId As %String = 0
+	For ProductId =   0000000 : 1 : 3600000 {
+		If (ProductAPI.BestaatProduct(ProductId) && ($Piece($$GENTYP^HAD(ProductId,,1),"\",1) = "TBX")) {
+			//#dim Verpakking = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX", ProductId, "VERPAK"),1) //$LG(^Prod.Ken.DataDefinitieD(ProductId,"TBX||VERPAK"),1)
+			//#dim KPRNul = ^KPR(ProductId, 0)
+			//#dim GenProdId = $Piece(^KPR(ProductId, 0), "\", 3)
+			
+			Set Teller = Teller +1
+			
+		}
+	}
+	Write !,DateTimeAPI.CurrentTimeStamp()
+	Write !,Teller
+]]></Implementation>
+</Method>
+
+<Method name="AlleProductenAX">
+<Description>
+Do ##class(zTryout.PVR.Scrapbook).%New().AlleProductenAX()</Description>
+<Implementation><![CDATA[
+	
+	#dim SqlStatement as %String
+	Set SqlQueryConnection = ##class(AXimpl.SqlQueryConnection).%New()
+	
+	Set SqlStatement = 	"select i.ItemId, from INVENTTABLE i"
+	_ " where i.VH_Inkortbaar = 'yes' "
+	
+	#dim ResultSet As TECH.ResultSet = SqlQueryConnection.GetResultSet(SqlStatement)
+	
+	While ResultSet.HasNext()
+	{
+		Set record = ResultSet.Next()
+		Do ##class(Tools.Wlip).%New(110).String(record.Data("ItemId"))
+			
+	}
+	//Write !,DateTimeAPI.CurrentTimeStamp()
+	//Write !,Teller
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+
+Include Prod.Product
+
+Class AXimpl.PM.SchaduwPrijs.CalculateAll Extends TECH.RegisteredObject
+{
+
+Property Translator As AX.Uitgaand.EC.DataAX.impl.Translator;
+
+Property Converter As AXimpl.Controle.Order.Ax.AxOrderLijnConverter [ Private ];
+
+Property itProduct As TECH.Iterator [ Private ];
+
+Property SqlQueryConnection As AXimpl.SqlQueryConnection [ Private ];
+
+Property AddOnly As %Boolean [ InitialExpression = 1 ];
+
+Property Debug As %Boolean [ InitialExpression = 0 ];
+
+/// D ##class(AXimpl.PM.SchaduwPrijs.CalculateAll).%New().VerwerkEenMaand()
+/// D ##class(AXimpl.PM.SchaduwPrijs.CalculateAll).VerwijderAlles()
+ClassMethod VerwijderAlles()
+{
+	Do ##class(SchaduwPrijs).%KillExtent()
+}
+
+Method %OnNew() As %Status
+{
+	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Quit $$$OK
+}
+
+Method VerwerkEenMaand()
+{
+	Set ..Debug=1
+	lock +SchaduwPrijsCalculate:10 else  Quit
+	
+	Set StartTijd=$H
+	
+	Set ..itProduct=##class(AXProductIterator).%New(1)
+	Do ..VerwerkLijst()
+	
+	lock -SchaduwPrijsCalculate:0 
+	Write:..Debug !,"Verwerkingstijd (in min): ",$$DIFFTIME^vhLib.DataTypes(StartTijd,$H,"M"),! 
+	Read:..Debug "Druk op enter om verder te gaan" K
+}
+
+/// D ##class(AXimpl.PM.SchaduwPrijs.CalculateAll).%New().VerwerkManueelTbxByWimV(blnDebug)
+Method VerwerkManueelTbxByWimV(blnDebug As %Boolean = 0)
+{
+	Set ..Debug = blnDebug
+		
+	Set ..itProduct = ##class(TECH.ListIterator).%New(..GeefLijstTbxProductenMetOnjuisteBSS())
+
+	lock +SchaduwPrijsCalculate:10 else  Quit
+	;Do ..VerwijderAlles()
+	Set StartTijd=$H
+	
+	Write:(..Debug) !," ***** MAATWERK (TBX voor schaduwBS) *****"
+	Do ..VerwerkLijstTbxVoorBSS()
+	
+	lock -SchaduwPrijsCalculate:0 
+	Write:(..Debug) !,"Verwerkingstijd (in min): ",$$DIFFTIME^vhLib.DataTypes(StartTijd,$H,"M"),! 
+	Read:(..Debug) "Druk op enter om verder te gaan" K
+}
+
+/// Set Lst = ##class(AXimpl.PM.SchaduwPrijs.CalculateAll).%New().GeefLijstTbxProductenMetOnjuisteBSS()  Write Lst.Count(),! 
+Method GeefLijstTbxProductenMetOnjuisteBSS() As %ListOfDataTypes
+{
+	Set LijstProductIds = ##class(%ListOfDataTypes).%New()
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	#dim ProductAPI As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	#dim IngegevenKenmerkenAPI As DOM.PM.IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).%New().GeefIngegevenKenmerkenAPI()
+	
+	#dim SubNode As %String
+	Set SubNode = $H
+	
+	#dim ProductId As %String = 0   ; 3499999
+	For ProductId =   50000 : 1 : 3499999 {
+	;For ProductId =   50000 : 1 : 1700000 {
+	;For ProductId = 1700000 : 1 : 1720000 {
+	;For ProductId = 1720000 : 1 : 1757106 {
+	;For ProductId = 50000 : 1 : 1757106 {
+	;For ProductId = 3405393 : 1 : 3499999 {
+	;For ProductId = 10 : 1 : 0 {
+		If ($E($G(^PRBS("BSS",ProductId)),1,5) = "E\TBX") && ($Piece($$GENTYP^HAD(ProductId,,1),"\",1) = "TBX") {
+			
+			#dim MustRecalcBSS As %Boolean = $$$False  ;   ($P($G(^PRBS("BSS",ProductId,"PRLALI.001")),"\",2) > 1)
+			;Set MustRecalcBSS = ($Data(^Prod.Ken.DataIndexD("TBX","DC","MT",ProductId))) 
+			;Set MustRecalcBSS = ($Data(^Prod.Ken.DataIndexD("TBX","NMBDS","1",ProductId)))  && ($Data(^PRBS("BSS",ProductId,"PRBDSF.001"))) //&& ($Data(^Prod.Ken.DataIndexD("TBX","DC","MT",ProductId)))
+			;Set MustRecalcBSS = ($Data(^Prod.Ken.DataIndexD("TBX","BM","TOB",ProductId))) 
+			;Set MustRecalcBSS = ($Data(^Prod.Ken.DataIndexD("TBX","VERPAK","P",ProductId))) || ($Data(^Prod.Ken.DataIndexD("TBX","VERPAK","A",ProductId))) || ($Data(^Prod.Ken.DataIndexD("TBX","VERPAK","B",ProductId))) ;|| ($Data(^Prod.Ken.DataIndexD("TBX","VERPAK","B",ProductId))) 
+			;Set MustRecalcBSS = ($Data(^Prod.Ken.DataIndexD("TBX","VERPAK","P",ProductId))) && ($Data(^Prod.Ken.DataIndexD("TBX","LT","B",ProductId))) 
+			;Set MustRecalcBSS = ($Data(^Prod.Ken.DataIndexD("TBX","BS","INSCHF",ProductId)))
+			//Set MustRecalcBSS = (..GeefTbxKenmerkWaarde(ProductId, "LT") = "L") && (..GeefTbxKenmerkWaarde(ProductId, "IB") > 660) && (..GeefTbxKenmerkWaarde(ProductId, "FS") = "HS")
+			
+			
+			Set MustRecalcBSS = (..GeefTbxKenmerkWaarde(ProductId, "LT") = "L") && (..GeefTbxKenmerkWaarde(ProductId, "IB") > 660) && ((..GeefTbxKenmerkWaarde(ProductId, "FS") = "A") || (..GeefTbxKenmerkWaarde(ProductId, "FS") = "HS"))
+			
+			If (MustRecalcBSS) {
+				#dim Product As DOM.PM.impl.MaatwerkProductImpl = ProductAPI.GeefProduct(ProductId)
+				#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = Product.GeefIngegevenKenmerken()
+				If $$$Not(IngegevenKenmerken.FrontOndersteuningAantal > 0) {
+					Set MustRecalcBSS = $$$False
+				}
+			}
+			
+			
+			;S MustRecalcBSS = ($Length(..GeefTbxKenmerkWaarde(ProductId, "ASM")) > 1) && (..GeefTbxKenmerkWaarde(ProductId, "NMASM") = 0) && (($G(^PRBS("BSS",ProductId, "MAT.001"))) = "") //&& '(..GeefTbxKenmerkWaarde(ProductId, "KLAS") = "SP2")
+			
+			If (MustRecalcBSS) {
+				#dim Product As DOM.PM.impl.MaatwerkProductImpl = ProductAPI.GeefProduct(ProductId)
+				#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = Product.GeefIngegevenKenmerken()
+				
+				If IngegevenKenmerkenAPI.HeeftGekoppeldeMat(IngegevenKenmerken) {
+					Set MustRecalcBSS = $$$False
+				}
+			}
+			
+			;Set MustRecalcBSS = ($$$HasLength(..GeefTbxKenmerkWaarde(ProductId, "ODSP")))
+			;Set MustRecalcBSS = (ProductId = 99999999)
+			If MustRecalcBSS {
+				Do LijstProductIds.Insert(ProductId)
+				;Do ..CleanUpSchaduwBouwstenen(ProductId, SubNode)
+			}
+		}
+	}
+	;Do ##class(Tools.Wlip).%New(110).ListOfDataTypes(LijstProductIds)
+	;Do LijstProductIds.Insert(1715003)   ; Hardcoded toevoegen 
+	
+	
+	Quit LijstProductIds
+}
+
+Method CleanUpSchaduwBouwstenen(ProductId As %String, SubNode As %String) [ Private, ProcedureBlock = 0 ]
+{
+	If $G(SubNode) = "" {
+		Set SubNode = $H
+	}
+	Merge ^PRBS.BackupTBX(SubNode,"BS",ProductId) = ^PRBS("BS",ProductId)   ; Gewoon voor de info ook de "BS" backuppen 
+	Merge ^PRBS.BackupTBX(SubNode,"BSS",ProductId) = ^PRBS("BSS",ProductId)
+	#dim NoSa As %String = "S"
+	
+	Do ##class(vhLib.OldSchool).InitVars()
+	Do DELOBJ^PRBS(ProductId,NoSa)
+}
+
+Method VerwerkLijstTbxVoorBSS() [ Private ]
+{
+	#dim Count,StartTijd
+	
+	Set StartTijd=$H
+	#dim ProductId as %String
+	#dim PRNr 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 ProductId = ..itProduct.Next()
+		Set PRNr= ProductId
+		;Set ItemID = rs.Data("ItemID")
+		;Set ConfigID = $G(rs.Data("ConfigID"))
+		#dim KlantNrFromRs As %String = "-"   ; $G(rs.Data("KlantNr"))
+		
+		Write !,"VerwerkLijstTbxVoorBSS in loop : "_ProductId_" ... "
+		
+		Do ..CleanUpSchaduwBouwstenen(ProductId)
+		
+		Try {
+			If ((##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefSchaduwBomBolOmleidingTbxNaarDotNet()) && (ProductAPI.BestaatProduct(PRNr))) {
+				If ($$$Not(PRNr = "") && (ProductTypeAPI.IsTandemboxProduct(PRNr)) && ($Get(^PRBS("BSS",PRNr)) = "")) {
+					#dim KLNr As %String = "K||4682"
+					If (VerkoopAPI.BestaatKlant("K||"_+KlantNrFromRs)) {
+						Set KLNr = "K||"_+KlantNrFromRs
+					}
+					
+					write !,"hiere"
+					
+					#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"))
+						&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.Toepassing, "SP2") && $$$Not(IngegevenKenmerken.LadeDiepte = "450"))
+						&& (##class(TECH.StringUtils).Equals(IngegevenKenmerken.LadeVariant, ##class(DOM.PM.enu.Variant).TandemboxMengvorm(), ##class(DOM.PM.enu.Variant).TandemboxAntaro()))
+						&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.LadeVariant, ##class(DOM.PM.enu.Variant).TandemboxMengvorm()) && ((IngegevenKenmerken.LadeDiepte = "270")))
+						&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.RugwandMateriaal, "Staal") && (##class(TECH.StringUtils).Equals(IngegevenKenmerken.InterneBreedte, "361", "411", "461", "661", "961")))
+						&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.RugwandMateriaal, "Staal") && (IngegevenKenmerken.LadeKleur = "OG"))
+						&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.RugwandMateriaal, "Staal") && (IngegevenKenmerken.BodemKleur = "WI") && (##class(TECH.StringUtils).Equals(IngegevenKenmerken.InterneBreedte, "278", "368") && (IngegevenKenmerken.PlaatMateriaal = "HA")))
+						&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.Draagkracht, "50"))
+						&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.LegacyKenmerken.ItemDK, "50"))
+						&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.DwarsverdelingAantal, "2x2"))
+						&& $$$Not(..GeefTbxKenmerkWaarde(PRNr, "ODSP") = "RBF")
+						&& $$$Not((..GeefTbxKenmerkWaarde(PRNr, "BM") = "TOB") && (..GeefTbxKenmerkWaarde(PRNr, "IB") > 1365))
+						&& $$$Not(##class(TECH.StringUtils).Equals(PRNr, "1206479", "1206477", "1206478", "1206476", "1730845", "943727", "2123385", "943695", "1053871", "552460", "552461", "552464", "552466", "552474", "2743942", "2743941"))   {   	//Product met opvullijst LG , 1730845 is ongeldig, 943727 ongeldige stalen rug, 2123385 spoelbak 450 diep, "943695" rugw staal, 1053871, 552460,552461, 552464, 552466, 552474,  stalen rug, 2743941, 2743942 stalen rug voor bodem
+						
+						write !,"hiere ook"
+						Do ..VulAanOntbrekendeTbxKenmerken(IngegevenKenmerken, Product)
+						
+						#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 {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do Exception.VoegToeExtraInfo("ProductId:"_ProductId)
+			write !,"Log exceptie."
+			Do ##class(vhLib.Logger).LogExceptie(Exception)
+		}
+				
+		;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")
+	}
+}
+
+Method VerwerkSpaceTowers()
+{
+	#dim SubNode As %String
+	Set SubNode = $H
+	
+	try {
+		#dim TbxSpaceTowers As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+		#dim TbxProductId As %String = ""
+		Do TbxSpaceTowers.Insert(2126669)
+		Do TbxSpaceTowers.Insert(2126664)
+		Do TbxSpaceTowers.Insert(2127125)
+		Do TbxSpaceTowers.Insert(2127124)
+		Do TbxSpaceTowers.Insert(2127126)
+		Do TbxSpaceTowers.Insert(2126666)
+
+		#dim iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(TbxSpaceTowers)
+
+		While iterator.HasNext() {
+			#dim KindProductenIterator = ..GeefKindProductenSpaceTowerIterator(iterator.Next())
+			While KindProductenIterator.HasNext() {
+				Set TbxProductId = KindProductenIterator.Next()
+				Do ..HerberekenIndienNodigSchaduwbouwstenen(TbxProductId,31259)
+				;Do ..CleanUpSchaduwBouwstenen(TbxProductId, SubNode)
+			}
+		}
+
+		Set TbxSpaceTowers = ##class(%ListOfDataTypes).%New()
+		Do TbxSpaceTowers.Insert(2079438)
+		Do TbxSpaceTowers.Insert(2079437)
+		Do TbxSpaceTowers.Insert(2059106)
+		Do TbxSpaceTowers.Insert(2551962)
+		Do TbxSpaceTowers.Insert(2551961)
+		Do TbxSpaceTowers.Insert(2059108)
+		Do TbxSpaceTowers.Insert(2059007)
+		Do TbxSpaceTowers.Insert(2450685)
+		Do TbxSpaceTowers.Insert(2450691)
+		Do TbxSpaceTowers.Insert(2059107)
+
+		Set iterator = ##class(TECH.ListIterator).%New(TbxSpaceTowers)
+
+		While iterator.HasNext() {
+			#dim KindProductenIterator2 = ..GeefKindProductenSpaceTowerIterator(iterator.Next())
+			While KindProductenIterator2.HasNext() {
+				Set TbxProductId = KindProductenIterator2.Next()
+				Do ..HerberekenIndienNodigSchaduwbouwstenen(TbxProductId,24315)
+				;Do ..CleanUpSchaduwBouwstenen(TbxProductId, SubNode)
+			}
+		} 
+	} 
+		Catch { 
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do Exception.VoegToeExtraInfo("AdminProductNummer:"_TbxProductId)
+			Do ##class(vhLib.Logger).LogExceptie(Exception)
+		}
+}
+
+Method GeefKindProductenSpaceTowerIterator(PRNrSpaceTower As %String) As TECH.ListIterator [ Private ]
+{
+	#dim KindProducten As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	Set SPT = ##class(DOM.PM.impl.DataM.SamengesteldProduct).%New(PRNrSpaceTower)
+	#dim iterator As TECH.Iterator = SPT.GeefKindBouwsteenIterator()
+	
+	While iterator.HasNext()
+	{
+		#dim BouwsteenID As %String = iterator.Next().GeefID()
+		Do KindProducten.Insert($Piece(^PRBS("BS",PRNrSpaceTower, BouwsteenID),"\",1))
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(KindProducten)
+}
+
+Method Verwerk()
+{
+	lock +SchaduwPrijsCalculate:10 else  Quit
+
+	;Set ..Debug=1
+
+
+	Do ..VerwijderAlles()
+	Set StartTijd=$H
+	Do ##class(Tools.Wlip).%New(97).String("In Verwerk: ")
+	
+	
+	
+	
+	Write:..Debug !," ***** VOORRAAD (Zonder CachePerVariant of CachePerItem) *****"
+	Set ..itProduct=##class(AXProductIteratorZonderAdmin).%New()
+	Do ..VerwerkLijst()
+
+	Write:..Debug !," ***** SETS (CachePerItem) *****"
+	Set ..itProduct=##class(AXProductIteratorPerItem).%New()
+	Do ..VerwerkLijst()
+	
+	Write:..Debug !," ***** MAATWERK (CachePerVariant) *****"
+	Set ..itProduct=##class(AXProductIterator).%New()
+	Do ..VerwerkLijst()
+	
+	;Do ..VerwerkSpaceTowers()
+	
+	lock -SchaduwPrijsCalculate:0 
+	Write:..Debug !,"Verwerkingstijd (in min): ",$$DIFFTIME^vhLib.DataTypes(StartTijd,$H,"M"),! 
+	Read:..Debug "Druk op enter om verder te gaan" K
+}
+
+Method VerwerkLijst()
+{
+	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 ProductAPI As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	
+	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 ($$$Not(PRNr = "") && (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefSchaduwBomBolOmleidingTbxNaarDotNet()) && (ProductAPI.BestaatProduct(PRNr))) {
+								
+				Do ..HerberekenIndienNodigSchaduwbouwstenen(PRNr, rs.Data("KlantNr"))
+			}
+		} 
+		Catch { 
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do Exception.VoegToeExtraInfo("ProductId:"_ProductID_ " AdminProductNummer:"_PRNr)
+			;write !,"Log exceptie."
+			Do ##class(vhLib.Logger).LogExceptie(Exception)
+		}
+				
+		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")
+		
+		;Quit:($G(^LOG.TellerSchaduwTbx(+$H)) > 1)
+	}
+}
+
+Method HerberekenIndienNodigSchaduwbouwstenen(PRNr As %String, KlantNr As %String)
+{
+	#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()
+	
+	If ($$$Not(PRNr = "") && (ProductAPI.BestaatProduct(PRNr)) && (ProductTypeAPI.IsTandemboxProduct(PRNr)) && ($Get(^PRBS("BSS",PRNr)) = "")) {
+		#dim Klnr As %String = "K||4682"
+		If (VerkoopAPI.BestaatKlant("K||"_+KlantNr)) {
+			Set Klnr = "K||"_+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.LadeKleur, "OG") && $$$Not(IngegevenKenmerken.LadeDiepte = "400"))
+			&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.Toepassing, "SP2") && $$$Not(IngegevenKenmerken.LadeDiepte = "450"))
+			&& (##class(TECH.StringUtils).Equals(IngegevenKenmerken.LadeVariant, ##class(DOM.PM.enu.Variant).TandemboxMengvorm(), ##class(DOM.PM.enu.Variant).TandemboxAntaro()))
+			&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.LadeVariant, ##class(DOM.PM.enu.Variant).TandemboxMengvorm()) && ((IngegevenKenmerken.LadeDiepte = "270")))
+			&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.RugwandMateriaal, "Staal") && (##class(TECH.StringUtils).Equals(IngegevenKenmerken.InterneBreedte, "361", "411", "461", "661", "961")))
+			&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.RugwandMateriaal, "Staal") && (IngegevenKenmerken.LadeKleur = "OG"))
+			&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.RugwandMateriaal, "Staal") && (IngegevenKenmerken.BodemKleur = "WI") && (##class(TECH.StringUtils).Equals(IngegevenKenmerken.InterneBreedte, "278", "368") && (IngegevenKenmerken.PlaatMateriaal = "HA")))
+			&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.Draagkracht, "50"))
+			&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.LegacyKenmerken.ItemDK, "50"))
+			&& $$$Not(##class(TECH.StringUtils).Equals(IngegevenKenmerken.DwarsverdelingAantal, "2x2"))
+			&& $$$Not(..GeefTbxKenmerkWaarde(PRNr, "ODSP") = "RBF")
+			&& $$$Not((..GeefTbxKenmerkWaarde(PRNr, "BM") = "TOB") && (..GeefTbxKenmerkWaarde(PRNr, "IB") > 1365))
+			&& $$$Not(##class(TECH.StringUtils).Equals(PRNr, "1206479", "1206477", "1206478", "1206476", "1730845", "943727", "2123385", "943695", "1053871", "552460", "552461", "552464", "552466", "552474", "2743942", "2743941")))   {   	//Product met opvullijst LG , 1730845 is ongeldig, 943727 ongeldige stalen rug, 2123385 spoelbak 450 diep, "943695" rugw staal, 1053871, 552460,552461, 552464, 552466, 552474, 2743941, 2743942 stalen rug
+			
+			
+			Do ..VulAanOntbrekendeTbxKenmerken(IngegevenKenmerken, Product)
+
+			
+			#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 ^LOG.TellerSchaduwTbx(+$H) = $Get(^LOG.TellerSchaduwTbx(+$H)) +1 
+			
+			
+			Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New()
+			Do BouwsteenCreator.Init(PRNr, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, $$$True)
+		}
+	}
+}
+
+/// Deze method zouden we kunnen verplaatsen naar de klasse die verantwoordelijk is voor het foutief invullen van de kenmerken, nl. APPS.PM.Maatwerk.TBX.Conversie.KenmerkConvertor 
+Method VulAanOntbrekendeTbxKenmerken(TbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken, TbxProduct As DOM.PM.impl.MaatwerkProductImpl) [ Private ]
+{
+	#dim ProductId As %String = TbxProduct.GeefID()
+	
+	If (TbxKenmerken.GeleiderTechnologie = "") {
+		Set TbxKenmerken.GeleiderTechnologie = ..GeefTbxKenmerkWaarde(ProductId, "BM")
+	}
+	
+	If ((TbxKenmerken.VerpakkingType = "Z") || (TbxKenmerken.LegacyKenmerken.ItemVPK = "Z")) {
+		Set TbxKenmerken.VerpakkingType = "S"
+	}
+	
+	If (##class(TECH.StringUtils).Equals(ProductId, "2285815", "2285816")) {
+		Set TbxKenmerken.BodemKleur = "LG"
+	}
+	
+	
+	If (ProductId = 2938280) {
+		Set TbxKenmerken.RugHoogte = "M"
+	}
+	
+	If (ProductId = 2947118) { //Ontbrekende mat
+		#dim MATKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
+	
+		Set MATKenmerken.Breedte = 779
+		Set MATKenmerken.Diepte = 373
+		Set MATKenmerken.Kleur = "S-AZ"
+		Set MATKenmerken.Materiaal = "AZ"
+		Set MATKenmerken.Type = ##class(DOM.PM.enu.MatType).Basis()
+		Set MATKenmerken.ExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
+		Set MATKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
+		Set MATKenmerken.Onderdelen = ##class(%ListOfDataTypes).%New()
+		Set MATKenmerken.ProductieWijze = ""
+		Set MATKenmerken.VersieNr = 0
+		
+		Do TbxKenmerken.GekoppeldeIngegevenKenmerken.SetAt(MATKenmerken, ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX())
+	}
+	
+	
+	If (ProductId = 2934047) { //Ontbrekende mat
+		#dim MATKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
+	
+		Set MATKenmerken.Breedte = 679
+		Set MATKenmerken.Diepte = 473
+		Set MATKenmerken.Kleur = "FA"
+		Set MATKenmerken.Materiaal = "AF"
+		Set MATKenmerken.Type = ##class(DOM.PM.enu.MatType).Basis()
+		Set MATKenmerken.ExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
+		Set MATKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
+		Set MATKenmerken.Onderdelen = ##class(%ListOfDataTypes).%New()
+		Set MATKenmerken.ProductieWijze = ""
+		Set MATKenmerken.VersieNr = 0
+		
+		Do TbxKenmerken.GekoppeldeIngegevenKenmerken.SetAt(MATKenmerken, ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX())
+	}
+	
+	
+	If (##class(TECH.StringUtils).Equals(ProductId, "2961220", "2953362", "2989712", "2923957", "2944597", "2952726", "2952726", "2954154", "2954157", "3002851", "2941153", "2979679", "2875878", "2879832")) {
+		Do TbxKenmerken.NietMeeleveren.Insert("TiponBlumotionSynchronisatieStang")
+		Do TbxKenmerken.NietMeeleveren.Insert("TiponBlumotionSynchronisatieToebehoren")
+		Do TbxKenmerken.NietMeeleveren.Insert("TiponBlumotionSet")
+	}
+	
+	If (##class(TECH.StringUtils).Equals(..GeefTbxKenmerkWaarde(ProductId, "NMBDS"), "1")) {
+		Do TbxKenmerken.NietMeeleveren.Insert("Bodemsteun")
+	}
+	
+	If $$$Not(##class(TECH.StringUtils).Equals(..GeefTbxKenmerkWaarde(ProductId, "ODSP"), "", "X")) {
+		Set TbxKenmerken.ProductieWijze = ..GeefTbxKenmerkWaarde(ProductId, "ODSP")
+	}
+}
+
+/// Geeft alleen de eerste waarde van de DataDefinitie 
+Method GeefTbxKenmerkWaarde(UnID As %String, KenmerkNaam As %String) As %String [ Private ]
+{
+	#dim GroepID As %String = "TBX"
+	#dim lbDataDefinitie As %List = ##class(Prod.Kenmerk.DataDefinitie).Get(GroepID, UnID, KenmerkNaam)
+	Quit $LG(lbDataDefinitie,1)
+}
+
+Method ConverteerOne(ProductID As %String, PRNr As %String, ItemID As %String, ConfigID As %String)
+{
+	If ..AddOnly&&('##class(SchaduwPrijs).%ExistsId(ProductID))
+	{
+		Do ##class(SchaduwPrijs).%DeleteId(ProductID)
+		Do ..Add(ProductID, PRNr, ItemID, ConfigID)				
+	}
+}
+
+Method Add(ProductID As %String, PRNr As %String, ItemID As %String, ConfigID As %String)
+{
+	If 'PRNr,ProductID'[":" ; Alleen Identnr zonder configuratie
+	{ 
+		Set PRNr=..Translator.GeefPRNrForAdmin(ProductID)
+	}
+	
+	If PRNr && $D(^KPR(PRNr,0)) && $D(^KPR(PRNr,1)) && ($E($$$PRGet($$$KortTekst),1,3)'="GEN") && $D(^PRBS("BS",PRNr))
+	{
+		Set Q="K", D="\",U=";"
+		Set SchaduwPrijs=##class(SchaduwPrijs).%New()
+		Set SchaduwPrijs.ProductID=ProductID
+		Set SchaduwPrijs.ItemID=ItemID
+		Set SchaduwPrijs.ConfigID=ConfigID
+		Do SchaduwPrijs.AdminProductSetObjectId(PRNr)
+		Set SchaduwPrijs.FutureCostPrice=+$J($$CifPPL^KPRIJS(PRNr,"S"),0,2)*100
+		Set SchaduwPrijs.FutureUnitPrice=100
+		Set SchaduwPrijs.CurrentCostPrice=+$J($$CifPPL^KPRIJS(PRNr,"N"),0,2)*100
+		Set SchaduwPrijs.CurrentUnitPrice=100
+		Do SchaduwPrijs.Save()
+	}
+}
+
+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="MaakCubeIQFile">
+<Implementation><![CDATA[
+	#dim Package1 As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.package = ..MaakPackage("11111", 558.4, 536.6, 64.59, 1.2)
+	#dim Package2 As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.package = ..MaakPackage("22222", 558.4, 536.6, 64.59, 4.6)
+	#dim Package3 As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.package = ..MaakPackage("33333", 813.4, 536.6, 64.59, 4.6)
+	#dim Package4 As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.package = ..MaakPackage("22222", 558.4, 536.6, 64.59, 4.6)
+	#dim PalletStapelaar As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestComposer = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestComposer).%New()
+	
+	#dim Referentie As %String = "TestRefPVR22"
+	#dim Requestcubeiq As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq).%New()
+	
+	Set Requestcubeiq.settings = PalletStapelaar.GeefCubeSetting()
+	Set Requestcubeiq.containersettings = PalletStapelaar.GeefcontainerSettings()
+	
+	Set Requestcubeiq.containers = PalletStapelaar.VoegToePalletFormaten()
+	
+	Set Requestcubeiq.solutions = PalletStapelaar.GeefSolution("StapelaarTest_"_Referentie)
+	Set Requestcubeiq.containerstoload = PalletStapelaar.GeefContainersToLoad("StapelaarTest_"_Referentie)
+	
+	#dim ListVanPackages As %ListOfObjects = ##class(TECH.ListOfObjects).%New()
+	Do ListVanPackages.Insert(Package1)
+	Do ListVanPackages.Insert(Package2)
+	Do ListVanPackages.Insert(Package3)
+	Do ListVanPackages.Insert(Package4)
+	
+	#dim Teller As %Decimal = 1
+	#dim CollisOpPalletIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ListVanPackages)
+	while CollisOpPalletIterator.HasNext()
+	{
+		#dim Package As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.package = CollisOpPalletIterator.Next()
+		Do Requestcubeiq.packages.Insert(Package)
+		Do Requestcubeiq.packagestoload.Insert(..MaakPackageToLoad(Package.packageid, Teller, "StapelaarTest_"_Referentie))
+		Do ..MaakOrientations(Package.packageid, Package.length, Package.width, Package.height, Requestcubeiq.orientations)
+		Set Teller = Teller + 1
+	}
+	
+	Set RequestWriter = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter).%New()
+	Do RequestWriter.WriteRequest(Referentie, Requestcubeiq)
+	//Quit Requestcubeiq
+]]></Implementation>
+</Method>
+
+<Method name="MaakPackage">
+<FormalSpec>ProductId:%String,Lengte:%Decimal,Breedte:%Decimal,Hoogte:%Decimal,Gewicht:%Decimal</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.package</ReturnType>
+<Implementation><![CDATA[
+	#dim cubeiqPackage As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.package = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.package).%New()
+	Set cubeiqPackage.id = "Package." _ProductId //Korttekst
+	Set cubeiqPackage.packageid = "Package." _ProductId //Korttekst
+	Set cubeiqPackage.length = Lengte
+	Set cubeiqPackage.width = Breedte
+	Set cubeiqPackage.height = Hoogte
+	Set cubeiqPackage.weight = Gewicht //..FormatAPI.FormatNumber(Gewicht,2,".")
+	Set cubeiqPackage.turnable = "False" 
+	Set cubeiqPackage.sideupok = "False" 
+	Set cubeiqPackage.endupok = "True" 
+	Set cubeiqPackage.bottomonly = "False" 
+	Set cubeiqPackage.toponly = "False" 
+	Set cubeiqPackage.colour = "#255#0#0" 
+	Set cubeiqPackage.deletewithsolution = "True" 
+	Set cubeiqPackage.packagetype = "Box" 
+	Set cubeiqPackage.stackcode = "" 
+	Quit cubeiqPackage
+]]></Implementation>
+</Method>
+
+<Method name="MaakPackageToLoad">
+<FormalSpec>PackageId:%String,Auto:%Decimal,Referentie:%String</FormalSpec>
+<ReturnType>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.packagetoload</ReturnType>
+<Implementation><![CDATA[
+	#dim cubeiqPackageToLoad As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.packagetoload = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.packagetoload).%New()
+	Set cubeiqPackageToLoad.id = PackageId
+	Set cubeiqPackageToLoad.solutionid = Referentie //Referentie
+	Set cubeiqPackageToLoad.auto = Auto
+	Set cubeiqPackageToLoad.packageid = PackageId
+	Set cubeiqPackageToLoad.quantity = 1 //Aantal
+	Set cubeiqPackageToLoad.batch = "#0#100#0"
+	Quit cubeiqPackageToLoad
+]]></Implementation>
+</Method>
+
+<Method name="MaakOrientations">
+<FormalSpec>ProductId:%String,Lengte:%Decimal,Breedte:%Decimal,Hoogte:%Decimal,Orientations:%ListOfObjects</FormalSpec>
+<Implementation><![CDATA[
+	#dim PalletStapelaar As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestComposer = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestComposer).%New()
+	#dim packageid As %String = ProductId
+	Do Orientations.Insert(PalletStapelaar.MaakOrientation(packageid, "1", Lengte, Breedte, Hoogte, "true"))
+	Do Orientations.Insert(PalletStapelaar.MaakOrientation(packageid, "2", Breedte, Lengte, Hoogte, "true"))
+	Do Orientations.Insert(PalletStapelaar.MaakOrientation(packageid, "3", Breedte, Hoogte, Lengte, "False"))
+	Do Orientations.Insert(PalletStapelaar.MaakOrientation(packageid, "4", Hoogte, Breedte, Lengte, "False"))
+	Do Orientations.Insert(PalletStapelaar.MaakOrientation(packageid, "5", Hoogte, Lengte, Breedte, "False"))
+	Do Orientations.Insert(PalletStapelaar.MaakOrientation(packageid, "6", Lengte, Hoogte, Breedte, "False"))
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Do ##class(zTryout.PVR.Scrapbook).UpdateZijkantHoogte()
+
+]]></Content>
+</UDLText>
+
+<Method name="UpdateZijkantHoogte">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	/*
+	#dim SqlStatement As TECH.String = "UPDATE DOM_PM_Maatwerk_Calc_Common_impl.MVXKenmerken SET ZijkantHoogte = 'N' where LadeHoogte = 'N' and ZijkantHoogte = ''"
+	#dim lbParams As %List = $LB()
+
+	#dim QueryAPI As TECH.Query.QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
+	#dim ResultSet As TECH.ResultSet = QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,lbParams))
+	Do ResultSet.Next()
+	*/
+	#dim Powertool As vhPowerTools.DOM.PM.Maatwerk.Calc.Common.IKIDService = ##class(vhPowerTools.DOM.PM.Maatwerk.Calc.Common.IKIDService).%New()
+	Do Powertool.HerberekenHashes(##class(DOM.PM.Maatwerk.Calc.Common.enu.IngegevenKenmerk).Merivobox())
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// DOM.PM.Maatwerk.Calc.Common.enu.IngegevenKenmerk.Merivobox()
+
+]]></Content>
+</UDLText>
+
+<Method name="gg">
+<Description>
+Do ##class(zTryout.PVR.Scrapbook).%New().gg()</Description>
+<Implementation><![CDATA[
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName("Prod.Kenmerk.DataDefinitie")
+	#dim SqlStatement As TECH.String = "SELECT PRNr FROM " _SqlTableName _" WHERE " _ "KenmerkGroep = 'LBX_SEL_AfdekkapBinnen' and (KenmerkNaam = 'LadeHoogte' and Waarden like '%F%') or (KenmerkGroep = 'LBX_SEL_AfdekkapBinnen' and KenmerkNaam = 'LadeKleur' and Waarden like '%SW%') group by PRNr having COUNT(PRNr) > 1"
+	
+	#Dim QueryAPI As TECH.Query.QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
+	#dim ResultSet As TECH.ResultSet = QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,$LB()))
+
+	If ResultSet.Next() {
+		Set Afdekkap = ResultSet.GetData(1)
+	} Else {
+		Do ##class(TECH.Exceptions.DataNotFoundException).Throw("Geen data gevonden voor '"_SqlStatement_"'.")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolumetrieRequestVoorBon">
+<Description>
+Do ##class(zTryout.PVR.Scrapbook).%New().GeefVolumetrieRequestVoorBon(BonNr)</Description>
+<FormalSpec>BonNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim teller = 102
+	#dim orderlijn, productId, aantal As %String = ""
+	Set ProductAPI = ##class(DOM.PM.impl.ProductAPI).%New()
+	
+	set OrderApi = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+	#dim Bon As DOM.VKP.Bon = OrderApi.GeefBon(BonNr)	
+	Set KlantNr = $Piece(Bon.GeefKlantID(), "||",2)
+	Do ##class(Tools.Wlip).%New(110).ObjToText(Bon)
+	Do ##class(Tools.Wlip).%New(110).String(KlantNr)
+	
+	
+	Write "{",!
+	Write $Char(34)_"pickContext"_$Char(34)_": {",!
+	Write $Char(34)_"multiPickContainerType"_$Char(34)_": " _$Char(34)_"KarKardex"_$Char(34)_",",!
+	Write $Char(34)_"klantId"_$Char(34)_": " _$Char(34)_KlantNr_$Char(34)_",",!
+	Write $Char(34)_"klantGroep"_$Char(34)_": " _$Char(34)_$Char(34)_",",!
+	Write $Char(34)_"werkzone"_$Char(34)_": " _$Char(34)_$Char(34)_",",!
+	Write $Char(34)_"klaarzetzone"_$Char(34)_": " _$Char(34)_$Char(34)_",",!
+	Write $Char(34)_"urgentie"_$Char(34)_": " _$Char(34)_$Char(34),!
+	Write "},",!
+	
+	Write $Char(34)_"lijst"_$Char(34)_ ": [ "
+	
+	
+	For { Set orderlijn = $order(^KUL(KlantNr, "F", BonNr, teller)) Quit:orderlijn=""
+	
+		Set productId = $P(^KUL(KlantNr, "F", BonNr, teller), "\", 2)
+		if (productId>1) {
+			Set aantal = $P(^KUL(KlantNr, "F", BonNr, teller), "\", 3)
+			
+			Write "{",!
+			Write $Char(34)_"lijnId"_$Char(34)_": " _$Char(34)_teller_$Char(34)_",",!
+			Write $Char(34)_"pickZone"_$Char(34)_": " _$Char(34)_""_$Char(34)_",",!
+			Write $Char(34)_"itemId"_$Char(34)_": " _$Char(34)_ProductAPI.GeefIdentNummerVoorProductId(productId)_$Char(34)_",",!
+			Write $Char(34)_"aantal"_$Char(34)_": " _aantal_",",!
+			Write $Char(34)_"level"_$Char(34)_": " _"0"_",",!
+			Write $Char(34)_"configId"_$Char(34)_": " _$Char(34)_""_$Char(34)_",",!
+			Write $Char(34)_"orderId"_$Char(34)_": " _$Char(34)_""_$Char(34)_",",!
+			Write $Char(34)_"inventTransId"_$Char(34)_": " _$Char(34)_""_$Char(34)_",",!
+			Write $Char(34)_"klantId"_$Char(34)_": " _$Char(34)_KlantNr_$Char(34)_",",!
+			Write $Char(34)_"multiPersonalityId"_$Char(34)_": " _$Char(34)_""_$Char(34),!
+			
+			Write "},",!
+		}
+		Set teller = teller +1
+	}
+	
+	If $Data(^KUL(KlantNr, "F", BonNr, teller)) {
+		Set productId = $P(^KUL(KlantNr, "F", BonNr, teller), "\", 2)
+		Set aantal = $P(^KUL(KlantNr, "F", BonNr, teller), "\", 3)
+		
+		Write "{",!
+		Write $Char(34)_"lijnId"_$Char(34)_": " _$Char(34)_teller_$Char(34)_",",!
+		Write $Char(34)_"pickZone"_$Char(34)_": " _$Char(34)_""_$Char(34)_",",!
+		Write $Char(34)_"itemId"_$Char(34)_": " _$Char(34)_ProductAPI.GeefIdentNummerVoorProductId(productId)_$Char(34)_",",!
+		Write $Char(34)_"aantal"_$Char(34)_": " _aantal_",",!
+		Write $Char(34)_"level"_$Char(34)_": " _"0"_",",!
+		Write $Char(34)_"configId"_$Char(34)_": " _$Char(34)_""_$Char(34)_",",!
+		Write $Char(34)_"orderId"_$Char(34)_": " _$Char(34)_""_$Char(34)_",",!
+		Write $Char(34)_"inventTransId"_$Char(34)_": " _$Char(34)_""_$Char(34)_",",!
+		Write $Char(34)_"klantId"_$Char(34)_": " _$Char(34)_KlantNr_$Char(34)_",",!
+		Write $Char(34)_"multiPersonalityId"_$Char(34)_": " _$Char(34)_""_$Char(34),!
+		
+		Write "}",!
+	}
+	Write "],",!
+	Write $Char(34)_"lijstId"_$Char(34)_": " _$Char(34)_BonNr_$Char(34),!
+	Write "}",!
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method Kopie(BonNr As %String)
+{
+	#dim teller = 102
+	#dim orderlijn, productId, aantal As %String = ""
+	Set ProductAPI = ##class(DOM.PM.impl.ProductAPI).%New()
+	
+	set OrderApi = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+	#dim Bon As DOM.VKP.Bon = OrderApi.GeefBon(BonNr)	
+	Set KlantNr = $Piece(Bon.GeefKlantID(), "||",2)
+	
+	
+	Write "{"_$Char(34)_"pickContext"_$Char(34)_": {"_$Char(34)_"multiPickContainerType"_$Char(34)_": " _$Char(34)_"KarKardex"_$Char(34)_","_$Char(34)_"klantId"_$Char(34)_": " _$Char(34)_KlantNr_$Char(34)_","_$Char(34)_"klantGroep"_$Char(34)_": " _$Char(34)_$Char(34)_","_$Char(34)_"werkzone"_$Char(34)_": " _$Char(34)_$Char(34)_","_$Char(34)_"klaarzetzone"_$Char(34)_": " _$Char(34)_$Char(34)_","_$Char(34)_"urgentie"_$Char(34)_": " _$Char(34)_$Char(34)_"},"_$Char(34)_"lijst"_$Char(34)_ ": [ "
+	
+	//>1 orderlijn, voor alle lijnen behalve laatste
+	Write "{"_$Char(34)_"lijnId"_$Char(34)_": " _$Char(34)_teller_$Char(34)_","_$Char(34)_"pickZone"_$Char(34)_": " _$Char(34)_""_$Char(34)_","_$Char(34)_"itemId"_$Char(34)_": " _$Char(34)_ProductAPI.GeefIdentNummerVoorProductId(productId)_$Char(34)_","_$Char(34)_"aantal"_$Char(34)_": " _aantal_","_$Char(34)_"level"_$Char(34)_": " _"0"_","_$Char(34)_"configId"_$Char(34)_": " _$Char(34)_""_$Char(34)_","_$Char(34)_"orderId"_$Char(34)_": " _$Char(34)_""_$Char(34)_","_$Char(34)_"inventTransId"_$Char(34)_": " _$Char(34)_""_$Char(34)_","_$Char(34)_"klantId"_$Char(34)_": " _$Char(34)_KlantNr_$Char(34)_","_$Char(34)_"multiPersonalityId"_$Char(34)_": " _$Char(34)_""_$Char(34)_ "},",!
+	
+	
+	//Laatste lijn order
+	Write "{"_$Char(34)_"lijnId"_$Char(34)_": " _$Char(34)_teller_$Char(34)_","_$Char(34)_"pickZone"_$Char(34)_": " _$Char(34)_""_$Char(34)_","_$Char(34)_"itemId"_$Char(34)_": " _$Char(34)_ProductAPI.GeefIdentNummerVoorProductId(productId)_$Char(34)_","_$Char(34)_"aantal"_$Char(34)_": " _aantal_","_$Char(34)_"level"_$Char(34)_": " _"0"_","_$Char(34)_"configId"_$Char(34)_": " _$Char(34)_""_$Char(34)_","_$Char(34)_"orderId"_$Char(34)_": " _$Char(34)_""_$Char(34)_","_$Char(34)_"inventTransId"_$Char(34)_": " _$Char(34)_""_$Char(34)_","_$Char(34)_"klantId"_$Char(34)_": " _$Char(34)_KlantNr_$Char(34)_","_$Char(34)_"multiPersonalityId"_$Char(34)_": " _$Char(34)_""_$Char(34)_"}"
+	
+	
+	Write "],"_$Char(34)_"lijstId"_$Char(34)_": " _$Char(34)_BonNr_$Char(34)_"}"
+}
+*/
+]]></Content>
+</UDLText>
+
+<Method name="StuurVolumetrieRequestVoorOrder2">
+<Description>
+Do ##class(zTryout.PVR.Scrapbook).%New().StuurVolumetrieRequestVoorOrder2()</Description>
+<Implementation><![CDATA[
+	#dim teller = 102
+	#dim orderlijn, productId, aantal As %String = ""
+	#dim ordernr = 1
+	#dim volgendeordernr = 0
+	#dim volgendeidentnr = ""
+	#dim identnr = ""
+	#dim volgendeaantal = 0
+	#Dim KlantNr = "2265"
+	#dim jsonReq = ""
+	#dim vorigordernr = 0
+	#dim vorigidentnr = 0
+	#dim vorigaantal = 0
+	Set FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	Do FileWriter.Open("C:\VolumetrieLogging\requesten2.txt")
+	Set Reader=##class(TECH.FileReader).%New("C:\Users\PeterV\Desktop\Volumetrie_orders_txt.csv")
+	Do Reader.SetDelimiter(";") //Do Reader.SetDelimiter($C(9)) ; optioneel, default is TAB
+	Do Reader.SetHeaderRow(6) ; optioneel, default = 1
+	Do Reader.SetFirstDataRow(7) ; optioneel, default = 2
+	
+	Set Reader2=##class(TECH.FileReader).%New("C:\Users\PeterV\Desktop\Volumetrie_orders_txt - kopie.csv")
+	Do Reader2.SetDelimiter(";") //Do Reader.SetDelimiter($C(9)) ; optioneel, default is TAB
+	Do Reader2.SetHeaderRow(7) ; optioneel, default = 1
+	Do Reader2.SetFirstDataRow(8) ; optioneel, default = 2
+	Set jsonReq = "{"_$Char(34)_"pickContext"_$Char(34)_": {"_$Char(34)_"multiPickContainerType"_$Char(34)_": " _$Char(34)_"KarKardex"_$Char(34)_","_$Char(34)_"klantId"_$Char(34)_": " _$Char(34)_KlantNr_$Char(34)_","_$Char(34)_"klantGroep"_$Char(34)_": " _$Char(34)_$Char(34)_","_$Char(34)_"werkzone"_$Char(34)_": " _$Char(34)_$Char(34)_","_$Char(34)_"klaarzetzone"_$Char(34)_": " _$Char(34)_$Char(34)_","_$Char(34)_"urgentie"_$Char(34)_": " _$Char(34)_$Char(34)_"},"_$Char(34)_"lijst"_$Char(34)_ ": [ "
+	
+	While (Reader2.Next())
+	{
+		Do Reader.Next()
+		Set teller = teller +1
+		set ordernr = Reader.Column(7)
+		set identnr = Reader.Column(13)
+		set aantal = Reader.Column(29)
+		
+		set volgendeordernr = Reader2.Column(7)
+		set volgendeidentnr = Reader2.Column(13)
+		set volgendeaantal = Reader2.Column(29)
+		
+		if $$$Not(ordernr = vorigordernr) {
+			Set jsonReq = "{"_$Char(34)_"pickContext"_$Char(34)_": {"_$Char(34)_"multiPickContainerType"_$Char(34)_": " _$Char(34)_"KarPOD"_$Char(34)_","_$Char(34)_"klantId"_$Char(34)_": " _$Char(34)_KlantNr_$Char(34)_","_$Char(34)_"klantGroep"_$Char(34)_": " _$Char(34)_$Char(34)_","_$Char(34)_"werkzone"_$Char(34)_": " _$Char(34)_"POD"_$Char(34)_","_$Char(34)_"klaarzetzone"_$Char(34)_": " _$Char(34)_$Char(34)_","_$Char(34)_"urgentie"_$Char(34)_": " _$Char(34)_$Char(34)_"},"_$Char(34)_"lijst"_$Char(34)_ ": [ "
+		}
+		
+		Set jsonReq = jsonReq _ "{"_$Char(34)_"lijnId"_$Char(34)_": " _$Char(34)_teller_$Char(34)_","_$Char(34)_"PickGroep"_$Char(34)_": " _$Char(34)_"s"_$Char(34)_","_$Char(34)_"itemId"_$Char(34)_": " _$Char(34)_identnr_$Char(34)_","_$Char(34)_"aantal"_$Char(34)_": " _aantal_","_$Char(34)_"level"_$Char(34)_": " _"0"_","_$Char(34)_"configId"_$Char(34)_": " _$Char(34)_""_$Char(34)_","_$Char(34)_"orderId"_$Char(34)_": " _$Char(34)_""_$Char(34)_","_$Char(34)_"inventTransId"_$Char(34)_": " _$Char(34)_""_$Char(34)_","_$Char(34)_"klantId"_$Char(34)_": " _$Char(34)_KlantNr_$Char(34)_","_$Char(34)_"multiPersonalityId"_$Char(34)_": " _$Char(34)_""_$Char(34)_"}"
+		
+		
+		if (ordernr = volgendeordernr) {
+			Set jsonReq = jsonReq _","
+		} else {
+			Set jsonReq = jsonReq _ "],"_$Char(34)_"lijstId"_$Char(34)_": " _$Char(34)_ordernr_$Char(34)_"}"
+			Do FileWriter.WriteLine(jsonReq)
+			//Do ..Volumetrie(jsonReq)
+			//Do ##class(Tools.Wlip).%New(110).String(jsonReq)
+		}
+		
+		set vorigordernr = ordernr
+		set vorigidentnr = identnr
+		set vorigaantal = aantal
+		
+		if (ordernr = 2208354437) {
+			Do FileWriter.Close()
+			Quit 	
+		}
+		/*
+		//Doe req
+		if (ordernr = 2204360571) {
+			Quit 	
+		}
+		if $$$Not(ordernr = vorigordernr) {
+			//Doe req
+			Do ..Volumetrie(jsonReq)
+			Do ##class(Tools.Wlip).%New(110).String(jsonReq)
+			
+			Set jsonReq = "{"_$Char(34)_"pickContext"_$Char(34)_": {"_$Char(34)_"multiPickContainerType"_$Char(34)_": " _$Char(34)_"KarKardex"_$Char(34)_","_$Char(34)_"klantId"_$Char(34)_": " _$Char(34)_KlantNr_$Char(34)_","_$Char(34)_"klantGroep"_$Char(34)_": " _$Char(34)_$Char(34)_","_$Char(34)_"werkzone"_$Char(34)_": " _$Char(34)_$Char(34)_","_$Char(34)_"klaarzetzone"_$Char(34)_": " _$Char(34)_$Char(34)_","_$Char(34)_"urgentie"_$Char(34)_": " _$Char(34)_$Char(34)_"},"_$Char(34)_"lijst"_$Char(34)_ ": [ "
+		}
+		*/
+	}
+]]></Implementation>
+</Method>
+
+<Method name="InitialiseReader">
+<Implementation><![CDATA[
+	Set Reader=##class(TECH.FileReader).%New("C:\Users\PeterV\Desktop\Volumetrie_orders")
+	Do Reader.SetDelimiter($C(9)) ; optioneel, default is TAB
+	Do Reader.SetHeaderRow(6) ; optioneel, default = 1
+	Do Reader.SetFirstDataRow(7) ; optioneel, default = 2
+	/// Do reader.SetTranslateHeader2UpperCase() ; optioneel, default=0
+	/// Do reader.AddHeaderTranslation(From, To, DataType) ; optioneel, 1 per translatie
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfVertalingenNaarBestand">
+<Description>
+Do ##class(zTryout.PVR.Scrapbook).%New().SchrijfVertalingenNaarBestand(Taal)</Description>
+<FormalSpec>Taal:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	#define TussenQuotes(%v)   """"_%v_""""
+	Do FileWriter.Open("C:\Users\PeterV\Documents\Vertalingen\Vertalingen"_Taal_".txt")
+	
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT Intern,Vertaling FROM res.Vertaling WHERE Groep = 'TT' AND Taal = '" _Taal _"'")
+	Do ResultSet.Execute()
+	
+	Do FileWriter.WriteLine("{")
+	while ResultSet.Next() {
+		Do FileWriter.WriteLine($char(9)_$$$TussenQuotes(ResultSet.Data("Intern"))_" : "_$$$TussenQuotes(ResultSet.Data("Vertaling"))_",")
+	}
+	Do FileWriter.WriteLine("}")
+	Do FileWriter.Close()
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfAlleKleurVanTaal">
+<Description>
+Do ##class(zTryout.PVR.Scrapbook).%New().SchrijfAlleKleurVanTaal()</Description>
+<FormalSpec>Taal:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	#define TussenQuotes(%v)   """"_%v_""""
+	Do FileWriter.Open("C:\Users\PeterV\Documents\Vertalingen\KleurVertalingen"_Taal_".txt")
+	
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT KleurCode,Vertaling FROM DOM_common_Transl_impl_DataM.DataMKleurVertaling WHERE TaalCode = '" _Taal _"'")
+	Do ResultSet.Execute()
+	
+	Do FileWriter.WriteLine("{")
+	while ResultSet.Next() {
+		Do FileWriter.WriteLine($char(9)_$char(9)_$$$TussenQuotes("Kleur_"_ResultSet.Data("KleurCode"))_" : "_$$$TussenQuotes(ResultSet.Data("Vertaling"))_",")
+	}
+	Do FileWriter.WriteLine("}")
+	Do FileWriter.Close()
+]]></Implementation>
+</Method>
+
+<Method name="taorberekening">
+<Implementation><![CDATA[
+	#dim ProductAPI As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	#dim Product As DOM.PM.impl.MaatwerkProductImpl = ProductAPI.GeefProduct(4384493)
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = Product.GeefIngegevenKenmerken()
+				
+	Set WS = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails).%New()
+	Do ##class(Tools.Wlip).%New(110).ObjToText(WS.GeefMaatwerkDetails(IngegevenKenmerken, "12486", 1))
+]]></Implementation>
+</Method>
+
+<Method name="PoolseKleuren">
+<Implementation><![CDATA[
+	Set ^KCOL("R735 ","PL") = "R7035 jasnoszary"
+	Set ^KCOL("R737 ","PL")	= "R7037 ciemnoszary"
+	Set ^KCOL("   W ","PL")	= "Bialy"
+	Set ^KCOL("   S ","PL")	= "Czarny"
+	Set ^KCOL("  WI ","PL")	= "Bialy"
+	Set ^KCOL("  LG ","PL")	= "Jasnoszary"
+	Set ^KCOL("  DG ","PL")	= "Ciemnoszary"	
+	Set ^KCOL("  CS ","PL")	= "Czarny"
+	Set ^KCOL("  IG ","PL")	= "Szary Indium mat"
+	Set ^KCOL("  OG ","PL")	= "Antracyt mat"
+	Set ^KCOL("  SW ","PL")	= "Jedwabiscie bialy mat"
+	Set ^KCOL("CS-M ","PL")	= "Czarny matowy Carbon black matt"
+	Set ^KCOL("IG-M ","PL")	= "Szary Indium mat"
+	Set ^KCOL("INGL ","PL")	= "Inox"
+	Set ^KCOL("OG-M ","PL")	= "Antracyt mat"
+	Set ^KCOL("R906 ","PL")	= "Szary"
+	Set ^KCOL("SW-M ","PL")	= "Jedwabiscie bialy mat"
+	Set ^KCOL("WA/G ","PL")	= "Szary"
+	Set ^KCOL("WAWG ","PL")	= "Szary"
+	Set ^KCOL("WGWA ","PL")	= "Szary"
+]]></Implementation>
+</Method>
+
+<Method name="Volumetrie">
+<FormalSpec>Inputjson:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim JSONStream = ##class(%Stream.GlobalBinary).%New()
+	Set Logger = ##class(vhLib.Logger).%New("Volumetrie")
+	Do JSONStream.Write(Inputjson)
+	Do Logger.Info("Vol", JSONStream)
+	
+	#dim HttpLocationVoorRestApi As %String = "api/Volumetrie/VolumePicklijst"
+	#dim HttpRequest As %Net.HttpRequest = ..GeefHttpsRequest()
+	Do HttpRequest.EntityBody.CopyFrom(JSONStream)
+	Do ##class(Tools.Wlip).%New(110).ObjToText(HttpRequest)
+	
+	#dim StatusCode As %Status = HttpRequest.Post(HttpLocationVoorRestApi,0)
+	
+	Do ##class(Tools.Wlip).%New(110).ObjToText(HttpRequest.HttpResponse)
+	Do ##class(Tools.Wlip).%New(110).ScheidingsLijn()
+	//Do ..ValidateResponse(StatusCode, HttpRequest)
+	
+	//Set response = HttpRequest.HttpResponse.Data
+]]></Implementation>
+</Method>
+
+<Method name="GeefHttpsRequest">
+<Private>1</Private>
+<ReturnType>%Net.HttpRequest</ReturnType>
+<Implementation><![CDATA[
+	Set HttpRequest = ##class(%Net.HttpRequest).%New()
+ 	Set HttpRequest.Server = "localhost"
+ 	Set HttpRequest.ContentType = "application/json"
+ 	Set HttpRequest.ContentEncoding = "UTF-8"
+ 	Set HttpRequest.Port = 44350
+ 	//Set HttpRequest.SSLConfiguration = "DotNet_MaatwerkCalculator"
+	Set HttpRequest.Https = 0
+	Set HttpRequest.Timeout = 120
+    	
+	Quit HttpRequest
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^zTryout.PVR.ScrapbookD</DataLocation>