Index: BL/PPS/TBX/OptiBox.cls.xml
===================================================================
diff -u -r70301 -r72626
--- BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 70301)
+++ BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 72626)
@@ -1001,7 +1001,19 @@
 	
 	If ((CorpusProfiel)||(Reling&&'BinLade))&&(VpkLO'="B") Do ; Losse onderdelen doosje toevoegen
 	. Set Params("LOQTY")=1 ; Toevoegen
-	. If (LD=550) Do ;Voor lade diepte gelijk aan 550 moet er een standaard huls gemaakt worden
+	. If (LD=650) Do ;Voor lade diepte gelijk aan 650 moet er een standaard huls gemaakt worden
+	. . Set LosseOnderdelenDoos = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte650()
+	. . Set Params("LOBREEDTE") = 117
+	. . Set Params("LOHOOGTE") = LosseOnderdelenDoos.Hoogte
+	. . Set Params("LODIEPTE") = LosseOnderdelenDoos.Diepte
+	. . Set Params("LOCP") = LosseOnderdelenDoos.BreedteCorpusProfiel
+	. Else  If (LD=600) Do ;Voor lade diepte gelijk aan 600 moet er een standaard huls gemaakt worden
+	. . Set LosseOnderdelenDoos = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte600()
+	. . Set Params("LOBREEDTE") = 117
+	. . Set Params("LOHOOGTE") = LosseOnderdelenDoos.Hoogte
+	. . Set Params("LODIEPTE") = LosseOnderdelenDoos.Diepte
+	. . Set Params("LOCP") = LosseOnderdelenDoos.BreedteCorpusProfiel
+	. Else  If (LD=550) Do ;Voor lade diepte gelijk aan 550 moet er een standaard huls gemaakt worden
 	. . Set LosseOnderdelenDoos = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte550()
 	. . Set Params("LOBREEDTE") = 117
 	. . Set Params("LOHOOGTE") = LosseOnderdelenDoos.Hoogte
@@ -1031,6 +1043,18 @@
 	. . Set Params("LOHOOGTE") = LosseOnderdelenDoos.Hoogte
 	. . Set Params("LODIEPTE") = LosseOnderdelenDoos.Diepte
 	. . Set Params("LOCP") = LosseOnderdelenDoos.BreedteCorpusProfiel
+	. Else  If (LD=300) Do ;Voor lade diepte gelijk aan 300 moet er een standaard huls gemaakt worden
+	. . Set LosseOnderdelenDoos = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte300()
+	. . Set Params("LOBREEDTE") = 117
+	. . Set Params("LOHOOGTE") = LosseOnderdelenDoos.Hoogte
+	. . Set Params("LODIEPTE") = LosseOnderdelenDoos.Diepte
+	. . Set Params("LOCP") = LosseOnderdelenDoos.BreedteCorpusProfiel
+	. Else  If (LD=270) Do ;Voor lade diepte gelijk aan 270 moet er een standaard huls gemaakt worden
+	. . Set LosseOnderdelenDoos = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte270()
+	. . 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
@@ -1055,7 +1079,7 @@
 	. . Set Params("DIEPTE")=Params("DIEPTE")+(2*$$$KartonDikte)
 	. . Set Params("BREEDTE")=Params("BREEDTE")+Params("LOHOOGTE")+(3*$$$KartonDikte)
 	. 
-	. If ( (LD=350) || (LD=400) || (LD=450) || (LD=500) || (LD=550) ) && ( RH = "N" ) Do ; Op vraag van halux indien N er 20mm bij
+	. If ( (LD=270) || (LD=300) || (LD=350) || (LD=400) || (LD=450) || (LD=500) || (LD=550) || (LD=600) || (LD=650) ) && ( RH = "N" ) Do ; Op vraag van halux indien N er 20mm bij
 	. . Set Params("ZIJHOOGTE") = Params("ZIJHOOGTE") + 20
 	
 	Set:..VoorgesnedenHuls(PRNr) Params("LOQTY")=-1