Index: zTryout/PVR/Scrapbook.cls.xml
===================================================================
diff -u -r71464 -r74496
--- zTryout/PVR/Scrapbook.cls.xml	(.../Scrapbook.cls.xml)	(revision 71464)
+++ zTryout/PVR/Scrapbook.cls.xml	(.../Scrapbook.cls.xml)	(revision 74496)
@@ -2238,7 +2238,7 @@
 <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")
+	Do FileWriter.Open("C:\temp\Vertalingen\Vertalingen"_Taal_".txt")
 	
 	Set ResultSet = ##class(%ResultSet).%New()
 	Do ResultSet.Prepare("SELECT Intern,Vertaling FROM res.Vertaling WHERE Groep = 'TT' AND Taal = '" _Taal _"'")
@@ -2253,14 +2253,36 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SchrijfVertalingenAlgNaarBestand">
+<Description>
+Do ##class(zTryout.PVR.Scrapbook).%New().SchrijfVertalingenAlgNaarBestand("N")</Description>
+<FormalSpec>Taal:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	#define TussenQuotes(%v)   """"_%v_""""
+	Do FileWriter.Open("C:\temp\Vertalingen\VertalingenALG"_Taal_".txt")
+	
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT Intern,Vertaling FROM res.Vertaling WHERE Groep = 'ALG' 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")
+	Do FileWriter.Open("C:\temp\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 _"'")
@@ -2351,6 +2373,230 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SchrijfBonLijnen">
+<Description>
+Do ##class(zTryout.PVR.Scrapbook).%New().SchrijfBonLijnen()</Description>
+<FormalSpec>BonID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim KLNr As %String =$P($G(^KU1(BonID,"F")),"\")
+	Do ##class(Tools.Wlip).%New(110).String(KLNr)
+	#dim FakSoort As %String =$S($D(^KUL(KLNr,"F",BonID)):"F",1:"G")
+
+	#Dim Bon As DOM.VKP.Bon = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefBon( BonID, FakSoort )
+	
+	Set BasisRef="L." _ Bon.GeefID()
+	#dim Lijnen As TECH.Iterator = Bon.GeefTypeBonLijnIterator( ##class(DOM.VKP.enu.BonLijnType).Product() )
+	
+	While( Lijnen.HasNext() )
+	{
+		#Dim Lijn As DOM.VKP.ProductOrderlijn = Lijnen.Next()
+		
+		Set PRNr = Lijn.GeefProductID()
+		Set Qty = Lijn.GeefAantal()
+		Set LNr = Lijn.GeefID()
+		Do ##class(Tools.Wlip).%New(110).String(PRNr _"   " _Qty _"   "_LNr)
+		/*
+		Continue:Qty<1
+		If ..PastProductOpEuropallet(PRNr) {
+			Set pxInnerBox=..AddOrgaluxProduct(pxParent,.pxOverDoos,PRNr,Qty,BasisRef,LNr)
+			If '$isObject(pxInnerBox) {
+				Set Body=$G(Body)_PRNr_" "_$$$PRGet($$$KortTekst)_"  "_Qty_$C(13,10)
+			}
+		}
+		*/
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZipString">
+<Implementation><![CDATA[
+	Set filePath = "C:/temp/zipstring.txt"  ; Replace with the actual path to your text file
+	Set outputDirectory = "C:/temp/"
+	
+	Set encodedZipStringStream = ##class(%Stream.FileCharacter).%New()
+	Set status = encodedZipStringStream.LinkToFile(filePath)
+	Quit:'status
+
+	Set encodedZipString = encodedZipStringStream.Read()
+
+	// Decode the base64-encoded string
+	Set decodedZipString = $System.Encryption.Base64Decode(encodedZipString)
+
+	// Create a temporary file to store the decoded zip string
+	Set tempFile = "C:/temp/tempfile.zip"
+	Set tempStream = ##class(%Stream.FileBinary).%New()
+	Do tempStream.Write(decodedZipString)
+	Do tempStream.Rewind()
+
+	// Use the unzip command to extract the contents
+	Set unzipCommand = "unzip -o "_tempFile_" -d "_outputDirectory
+	Set status = $ZF(-1, unzipCommand)
+
+	If status = 0 {
+	    Write "ZIP file successfully extracted to: ", outputDirectory, !
+	} else {
+	    Write "Error extracting ZIP file. Status code: ", status, !
+	}
+
+	// Close the streams and remove the temporary file
+	Set status = encodedZipStringStream.%Close()
+	Set status = tempStream.%Close()
+	Set status = ##class(%File).Delete(tempFile)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBoxData">
+<Description>
+d ##class(zTryout.PVR.Scrapbook).%New().GeefBoxData(180041)</Description>
+<FormalSpec>PRNr</FormalSpec>
+<Implementation><![CDATA[
+	#dim BoxDataRepository As APPS.Verpakking.BoxDataRepository = ##class(APPS.Verpakking.BoxDataRepository).%New()
+	#dim BoxDataIterator As TECH.Iterator = BoxDataRepository.ZoekBoxDataViaProductId(PRNr)
+	
+	while BoxDataIterator.HasNext() {
+		#dim BoxData As DS.Prod.OptiBox.BoxData = BoxDataIterator.Next()
+		Do ##class(Tools.Wlip).%New(110).ObjToText(BoxData)
+	}
+	
+	
+	/*
+	
+	Set (Breedte,Diepte,Hoogte)=0
+	Set ObjType="PR",ObjRef=PRNr
+ 	&SQL(DECLARE GetVolume CURSOR FOR 
+	SELECT ID INTO :OpenID FROM Prod.OptiBox_BoxData WHERE ObjType= :ObjType and ObjRef= :ObjRef AND Deelvan is null)
+   	&sql(OPEN GetVolume)
+   	Do ##class(Tools.Wlip).%New(110).String(OpenID)
+ 	For  &sql(FETCH GetVolume) Quit:SQLCODE  Do
+	. Set oData=##class(DS.Prod.OptiBox.BoxData).%OpenId(OpenID)
+	. Quit:'$isObject(oData)
+	. Set oMeta=oData.Meta
+	. Quit:'$isObject(oMeta)
+	. Do ##class(Tools.Wlip).%New(110).ObjToText(oData)
+	. Do ##class(Tools.Wlip).%New(110).ObjToText(oData.Meta)
+	
+	
+	*/
+	/*
+	. Set lbQty=""
+	. If oData.MaxCombinAantal>1 Do ;aantal verdelen overmeerdere dozen
+	. . Set lbQty=..SplitQty(Qty,oData.MaxCombinAantal)
+	. Else  Do ; Geen meerdere aantallen van het zelfde product in 1 doos
+	. . Set lbQty=$LB($LB(Qty,0))
+	.
+	. For LoopCnt=1:1:$LL(lbQty) Do
+	. . Set ProdQty=$LG($LI(lbQty,LoopCnt),2)
+	. . Set Qty=$LG($LI(lbQty,LoopCnt),1)
+	. . Set Params("PRODAANTAL")=ProdQty
+	. . Set Params("AANTAL")=Qty
+	. . Set Breedte=..Calc(oData.BreedteExec,.Params)
+	. . Set Diepte=..Calc(oData.DiepteExec,.Params)
+	. . Set Hoogte=..Calc(oData.HoogteExec,.Params)
+	&sql(CLOSE GetVolume)
+	
+	Do ##class(Tools.Wlip).%New(110).String(Breedte)
+	Do ##class(Tools.Wlip).%New(110).String(Diepte)
+	Do ##class(Tools.Wlip).%New(110).String(Hoogte)
+	*/
+]]></Implementation>
+</Method>
+
+<Method name="ZendAsync">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim BackgroundProcessStarter As TECH.impl.BackgroundProcessStarter = ##class(TECH.Context).Instance().GeefBackgroundJobAPI().GeefBackgroundProcessStarter()
+		Set DataBuilder = ##class(TECH.BackgroundProcess.impl.DataBuilder).%New()
+		Do DataBuilder.SetClassName(##class(BL.Legacy.EWPR).%ClassName(1))
+		Do DataBuilder.SetMethodName("Zend")
+		Do DataBuilder.VoegToeDataType(3956661)
+		
+		Do BackgroundProcessStarter.StartProcess(DataBuilder.GetData())
+]]></Implementation>
+</Method>
+
+<Method name="BestaatDossierCodeVoorMaatwerkType">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>DossierCode:%String,Variant:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim BestaatDossierCodeVoorMaatwerkType As %Boolean = $$$False
+	Set ProductRepository = ##class(Prod.ProductRepository).%New()
+	#dim ProductenIterator As TECH.Iterator = ProductRepository.ZoekViaDossierCode(DossierCode)
+	#dim ProductTypeAPI As DOM.PM.impl.ProductTypeAPIimpl = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	
+	While ProductenIterator.HasNext() {
+		#dim Product As Prod.Product = ProductenIterator.Next()
+		
+		If (Variant = "LBX") {
+			Set BestaatDossierCodeVoorMaatwerkType = ProductTypeAPI.IsLegraboxProduct(Product.ProductNr)
+		}	
+	}
+	
+	Quit BestaatDossierCodeVoorMaatwerkType
+]]></Implementation>
+</Method>
+
+<Method name="LeesVhConfig">
+<Description>
+Do ##class(zTryout.PVR.Scrapbook).LeesVhConfig()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set JSONStringZonderSelectieInKost = "{ ""Model"": ""M_LBX"", ""Context"": { ""CustomerId"": 12468 }, ""Kenmerken"": { ""VoorwandType"": """", ""ZijwandType"": ""Pure"", ""BodemKleur"": ""DG"", ""CorpusBreedte"": 648, ""CorpusWanddikte"": 0, ""Draagkracht"": ""40"", ""DwarsverdelingAantal"": 0, ""DwarsverdelingType"": ""Enkel"", ""Frontbevestiging"": ""E"", ""GeleiderTechnologie"": ""B"", ""HeeftOpvullijstLinks"": false, ""HeeftOpvullijstRechts"": false, ""HeeftZijstabilisering"": false, ""InterneBreedte"": 0, ""IsBinnenBreedte"": true, ""IsBinnenlade"": false, ""LadeDiepte"": ""500"", ""LadeHoogte"": ""C"", ""LadeKleur"": ""OG-M"", ""RugHoogte"": ""C"", ""RugwandMateriaal"": ""Hout"", ""Toepassing"": ""L"", ""VerpakkingType"": ""VHoss"", ""NietMeeleveren.AfdekkapBinnen"": false, ""NietMeeleveren.AfdekkapBuiten"": true, ""ProductieWijze"": ""V"" }, ""Lijn"": { ""Aantal"": 1, ""Referentie"": ""DummyKlantReferentie"" }, ""MaatwerkDetails"": { ""Halffabrikaten"": { ""BODEM"": { ""Type"": ""Bewerkt"", ""Aantal"": 0.3647021276596, ""TeBekomenAantal"": ""1.0"", ""AfmetingTeBekomen"": ""840.0"", ""BrutoAfmetingHalffabrikaat"": ""2820.0"", ""AfmetingMetBewerkingVerlies"": ""843.0"", ""AfmetingAangerekendPerStuk"": ""1028.46"", ""ProductId"": ""7.002.239.6"", ""Korttekst"": ""SLMFB450   B-STR2840 CSOG"", ""Kenmerken"": { ""BodemKleur"": ""DG"", ""LadeDiepte"": ""450"", ""RugwandMateriaal"": ""Hout"" }, ""PPSkenmerken"": {} }, ""FRONTBEVESTIGING"": { ""Type"": ""Standaard"", ""Aantal"": 6, ""ProductId"": ""0.510.808.5"", ""Korttekst"": ""ZF7M7082   FROB  V500  ZN"", ""Kenmerken"": { ""Frontbevestiging"": ""D"", ""LadeHoogte"": ""F"" }, ""PPSkenmerken"": { ""AantalNodig"": ""3.0"" } }, ""GELEIDER.Links"": { ""Type"": ""Standaard"", ""Aantal"": 1, ""ProductId"": ""0.521.873.4"", ""Korttekst"": ""750.4501S  K LI   V12  ZN"", ""Kenmerken"": { ""LadeDiepte"": ""450"", ""Draagkracht"": ""40"", ""GeleiderTechnologie"": ""B"", ""LiRe"": ""LI"" }, ""PPSkenmerken"": {} } }, ""Kosten"": [ { ""Groep"": ""CB_KostGroep_Hoofdlijn"", ""Items"": [ { ""Naam"": ""CB_KostItem_LinefeedingPlaatMateriaal"", ""Aantal"": 135, ""ProductId"": ""0.501.856.8"", ""Korttekst"": ""KST TBLBVOORMONT"" }, { ""Naam"": ""CB_KostItem_EtiketEnPapier"", ""Aantal"": 1, ""ProductId"": ""0.521.873.4"", ""Korttekst"": ""KST ETIKETPAPIER"" } ] }, { ""Groep"": ""CB_KostGroep_Zijlijn"", ""Items"": [ { ""Naam"": ""CB_KostItem_NogEenItem"", ""Aantal"": 35, ""ProductId"": ""0.501.856.8"", ""Korttekst"": ""KST TBLBVOORMONT"" }, { ""Naam"": ""CB_KostItem_IetsAnders"", ""Aantal"": 1, ""ProductId"": ""0.521.874.6"", ""Korttekst"": ""KST IETSANDERS"" } ] }, { ""Groep"": ""CB_KostGroep_Procentueel"", ""Items"": [ { ""Naam"": ""CB_KostItem_Rework"", ""Percentage"": 5, ""Scope"": ""CB_KostGroep_Hoofdlijn"" }, { ""Naam"": ""CB_Kostitem_AlgemeneOverhead"", ""Percentage"": 1.5, ""Scope"": ""ALL"" } ] } ], ""VerwijderdeHalffabItems"": [""GELEIDER""] }, ""BerekendeKenmerken"": { ""AfbeeldingCode"": ""C_Legra.jpg"", ""GTIN"": null, ""ItemId"": ""9.963.666.8"", ""Korttekst"": ""LBBF/D %1450x875.0X OG"", ""Langtekst"": { ""nl-BE"": ""LEGRABOX Schubkasten F\r\nT:500xB:875; Boden:Dunkelgrau; \r\nZarge:Oriongrau; \r\nbeinhaltet: fertigschubkasten; \r\nKorpusschienen 40kg; BLUMOTION; \r\nfrontbefest pres; \r\nverpackt: Probox"", ""fr-FR"": ""LangtekstFR"" } } }"
+	Set MetIBHFitem= "{    ""isValid"": true,    ""Model"": ""M_LBX"",    ""Kenmerken"": {      ""ZijwandType"": ""Pure"",      ""NietMeeleveren.AfdekkapBinnen"": false,      ""NietMeeleveren.AfdekkapBuiten"": false,      ""NietMeeleveren.AfdekkapRugwandHouder"": false,      ""NietMeeleveren.BevestigingBodemFront"": false,      ""NietMeeleveren.FrontBevestiging"": false,      ""NietMeeleveren.Geleider"": false,      ""NietMeeleveren.InschuifElementVoor"": false,      ""NietMeeleveren.InschuifElementZijkant"": false,      ""NietMeeleveren.Opvullijst"": false,      ""NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers"": false,      ""NietMeeleveren.TiponBlumotionSynchronisatieStang"": false,      ""NietMeeleveren.Zijstabilisering"": false,      ""BodemKleur"": ""WI"",      ""CorpusBreedte"": 500,      ""CorpusWanddikte"": 0,      ""Draagkracht"": ""40"",      ""DwarsverdelingAantal"": 0,      ""DwarsverdelingType"": ""Enkel"",      ""Frontbevestiging"": ""D"",      ""GeleiderTechnologie"": ""B"",      ""HeeftOpvullijstLinks"": false,      ""HeeftOpvullijstRechts"": false,      ""HeeftZijstabilisering"": false,      ""InterneBreedte"": 500,      ""IsBinnenBreedte"": true,      ""IsBinnenlade"": false,      ""LadeDiepte"": ""350"",      ""LadeHoogte"": ""C"",      ""LadeKleur"": ""CS-M"",      ""HeeftMat"": false,      ""RugHoogte"": ""C"",      ""RugwandMateriaal"": ""Hout"",      ""Toepassing"": ""L"",      ""VerpakkingType"": ""V1"",      ""ProductieWijze"": ""V""    },    ""Lijn"": {      ""Aantal"": 1,      ""Referentie"": """"    },    ""MaatwerkDetails"": {      ""Halffabrikaten"": {        ""Verpakking.V1DoosMetDeksel"": {          ""Aantal"": 1.200314,          ""ProductId"": ""9.537.438.3"",          ""Korttekst"": ""VFF.TB143EB ZZCARTON   BR"",          ""Kenmerken"": {            ""Samenstelling"": ""EB"",            ""Kartonbreedte"": ""1430,00""          },          ""Type"": ""Bewerkt"",          ""TeBekomenAantal"": 1,          ""AfmetingTeBekomen"": 1311.2,          ""AfmetingMetBewerkingVerlies"": 1311.2,          ""AfmetingAangerekendPerStuk"": 1376.76,          ""OpnemenInEindproduct"": true,          ""BuilderBepaaltOpnemenInEindproduct"": false,          ""NettoAfmetingHalffabrikaat"": 1147,          ""BrutoAfmetingHalffabrikaat"": 1150,          ""OmschrijvingVoorDocs"": ""V1 ladedoos"",          ""OmschrijvingVoorPicking"": ""Verpakking"",          ""BewerkingDimensies"": {            ""Lengte"": 1311.2          }        },        ""Verpakking.V1LODoos"": {          ""Aantal"": 0.427323,          ""ProductId"": ""9.605.085.3"",          ""Korttekst"": ""VFF.TB 95EB ZZCARTON   BR"",          ""Kenmerken"": {            ""Samenstelling"": ""EB"",            ""Kartonbreedte"": ""950,00""          },          ""Type"": ""Bewerkt"",          ""TeBekomenAantal"": 1,          ""AfmetingTeBekomen"": 466.8,          ""AfmetingMetBewerkingVerlies"": 466.8,          ""AfmetingAangerekendPerStuk"": 490.14,          ""OpnemenInEindproduct"": true,          ""BuilderBepaaltOpnemenInEindproduct"": false,          ""NettoAfmetingHalffabrikaat"": 1147,          ""BrutoAfmetingHalffabrikaat"": 1150,          ""OmschrijvingVoorDocs"": ""V1 losse onderdelendoos"",          ""OmschrijvingVoorPicking"": ""Verpakking"",          ""BewerkingDimensies"": {            ""Lengte"": 466.8          }        },        ""Bodem"": {          ""Aantal"": 0.202468,          ""ProductId"": ""7.002.246.6"",          ""Korttekst"": ""SLMFB350   B-STR2840 IGWI"",          ""Kenmerken"": {            ""BodemKleur"": ""WI"",            ""LadeDiepte"": ""350"",            ""RugwandMateriaal"": ""Hout"",            ""BewerkbaarOp"": ""Lengte""          },          ""Type"": ""Bewerkt"",          ""TeBekomenAantal"": 1,          ""AfmetingTeBekomen"": 465,          ""AfmetingMetBewerkingVerlies"": 468,          ""AfmetingAangerekendPerStuk"": 570.96,          ""OpnemenInEindproduct"": true,          ""BuilderBepaaltOpnemenInEindproduct"": false,          ""NettoAfmetingHalffabrikaat"": 2820,          ""BrutoAfmetingHalffabrikaat"": 2840,          ""BewerkingDimensies"": {            ""Lengte"": 465          }        },        ""FrontBevestiging"": {          ""Aantal"": 4,          ""ProductId"": ""0.510.808.5"",          ""Korttekst"": ""ZF7M7082   FROB  V500  ZN"",          ""Kenmerken"": {            ""Frontbevestiging"": ""D"",            ""LadeHoogte"": ""C""          },          ""Type"": ""Standaard"",          ""OpnemenInEindproduct"": true,          ""BuilderBepaaltOpnemenInEindproduct"": false        },        ""Geleider.Links"": {          ""Aantal"": 1,          ""ProductId"": ""0.271.427.5"",          ""Korttekst"": ""750.3501S  K LI   V12  ZN"",          ""Kenmerken"": {            ""LadeDiepte"": ""350"",            ""Draagkracht"": ""40"",            ""GeleiderTechnologie"": ""B"",            ""LiRe"": ""LI""          },          ""Type"": ""Standaard"",          ""OpnemenInEindproduct"": true,          ""BuilderBepaaltOpnemenInEindproduct"": false        },        ""Geleider.Rechts"": {          ""Aantal"": 1,          ""ProductId"": ""0.278.022.8"",          ""Korttekst"": ""750.3501S  K RE   V12  ZN"",          ""Kenmerken"": {            ""LadeDiepte"": ""350"",            ""Draagkracht"": ""40"",            ""GeleiderTechnologie"": ""B"",            ""LiRe"": ""RE""          },          ""Type"": ""Standaard"",          ""OpnemenInEindproduct"": true,          ""BuilderBepaaltOpnemenInEindproduct"": false        },        ""RugBodemSchroef"": {          ""Aantal"": 1,          ""ProductId"": ""9.130.915.1"",          ""Korttekst"": ""SCR.3,5X32 PAN-SCHR    ZN"",          ""Kenmerken"": {},          ""Type"": ""Standaard"",          ""OpnemenInEindproduct"": true,          ""BuilderBepaaltOpnemenInEindproduct"": false        },        ""RugwandHouder.Links"": {          ""Aantal"": 1,          ""ProductId"": ""0.441.073.6"",          ""Korttekst"": ""ZB7C000S   HO-R L V48CS-M"",          ""Kenmerken"": {            ""LadeKleur"": ""CS-M"",            ""LadeHoogte"": ""C"",            ""RugHoogte"": ""C"",            ""LiRe"": ""LI""          },          ""Type"": ""Standaard"",          ""OpnemenInEindproduct"": true,          ""BuilderBepaaltOpnemenInEindproduct"": false        },        ""RugwandHouder.Rechts"": {          ""Aantal"": 1,          ""ProductId"": ""0.848.078.2"",          ""Korttekst"": ""ZB7C000S   HO-R R V48CS-M"",          ""Kenmerken"": {            ""LadeKleur"": ""CS-M"",            ""LadeHoogte"": ""C"",            ""RugHoogte"": ""C"",            ""LiRe"": ""RE""          },          ""Type"": ""Standaard"",          ""OpnemenInEindproduct"": true,          ""BuilderBepaaltOpnemenInEindproduct"": false        },        ""RugwandHouderSchroef"": {          ""Aantal"": 6,          ""ProductId"": ""9.061.808.9"",          ""Korttekst"": ""SCR.4X13T  TORXT20     NI"",          ""Kenmerken"": {},          ""Type"": ""Standaard"",          ""OpnemenInEindproduct"": true,          ""BuilderBepaaltOpnemenInEindproduct"": false        },        ""RugHout"": {          ""Aantal"": 0.20117,          ""ProductId"": ""7.002.281.6"",          ""Korttekst"": ""SLF.RUGC   R-STR2840 IGWI"",          ""Kenmerken"": {            ""BodemKleur"": ""WI"",            ""RugHoogte"": ""C"",            ""BewerkbaarOp"": ""Lengte""          },          ""Type"": ""Bewerkt"",          ""TeBekomenAantal"": 1,          ""AfmetingTeBekomen"": 462,          ""AfmetingMetBewerkingVerlies"": 465,          ""AfmetingAangerekendPerStuk"": 567.3,          ""OpnemenInEindproduct"": true,          ""BuilderBepaaltOpnemenInEindproduct"": false,          ""NettoAfmetingHalffabrikaat"": 2820,          ""BrutoAfmetingHalffabrikaat"": 2840,          ""BewerkingDimensies"": {            ""Lengte"": 462          }        },        ""LadeZijkant.Links"": {          ""Aantal"": 1,          ""ProductId"": ""0.148.911.7"",          ""Korttekst"": ""770C3502S  Z R+L  V1 CS-M"",          ""Kenmerken"": {            ""LadeDiepte"": ""350.0"",            ""LadeHoogte"": ""C"",            ""LadeKleur"": ""CS-M"",            ""ZijwandType"": ""Pure"",            ""LiRe"": ""LI+RE"",            ""KlantBeperking"": ""1000""          },          ""Type"": ""Standaard"",          ""OpnemenInEindproduct"": true,          ""BuilderBepaaltOpnemenInEindproduct"": false        },        ""AfdekkapBinnen"": {          ""Aantal"": 2,          ""ProductId"": ""0.148.911.7"",          ""Korttekst"": ""770C3502S  Z R+L  V1 CS-M"",          ""Kenmerken"": {            ""LadeDiepte"": ""350.0"",            ""LadeHoogte"": ""C"",            ""LadeKleur"": ""CS-M"",            ""ZijwandType"": ""Pure"",            ""LiRe"": ""LI+RE"",            ""KlantBeperking"": ""1000""          },          ""Type"": ""Inbegrepen"",          ""OpnemenInEindproduct"": true,          ""BuilderBepaaltOpnemenInEindproduct"": false,          ""RolnaamParent"": ""LadeZijkant.Links""        },        ""AfdekkapBuiten"": {          ""Aantal"": 2,          ""ProductId"": ""0.148.911.7"",          ""Korttekst"": ""770C3502S  Z R+L  V1 CS-M"",          ""Kenmerken"": {            ""LadeDiepte"": ""350.0"",            ""LadeHoogte"": ""C"",            ""LadeKleur"": ""CS-M"",            ""ZijwandType"": ""Pure"",            ""LiRe"": ""LI+RE"",            ""KlantBeperking"": ""1000""          },          ""Type"": ""Inbegrepen"",          ""OpnemenInEindproduct"": true,          ""BuilderBepaaltOpnemenInEindproduct"": false,          ""RolnaamParent"": ""LadeZijkant.Links""        }      },      ""Kosten"": [        {          ""Groep"": ""KostHoofdlijn"",          ""Items"": [            {              ""Naam"": ""CB_KostItem_LinefeedingPlaatMateriaal"",              ""Aantal"": ""8.0"",              ""ProductId"": ""7.013.706.0"",              ""Korttekst"": ""LINEFEED""            },            {              ""Naam"": ""CB_KostItem_LinefeedingRugwandHouder"",              ""Aantal"": ""1.0"",              ""ProductId"": ""7.013.706.0"",              ""Korttekst"": ""LINEFEED""            },            {              ""Naam"": ""CB_KostItem_ZaagFeeding"",              ""Aantal"": ""20.0"",              ""ProductId"": ""7.013.765.3"",              ""Korttekst"": ""TBLBZAAG""            },            {              ""Naam"": ""CB_KostItem_ZaagEnToepie"",              ""Aantal"": ""40.0"",              ""ProductId"": ""7.013.765.3"",              ""Korttekst"": ""TBLBZAAG""            },            {              ""Naam"": ""CB_KostItem_InspectiePost"",              ""Aantal"": ""40.0"",              ""ProductId"": ""7.013.759.4"",              ""Korttekst"": ""TBLBRUGW""            },            {              ""Naam"": ""CB_KostItem_Pers"",              ""Aantal"": ""40.0"",              ""ProductId"": ""7.013.757.2"",              ""Korttekst"": ""TBLBPERS""            },            {              ""Naam"": ""CB_KostItem_MontageInDoosEnStapelen"",              ""Aantal"": ""40.0"",              ""ProductId"": ""7.013.762.0"",              ""Korttekst"": ""TBLBV1""            },            {              ""Naam"": ""CB_KostItem_KartonSnijdenEnVouwen"",              ""Aantal"": ""40.0"",              ""ProductId"": ""7.013.755.0"",              ""Korttekst"": ""TBLBKARTON1""            },            {              ""Naam"": ""CB_KostItem_EtiketEnPapier"",              ""Aantal"": ""1.0"",              ""ProductId"": ""7.013.696.4"",              ""Korttekst"": ""EXTRAKOSTLBXETIKETENPAPIER""            }          ]        },        {          ""Groep"": ""KostZijlijn"",          ""Items"": [            {              ""Naam"": ""CB_KostItem_LinefeedingZijkanten"",              ""Aantal"": ""10.0"",              ""ProductId"": ""7.013.706.0"",              ""Korttekst"": ""LINEFEED""            },            {              ""Naam"": ""CB_KostItem_PickingZijkanten"",              ""Aantal"": ""25.0"",              ""ProductId"": ""7.013.766.4"",              ""Korttekst"": ""TBLBZIJKANT""            },            {              ""Naam"": ""CB_KostItem_PlaatsingEnDoosNemen"",              ""Aantal"": ""15.0"",              ""ProductId"": ""7.013.756.1"",              ""Korttekst"": ""TBLBOND""            },            {              ""Naam"": ""CB_KostItem_LinefeedingGeleiders"",              ""Aantal"": ""10.0"",              ""ProductId"": ""7.013.706.0"",              ""Korttekst"": ""LINEFEED""            },            {              ""Naam"": ""CB_KostItem_PickingEnTransportGeleiders"",              ""Aantal"": ""15.0"",              ""ProductId"": ""7.013.756.1"",              ""Korttekst"": ""TBLBOND""            },            {              ""Naam"": ""CB_KostItem_LinefeedingFrontBevestiging"",              ""Aantal"": ""5.0"",              ""ProductId"": ""7.013.706.0"",              ""Korttekst"": ""LINEFEED""            },            {              ""Naam"": ""CB_KostItem_PickingEnTransportFrontBevestiging"",              ""Aantal"": ""10"",              ""ProductId"": ""7.013.756.1"",              ""Korttekst"": ""TBLBOND""            }          ]        },        {          ""Groep"": ""CB_KostGroep_Procentueel"",          ""Items"": [            {              ""Percentage"": 2.65,              ""Scope"": ""ALL"",              ""Naam"": ""CB_KostItem_RechtzettingKostprijsBJ2018""            }          ]        }      ],      ""VerwijderdeHalffabItems"": []    },    ""BerekendeKenmerken"": {      ""AfbeeldingCode"": ""C_Legra.jpg"",      ""ItemId"": ""9.657.336.8"",      ""Korttekst"": ""LB4C/D%1350x500  CSWI"",      ""Langtekst"": {        ""nl-BE"": ""LEGRABOX lade C\r\nD:350xB:500; bodem:Wit; \r\nladezijkant:Carbonzwart mat; \r\nbevat: gemont. lade; corpusprofiel 40kg; \r\nBLUMOTION; frontbevest. Drevel; \r\nverpakt: karton"",        ""fr-FR"": ""LEGRABOX tiroir C\r\nP:350xL:500; fond:Blanc; \r\ncôté de tiroir:Noir carbon mat; \r\ncontient: tiroir monté; \r\ncoulisses corps de meuble 40kg; BLUMOTION; \r\nattache façade à presser; \r\nemballé: carton"",        ""de-DE"": ""LEGRABOX Schubkasten C\r\nT:350xB:500; Boden:Weiss; \r\nZarge:Carbonschwarz matt; \r\nbeinhaltet: fertigschubkasten; \r\nKorpusschienen 40kg; BLUMOTION; \r\nfrontbefest pres; \r\nverpackt: karton"",        ""en-US"": ""LEGRABOX drawer C\r\nD:350xW:500; base:White; \r\ndrawer side:Carbon black matt; \r\ncontains: premounted drawer; \r\ncabinet profiles 40kg; BLUMOTION; \r\nfixation pressure; \r\npacked: box""      }    }  }"
+	#dim JSONStream = ##class(%Stream.GlobalBinary).%New()
+	Do JSONStream.Write(MetIBHFitem)
+	#dim VhConfig As DOM.PM.Maatwerk.Calc.Common.VhConfig = ..ParseJsonStreamNaarObject(JSONStream,##class(DOM.PM.Maatwerk.Calc.Common.VhConfig).%ClassName(1))
+	//#dim VhConfig As DOM.PM.Maatwerk.Calc.Common.VhConfig = ..ParseJsonStreamNaarObject(JSONStream,##class(%ListOfObjects).%ClassName(1))
+	//#dim VhConfig As DOM.PM.Maatwerk.Calc.Common.VhConfig = ..ParseJsonStreamNaarObject(JSONStream,"")
+	
+	Do JSONStream.%Close()
+	//Do ##class(Tools.Wlip).%New(110).ObjToText(VhConfig.MaatwerkDetails.Halffabrikaten)
+	//Do ##class(Tools.Wlip).%New(110).ArrayOfDataTypes(VhConfig.MaatwerkDetails.Halffabrikaten)
+	
+	Set help = ##class(DOM.PM.Maatwerk.Calc.Common.VhConfigHelper).%New(VhConfig)
+	#dim boom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = help.GeefHalffabItemsBoom()
+	//Do ##class(Tools.Wlip).%New(110).ListOfDataTypes(boom.HalffabItems)
+	
+	Do ##class(Tools.Wlip).%New(110).ScheidingsLijn()
+]]></Implementation>
+</Method>
+
+<Method name="ParseJsonStreamNaarObject">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>JsonStream:%Stream,RootObjectClassname:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.RegisteredObject</ReturnType>
+<Implementation><![CDATA[
+	#dim Object As TECH.RegisteredObject = ""
+	
+	Do JsonStream.Rewind()
+	Do ##class(TECH.JSON.Parser).ParseJSON(JsonStream, RootObjectClassname, .Object)
+	
+	If $$$Not($IsObject(Object)) {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("De method ParseJsonStreamNaarObject() heeft geen object opgeleverd voor klasse '"_RootObjectClassname_"' (JsonStream.length = '"_JsonStream.Size_"').")
+	}
+	
+	Quit Object
+]]></Implementation>
+</Method>
+
+<Method name="PowerToolVhConfigCID">
+<Description>
+Do ##class(zTryout.PVR.Scrapbook).PowerToolVhConfigCID()</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>CID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set EncowayMaatwerkService = ##class(WSimpl.PM.Maatwerk.MaatwerkService.Encoway).%New()
+	;Set CID = "25d16692-40e1-4c7b-a88b-62c961e63502"
+	#dim VhConfig As APPS.PM.Maatwerk.dto.VhConfig = EncowayMaatwerkService.GeefVhConfig(CID)
+
+	Set VhConfigRepository = ##class(APPS.PM.Maatwerk.impl.VhConfigRepository).%New()	
+	Do VhConfigRepository.VerwijderCID(CID)	
+	Do VhConfigRepository.SaveVhConfig(CID, VhConfig)
+	
+	;Do ##class(Tools.Wlip).%New(110).ObjToText(VhConfigRepository.GeefVhConfig(CID))
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^zTryout.PVR.ScrapbookD</DataLocation>