Index: vhTest/Mock/APPS/Verpakking/OrgaluxBonOptimizer.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(revision 72244)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Verpakking.OrgaluxBonOptimizer">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Verpakking.OrgaluxBonOptimizer,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstVanTeVerpakkenProducten">
+<FormalSpec>Bon:DOM.VKP.Bon</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLijstVanTeVerpakkenProducten",Bon)
+]]></Implementation>
+</Method>
+
+<Method name="Optimize">
+<FormalSpec>BONNr:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Optimize",BONNr)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/OrgaluxBonOptimizer.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(revision 0)
+++ APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(revision 72244)
@@ -0,0 +1,1163 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.OrgaluxBonOptimizer">
+<Super>TECH.Mockable</Super>
+
+<Parameter name="MaximumVerpakkingBreedteVoorEuropallet">
+<Type>%Integer</Type>
+<Default>1170</Default>
+</Parameter>
+
+<Parameter name="MaximumVerpakkingDiepteVoorEuropallet">
+<Type>%Integer</Type>
+<Default>770</Default>
+</Parameter>
+
+<Parameter name="MaximumVerpakkingHoogteVoorEuropallet">
+<Type>%Integer</Type>
+<Default>730</Default>
+</Parameter>
+
+<Property name="LoadId">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Parameter name="ContainerId">
+<Type>%String</Type>
+<Default>Overdoos</Default>
+</Parameter>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IsGrotePalletNodig">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BoxDataRepository">
+<Type>APPS.Verpakking.BoxDataRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SnijDataRepository">
+<Type>APPS.Verpakking.SnijDataRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BonBevatEenNietOnderTeBrengenProduct">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="BonId">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="GrootsteHoogteNietKantelbaarProduct">
+<Type>%Decimal</Type>
+<InitialExpression>1</InitialExpression>
+</Property>
+
+<Property name="GrootsteDimensieGrondvlak">
+<Type>%Decimal</Type>
+<InitialExpression>1</InitialExpression>
+</Property>
+
+<Property name="TweedeGrootsteDimensieGrondvlak">
+<Type>%Decimal</Type>
+<InitialExpression>1</InitialExpression>
+</Property>
+
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.impl.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DoosFactory">
+<Type>APPS.Verpakking.DoosFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Optimizer">
+<Type>APPS.Verpakking.Optimizer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DoosAanvuller">
+<Type>APPS.Verpakking.DoosAanvuller</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="JobId">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CubeIQRequestBuilder">
+<Type>APPS.Verpakking.CubeIQRequestBuilder</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>DoosFactory:APPS.Verpakking.DoosFactory="",DoosAanvuller:APPS.Verpakking.DoosAanvuller="",Optimizer:APPS.Verpakking.Optimizer="",CubeIQRequestBuilder:APPS.Verpakking.CubeIQRequestBuilder</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Logger = ##class(vhLib.Logger).%New("VH doos service")
+	Set ..BoxDataRepository = ##class(APPS.Verpakking.BoxDataRepository).%New()
+	Set ..SnijDataRepository = ##class(APPS.Verpakking.SnijDataRepository).%New()
+	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set ..DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	Set ..DoosFactory = $$$Inject(DoosFactory, ##class(APPS.Verpakking.DoosFactory).%New())
+	Set ..DoosAanvuller = $$$Inject(DoosAanvuller, ##class(APPS.Verpakking.DoosAanvuller).%New())
+	Set ..Optimizer = $$$Inject(Optimizer, ##class(APPS.Verpakking.Optimizer).%New())
+	Set ..CubeIQRequestBuilder = $$$Inject(CubeIQRequestBuilder, ##class(APPS.Verpakking.CubeIQRequestBuilder).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OptimizeAsync">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BonId:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set OrgaluxBonOptimizer = ##class(APPS.Verpakking.OrgaluxBonOptimizer).%New()
+	Do OrgaluxBonOptimizer.Optimize(BonId)
+]]></Implementation>
+</Method>
+
+<Method name="Optimize">
+<FormalSpec>BonId:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Logger.Info("Optimize bon orgalux", "Start optimize bon " _ BonId _".")	
+	Set ..BonId = BonId
+	Set ..CubeIQRequestBuilder.ContainerId = ..#ContainerId
+ 	Set ..CubeIQRequestBuilder.LoadId = ..#ContainerId _ "_" _ ..BonId
+	
+ 	#dim OrigineleBoxDataLijst As List of DS.Prod.OptiBox.BoxData = ..GeefBoxDataVoorBonMetNesting(BonId)
+ 	#dim BoxDataLijstVanTeMakenKartons As List of DS.Prod.OptiBox.BoxData = ..GroepeerBoxDataIndienNodig(OrigineleBoxDataLijst)
+ 	#dim BoxDataLijstVanTeStapelenDozen As List of DS.Prod.OptiBox.BoxData = ..VerwijderNietTeStapelenKartons(BoxDataLijstVanTeMakenKartons)
+ 	Do ..BepaalGrootsteGrondOppervlak(BoxDataLijstVanTeStapelenDozen)
+ 	
+ 	#dim CubeIQResponse As APPS.Verpakking.dto.CubeIQ.Response = ..GeefBesteStapeling(BoxDataLijstVanTeStapelenDozen)
+ 	Set ..JobId = $Piece(CubeIQResponse.cubeiq.loads.load.GetAt(1).jobid, "-", 1)
+ 	
+ 	If $$$Not(..ZijnAfbeeldingenGegenereerdVoorBesteStapeling()) {
+	 	#dim FoutOmschrijving As %String = "Geen afbeelding gevonden voor optimale stapeling gevonden voor bon "_ ..BonId _" met JobId "_ ..JobId _ ". Hierdoor is de optimalisatie van de bon ook niet afgerond. Probeer manueel de stapeling van de bon opnieuw te optimaliseren."
+		Do ..Logger.ErrorMail("Optimaliseer bon orgalux", FoutOmschrijving)
+		Set Exception = ##class(TECH.Exceptions.DataNotFoundException).%New(FoutOmschrijving)	
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+ 	}
+ 	
+	Do ..SnijDataRepository.VerwijderViaBonId(..BonId)	
+	
+	
+	Do ..ProcessCubeIQResponse(CubeIQResponse, OrigineleBoxDataLijst)
+	Do ..MaakOptiboxQueue()
+	
+	Do ..Logger.Info("Optimize bon orgalux", "Finished optimize bon " _ BonId _".")
+]]></Implementation>
+</Method>
+
+<Method name="GeefBesteStapeling">
+<FormalSpec>BoxDataLijstVanTeStapelenDozen:%ListOfObjects</FormalSpec>
+<ReturnType>APPS.Verpakking.dto.CubeIQ.Response</ReturnType>
+<Implementation><![CDATA[
+	#dim Request As APPS.Verpakking.dto.CubeIQ.Request = ""
+	#dim Response As APPS.Verpakking.dto.CubeIQ.Response = ""
+	#dim BesteStapeling As APPS.Verpakking.dto.CubeIQ.Response = ""
+	Set ArrayVanResultaten = ##class(%ArrayOfObjects).%New()
+	#dim MinimumAantalPallettenVoorBon As %Integer = ..BepaalMinimumAantalPallettenVoorBon(BoxDataLijstVanTeStapelenDozen)
+	
+ 	If (MinimumAantalPallettenVoorBon = 1) {
+	 	#dim PartialLoadOnFloor As Integer = 0
+	 	For PartialLoadOnFloor=0:1:1 {
+		 	#dim Breedte As %Decimal = ..GrootsteDimensieGrondvlak
+		 	#dim Diepte As %Decimal = ..TweedeGrootsteDimensieGrondvlak
+		 	#dim Hoogte As %Decimal = $Select(..GrootsteHoogteNietKantelbaarProduct = 1: 115, 1: ..GrootsteHoogteNietKantelbaarProduct)
+		 	
+		 	//Gronddimensies stelselmatig vergroten met 5% om zo mogelijks interessantere oplossingen te krijgen
+		 	While (Breedte <= ..#MaximumVerpakkingBreedteVoorEuropallet) {
+			 	Set Diepte = ..TweedeGrootsteDimensieGrondvlak
+			 	
+			 	While ((Diepte <= ..#MaximumVerpakkingDiepteVoorEuropallet)) {
+				 	Set Hoogte = ..GrootsteHoogteNietKantelbaarProduct
+				 	
+				 	While ((Hoogte <= ..#MaximumVerpakkingHoogteVoorEuropallet)) {
+					 	Set Request = ..CubeIQRequestBuilder.MaakCubeIQRequest(BoxDataLijstVanTeStapelenDozen, Breedte, Diepte, Hoogte, PartialLoadOnFloor)
+						Set Response = ..GeefParsedCubeIQResponse(Request)
+						If (Response.cubeiq.unloadedproducts = "") {
+							If (Response.cubeiq.loadedcontainers.loadedcontainer.Count() = MinimumAantalPallettenVoorBon) {
+					 			#dim Beoordeling As %Decimal = ..GeefBeoordelingScoreVanEenOverdoos(Response.cubeiq.loadedcontainers.loadedcontainer.GetAt(1), MinimumAantalPallettenVoorBon)
+					 			Do ArrayVanResultaten.SetAt(Response, Beoordeling)
+							}
+				 		}
+					 	
+				 		Set Hoogte = (Hoogte + 180)
+				 	}
+				 	Set Diepte = (Diepte + 180)
+			 	}
+			 	Set Breedte = (Breedte + 180)
+		 	}
+	 	}
+	 	
+	 	#dim ResultatenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ArrayVanResultaten)
+	 	#dim BesteScore As %Decimal = 9999999999999999999999
+	 	While ResultatenIterator.HasNext() {
+		 	#dim CubeIQResponse As APPS.Verpakking.dto.CubeIQ.Response = ResultatenIterator.Next()
+		 	#dim Score As %Decimal = ResultatenIterator.Key()
+		 	
+		 	If (BesteScore > Score) {
+			 	Set BesteStapeling = CubeIQResponse
+			 	Set BesteScore = Score
+		 	}
+	 	}
+ 	} Else {
+	 	#dim MaxHoogteDoos As %Decimal = 150
+	 	
+		While ((BesteStapeling = "") && (MaxHoogteDoos < ..#MaximumVerpakkingHoogteVoorEuropallet)) {
+			Set Request = ..CubeIQRequestBuilder.MaakCubeIQRequest(BoxDataLijstVanTeStapelenDozen, ..#MaximumVerpakkingBreedteVoorEuropallet, ..#MaximumVerpakkingDiepteVoorEuropallet, MaxHoogteDoos, $$$True)
+			Set Response = ..GeefParsedCubeIQResponse(Request)
+			
+			If ((Response.cubeiq.loadedcontainers.loadedcontainer.Count() = MinimumAantalPallettenVoorBon) && (Response.cubeiq.unloadedproducts = "")) {
+				Set BesteStapeling = Response
+			}
+			
+			Set MaxHoogteDoos = MaxHoogteDoos + 50
+		}
+ 	}
+ 	
+ 	If (BesteStapeling = "") {
+		#dim FoutOmschrijving As %String = "Geen optimale stapeling gevonden voor bon "_ ..BonId _"."
+		Do ..Logger.ErrorMail("Optimaliseer bon orgalux", FoutOmschrijving)
+		Set Exception = ##class(TECH.Exceptions.DataNotFoundException).%New(FoutOmschrijving)	
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+ 	Quit BesteStapeling
+]]></Implementation>
+</Method>
+
+<Method name="BepaalMinimumAantalPallettenVoorBon">
+<FormalSpec>BoxDataLijstVanTeStapelenDozen:%ListOfObjects</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim MinimumAantalPallettenVoorBon As %Integer = 0
+	#dim RequestVolumeVolledigePallet As APPS.Verpakking.dto.CubeIQ.Request = ..CubeIQRequestBuilder.MaakCubeIQRequest(BoxDataLijstVanTeStapelenDozen, ..#MaximumVerpakkingBreedteVoorEuropallet, ..#MaximumVerpakkingDiepteVoorEuropallet, ..#MaximumVerpakkingHoogteVoorEuropallet)
+ 	#dim CubeIQResponse As APPS.Verpakking.dto.CubeIQ.Response = ..GeefParsedCubeIQResponse(RequestVolumeVolledigePallet)
+	
+	If $$$Not(CubeIQResponse.cubeiq.unloadedproducts = "") {
+		#dim WarningOmschrijving As %String = "Er is minstens 1 product van bon " _ ..BonId _ " die niet kon ondergebracht worden in de overdozen ondanks de producten groter dan een pallet al werden uitgefilterd."
+		Do ..Logger.WarningMail("Optimize bon orgalux", WarningOmschrijving)
+	}
+	
+	Set MinimumAantalPallettenVoorBon = CubeIQResponse.cubeiq.loadedcontainers.loadedcontainer.Count()
+	
+	If (MinimumAantalPallettenVoorBon = 0) {
+		#dim FoutOmschrijving As %String = "Het minimum aantal palletten voor bon " _ ..BonId _ " is 0. Dit kan niet kloppen en moet manueel worden nagekeken."
+		Do ..Logger.ErrorMail("Optimaliseer bon orgalux", FoutOmschrijving)
+		Set Exception = ##class(TECH.Exceptions.DataNotFoundException).%New(FoutOmschrijving)	
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	Quit MinimumAantalPallettenVoorBon
+]]></Implementation>
+</Method>
+
+<Method name="ProcessCubeIQResponse">
+<FormalSpec>CubeIQResponse:APPS.Verpakking.dto.CubeIQ.Response,BoxDataLijst:%ListOfObjects</FormalSpec>
+<Implementation><![CDATA[
+	#dim NummerOverdoos As %Integer = 1	
+	#dim OverdozenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(CubeIQResponse.cubeiq.loadedcontainers.loadedcontainer)
+	While OverdozenIterator.HasNext() {	
+		#dim Overdoos As APPS.Verpakking.dto.CubeIQ.Response.LoadedContainer = OverdozenIterator.Next()
+		#dim OptiDataOverdoosBodem As DS.Prod.OptiBox.OptiData = ""
+		#dim AfbeeldingCodeOverdoos As %String = ..GeefGetalAangevuldMetVoorloopNullen(NummerOverdoos, 2) _"_"_ ..GeefGetalAangevuldMetVoorloopNullen(CubeIQResponse.cubeiq.loadedcontainers.loadedcontainer.GetAt(NummerOverdoos).numblocks, 3) _".jpg"
+		#dim SnijDataOverdoosBodem As DS.Prod.OptiBox.SnijData = ..MaakMetaDataVoorSnijOpdrachtenOverdoos(Overdoos, .OptiDataOverdoosBodem, AfbeeldingCodeOverdoos, "")
+		#dim SnijDataOverdoosDeksel As DS.Prod.OptiBox.SnijData = ..MaakMetaDataVoorSnijOpdrachtenOverdoos(Overdoos, .OptiDataOverdoosBodem, AfbeeldingCodeOverdoos, SnijDataOverdoosBodem)
+		#dim NummerDoos As %Integer = 1
+		#dim NummerAfbeelding As %Integer = 1
+		#dim BlocksIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(CubeIQResponse.cubeiq.blocks.block)
+		While BlocksIterator.HasNext() {
+			#dim Block As APPS.Verpakking.dto.CubeIQ.Response.Block = BlocksIterator.Next()
+			
+			If (Block.containerseqno = NummerOverdoos) {
+				#dim BoxDataId As %String = $Piece(Block.productid, "-", 1)
+				#dim BoxData As DS.Prod.OptiBox.BoxData = ..BoxDataRepository.GeefBoxDataViaID(BoxDataId)
+				
+				#dim AantalExtraDelenVanVerpakking As %Integer = ..BoxDataRepository.GeefAantalDelenVanBoxData(BoxData.%Id())
+				#dim OptiDataDoos As DS.Prod.OptiBox.OptiData = ""
+				#dim SnijDataDoos As DS.Prod.OptiBox.SnijData
+				#dim AfbeeldingCodeDoos As %String = ..GeefGetalAangevuldMetVoorloopNullen(NummerOverdoos, 2) _"_"_ ..GeefGetalAangevuldMetVoorloopNullen(NummerAfbeelding, 3)_".jpg"
+				
+				If (AantalExtraDelenVanVerpakking = 0) {
+					Set SnijDataDoos = ..MaakMetaDataVoorSnijOpdracht(BoxData, .OptiDataDoos, Block.quantity, NummerDoos, BoxData.ObjRef, "", SnijDataOverdoosBodem, OptiDataOverdoosBodem, "", AfbeeldingCodeDoos)
+					
+					If (BoxDataId = "OL||Antislipmat groep||1") {
+						Do ..MaakSnijDataVoorGegroepeerdeMatten(BoxDataLijst, SnijDataDoos, OptiDataDoos)
+					}
+					Set NummerDoos = NummerDoos + 1
+				} Else {
+					While (Block.quantity > 0) {
+						Set SnijDataDoos = ..MaakMetaDataVoorSnijOpdracht(BoxData, .OptiDataDoos, 1, NummerDoos, BoxData.ObjRef, "", SnijDataOverdoosBodem, OptiDataOverdoosBodem, "", AfbeeldingCodeDoos)
+					
+						#dim DelenVanBoxDataIterator As TECH.Iterator = ..BoxDataRepository.ZoekDeelVanBoxDataViaId(BoxData.%Id())
+						While DelenVanBoxDataIterator.HasNext() {
+							#dim DeelVanBoxData As DS.Prod.OptiBox.BoxData = DelenVanBoxDataIterator.Next()
+							#dim OptiDataInnerDoos As DS.Prod.OptiBox.OptiData = ""
+							Do ..MaakMetaDataVoorSnijOpdracht(DeelVanBoxData, .OptiDataInnerDoos, 1, "", BoxData.ObjRef, SnijDataDoos, OptiDataDoos, OptiDataDoos,SnijDataDoos)
+						}
+						
+						Set Block.quantity = Block.quantity - 1
+						Set NummerDoos = NummerDoos + 1
+					}
+				}
+				Set NummerAfbeelding = NummerAfbeelding + 1
+			}
+		}
+		Set NummerOverdoos = NummerOverdoos + 1
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakMetaDataVoorSnijOpdrachtenOverdoos">
+<FormalSpec><![CDATA[Overdoos:APPS.Verpakking.dto.CubeIQ.Response.LoadedContainer,&OptiData:DS.Prod.OptiBox.OptiData,AfbeeldingCode:%String,SnijDataParent:DS.Prod.OptiBox.SnijData=""]]></FormalSpec>
+<Private>1</Private>
+<ReturnType>DS.Prod.OptiBox.SnijData</ReturnType>
+<Implementation><![CDATA[
+	If (##class(DS.Prod.OptiBox.BoxData).%ExistsId("OL||Overdoos||1")) {
+		Set BoxDataOverdoos = ##class(DS.Prod.OptiBox.BoxData).%OpenId("OL||Overdoos||1")
+		Set BoxDataOverdoos = BoxDataOverdoos.%ConstructClone()
+	} Else {
+		#dim FoutOmschrijving As %String = "Geen boxdata gevonden voor boxdataID: 'OL||Overdoos||1'."
+		Do ..Logger.ErrorMail("Optimaliseer bon orgalux", FoutOmschrijving)
+		Set Exception = ##class(TECH.Exceptions.DataNotFoundException).%New(FoutOmschrijving)	
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	Set BoxDataOverdoos.Breedte = Overdoos.overallwidth
+	Set BoxDataOverdoos.Diepte = Overdoos.overalllength
+	Set BoxDataOverdoos.Hoogte = Overdoos.overallheight
+	#dim SnijData As DS.Prod.OptiBox.SnijData = ..MaakSnijDataVoorOverdoos(BoxDataOverdoos, Overdoos, .OptiData, AfbeeldingCode, SnijDataParent)
+	#dim SnijDefOverdoos As DS.Prod.OptiBox.sub.emSnijDef = ..MaakSnijDef(BoxDataOverdoos)
+	Do SnijData.SnijDefs.SetAt(SnijDefOverdoos, ##class(APPS.Verpakking.enu.MachineID).VH())
+	#dim SaveStatus As %Status = SnijData.%Save()
+	
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van SnijData voor de overdozen is niet gelukt.")
+	
+	Quit SnijData
+]]></Implementation>
+</Method>
+
+<Method name="MaakMetaDataVoorSnijOpdracht">
+<FormalSpec><![CDATA[BoxData:DS.Prod.OptiBox.BoxData,&OptiData:DS.Prod.OptiBox.OptiData,ProductAantal:%Integer,Sequentie:%String="",ProductId:%String="",SnijDataParent:DS.Prod.OptiBox.SnijData="",SnijDataBoxParent:DS.Prod.OptiBox.SnijData="",OptiDataParent:DS.Prod.OptiBox.OptiData="",OptiDataBoxParent:DS.Prod.OptiBox.OptiData="",AfbeeldingCode:%String=""]]></FormalSpec>
+<Implementation><![CDATA[
+	#dim Product As DOM.PM.Product = $Select(..ProductAPI.BestaatProduct(ProductId)= $$$False: "", 1: ..ProductAPI.GeefProduct(ProductId))
+	Set OptiData = ..MaakOptiData(BoxData, Product, OptiDataParent, OptiDataBoxParent)
+	#dim SnijData As DS.Prod.OptiBox.SnijData = ..MaakSnijData(BoxData, Sequentie, OptiData, Product, SnijDataParent, SnijDataBoxParent, ProductAantal, AfbeeldingCode)
+	#dim SnijDef As DS.Prod.OptiBox.sub.emSnijDef = ..MaakSnijDef(BoxData)
+	Do SnijData.SnijDefs.SetAt(SnijDef, ##class(APPS.Verpakking.enu.MachineID).VH())
+	
+	#dim SaveStatus As %Status = SnijData.%Save()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van SnijData voor de overdozen is niet gelukt.")
+	
+	Quit SnijData
+]]></Implementation>
+</Method>
+
+<Method name="MaakSnijDataVoorGegroepeerdeMatten">
+<FormalSpec>BoxDataLijst:%ListOfObjects,ParentSnijData:DS.Prod.OptiBox.BoxData,OptiDataParent:DS.Prod.OptiBox.OptiData</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim BoxDataIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(BoxDataLijst)
+	While BoxDataIterator.HasNext() {
+		#dim BoxData As DS.Prod.OptiBox.BoxData = BoxDataIterator.Next()
+		#dim BoxDataGroep As DS.Prod.OptiBox.BoxData
+		If $$$Not(BoxData.VolumeVan = "") 
+		{
+			If (BoxData.VolumeVan.%Id() = "OL||Antislipmat groep||1") {
+				#dim Index as %Integer = 0
+				#dim Product As DOM.PM.Product = $Select(..ProductAPI.BestaatProduct(BoxData.ObjRef)= $$$False: "", 1: ..ProductAPI.GeefProduct(BoxData.ObjRef))
+				#dim OptiData As DS.Prod.OptiBox.OptiData = ..MaakOptiData(BoxData, Product, OptiDataParent)
+				For Index=1:1:BoxData.Aantal {
+					#dim SnijDataMat As DS.Prod.OptiBox.SnijData = ..MaakSnijData(BoxData, "", OptiData, Product, ParentSnijData, ParentSnijData, 1)
+				}
+			}			
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakSnijDef">
+<FormalSpec>BoxData:DS.Prod.OptiBox.BoxData</FormalSpec>
+<Private>1</Private>
+<ReturnType>DS.Prod.OptiBox.sub.emSnijDef</ReturnType>
+<Implementation><![CDATA[
+	#dim Doos As APPS.Verpakking.dto.Doos = ..GeefGeoptimaliseerdeDoos(BoxData)
+	
+	Set SnijDef = ##class(DS.Prod.OptiBox.sub.emSnijDef).%New()
+	Set SnijDef.CardboardID = Doos.CardBoardID
+	Set SnijDef.Recept = Doos.Recipe
+	Set SnijDef.Swap = Doos.Swap
+	Set SnijDef.Breedte = Doos.Width
+	Set SnijDef.Hoogte = Doos.Height
+	Set SnijDef.Diepte = Doos.Depth
+	Set SnijDef.Aantal = 1
+	
+	#dim Teller As %Integer = 1
+	Set Iterator = ##class(TECH.ListIterator).%New(Doos.Params)
+	While Iterator.HasNext() {
+		#dim Param As APPS.Verpakking.dto.Doos.Param = Iterator.Next()
+		Do SnijDef.Params.SetAt(Param.Value, Teller)
+		Set Teller = Teller + 1
+	}
+	
+	Quit SnijDef
+]]></Implementation>
+</Method>
+
+<Method name="GeefGeoptimaliseerdeDoos">
+<FormalSpec>BoxData:DS.Prod.OptiBox.BoxData</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Verpakking.dto.Doos</ReturnType>
+<Implementation><![CDATA[
+	#dim MachineID As %String = ##class(APPS.Verpakking.enu.MachineID).VH()
+	#dim MachineTechnologie As APPS.Verpakking.enu.MachineTechnologie = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.MachineTechnologie_"_MachineID)
+	#dim Doos As APPS.Verpakking.dto.Doos = ..DoosFactory.MaakDoos(BoxData.Meta.PPSGroep, BoxData.Meta.Name)
+	Do ..DoosAanvuller.VulAanBasisInformatieDoos(.Doos, .Params, BoxData.Meta.PPSGroep, MachineTechnologie, "", MachineID, BoxData.ObjRef, BoxData)
+	Do ..Optimizer.Optimize(.Doos, BoxData.Meta.PPSGroep, MachineTechnologie, MachineID)
+
+	Quit Doos
+]]></Implementation>
+</Method>
+
+<Method name="MaakSnijDataVoorOverdoos">
+<FormalSpec><![CDATA[BoxData:DS.Prod.OptiBox.BoxData,Overdoos:APPS.Verpakking.dto.CubeIQ.Response.LoadedContainer,&OptiData:DS.Prod.OptiBox.OptiData,AfbeeldingCode:%String,SnijDataBodem:DS.Prod.OptiBox.SnijData]]></FormalSpec>
+<Private>1</Private>
+<ReturnType>DS.Prod.OptiBox.SnijData</ReturnType>
+<Implementation><![CDATA[
+	Set SnijData = ##class(DS.Prod.OptiBox.SnijData).%New()
+	
+	Set SnijData.BoxData = BoxData
+	Set SnijData.FilledImage = "https://" _ ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.OrgaluxBonOptimizer.ImageURL") _"/" _ ..JobId_"_Overdoos_"_..BonId _"_default_" _ AfbeeldingCode
+	
+	Set SnijData.BoxSelect = BoxData.Meta.BoxSelect.GetAt(1).Naam
+	If $$$Not(SnijDataBodem = "") {
+		Set SnijData.BoxUsage = "LID"
+		Set SnijData.PPSPrioriteit = 99
+	} Else {
+		Set SnijData.BoxUsage = "BOTTOM"
+		Set SnijData.PPSPrioriteit = 1
+		Set SnijData.PrintStatus = "P"
+	}
+	Set SnijData.Diepte = (Overdoos.overalllength + 10) //Extra cm zodat dozen makkelijk in overdoos geraken
+	Set SnijData.Breedte = (Overdoos.overallwidth + 10) //Extra cm zodat dozen makkelijk in overdoos geraken
+	Set SnijData.Hoogte = Overdoos.overallheight	
+	Set SnijData.CreatieTijdStip = ..GeefHuidigeTimeStamp()
+	Do ##class(Tools.Wlip).%New(110).ObjToText(OptiData)
+	If (OptiData = "") {
+		Set OptiData = ##class(DS.Prod.OptiBox.OptiData).%New()	
+		Set OptiData.BoxData = BoxData
+		Set OptiData.ObjType = "L"
+		Set OptiData.ObjRef = ..BonId
+		Set OptiData.ProductRef = "Overdoos"
+		Set OptiData.CreatieTijdStip = ..GeefHuidigeTimeStamp()
+		Set OptiData.ProductAantal = 1
+		Set OptiData.DoosAantal = 1
+		Set OptiData.Status = "L"
+		Do ##class(Tools.Wlip).%New(110).ObjToText(OptiData)
+		#dim SaveStatus As %Status = OptiData.%Save()
+		Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van OptiData voor de overdozen is niet gelukt.")
+	}
+	Do ##class(Tools.Wlip).%New(110).String("Na save?")
+	Set SnijData.OptiData = OptiData
+	Set SnijData.ObjLijnRef = "*"
+	Set SnijData.ObjRef = ..BonId
+	Set SnijData.ObjType = "L"	
+	Set SnijData.OptiID = ..JobId
+	Set SnijData.ProductRef = "Overdoos"
+	Set SnijData.PPSGroep = BoxData.Meta.PPSGroep
+	Set SnijData.PPSSubgroep = BoxData.Meta.PPSSubgroep	
+	Set SnijData.Aantal = 1
+	Set SnijData.ProductAantal = 1	
+	Set SnijData.Reference = "L." _ ..BonId _ "."_ OptiData.%Id()
+	;Set SnijData.SnijHistoriek = "????????????????????????????"
+	Set SnijData.SnijMachineID = ##class(APPS.Verpakking.enu.MachineID).VH()
+	Set SnijData.Status = "O"
+	Set SnijData.Simulate = $$$False
+		
+	Set SaveStatus = SnijData.%Save()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van SnijData voor de overdozen in MaakSnijData is niet gelukt.")
+	Set SnijData.BoxDeelVan = $Select(SnijDataBodem = "":SnijData, 1: SnijDataBodem)
+	
+	Set SaveStatus = SnijData.%Save()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het 2e keer bewaren van SnijData voor de overdozen in MaakSnijData is niet gelukt.")
+	
+	Quit SnijData
+]]></Implementation>
+</Method>
+
+<Method name="MaakSnijData">
+<FormalSpec>BoxData:DS.Prod.OptiBox.BoxData,Sequentie:%Integer,OptiData:DS.Prod.OptiBox.OptiData,Product:DOM.PM.Product,SnijDataParent:DS.Prod.OptiBox.SnijData,SnijDataBoxParent:DS.Prod.OptiBox.SnijData,ProductAantal:%Integer,AfbeeldingCode:%String=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>DS.Prod.OptiBox.SnijData</ReturnType>
+<Implementation><![CDATA[
+	Set SnijData = ##class(DS.Prod.OptiBox.SnijData).%New()
+	
+	Set SnijData.BoxData = BoxData
+	If $$$Not(AfbeeldingCode = "") {
+		Set SnijData.StapelImage = "https://" _ ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.OrgaluxBonOptimizer.ImageURL") _"/" _ ..JobId_"_Overdoos_"_..BonId _"_default_" _ AfbeeldingCode
+	}
+	
+	If $$$Not(SnijDataParent = "") {
+		Set SnijData.Parent = SnijDataParent
+	} Else {
+		Set SnijData.Parent = SnijDataBoxParent
+		Set SnijData.PrintStatus = "P"
+	}
+	
+	If $$$Not(SnijDataBoxParent = "") {
+		Set SnijData.BoxParent = SnijDataParent
+	}
+	
+	If (BoxData.VolumeVan = "") {
+		Set SnijData.BoxSelect = BoxData.Meta.BoxSelect.GetAt(1).Naam
+	}
+	
+	If $$$Not(BoxData.DeelVan = "") {
+		Set SnijData.BoxUsage = "SUB"
+		Set SnijData.PPSPrioriteit = 40
+	} ElseIf $$$Not(BoxData.VolumeVan = "") {
+		Set SnijData.BoxUsage = "VOL"
+		Set SnijData.PPSPrioriteit = 1
+	} Else {
+		Set SnijData.BoxUsage = "BOX"
+		Set SnijData.PPSPrioriteit = 10
+	}
+	
+	Set SnijData.Diepte = BoxData.Diepte
+	Set SnijData.Breedte = BoxData.Breedte
+	Set SnijData.Hoogte = BoxData.Hoogte	
+	Set SnijData.CreatieTijdStip = ..GeefHuidigeTimeStamp()	
+	Set SnijData.OptiData = OptiData
+	Set SnijData.ObjRef = ..BonId
+	Set SnijData.ObjType = "L"
+	Set SnijData.ProductRef = ..GeefKorttekst(BoxData.ObjRef)
+	Set SnijData.OptiID = ..JobId	
+	Set SnijData.PPSGroep = BoxData.Meta.PPSGroep
+	If $$$Not(BoxData.VolumeVan = "") {
+		If (BoxData.VolumeVan.%Id() = "OL||Antislipmat groep||1") {
+			Set SnijData.PPSSubgroep = "MAT"
+		}
+		Set SnijData.Status = "VF"
+	} Else {
+		Set SnijData.PPSSubgroep = BoxData.Meta.PPSSubgroep	
+		Set SnijData.Status = "O"
+	}
+	
+	Set SnijData.Aantal = 1
+	Set SnijData.ProductAantal = ProductAantal
+	Set SnijData.PRNr = +BoxData.ObjRef
+	Set SnijData.Reference = "L." _ ..BonId _ "."_ OptiData.%Id()
+	;Set SnijData.SnijHistoriek = "????????????????????????????"
+	If (Sequentie > 0) {
+		Set SnijData.Sequentie = Sequentie
+	}
+	Set SnijData.SnijMachineID = ##class(APPS.Verpakking.enu.MachineID).VH()
+	Set SnijData.Simulate = $$$False
+	
+	/*
+		#dim SnijHistoriek As DS.Prod.OptiBox.SnijHistoriek = ##class(DS.Prod.OptiBox.SnijHistoriek).%New()
+		Set SnijData.Status = "F"
+		
+		Set SnijHistoriek.CardboardID = Doos.CardBoardID
+		Set SnijHistoriek.CardboardProduct = ##class(Prod.Product).%OpenId(..KartonRepository.GeefKartonProductIdViaID(Doos.CardBoardID))
+		Set SnijHistoriek.CardboardBreedte = ..KartonRepository.GeefKartonBreedteViaID(Doos.CardBoardID)
+		Set SnijHistoriek.Lengte = Doos.UsedCardBoardLength 
+		
+		#dim SaveStatusSnijHistoriek As %Status = SnijHistoriek.%Save()
+		Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatusSnijHistoriek,"Het bewaren van SnijHistoriek in MaakSnijData is niet gelukt.")
+		
+		Set SnijData.SnijHistoriek = SnijHistoriek
+	*/
+	
+	#dim SaveStatus As %Status = SnijData.%Save()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van SnijData in MaakSnijData is niet gelukt.")
+	
+	Set SnijData.BoxDeelVan = SnijData
+	Set SaveStatus = SnijData.%Save()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het 2e keer bewaren van SnijData in MaakSnijData is niet gelukt.")
+	
+	Quit SnijData
+]]></Implementation>
+</Method>
+
+<Method name="MaakOptiData">
+<FormalSpec>BoxData:DS.Prod.OptiBox.BoxData,Product:DOM.PM.Product="",OptiDataParent:DS.Prod.OptiBox.OptiData="",OptiDataBoxParent:DS.Prod.OptiBox.OptiData=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>DS.Prod.OptiBox.OptiData</ReturnType>
+<Implementation><![CDATA[
+	Set OptiData=##class(DS.Prod.OptiBox.OptiData).%New()
+	
+	Set OptiData.BoxData = BoxData
+	If ($$$Not(OptiDataParent = "")) {
+		Set OptiData.Parent = OptiDataParent
+	}
+	
+	If ($$$Not(OptiDataBoxParent = "")) {
+		Set OptiData.BoxParent = OptiDataBoxParent
+	}
+	
+	Set OptiData.ObjType = "L"
+	Set OptiData.ObjRef = ..BonId
+	If $$$Not(Product = "") {
+		Set OptiData.ProductRef = ..GeefKorttekst(BoxData.ObjRef)
+		Set OptiData.PRNr = +BoxData.ObjRef
+	}
+	Set OptiData.CreatieTijdStip = ..GeefHuidigeTimeStamp()
+	Set OptiData.ProductAantal = 1
+	Set OptiData.DoosAantal = $Select(BoxData.Aantal > 0 : BoxData.Aantal, 1:1)
+	Set OptiData.Status = "L"
+	
+	#dim SaveStatus As %Status = OptiData.%Save()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van OptiData is niet gelukt.")
+	
+	Quit OptiData
+]]></Implementation>
+</Method>
+
+<Method name="MaakOptiboxQueue">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set OptiboxQueue =##class(DS.Prod.OptiBox.Queue).%New()
+	Set OptiboxQueue.Type = "F" //// O: Optimizer, S : Snijden, M : Machine //Optimise niet in tabel zetten? 
+	Set OptiboxQueue.ID = ..JobId
+	Set OptiboxQueue.ObjType = "L"
+	Set OptiboxQueue.ObjRef = ..BonId
+	Set OptiboxQueue.Type = "O"
+	Set OptiboxQueue.CreatieTijdStip = ..GeefHuidigeTimeStamp()
+	Set OptiboxQueue.Status = "F"
+	
+	#dim SaveStatus As %Status = OptiboxQueue.%Save()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van OptiboxQueue is niet gelukt.")
+	
+	Quit OptiboxQueue
+]]></Implementation>
+</Method>
+
+<Method name="GeefParsedCubeIQResponse">
+<FormalSpec>CubeIQRequest:APPS.Verpakking.dto.CubeIQ.Request</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Verpakking.dto.CubeIQ.Response</ReturnType>
+<Implementation><![CDATA[
+	#dim HttpRequest As %Net.HttpRequest = ..MaakCubeIQHttpRequest(CubeIQRequest)
+	#dim StatusCode As %Status = HttpRequest.Post("/opt/v1/sync",0)
+	Do ..ValideerResponse(StatusCode, HttpRequest)
+	
+	Set Response = HttpRequest.HttpResponse.Data
+	;Do ..Logger.Debug("BlackBox response", Response)
+	#dim CubeIQResponse As APPS.Verpakking.dto.CubeIQ.Response = ..ParseJsonStreamNaarObject(Response, ##class(APPS.Verpakking.dto.CubeIQ.Response).%ClassName(1))
+	
+	Quit CubeIQResponse
+]]></Implementation>
+</Method>
+
+<Method name="ZijnAfbeeldingenGegenereerdVoorBesteStapeling">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim ZijnAfbeeldingenGegenereerd As %Boolean = $$$False
+	#dim HttpRequest As %Net.HttpRequest = ##class(%Net.HttpRequest).%New()
+	
+	#dim AfbeeldingUrl As %String = "/"_ ..JobId_"_Overdoos_"_..BonId _"_default_" _ "01_001.jpg"
+	Set HttpRequest.Server = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.OrgaluxBonOptimizer.ImageURL") //"cubeiq01-dev_img.vanhoecke.be"
+	Set HttpRequest.Https = 1
+	Set HttpRequest.SSLConfiguration = "CubeIQ"
+	Set HttpRequest.Timeout = 4
+	#dim StatusCode As %Status = HttpRequest.Get(AfbeeldingUrl)
+	
+	If (HttpRequest.HttpResponse.StatusCode = 200) {
+		Set ZijnAfbeeldingenGegenereerd = $$$True
+	} 
+	
+	Quit ZijnAfbeeldingenGegenereerd
+]]></Implementation>
+</Method>
+
+<Method name="MaakCubeIQHttpRequest">
+<FormalSpec>Request:APPS.Verpakking.dto.CubeIQ.Request</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Net.HttpRequest</ReturnType>
+<Implementation><![CDATA[
+	#dim RequestString As %String = ..ObjectToJson(Request)
+	#dim JSONStream = ##class(%Stream.GlobalBinary).%New()
+			
+	Do JSONStream.Write(RequestString)
+	//Do ..Logger.Debug("BlackBox request", JSONStream)
+	
+	Set HttpRequest = ##class(%Net.HttpRequest).%New()
+ 	Set HttpRequest.Server = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.OrgaluxBonOptimizer.BlackBoxURL")
+ 	Set HttpRequest.ContentType = "application/json"
+ 	Set HttpRequest.SSLConfiguration = "CubeIQ"
+	Set HttpRequest.Https = 1
+	Set HttpRequest.Timeout = 120
+	Do HttpRequest.SetHeader("Accept", "application/json")
+	Do HttpRequest.SetHeader("Content-Type", "application/json")
+	
+	Do HttpRequest.SetHeader("payload", "body")
+	Do HttpRequest.SetHeader("Authorization", "Basic dXNlcjpwYXNzd29yZA==")
+	Do HttpRequest.EntityBody.CopyFrom(JSONStream)
+	
+	Quit HttpRequest
+]]></Implementation>
+</Method>
+
+<Method name="GeefBoxDataVoorGegroepeerdeMatten">
+<FormalSpec>BoxDataLijst:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<ReturnType>DS.Prod.OptiBox.BoxDataMetID</ReturnType>
+<Implementation><![CDATA[
+	If (##class(DS.Prod.OptiBox.BoxData).%ExistsId("OL||Antislipmat groep||1")) {
+		Set BoxDataGegroepeerdeMatten = ##class(DS.Prod.OptiBox.BoxData).%OpenId("OL||Antislipmat groep||1")
+		Set BoxDataGegroepeerdeMatten = ..CopyBoxData(BoxDataGegroepeerdeMatten)
+	} Else {
+		#dim FoutOmschrijving As %String = "Geen boxdata gevonden voor boxdataID: 'OL||Antislipmat groep||1'."
+		Do ..Logger.ErrorMail("Optimaliseer bon orgalux", FoutOmschrijving)
+		Set Exception = ##class(TECH.Exceptions.DataNotFoundException).%New(FoutOmschrijving)	
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	Set BoxDataGegroepeerdeMatten.Aantal = 0
+	
+	#dim BoxDataIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(BoxDataLijst)
+	#dim GroeperingdoosHoogte As %Integer = 5
+	#dim GroeperingdoosBreedte As %Integer = 0
+	#dim GroeperingdoosDiepte As %Integer = 0
+	While BoxDataIterator.HasNext() {
+		#dim BoxData As DS.Prod.OptiBox.BoxDataMetID = BoxDataIterator.Next()
+		If (($$$Not(BoxData.VolumeVan = "") && (BoxData.VolumeVan.%Id() = "OL||Antislipmat groep||1"))) {
+			Set GroeperingdoosHoogte = GroeperingdoosHoogte + BoxData.Hoogte
+			Set GroeperingdoosBreedte = ##class(TECH.Math).Max(GroeperingdoosBreedte, ##class(TECH.Math).Max(BoxData.Breedte, BoxData.Diepte))
+			Set GroeperingdoosDiepte = ##class(TECH.Math).Max(GroeperingdoosDiepte, ##class(TECH.Math).Min(BoxData.Breedte, BoxData.Diepte))
+			Set BoxDataGegroepeerdeMatten.Aantal = 1
+		}
+	}
+	Set BoxDataGegroepeerdeMatten.Hoogte = GroeperingdoosHoogte
+	Set BoxDataGegroepeerdeMatten.Breedte = GroeperingdoosBreedte
+	Set BoxDataGegroepeerdeMatten.Diepte = GroeperingdoosDiepte
+	
+	Quit BoxDataGegroepeerdeMatten
+]]></Implementation>
+</Method>
+
+<Method name="GeefBeoordelingScoreVanEenOverdoos">
+<FormalSpec>Overdoos:APPS.Verpakking.dto.CubeIQ.Response.LoadedContainer,MinimumAantalPallettenVoorBon:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	//Laagste score is meest interessante overdoos
+	
+	//Commentaar uit oorspronkelijke score in optibox
+	//Extra score voor gebruik halve pallet is hieraan toegevoegd
+	/*
+	; 22/03/2023 11:49:25 - DEBUG:Solution #4: Quality=5222.288(Volume=600.043 + Surface=780.118 + BaseSurface=2497.260 + Stability=21.562 + Cubity=323.305 + Nr.Boxes=1000.000)
+ 	<QUALITY>
+		<!-- if there are multiple solutions for an outer box then the Quality of a box has to be defined. This is done by adding the different quality results (Volume +Surface + Stability + NumberOf Boxes + BaseSurface + Cubity + score voor < halve pallet (of is dit al kleinste grondopp? -> extra bonus mss)), the one with the smallest overall quality is selected -->
+		<QUALITYFACTOR Id="Volume" Scale="1.0" />
+		<!--Volume = (Height * Width* Depth), Quality = QUBEROOT(Volume)*Qualityfactor-->
+		
+		<QUALITYFACTOR Id="Surface" Scale="3.00" />
+		<!--Surface=( 2 * ((Height * Width) + (Height * Depth) + (Width * Depth))), Quality=SQRT(Surface)*QualityFactor-->
+		
+		<QUALITYFACTOR Id="Stability" Scale="50.00" />
+		<!-- Stability = Height / MIN(Depth,Width) , Quality=Stability*QualityFactor-->
+		
+		<QUALITYFACTOR Id="NumberOfBoxes" Scale="1000.00" />
+		<!-- Quality= NbrOfBoxes * QualityFactor -->
+		
+		<QUALITYFACTOR Id="BaseSurface" Scale="0.05" />
+		<!--BaseSurface=(Width * Depth), Quality=SQRT(BaseSurface)*QualityFactor-->
+		
+		<QUALITYFACTOR Id="Cubity" Scale="0.50" />
+		<!-- Cubity = Max(abs(Height-Width), abs(Height-Depth), abs(Depth-Width)), Quality=Cubity*QualityFactor, starting from the idea that a perfect box is a cube -->
+		
+	</QUALITY>
+ 	*/
+ 	//Do ##class(Tools.Wlip).%New(110).String("SCORE NOG TE BEPALEN")
+	#dim VolumeFactor As %Integer = ##class(TECH.Math).Pow((Overdoos.overallheight * Overdoos.overalllength * Overdoos.overallwidth), 1/3)
+	#dim GrondOppervlakFactor As %Integer = ##class(TECH.Math).Pow((Overdoos.overalllength * Overdoos.overallwidth), 1/2) * 0.1
+	#dim StabiliteitFactor As %Decimal = Overdoos.overallheight / ##class(TECH.Math).Min(Overdoos.overalllength, Overdoos.overallwidth) * 50
+	#dim TotaleKartonOppervlakteFactor As %Integer = ##class(TECH.Math).Pow((2 * ((Overdoos.overalllength * Overdoos.overallwidth) + (Overdoos.overalllength * Overdoos.overallheight) + (Overdoos.overallheight * Overdoos.overallwidth))), 1/2) * 3
+	#dim GrondOppervlakKleinerDanHalvePalletFactor As %Integer = $Select(((..GrootsteDimensieGrondvlak < (..#MaximumVerpakkingDiepteVoorEuropallet)) && (..TweedeGrootsteDimensieGrondvlak < (..#MaximumVerpakkingBreedteVoorEuropallet / 2))):-200, 1:0)
+	#dim VierkantigheidFactor As %Integer = ##class(TECH.Math).Max(##class(TECH.Math).Max(##class(TECH.Math).Abs(Overdoos.overalllength - Overdoos.overallwidth), ##class(TECH.Math).Abs(Overdoos.overalllength - Overdoos.overallheight)), ##class(TECH.Math).Abs(Overdoos.overallheight - Overdoos.overallwidth)) * 0.5
+	#dim HoogteKleinerDan33cm As %Integer = $Select(Overdoos.overallheight < 330:-100, 1:0)
+	
+	//Score is nog te bekijken op de optboxbig rechtstreeks
+	;set t = VolumeFactor + GrondOppervlakFactor + StabiliteitFactor + TotaleKartonOppervlakteFactor + GrondOppervlakKleinerDanHalvePalletFactor + VierkantigheidFactor + HoogteKleinerDan33cm
+	;Do ##class(Tools.Wlip).%New(110).String(t _ "  Vol " _VolumeFactor _" GrondOpp "_ GrondOppervlakFactor _" Stab "_ StabiliteitFactor _" TotKartonOpp "_ TotaleKartonOppervlakteFactor _" GrondOppKleinerDanHalvePlt "_ GrondOppervlakKleinerDanHalvePalletFactor _" Vierkantigheid "_ VierkantigheidFactor_" Hoogte<330 "_ HoogteKleinerDan33cm)
+	Quit (VolumeFactor + GrondOppervlakFactor + StabiliteitFactor + TotaleKartonOppervlakteFactor + GrondOppervlakKleinerDanHalvePalletFactor + VierkantigheidFactor + HoogteKleinerDan33cm)
+]]></Implementation>
+</Method>
+
+<Method name="BepaalGrootsteGrondOppervlak">
+<FormalSpec>BoxDataLijst:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set GegroepeerdeBoxDataLijst = ##class(%ListOfObjects).%New()
+	#dim BoxDataIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(BoxDataLijst)
+	
+	While BoxDataIterator.HasNext() {
+		#dim BoxData As DS.Prod.OptiBox.BoxDataMetID = BoxDataIterator.Next()
+		#dim GrootsteDimensieGrondvlak As %Decimal = ##class(TECH.Math).Max(BoxData.Breedte, BoxData.Diepte)
+		#dim TweedeGrootsteDimensieGrondvlak As %Decimal = ##class(TECH.Math).Min(BoxData.Breedte, BoxData.Diepte)
+		
+		If (..GrootsteDimensieGrondvlak < GrootsteDimensieGrondvlak) {
+			Set ..GrootsteDimensieGrondvlak = GrootsteDimensieGrondvlak
+		}
+		
+		If (..TweedeGrootsteDimensieGrondvlak < TweedeGrootsteDimensieGrondvlak) {
+			Set ..TweedeGrootsteDimensieGrondvlak = TweedeGrootsteDimensieGrondvlak
+		}
+		
+		If $$$Not($Select(BoxData.Rotatie = "":$$$True, 1:##class(TECH.StringUtils).Contains(BoxData.Rotatie, "Y")))
+		{
+			If (..GrootsteHoogteNietKantelbaarProduct < BoxData.Hoogte) { 
+				Set ..GrootsteHoogteNietKantelbaarProduct = BoxData.Hoogte
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderNietTeStapelenKartons">
+<FormalSpec>BoxDataLijst:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set GegroepeerdeBoxDataLijst = ##class(%ListOfObjects).%New()
+	#dim BoxDataIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(BoxDataLijst)
+	
+	While BoxDataIterator.HasNext() {
+		#dim BoxData As DS.Prod.OptiBox.BoxDataMetID = BoxDataIterator.Next()
+		
+		If (BoxData.DeelVan = "") 
+		{
+			Do GegroepeerdeBoxDataLijst.Insert(BoxData)
+		}
+	}
+	
+	Quit GegroepeerdeBoxDataLijst
+]]></Implementation>
+</Method>
+
+<Method name="GroepeerBoxDataIndienNodig">
+<FormalSpec>BoxDataLijst:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set GegroepeerdeBoxDataLijst = ##class(%ListOfObjects).%New()
+	#dim BoxDataIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(BoxDataLijst)
+	
+	#dim BoxDataVoorGegroepeerdeMatten As DS.Prod.OptiBox.BoxData = ..GeefBoxDataVoorGegroepeerdeMatten(BoxDataLijst)
+	If (BoxDataVoorGegroepeerdeMatten.Aantal > 0) {
+		Do GegroepeerdeBoxDataLijst.Insert(BoxDataVoorGegroepeerdeMatten)	
+	}
+	
+	While BoxDataIterator.HasNext() {
+		#dim BoxData As DS.Prod.OptiBox.BoxDataMetID = BoxDataIterator.Next()
+		#dim BoxDataGroep As DS.Prod.OptiBox.BoxData
+		
+		If $$$Not(BoxData.VolumeVan = "") 
+		{
+			If $$$Not(BoxData.VolumeVan.%Id() = "OL||Antislipmat groep||1") {
+				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Groepering "_ BoxData.VolumeVan.%Id() _"' is nog niet geïmplementeerd bij de optimalisatie van de verpakking van de orgalux bonnen."))
+			}			
+		} Else {
+			Do GegroepeerdeBoxDataLijst.Insert(BoxData)
+		}
+	}
+	
+	Quit GegroepeerdeBoxDataLijst
+]]></Implementation>
+</Method>
+
+<Method name="GeefBoxDataVoorBonMetNesting">
+<FormalSpec>BonID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set BoxDataLijst = ##class(%ListOfObjects).%New()
+	#dim BonLijnIterator As TECH.Iterator = ..GeefBonLijnIterator(BonID)
+	
+	While BonLijnIterator.HasNext() {
+		#dim Lijn As DOM.VKP.ProductOrderlijn = BonLijnIterator.Next()
+		#dim PRNr As %Integer = Lijn.GeefProductID()
+		#dim Qty As %Integer = Lijn.GeefAantal()
+		Do ##class(Tools.Wlip).%New(110).String(PRNr _"    "_ Qty)
+		
+		#dim BoxDataIterator As TECH.Iterator = ..BoxDataRepository.ZoekBoxDataViaProductId(PRNr)
+		while BoxDataIterator.HasNext() {
+			#dim BoxDataOrig As DS.Prod.OptiBox.BoxData = BoxDataIterator.Next()
+			#dim BoxData As DS.Prod.OptiBox.BoxDataMetID = ..CopyBoxData(BoxDataOrig)
+			
+			If ($$$Not(BoxData.MaxCombinAantal = "") && $$$Not(BoxData.MaxCombinAantal = 1) && (Qty > 1)) { //Verdelen in evenredige stapels
+				#dim GelijkVerdeeldeAantallenLijstIterator As TECH.Iterator = ..GeefGelijkVerdeeldeAantallenLijstIterator(Qty, BoxData.MaxCombinAantal)
+				While GelijkVerdeeldeAantallenLijstIterator.HasNext() {
+					#dim Aantal As %Integer = GelijkVerdeeldeAantallenLijstIterator.Next()
+					Set Params("PRODAANTAL") = Aantal
+					Set Params("AANTAL") = Aantal
+					Set BoxData.Aantal = Aantal / BoxData.MaxCombinAantal //???????????? TODO
+					Set BoxData.Breedte = ..CalcMetDefault(1, BoxData.BreedteExec, .Params)
+					Set BoxData.Diepte = ..CalcMetDefault(1, BoxData.DiepteExec, .Params)
+					Set BoxData.Hoogte = ..CalcMetDefault(1, BoxData.HoogteExec, .Params)
+					Do BoxDataLijst.Insert(BoxData)
+				}
+			} Else {
+				Set Params("PRODAANTAL") = Qty
+				Set Params("AANTAL") = Qty
+				Set BoxData.Aantal = Qty
+				Set BoxData.Breedte = ..CalcMetDefault(1, BoxData.BreedteExec, .Params)
+				Set BoxData.Diepte = ..CalcMetDefault(1, BoxData.DiepteExec, .Params)
+				Set BoxData.Hoogte = ..CalcMetDefault(1, BoxData.HoogteExec, .Params)
+				
+				If (##class(TECH.Math).Max(BoxData.Breedte, BoxData.Diepte) > ..#MaximumVerpakkingBreedteVoorEuropallet) && (##class(TECH.Math).Min(BoxData.Breedte, BoxData.Diepte) > ..#MaximumVerpakkingDiepteVoorEuropallet) {
+					Do ..Logger.Debug("PastProductOpEuropallet", "Product "_PRNr_" past niet op een europallet voor bon " _ BonID_".")
+				} Else {
+					Do BoxDataLijst.Insert(BoxData)
+				}
+			}
+		}
+	}
+	
+	Quit BoxDataLijst
+]]></Implementation>
+</Method>
+
+<Method name="CopyBoxData">
+<FormalSpec>BoxData:DS.Prod.OptiBox.BoxData</FormalSpec>
+<ReturnType>DS.Prod.OptiBox.BoxDataMetID</ReturnType>
+<Implementation><![CDATA[
+	Set BoxDataMetID = ##class(DS.Prod.OptiBox.BoxDataMetID).%New()
+	
+	Set BoxDataMetID.OrigineleBoxDataID = BoxData.%Id()
+	
+	Set BoxDataMetID.Aantal = BoxData.Aantal
+	Set BoxDataMetID.AantalExec = BoxData.AantalExec
+	Set BoxDataMetID.BoxSelect = BoxData.BoxSelect
+	Set BoxDataMetID.Breedte = BoxData.Breedte
+	Set BoxDataMetID.BreedteExec = BoxData.BreedteExec
+	Set BoxDataMetID.CutOrder = BoxData.CutOrder
+	Set BoxDataMetID.Diepte = BoxData.Diepte
+	Set BoxDataMetID.DiepteExec = BoxData.DiepteExec
+	Set BoxDataMetID.Hoogte = BoxData.Hoogte
+	Set BoxDataMetID.HoogteExec = BoxData.HoogteExec
+	Set BoxDataMetID.MaxCombinAantal = BoxData.MaxCombinAantal
+	Set BoxDataMetID.ObjRef = BoxData.ObjRef
+	Set BoxDataMetID.ObjType = BoxData.ObjType
+	Set BoxDataMetID.OptiType = BoxData.OptiType
+	Set BoxDataMetID.PPSGroep = BoxData.PPSGroep
+	Set BoxDataMetID.PPSOutput = BoxData.PPSOutput
+	Set BoxDataMetID.PPSSubgroep = BoxData.PPSSubgroep
+	Set BoxDataMetID.Plaatsing = BoxData.Plaatsing
+	Set BoxDataMetID.Positie = BoxData.Positie
+	Set BoxDataMetID.Rotatie = BoxData.Rotatie
+	
+	Set BoxDataMetID.DeelVan = BoxData.DeelVan
+	Set BoxDataMetID.Meta = BoxData.Meta
+	Set BoxDataMetID.PPSPrioriteit = BoxData.PPSPrioriteit
+	Set BoxDataMetID.Params = BoxData.Params
+	Set BoxDataMetID.VolumeVan = BoxData.VolumeVan
+	
+	Quit BoxDataMetID
+]]></Implementation>
+</Method>
+
+<Method name="GeefBonLijnIterator">
+<FormalSpec>BonID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim KLNr As %String =$P($G(^KU1(BonID,"F")),"\")
+	#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)	
+	Quit Bon.GeefTypeBonLijnIterator( ##class(DOM.VKP.enu.BonLijnType).Product() )
+]]></Implementation>
+</Method>
+
+<Method name="GeefGelijkVerdeeldeAantallenLijstIterator">
+<FormalSpec>TeVerdelenGetal:%Integer,MaximaleVerdeling:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim AantallenLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim MaximumAantalStapels As %Integer = ##class(TECH.Math).Ceil(TeVerdelenGetal / MaximaleVerdeling)
+	#dim MaximumProductenPerStapel As %Integer = ##class(TECH.Math).Ceil(TeVerdelenGetal/MaximumAantalStapels)
+	
+	While (TeVerdelenGetal > MaximumProductenPerStapel) {
+		Do AantallenLijst.Insert(MaximumProductenPerStapel)
+		Set TeVerdelenGetal = TeVerdelenGetal - MaximumProductenPerStapel
+	}
+	
+	If (TeVerdelenGetal > 0) {
+		Do AantallenLijst.Insert(TeVerdelenGetal)
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(AantallenLijst)
+]]></Implementation>
+</Method>
+
+<Method name="CalcMetDefault">
+<FormalSpec><![CDATA[DefaultWaarde:%String,Expression:%String,&Params,&varErrStr:%String=""]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Resultaat As %String = ..Calc(Expression, .Params, .varErrStr)
+	If ("" = Resultaat) {
+		Set Resultaat = DefaultWaarde
+	}
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="Calc">
+<Description>
+Berekenen van een expressie door gebruik te maken van de waarden in Params</Description>
+<FormalSpec><![CDATA[Expression,&Params,&varErrStr:%String]]></FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Set:('$D(varErrStr)) varErrStr=""
+	Quit:'$D(Params) ""
+	Quit:Expression="" ""
+	New Result,$ETRAP
+	Set $ETRAP="Do CalcTrap^"_$ZN_"()"
+	Set:Expression?.N1","1.N Expression=$TR(Expression,",",".")
+	X "Set Result="_Expression
+	Quit Result
+CalcTrap()
+ 	Set varErrStr=$S(varErrStr="":"",1:varErrStr_$C(13,10))_"- "_$P($ZE,">",1)_"> "_Expression
+ 	New msg
+ 	Set $ECODE=""
+ 	Set msg="EXECUTE FOUT: "_Expression_$$ArrayToText^vhLib("Params",.Params)
+ 	Do WLFMT^vhDBG(msg,"B-Red")
+ 	Set Result="ERR"
+	Quit Result
+]]></Implementation>
+</Method>
+
+<Method name="ValideerResponse">
+<FormalSpec>Status:%Status,HttpRequest:%Net.HttpRequest</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Status,"Fout bij opvragen optimalisatie stapeling via cubeIQ: HttpRequest to "_HttpRequest.Server_" failed.")
+	
+	If ($IsObject(HttpRequest.HttpResponse)) {
+		If $$$Not(HttpRequest.HttpResponse.StatusCode = 200) {
+			#dim ErrorInfo as %String = HttpRequest.HttpResponse.Data.Read(HttpRequest.HttpResponse.Data.Size)
+			Set Exception = ##class(TECH.Exceptions.AbstractOmschrijvingException).%New("Fout bij opvragen optimalisatie stapeling via cubeIQ: HttpRequest to "_HttpRequest.Server_" failed. " _ $$$CRLF _ HttpRequest.HttpResponse.ReasonPhrase _ $$$CRLF _ ErrorInfo)
+			Do ##class(TECH.ExceptionHandler).Throw(Exception)
+		}
+	}
+	Else {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Fout bij opvragen optimalisatie stapeling via cubeIQ: HttpResponse is onverwacht leeg. HttpRequest to "_HttpRequest.Server_" failed.")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ObjectToJson">
+<FormalSpec>CubeIQRequest:APPS.Verpakking.dto.CubeIQ.Request</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim OutputJsonString As %String
+	
+	#dim ParseStatus As %Status = ##class(TECH.JSON.ParserIntersystemsVersion).ObjectToJSONZonderKlasseNaam(CubeIQRequest,,,.OutputJsonString)
+	
+	Quit OutputJsonString
+]]></Implementation>
+</Method>
+
+<Method name="ParseJsonStreamNaarObject">
+<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="GeefHuidigeTimeStamp">
+<Private>1</Private>
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[	Quit ..DateTimeAPI.CurrentTimeStamp()
+]]></Implementation>
+</Method>
+
+<Method name="GeefGetalAangevuldMetVoorloopNullen">
+<FormalSpec>Getal:%Integer,TotaleLengteGetal:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Index As %Integer
+	#dim GetalMetVoorloopNullen As %String = Getal
+	
+	While ($L(GetalMetVoorloopNullen) < TotaleLengteGetal) {
+		Set GetalMetVoorloopNullen = "0" _ GetalMetVoorloopNullen
+	}
+	
+	Quit GetalMetVoorloopNullen
+]]></Implementation>
+</Method>
+
+<Method name="GeefGewichtVanProduct">
+<FormalSpec>ProductID:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim DataMProduct As DOM.PM.impl.DataM.DataMProduct = ##class(DOM.PM.impl.DataM.DataMProduct).%New()
+	Do DataMProduct.Open(ProductID)
+	
+	Quit DataMProduct.GeefGewichtInGram()
+]]></Implementation>
+</Method>
+
+<Method name="GeefKorttekst">
+<FormalSpec>ObjRef:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Korttekst As %String = ObjRef
+	#dim BestaatProduct As DOM.PM.Product = ..ProductAPI.BestaatProduct(ObjRef)
+	
+	If BestaatProduct {
+		#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(ObjRef)
+		Set Korttekst = Product.GeefKorttekst()
+	}
+	
+	Quit Korttekst
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/Verpakking/OrgaluxBonOptimizer.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(revision 72244)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Verpakking.OrgaluxBonOptimizer">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Verpakking.OrgaluxBonOptimizer</Super>
+
+<Method name="GeefLijstVanTeVerpakkenProducten">
+<FormalSpec>Bon:DOM.VKP.Bon</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Optimize">
+<FormalSpec>BONNr:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>