Index: APPS/Verpakking/CubeIQRequestBuilder.cls.xml
===================================================================
diff -u -r72320 -r72329
--- APPS/Verpakking/CubeIQRequestBuilder.cls.xml	(.../CubeIQRequestBuilder.cls.xml)	(revision 72320)
+++ APPS/Verpakking/CubeIQRequestBuilder.cls.xml	(.../CubeIQRequestBuilder.cls.xml)	(revision 72329)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Verpakking.CubeIQRequestBuilder">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Parameter name="SettingsId">
 <Type>%String</Type>
@@ -51,7 +51,6 @@
 		#dim CubeIQProductToLoad As APPS.Verpakking.dto.CubeIQ.Request.ProductToLoad = ..GeefCubeIQProductToLoad(BoxData)
 		
 		If (CubeIQProductToLoad.quantity > 0) {
-			
 			Do ProductList.Insert(CubeIQProduct)
 			Do ProductToLoadList.Insert(CubeIQProductToLoad)
 		}
Index: APPS/Verpakking/OrgaluxBonOptimizer.cls.xml
===================================================================
diff -u -r72325 -r72329
--- APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72325)
+++ APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72329)
@@ -162,7 +162,6 @@
 
 <Method name="GeefBesteStapeling">
 <FormalSpec>BoxDataLijstVanTeStapelenDozen:%ListOfObjects</FormalSpec>
