Index: vhUnitTest/BL/PPS/TBX/OptiBox/GetV1Params/Test.cls.xml
===================================================================
diff -u -r54593 -r67306
--- vhUnitTest/BL/PPS/TBX/OptiBox/GetV1Params/Test.cls.xml	(.../Test.cls.xml)	(revision 54593)
+++ vhUnitTest/BL/PPS/TBX/OptiBox/GetV1Params/Test.cls.xml	(.../Test.cls.xml)	(revision 67306)
@@ -17,6 +17,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Onderdelendoos moet niet worden gesneden bij ladediepte 400">
+<Implementation><![CDATA[
+	#dim PRNr As TECH.String = 1199608  ; product heeft ladediepte 400
+	#dim Params As %List
+	Do ##class(BL.PPS.TBX.OptiBox).GetV1Params(PRNr, 1, .Params,, 1)
+	Do $$$AssertEquals(Params("LOQTY"),-1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Onderdelendoos moet niet worden gesneden bij ladediepte 350">
+<Implementation><![CDATA[
+	#dim PRNr As TECH.String = 1173111  ; product heeft ladediepte 350
+	#dim Params As %List
+	Do ##class(BL.PPS.TBX.OptiBox).GetV1Params(PRNr, 1, .Params,, 1)
+	Do $$$AssertEquals(Params("LOQTY"),-1)
+]]></Implementation>
+</Method>
+
 <Method name="TestOnderdelenDoosPlat">
 <Implementation><![CDATA[
 	#dim PRNr As TECH.String = 1154731
Index: BL/PPS/TBX/OptiBox.cls.xml
===================================================================
diff -u -r54593 -r67306
--- BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 54593)
+++ BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 67306)
@@ -992,21 +992,23 @@
 	. . Set Params("LOHOOGTE") = LosseOnderdelenDoos.Hoogte
 	. . Set Params("LODIEPTE") = LosseOnderdelenDoos.Diepte
 	. . Set Params("LOCP") = LosseOnderdelenDoos.BreedteCorpusProfiel
+	. Else  If (LD=400) Do ;Voor lade diepte gelijk aan 400 moet er een standaard huls gemaakt worden
+	. . Set LosseOnderdelenDoos = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte400()
+	. . Set Params("LOBREEDTE") = 117
+	. . Set Params("LOHOOGTE") = LosseOnderdelenDoos.Hoogte
+	. . Set Params("LODIEPTE") = LosseOnderdelenDoos.Diepte
+	. . Set Params("LOCP") = LosseOnderdelenDoos.BreedteCorpusProfiel
+	. Else  If (LD=350) Do ;Voor lade diepte gelijk aan 350 moet er een standaard huls gemaakt worden
+	. . Set LosseOnderdelenDoos = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte350()
+	. . Set Params("LOBREEDTE") = 117
+	. . Set Params("LOHOOGTE") = LosseOnderdelenDoos.Hoogte
+	. . Set Params("LODIEPTE") = LosseOnderdelenDoos.Diepte
+	. . Set Params("LOCP") = LosseOnderdelenDoos.BreedteCorpusProfiel
 	. Else  Do
-	. . If LC="N" Do ; lage rug
-	. . . Set Params("LOBREEDTE")=87 ; binnenmaten
-	. . . Set:Params("LOBREEDTE")>$$$LoBreedteMax Params("LOBREEDTE")=$$$LoBreedteMax ; max. voor onderdelen bij bv. voorraadbinnenladen
-	. . . Set Params("LOHOOGTE")=Params("ZIJHOOGTE")-($S(DK'<50:1,1:2)*$$$KartonDikte) ; vanaf 50 kg hoogte iets groter
-	. . . Set Params("LODIEPTE")=Params("DIEPTE") ;-(2*$$$KartonDikte) 
-	. . Else  Do
-	. . . Set Params("LOBREEDTE")=Params("ZIJHOOGTE")-(3*$$$KartonDikte) ; binnenmaten
-	. . . Set:Params("LOBREEDTE")>$$$LoBreedteMax Params("LOBREEDTE")=$$$LoBreedteMax ; max. voor onderdelen bij bv. voorraadbinnenladen
-	. . . Set Params("LOHOOGTE")=$CASE(DK,25:60,30:64,50:70,65:72,80:76,:64)+$S(BM="T":5,1:0)
-	. . . Set Params("LODIEPTE")=Params("DIEPTE") ;-(2*$$$KartonDikte) 
-	. . . If (Reling && ((DC = "A")||(LC="B"))) Do ; Antaro reling
-	. . . . Set Params("LOHOOGTE")= Params("LOHOOGTE") + 10 ; extra plaats voor dikkere reling
-	. . 
-	. . Set Params("LOCP")=$CASE(DK,25:30,30:31,50:32,65:40,80:36,:31)+$S(BM="T":10,1:0)
+	. . Set Params("LOBREEDTE")= 117
+	. . Set Params("LOHOOGTE")= 80
+	. . Set Params("LODIEPTE")=Params("DIEPTE")
+	. . Set Params("LOCP") = 65
 	. 
 	. // Formaat V1-doos uitbreiden met plaats voor hulsdoos voor losse onderdelen.
 	. If (Params("LOBREEDTE")+(2*$$$KartonDikte)) > Params("ZIJHOOGTE") Do ; lage rug
@@ -1016,7 +1018,7 @@
 	. . Set Params("DIEPTE")=Params("DIEPTE")+(2*$$$KartonDikte)
 	. . Set Params("BREEDTE")=Params("BREEDTE")+Params("LOHOOGTE")+(3*$$$KartonDikte)
 	. 
-	. If ( (LD=450) || (LD=500) || (LD=550) ) && ( RH = "N" ) Do ; Op vraag van halux indien N er 20mm bij
+	. If ( (LD=350) || (LD=400) || (LD=450) || (LD=500) || (LD=550) ) && ( RH = "N" ) Do ; Op vraag van halux indien N er 20mm bij
 	. . Set Params("ZIJHOOGTE") = Params("ZIJHOOGTE") + 20
 	
 	Set:..VoorgesnedenHuls(PRNr) Params("LOQTY")=-1