Index: BL/PPS/TBX/OptiBox.cls.xml
===================================================================
diff -u -r67578 -r67727
--- BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 67578)
+++ BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 67727)
@@ -992,6 +992,18 @@
 	. . 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
@@ -1016,7 +1028,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
Index: APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r67578 -r67727
--- APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 67578)
+++ APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 67727)
@@ -130,10 +130,14 @@
 			
 		If (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte550) {
 			Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte550()
-		} elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte500) {
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte500) {
 			Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte500()
-		} elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte450) {
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte450) {
 			Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte450()
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte400) {
+			Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte400()
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte350) {
+			Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte350()
 		} Else {
 			Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.impl.DoosLosseOnderdelen).%New()
 			Set DoosLosseOnderdelen.BreedteAndere = ..GeefBreedteAndereLosseOnderdelen()
Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r67578 -r67727
--- APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 67578)
+++ APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 67727)
@@ -193,12 +193,15 @@
 	If (..HeeftGlijder() || ..HeeftBodemOndersteuningDieMoetVerpaktWorden() || FrontBevestigingEnGeenBinnenlade) {
 		If (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte550) {
 			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte550()
-		} elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte500) {
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte500) {
 			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte500()
-		} elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte450) {
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte450) {
 			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte450()
-		}
-		 Else {
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte400) {
+			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte400()
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte350) {
+			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte350()
+		} Else {
 			If (..HeeftGlijder()) {
 				Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.impl.DoosLosseOnderdelen).%New()
 				#Dim VolumeGlijder as APPS.Halux.PPS.Verpakking.Volume = ..GeefVolumeGlijder()