Index: zTryout/PVR/Scrapbook.cls.xml
===================================================================
diff -u -r74496 -r74502
--- zTryout/PVR/Scrapbook.cls.xml	(.../Scrapbook.cls.xml)	(revision 74496)
+++ zTryout/PVR/Scrapbook.cls.xml	(.../Scrapbook.cls.xml)	(revision 74502)
@@ -112,7 +112,6 @@
 	
 	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))
 	}
 	
@@ -517,7 +516,6 @@
 			
 		}
 	}
-	;Do ##class(Tools.Wlip).%New(110).ListOfDataTypes(LijstProductIds)
 	
 	
 	Quit LijstProductIds
@@ -619,7 +617,6 @@
 		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") {
@@ -643,11 +640,9 @@
 	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>
 
@@ -1302,7 +1297,6 @@
 	While ResultSet.HasNext()
 	{
 		Set record = ResultSet.Next()
-		Do ##class(Tools.Wlip).%New(110).String(record.Data("ItemId"))
 			
 	}
 	//Write !,DateTimeAPI.CurrentTimeStamp()
@@ -1439,7 +1433,6 @@
 			}
 		}
 	}
-	;Do ##class(Tools.Wlip).%New(110).ListOfDataTypes(LijstProductIds)
 	;Do LijstProductIds.Insert(1715003)   ; Hardcoded toevoegen 
 	
 	
@@ -1888,102 +1881,6 @@
 ]]></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()
@@ -2044,8 +1941,6 @@
 	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 "{",!
@@ -2192,7 +2087,6 @@
 			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
@@ -2211,7 +2105,6 @@
 		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)_ ": [ "
 		}
@@ -2304,7 +2197,6 @@
 	#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>
 
@@ -2344,12 +2236,8 @@
 	#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
@@ -2379,7 +2267,6 @@
 <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 )
@@ -2394,7 +2281,6 @@
 		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) {
@@ -2455,7 +2341,6 @@
 	
 	while BoxDataIterator.HasNext() {
 		#dim BoxData As DS.Prod.OptiBox.BoxData = BoxDataIterator.Next()
-		Do ##class(Tools.Wlip).%New(110).ObjToText(BoxData)
 	}
 	
 	
@@ -2466,14 +2351,11 @@
  	&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)
 	
 	
 	*/
@@ -2493,10 +2375,6 @@
 	. . 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>
@@ -2549,14 +2427,9 @@
 	//#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>
 
@@ -2592,8 +2465,6 @@
 	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>