-<Private>1</Private>
 <ReturnType>APPS.Verpakking.dto.CubeIQ.Response</ReturnType>
 <Implementation><![CDATA[
 	#dim Request As APPS.Verpakking.dto.CubeIQ.Request = ""
@@ -260,7 +259,6 @@
 
 <Method name="BepaalMinimumAantalPallettenVoorBon">
 <FormalSpec>BoxDataLijstVanTeStapelenDozen:%ListOfObjects</FormalSpec>
-<Private>1</Private>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim MinimumAantalPallettenVoorBon As %Integer = 0
@@ -425,7 +423,7 @@
 	Set BoxDataOverdoosAangevuld.Breedte = $Select(Overdoos.overallwidth > 1170 : 1170, 1: Overdoos.overallwidth) //Indien overdoos toch net groter is dan 1170, waarde naar 1170 zetten, dan spant het maar een beetje ;) 
 	Set BoxDataOverdoosAangevuld.Diepte = Overdoos.overalllength
 	Set BoxDataOverdoosAangevuld.Hoogte = Overdoos.overallheight
-	#dim SnijData As DS.Prod.OptiBox.SnijData = ..MaakSnijDataVoorOverdoos(BoxDataOverdoos, Overdoos, .OptiData, AfbeeldingCode, SnijDataParent, IsOverdoosNodig)
+	#dim SnijData As DS.Prod.OptiBox.SnijData = ..MaakSnijDataVoorOverdoos(BoxDataOverdoosAangevuld, Overdoos, .OptiData, AfbeeldingCode, SnijDataParent, IsOverdoosNodig)
 	#dim SnijDefOverdoos As DS.Prod.OptiBox.sub.emSnijDef = ..MaakSnijDef(BoxDataOverdoosAangevuld)
 	Do SnijData.SnijDefs.SetAt(SnijDefOverdoos, ##class(APPS.Verpakking.enu.MachineID).VH())
 	#dim SaveStatus As %Status = SnijData.%Save()
@@ -536,8 +534,8 @@
 		Set SnijData.BoxUsage = "BOTTOM"
 		Set SnijData.PPSPrioriteit = 1
 	}
-	Set SnijData.Diepte = (Overdoos.overalllength + 15) //Extra zodat dozen makkelijk in overdoos geraken
-	Set SnijData.Breedte = (Overdoos.overallwidth + 15) //Extra zodat dozen makkelijk in overdoos geraken
+	Set SnijData.Diepte = Overdoos.overalllength
+	Set SnijData.Breedte = Overdoos.overallwidth
 	Set SnijData.Hoogte = Overdoos.overallheight
 	Set SnijData.CreatieTijdStip = ..GeefHuidigeTimeStamp()
 	
@@ -768,7 +766,7 @@
 <Implementation><![CDATA[
 	#dim RequestString As %String = ..ObjectToJson(Request)
 	#dim JSONStream = ##class(%Stream.GlobalBinary).%New()
-			
+	
 	Do JSONStream.Write(RequestString)
 	Do ..Logger.Debug("BlackBox request", JSONStream)
 	
@@ -905,7 +903,6 @@
 
 <Method name="VergrootDimensiesVoorKartonsMetBufferzone">
 <FormalSpec>BoxDataLijst:%ListOfObjects</FormalSpec>
-<Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set GegroepeerdeBoxDataLijst = ##class(%ListOfObjects).%New()
@@ -972,7 +969,6 @@
 
 <Method name="VerwijderNietTeStapelenKartons">
 <FormalSpec>BoxDataLijst:%ListOfObjects</FormalSpec>
-<Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set GegroepeerdeBoxDataLijst = ##class(%ListOfObjects).%New()
@@ -993,7 +989,6 @@
 
 <Method name="GroepeerBoxDataIndienNodig">
 <FormalSpec>BoxDataLijst:%ListOfObjects</FormalSpec>
-<Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set GegroepeerdeBoxDataLijst = ##class(%ListOfObjects).%New()
@@ -1023,7 +1018,6 @@
 
 <Method name="GeefBoxDataVoorBonMetNesting">
 <FormalSpec>BonID:%String</FormalSpec>
-<Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set BoxDataLijst = ##class(%ListOfObjects).%New()
@@ -1051,7 +1045,7 @@
 						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) + (3 * 6.7)) > (..#MaximumVerpakkingBreedteVoorEuropallet )) && ((##class(TECH.Math).Min(BoxData.Breedte, BoxData.Diepte) + (3 * 6.7)) > ..#MaximumVerpakkingDiepteVoorEuropallet) { // 3 * 6.7 is svoor dikte kartonverpakking in rekening te brengen
+						If ((##class(TECH.Math).Max(BoxData.Breedte, BoxData.Diepte) + (3 * 6.7)) > (..#MaximumVerpakkingBreedteVoorEuropallet )) || ((##class(TECH.Math).Min(BoxData.Breedte, BoxData.Diepte) + (3 * 6.7)) > ..#MaximumVerpakkingDiepteVoorEuropallet) { // 3 * 6.7 is svoor dikte kartonverpakking in rekening te brengen
 							Do ..Logger.Debug("PastProductOpEuropallet", "Genest product "_PRNr_" past niet op een europallet voor bon " _ BonID_". Er zijn " _ Aantal _" producten genest in deze verpakking.")
 						} Else {
 							Do BoxDataLijst.Insert(BoxData)
@@ -1067,7 +1061,7 @@
 					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) + (3 * 6.7)) > ..#MaximumVerpakkingBreedteVoorEuropallet) && ((##class(TECH.Math).Min(BoxData.Breedte, BoxData.Diepte) + (3 * 6.7)) > ..#MaximumVerpakkingDiepteVoorEuropallet) { // 3 * 6.7 is svoor dikte kartonverpakking in rekening te brengen
+					If ((##class(TECH.Math).Max(BoxData.Breedte, BoxData.Diepte) + (3 * 6.7)) > ..#MaximumVerpakkingBreedteVoorEuropallet) || ((##class(TECH.Math).Min(BoxData.Breedte, BoxData.Diepte) + (3 * 6.7)) > ..#MaximumVerpakkingDiepteVoorEuropallet) { // 3 * 6.7 is svoor dikte kartonverpakking in rekening te brengen
 						Do ..Logger.Debug("PastProductOpEuropallet", "Product "_PRNr_" past niet op een europallet voor bon " _ BonID_".")
 					} Else {
 						Do BoxDataLijst.Insert(BoxData)
Index: vhUnitTest/APPS/Verpakking/OrgaluxBonOptimizer/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Verpakking/OrgaluxBonOptimizer/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Verpakking/OrgaluxBonOptimizer/Test.cls.xml	(revision 72329)
@@ -0,0 +1,305 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Verpakking.OrgaluxBonOptimizer.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="OrgaluxBonOptimizer">
+<Type>APPS.Verpakking.OrgaluxBonOptimizer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SnijDataRepository">
+<Type>APPS.Verpakking.SnijDataRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Parameter name="BonID">
+<Type>%String</Type>
+<Default>BonTestOrgaluxBonOptimizer</Default>
+</Parameter>
+
+<Parameter name="KlantID">
+<Type>%String</Type>
+<Default>KlantTestOrgaluxBonOptimizer</Default>
+</Parameter>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	
+ 	Do ..MaakOLBonData()
+ 	
+ 	Set ..OrgaluxBonOptimizer = ##class(APPS.Verpakking.OrgaluxBonOptimizer).%New()
+ 	Set ..SnijDataRepository = ##class(APPS.Verpakking.SnijDataRepository).%New()
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method OnAfterOneTest(aTestName As %String)
+{
+	Do ..SnijDataRepository.VerwijderViaBonId(..#BonID)
+	Do ##super(aTestName)
+}
+*/
+]]></Content>
+</UDLText>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[	Do ..VerwijderOLBonData()
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefBoxDataMetNesting">
+<Implementation><![CDATA[
+	#dim BoxDataListMetNesting As List of DS.Prod.OptiBox.BoxDataMetID = ..OrgaluxBonOptimizer.GeefBoxDataVoorBonMetNesting(..#BonID)
+	
+	Do $$$AssertEquals(BoxDataListMetNesting.Count(), 11)
+	Do $$$AssertEquals(BoxDataListMetNesting.GetAt(10).Hoogte, 230)
+	Do $$$AssertEquals(BoxDataListMetNesting.GetAt(10).Breedte, 310)
+	Do $$$AssertEquals(BoxDataListMetNesting.GetAt(10).Diepte, 640)
+	Do $$$AssertEquals(BoxDataListMetNesting.GetAt(10).OrigineleBoxDataID,  "PR||1251047||1")
+	Do $$$AssertEquals(BoxDataListMetNesting.GetAt(11).Hoogte, 230)
+	Do $$$AssertEquals(BoxDataListMetNesting.GetAt(11).Breedte, 310)
+	Do $$$AssertEquals(BoxDataListMetNesting.GetAt(11).Diepte, 455)
+	Do $$$AssertEquals(BoxDataListMetNesting.GetAt(11).OrigineleBoxDataID,  "PR||1251047||1")
+]]></Implementation>
+</Method>
+
+<Method name="TestNegeerTeGroteProducten">
+<Implementation><![CDATA[
+	#dim ProductID As %String = "TestTeGroodProductID"
+	Set ^Prod.OptiBox.BoxDataD("PR",ProductID,1)	=	$lb("","Aantal","Params(""AANTAL"")","","1100","1100","","900","900","1.5","1.5","","472","","OL","","MAT","","B","",,"OL||Antislipmat groep||1")	
+	Set ^KUL(..#KlantID,"F",..#BonID,112)	=	"703002 \"_ProductID_"\2\\\4.01\35.6340288924558587#0\8\0.000000\0.000000\703002 \\\\1100\0.000000\KF6\\\\E1\EUR\10\1\66812\\\\\\\\\\\\\\\\\\\\\0\\\\\\\\\109063268\"
+	
+	#dim BoxDataList As List of DS.Prod.OptiBox.BoxDataMetID = ..OrgaluxBonOptimizer.GeefBoxDataVoorBonMetNesting(..#BonID)
+	Do $$$AssertEquals(BoxDataList.Count(), 11)
+	
+	Kill ^KUL(..#KlantID,"F",..#BonID,112)
+	Kill ^Prod.OptiBox.BoxDataD("PR",ProductID)
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefBoxDataVanGegroepeerdeMatten">
+<Implementation><![CDATA[
+	#dim BoxDataListMetNesting As List of DS.Prod.OptiBox.BoxDataMetID = ..OrgaluxBonOptimizer.GeefBoxDataVoorBonMetNesting(..#BonID)
+	#dim BoxDataListNaGroepering As List of DS.Prod.OptiBox.BoxDataMetID = ..OrgaluxBonOptimizer.GroepeerBoxDataIndienNodig(BoxDataListMetNesting)
+	
+	Do $$$AssertEquals(BoxDataListNaGroepering.Count(), 11)
+	Do $$$AssertEquals(BoxDataListNaGroepering.GetAt(1).OrigineleBoxDataID, "OL||Antislipmat groep||1")
+	Do $$$AssertEquals(BoxDataListNaGroepering.GetAt(1).Hoogte, 40)
+	Do $$$AssertEquals(BoxDataListNaGroepering.GetAt(1).Breedte, 526)
+	Do $$$AssertEquals(BoxDataListNaGroepering.GetAt(1).Diepte, 474)
+]]></Implementation>
+</Method>
+
+<Method name="TestGooiErrorBijNietGekendeBoxDataGroepering">
+<Implementation><![CDATA[
+	Set ^KUL(..#KlantID,"F",..#BonID,112)	=	"703002 \2883101\2\\\4.01\35.6340288924558587#0\8\0.000000\0.000000\703002 \\\\1100\0.000000\KF6\\\\E1\EUR\10\1\66812\\\\\\\\\\\\\\\\\\\\\0\\\\\\\\\109063268\"
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Groepering TAOR indelingen||Mat groep||1' is nog niet geïmplementeerd bij de optimalisatie van de verpakking van de orgalux bonnen.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.UnimplementedException", Substrings))
+	
+	#dim BoxDataListMetNesting As List of DS.Prod.OptiBox.BoxDataMetID = ..OrgaluxBonOptimizer.GeefBoxDataVoorBonMetNesting(..#BonID)
+	#dim BoxDataListNaGroepering As List of DS.Prod.OptiBox.BoxDataMetID = ..OrgaluxBonOptimizer.GroepeerBoxDataIndienNodig(BoxDataListMetNesting)
+	
+	Kill ^KUL(..#KlantID,"F",..#BonID,112)
+]]></Implementation>
+</Method>
+
+<Method name="TestVerwijderDozenDieInAndereDoosZitten">
+<Implementation><![CDATA[
+	#dim BoxDataList As List of DS.Prod.OptiBox.BoxDataMetID = ..GeefLijstBoxDataProductMetDeelKartons()
+	#dim BoxDataListVerwerkt As List of DS.Prod.OptiBox.BoxDataMetID = ..OrgaluxBonOptimizer.VerwijderNietTeStapelenKartons(BoxDataList)
+	
+	Do $$$AssertEquals(BoxDataList.Count(), 3)
+	Do $$$AssertEquals(BoxDataListVerwerkt.Count(), 1)
+]]></Implementation>
+</Method>
+
+<Method name="TestVergrootDimensiesVoorKartonsMetBufferzone">
+<Implementation><![CDATA[
+	#dim BoxDataList As List of DS.Prod.OptiBox.BoxDataMetID = ..GeefLijstBoxDataMetKartonMetBufferZone()
+	#dim BoxDataListNaVergrotingDimensies As List of DS.Prod.OptiBox.BoxDataMetID = ..OrgaluxBonOptimizer.VergrootDimensiesVoorKartonsMetBufferzone(BoxDataList)
+	
+	Do $$$AssertEquals(BoxDataList.GetAt(1).Breedte, 100)
+	Do $$$AssertEquals(BoxDataListNaVergrotingDimensies.GetAt(1).Breedte, 290)
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method TestBonMetMaar1ProdDoet1iteratie()
+{
+	
+	Set CubeIQRequestBuilderMock = ##class(vhTest.Mock.APPS.Verpakking.CubeIQRequestBuilder).%New()	
+	//Set CubeIQRequest = ##class(APPS.Verpakking.dto.CubeIQ.Request).%New()
+	
+	#dim CubeIQRequest As %String = "{  ""cubeiq"": {  ""containers"": {  ""container"":[ {  ""bottomtotoploading"":true, ""containerid"":""Overdoos_359883"", ""depth"":770, ""hardminfillpercentage"":false, ""height"":730, ""minfillpercentage"":0, ""partialloadonfloor"":false, ""settingsid"":""BasisSettings"", ""width"":1173}]}, ""containerstoload"": {  ""containertoload"":[ {  ""containerid"":""Overdoos_359883"", ""loadid"":""Overdoos_359883"", ""sequence"":1}]}, ""loads"": {  ""load"":[ {  ""loadid"":""Overdoos_359883""}]}, ""products"": {  ""product"":[ {  ""bottomonly"":false, ""endupok"":false, ""flatok"":true, ""height"":44.1, ""length"":130.1, ""productid"":""PR||1127748||1_OL.RAPP12OGKOOK  LBX OG-M_3"", ""sideupok"":false, ""toponly"":false, ""turnable"":true, ""weight"":"""", ""width"":1170.1}]}, ""productstoload"": {  ""producttoload"":[ {  ""loadid"":""Overdoos_359883"", ""productid"":""PR||1127748||1_OL.RAPP12OGKOOK  LBX OG-M_3"", ""quantity"":1}]}, ""settings"": {  ""setting"":[ {  ""maxnonimproveiters"":500, ""maxruntime"":105, ""settingsid"":""BasisSettings"", ""singleunitblocks"":true}]}}}    dwarsvrd moet erin"
+	#dim JSONStream = ##class(%Stream.GlobalBinary).%New()
+	Do JSONStream.Write(CubeIQRequest)
+	//#dim BoxDataList As DS.Prod.OptiBox.BoxDataMetID = ..GeefLijstBoxDataMetKartonMetBufferZone()
+	
+	Do CubeIQRequestBuilderMock.VerwachtMethodCall("MaakCubeIQRequest", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(CubeIQRequest).ExactAantalKeer(1)
+	
+	Set OrgaluxBonOptimizer = ##class(APPS.Verpakking.OrgaluxBonOptimizer).%New(,,,CubeIQRequestBuilderMock)
+	//#dim BesteStapeling  As APPS.Verpakking.dto.CubeIQ.Response = OrgaluxBonOptimizer.GeefBesteStapeling(BoxDataList)
+	
+	
+	
+	#dim BoxDataList As DS.Prod.OptiBox.BoxDataMetID = ..GeefLijstBoxDataMetKartonMetBufferZone()
+	#dim BoxData As DS.Prod.OptiBox.BoxDataMetID = BoxDataList.GetAt(1)
+	Set BoxData.Aantal = 1
+	Set BoxData.ObjRef = "TestProductOrgaluxBonOptimizer"
+	Set ^KPR(BoxData.ObjRef, 0) = "DummyKorttekst"
+	
+	#dim BesteStapeling  As APPS.Verpakking.dto.CubeIQ.Response = OrgaluxBonOptimizer.GeefBesteStapeling(BoxDataList)
+	
+	Kill ^KPR(BoxData.ObjRef, 0)
+}
+*/
+]]></Content>
+</UDLText>
+
+<Method name="TestGooiErrorBijMinAantalPallettenIs0">
+<Implementation><![CDATA[
+	Set CubeIQRequestBuilderMock = ##class(vhTest.Mock.APPS.Verpakking.CubeIQRequestBuilder).%New()
+	Set CubeIQRequest = ##class(APPS.Verpakking.dto.CubeIQ.Request).%New()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Het minimum aantal palletten voor bon  is 0. Dit kan niet kloppen en moet manueel worden nagekeken.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException", Substrings))
+	
+	Do CubeIQRequestBuilderMock.IndienMethodCall("MaakCubeIQRequest", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(CubeIQRequest)
+	Set OrgaluxBonOptimizer = ##class(APPS.Verpakking.OrgaluxBonOptimizer).%New(,,,CubeIQRequestBuilderMock)
+	#dim BesteStapeling  As APPS.Verpakking.dto.CubeIQ.Response = OrgaluxBonOptimizer.BepaalMinimumAantalPallettenVoorBon(..GeefLijstBoxDataMetKartonMetBufferZone())
+]]></Implementation>
+</Method>
+
+<Method name="TestGooiErrorBijCubeIQResponseMetUnloadedProducts">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er is minstens 1 product van bon  die niet kon ondergebracht worden in de overdozen ondanks de producten groter dan een pallet al werden uitgefilterd. Dit komt normaal enkel voor als er een lang product is waarbij de langste dimensie + 3*6.7 > dan de toegelaten 1173. Dit dient manueel te worden nagekeken zodat dit kan worden opgelost en dit niet meer voorvalt.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidResponseException", Substrings))
+	
+	#dim BoxDataList As DS.Prod.OptiBox.BoxDataMetID = ..GeefLijstBoxDataMetKartonMetBufferZone()
+	#dim BoxData As DS.Prod.OptiBox.BoxDataMetID = BoxDataList.GetAt(1)
+	Set BoxData.Breedte = 9999999
+	Set BoxData.Aantal = 1
+	Set BoxData.ObjRef = "TestProductOrgaluxBonOptimizer"
+	Set ^KPR(BoxData.ObjRef, 0) = "DummyKorttekst"
+	
+	#dim BesteStapeling  As APPS.Verpakking.dto.CubeIQ.Response = ..OrgaluxBonOptimizer.BepaalMinimumAantalPallettenVoorBon(BoxDataList)
+	
+	Kill ^KPR(BoxData.ObjRef, 0)
+]]></Implementation>
+</Method>
+
+<Method name="OverdoosWordtGeblokkeerdBijBonMetMaar1Product">
+</Method>
+
+<Method name="OverdoosWordtNietGeblokkeerdBijBonMetMaar1ProductDieBasisPakketIs">
+</Method>
+
+<Method name="SnijDataWordtGoedAangemaaktVoorGenesteProducten">
+<Description>
+1x1 doos en 1x2 (boxdata w goed gevonden)</Description>
+</Method>
+
+<Method name="SnijDataVanNietTeStapelenKartonsWordtAangemaakt">
+</Method>
+
+<Method name="SnijDataVoorGegroepeerdeMattenWordtGemaaktEnSnijdataMattenHeeftVirtueleFinishStatus">
+</Method>
+
+<Method name="GeefLijstBoxDataProductMetDeelKartons">
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set LijstBoxDataProductMetDeelKartons = ##class(%ListOfObjects).%New()
+	Set BoxDataParent = ##class(DS.Prod.OptiBox.BoxDataMetID).%New()	
+	Set BoxDataDeel1 = ##class(DS.Prod.OptiBox.BoxDataMetID).%New()
+	Set BoxDataDeel2 = ##class(DS.Prod.OptiBox.BoxDataMetID).%New()
+	
+	Set BoxDataDeel1.DeelVan = BoxDataParent
+	Set BoxDataDeel2.DeelVan = BoxDataParent
+	
+	Do LijstBoxDataProductMetDeelKartons.Insert(BoxDataParent)
+	Do LijstBoxDataProductMetDeelKartons.Insert(BoxDataDeel1)
+	Do LijstBoxDataProductMetDeelKartons.Insert(BoxDataDeel2)
+	
+	Quit LijstBoxDataProductMetDeelKartons
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstBoxDataMetKartonMetBufferZone">
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set LijstBoxDataProductMetDeelKartons = ##class(%ListOfObjects).%New()
+	Set BoxData = ##class(DS.Prod.OptiBox.BoxDataMetID).%New()
+	Set BoxData.Breedte = 100
+	Set Params = ##class(%ArrayOfObjects).%New()
+	Set ParamLT = ##class(DS.Prod.OptiBox.sub.emDataParam).%New()
+	Set ParamLT.WaardeExec = 0
+	Do Params.SetAt(ParamLT, "LT")
+	Set ParamLS = ##class(DS.Prod.OptiBox.sub.emDataParam).%New()
+	Set ParamLS.Waarde = 130
+	Do Params.SetAt(ParamLS, "LS")
+	Set ParamRT = ##class(DS.Prod.OptiBox.sub.emDataParam).%New()
+	Set ParamRT.WaardeExec = 0
+	Do Params.SetAt(ParamRT, "RT")
+	Set ParamRT = ##class(DS.Prod.OptiBox.sub.emDataParam).%New()
+	Set ParamRT.Waarde = 0
+	Do Params.SetAt(ParamRT, "RS")
+	Set Meta = ##class(DS.Prod.OptiBox.BoxMeta).%New()
+	Set BoxSelect = ##class(%ListOfObjects).%New()
+	Set emBoxSelect = ##class(DS.Prod.OptiBox.sub.emBoxSelect).%New()
+	Set emBoxSelect.Naam = "OL WRAPAROUND BUFFER"
+	
+	Do BoxSelect.Insert(emBoxSelect)
+	Set Meta.BoxSelect = BoxSelect
+	Set BoxData.Meta = Meta
+	Set BoxData.Params = Params
+	
+	Do LijstBoxDataProductMetDeelKartons.Insert(BoxData)
+	
+	Quit LijstBoxDataProductMetDeelKartons
+]]></Implementation>
+</Method>
+
+<Method name="MaakOLBonData">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ^KU1(..#BonID,"F")	=	..#KlantID _ "\"
+	
+	Set ^KUL(..#KlantID,"F",..#BonID,0)	=	112
+	Set ^KUL(..#KlantID,"F",..#BonID,1)	=	"\04.12.23\\\\30044\DI1 #Distributeur - DI1\38951;390603;5803\\\\\18.66##66.38098\1\\\\EUR\005003\\00\1\\###\\\\\\\\\\\\\\TP38951\\\\\\\66808,46598\\\1311\66808,51203\\\\\\\\6279212\VOUnitTest"
+	Set ^KUL(..#KlantID,"F",..#BonID,2)	=	"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KUL(..#KlantID,"F",..#BonID,3)	=	"\MEUBELINTERIEUR BV\\\WEERENWEG 26\NL-1161-AJ\ZWANENBURG\1147\\\\\+3237601900\\\\\\\\\\\\\DI1\\\000093575\\"
+	Set ^KUL(..#KlantID,"F",..#BonID,4)	=	12
+	Set ^KUL(..#KlantID,"F",..#BonID,101)	=	"\\\UTIngave##66808,46095\112711 - 30.11.23 - P2312765\\\\\\\\\\100\\KF5\\\\\\\\\\6279212\\VOUnitTest"
+	Set ^KUL(..#KlantID,"F",..#BonID,102)	=	"703002 \1251069\10\\\6.91\43.9578264395782644#0\8\69.1\69.1\703002 \\\\200\69.1\KF6\\\\E1\EUR\\1\66812\\\\\\\\\\\\\\\\1\1\\\\0\\\\\\\\\109063267\003264843"
+	Set ^KUL(..#KlantID,"F",..#BonID,103)	=	"703002 \924445\5\\\18.09\43.9764633013316816#0\8\90.45\90.45\703002 \\\\300\90.45\KF6\\\\E1\EUR\\1\66812\\\\\\\\\\\\\\\\1\1\\\\0\\\\\\\\\109063269\003264844"
+	Set ^KUL(..#KlantID,"F",..#BonID,104)	=	"703002 \924573\3\\\18.8\43.9976169198689306#0\8\56.4\56.4\703002 \\\\400\56.4\KF6\\\\E1\EUR\\1\66812\\\\\\\\\\\\\\\\1\2\\\\0\\\\\\\\\109063270\003264845"
+	Set ^KUL(..#KlantID,"F",..#BonID,105)	=	"703002 \1248226\3\\\15.03\43.9806187103988073#0\8\45.09\45.09\703002 \\\\500\45.09\KF6\\\\E1\EUR\\1\66812\\\\\\\\\\\\\\\\1\1\\\\0\\\\\\\\\109078371\003264846"
+	Set ^KUL(..#KlantID,"F",..#BonID,106)	=	"703002 \2799793\2\\\15.66\43.9713774597495528#0\8\31.32\31.32\703002 \\\\600\31.32\KF6\\\\E1\EUR\\1\66812\\\\\\\\\\\\\\\\1\1\\\\0\\\\\\\\\109078372\003264848"
+	Set ^KUL(..#KlantID,"F",..#BonID,107)	=	"703002 \1276550\2\\\37.82\43.9869668246445498#0\8\75.64\75.64\703002 \\\\700\75.64\KF6\\\\E1\EUR\\1\66812\\\\\\\\\\\\\\\\3\3\\\\0\\\\\\\\\109078373\003264849"
+	Set ^KUL(..#KlantID,"F",..#BonID,108)	=	"703002 \2799784\3\\\24.92\44#0\8\74.76\74.76\703002 \\\\800\74.76\KF6\\\\E1\EUR\\1\66812\\\\\\\\\\\\\\\\1\2\\\\0\\\\\\\\\109078374\003264850"
+	Set ^KUL(..#KlantID,"F",..#BonID,109)	=	"703002 \1501675\20\\\3.16\43.9716312056737589#0\8\63.2\63.2\703002 \\\\900\63.2\KF6\\\\E1\EUR\\1\66812\\\\\\\\\\\\\\\\1\1\\\\0\\\\\\\\\109078375\003264851"
+	Set ^KUL(..#KlantID,"F",..#BonID,110)	=	"703002 \1251047\5\\\23.6\43.996203132415757#0\8\118\118\703002 \\\\1000\118\KF6\\\\E1\EUR\\1\66812\\\\\\\\\\\\\\\\1\1\\\\0\\\\\\\\\109078376\003264857"
+	Set ^KUL(..#KlantID,"F",..#BonID,111)	=	"703002 \866677\0\\\4.01\35.6340288924558587#0\8\0.000000\0.000000\703002 \\\\1100\0.000000\KF6\\\\E1\EUR\10\1\66812\\\\\\\\\\\\\\\\\\\\\0\\\\\\\\\109063268\"
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderOLBonData">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Kill ^KU1(..#BonID,"F")
+	Kill ^KUL(..#KlantID,"F",..#BonID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>