FishEye: Tag 33476 refers to a dead (removed) revision in file `vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test001/OptiboxRequests_LosseOnderdelen.txt'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/BL/PPS/TBX/OptiBox/GetV1Params/Test.cls.xml
===================================================================
diff -u -r33371 -r33476
--- vhUnitTest/BL/PPS/TBX/OptiBox/GetV1Params/Test.cls.xml	(.../Test.cls.xml)	(revision 33371)
+++ vhUnitTest/BL/PPS/TBX/OptiBox/GetV1Params/Test.cls.xml	(.../Test.cls.xml)	(revision 33476)
@@ -8,6 +8,15 @@
 <Default>4.2</Default>
 </Parameter>
 
+<Method name="Test: Onderdelendoos moet niet worden gesneden bij ladediepte 550">
+<Implementation><![CDATA[
+	#dim PRNr As TECH.String = 1154731  ; product heeft ladediepte 550
+	#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
@@ -27,7 +36,6 @@
 	Do $$$AssertEquals(Params("LOBREEDTE"),117)
 	Do $$$AssertEquals(Params("LODIEPTE"),550)
 	Do $$$AssertEquals(Params("LOHOOGTE"),80)
-	Do $$$AssertEquals(Params("LOQTY"),1)
 ]]></Implementation>
 </Method>
 
@@ -50,7 +58,6 @@
 	Do $$$AssertEquals(Params("LOBREEDTE"),117)
 	Do $$$AssertEquals(Params("LODIEPTE"),550)
 	Do $$$AssertEquals(Params("LOHOOGTE"),80)
-	Do $$$AssertEquals(Params("LOQTY"),1)
 ]]></Implementation>
 </Method>
 </Class>
Index: BL/PPS/TBX/OptiBox.cls.xml
===================================================================
diff -u -r33046 -r33476
--- BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 33046)
+++ BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 33476)
@@ -969,13 +969,17 @@
 	
 	Quit:VPK'="S" ; zonder onderdelen
 
+	; Stilaan gebruik beginnen maken van vernieuwd code pad - voorlopig enkel nog maar voor de standaardhuls 
+	#dim LosseOnderdelenDoos As APPS.Halux.PPS.Verpakking.impl.DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.impl.DoosLosseOnderdelen).%New()
+	
 	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
+	. . Set LosseOnderdelenDoos = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte550()
 	. . Set Params("LOBREEDTE") = 117
-	. . Set Params("LOHOOGTE") = 80
-	. . Set Params("LODIEPTE") = 550
-	. . Set Params("LOCP") = 65
+	. . 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
@@ -997,7 +1001,8 @@
 	. Else  Do
 	. . Set Params("DIEPTE")=Params("DIEPTE")+(2*$$$KartonDikte)
 	. . Set Params("BREEDTE")=Params("BREEDTE")+Params("LOHOOGTE")+(3*$$$KartonDikte)
-	Set:..VoorgesnedenHuls(PRNr) Params("LOQTY")=-1
+	
+	Set:..VoorgesnedenHuls(PRNr,LosseOnderdelenDoos) Params("LOQTY")=-1
 ]]></Implementation>
 </Method>
 
@@ -1008,23 +1013,24 @@
 </Parameter>
 
 <Method name="VoorgesnedenHuls">
-<Description>
-W ##class(BL.PPS.TBX.OptiBox).VoorgesnedenHuls()</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>PRNr:%Integer</FormalSpec>
+<FormalSpec>PRNr:%Integer,LosseOnderdelenDoos:APPS.Halux.PPS.Verpakking.impl.DoosLosseOnderdelen</FormalSpec>
 <Implementation><![CDATA[
-	Set LD=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD")) ; Ladediepte
-	Set DK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DK")) ; Draagkracht
-	Set BM=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BM")) ; Blumotion/Tip-ON
-	Set RH=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RH")) ; RugHoogte
-	Set DC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DC")) ; DesignCode
-	Set LC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC")) ; LadeCode
+	#dim LD As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD")) ; Ladediepte
+	#dim DK As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DK")) ; Draagkracht
+	#dim BM As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BM")) ; Blumotion/Tip-ON
+	#dim RH As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RH")) ; RugHoogte
+	#dim DC As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DC")) ; DesignCode
+	#dim LC As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC")) ; LadeCode
 
-	Set Voorgesneden=$F(";"_..#VoorgesnedenHuls_";",";"_LD_RH_";")
+	#dim Voorgesneden As %Boolean =$F(";"_..#VoorgesnedenHuls_";",";"_LD_RH_";")
 	If Voorgesneden {
 		Set:(DK>50)||(BM="T") Voorgesneden=0 ; niet voor 65kg en Tip-ON
 		Set:(DC="A")&&(RH?1(1"B",1"C",1"D")) Voorgesneden=0 ; niet voor Antaro met vierkante reling
 	}
+	
+	if 'Voorgesneden set Voorgesneden = LosseOnderdelenDoos.IsStandaardHuls
+	
 	Quit Voorgesneden
 ]]></Implementation>
 </Method>
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test001/OptiboxRequests_Verpakking.txt
===================================================================
diff -u -r30040 -r33476
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test001/OptiboxRequests_Verpakking.txt	(.../OptiboxRequests_Verpakking.txt)	(revision 30040)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test001/OptiboxRequests_Verpakking.txt	(.../OptiboxRequests_Verpakking.txt)	(revision 33476)
@@ -13,7 +13,7 @@
       <PLACE>PALLET</PLACE>
       <PRODUCT>TB8MAI.A3YD350x1164S2SWWI</PRODUCT>
       <QTY>1</QTY>
-      <REF>T.222222.2</REF>
+      <REF>T.222222.1</REF>
       <ROTATE>ZF</ROTATE>
       <WEIGHT>0</WEIGHT>
       <WIDTH>1228.6</WIDTH>