Index: APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r70303 -r70432
--- APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 70303)
+++ APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 70432)
@@ -288,6 +288,7 @@
 <Implementation><![CDATA[
 	//PRNr 924453
 	//Meta 466
+	Set BasisDoos.BoxSelect = "OL FILLER"
 	
 	If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
 		Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
@@ -313,6 +314,7 @@
 <Implementation><![CDATA[
 	//PRNr niet terug te vinden
 	//Meta 486
+	Set BasisDoos.BoxSelect = "OL FILLER SMALL"
 	
 	If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
 		Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
@@ -332,6 +334,7 @@
 <Implementation><![CDATA[
 	//PRNr 794298 = recipe 220     PRNR 1772496 = recipe 210
 	//Meta 485
+	Set BasisDoos.BoxSelect = "OL WRAPAROUND BUFFER"
 	
 	If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
 		Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
@@ -364,6 +367,7 @@
 <Implementation><![CDATA[
 	//PRNr 1275155 = recipe 217 - PRNr 1251044 recipe 207 
 	//Meta 484
+	Set BasisDoos.BoxSelect = "OL SELFSTANDING"
 	
 	If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
 		Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
@@ -387,7 +391,9 @@
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.Overdoos,BoxDataID:%String]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	//Meta 464
+	//Meta 464	
+	Set BasisDoos.BoxSelect = "OL OUTER"
+	
 	If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
 		Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
 	} Else {
Index: APPS/Verpakking/DoosService.cls.xml
===================================================================
diff -u -r70425 -r70432
--- APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 70425)
+++ APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 70432)
@@ -250,14 +250,15 @@
 		#dim SnijHistoriek As DS.Prod.OptiBox.SnijHistoriek = ##class(DS.Prod.OptiBox.SnijHistoriek).%New()
 		Set SnijData.Status = "F"
 		
-		Set SnijHistoriek.CardboardProduct = ..KartonRepository.GeefKartonProductIdViaID(Doos.CardBoardID)
+		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.Diepte 
+		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.%Id()
+		Set SnijData.SnijHistoriek = SnijHistoriek
 	}
 	
 	#dim SaveStatus As %Status = SnijData.%Save()