Index: BL/Prod/OptiBox/Optimize.cls.xml
===================================================================
diff -u -r2589 -r11517
--- BL/Prod/OptiBox/Optimize.cls.xml	(.../Optimize.cls.xml)	(revision 2589)
+++ BL/Prod/OptiBox/Optimize.cls.xml	(.../Optimize.cls.xml)	(revision 11517)
@@ -656,16 +656,19 @@
 	Set Sort1=""
 	Set SubSubCnt=0
 	Set pxBox=""
+	Set VerpakkingVolgnummer= 0
 	For  Set Sort1=$O(Sort(Sort1)) Quit:Sort1=""  Do 
 	. Set ID1=""	
 	. For  Set ID1=$O(Sort(Sort1,ID1)) Quit:ID1=""  Do 
-	. . Set pxBoxTmp=..AddOptiBox(.pxParent, ID1, .Params, .Opties, .Qty, .BasisRef, .LijnRef,.PRNr,.ProductRef, .Gewicht, .Plaats,.IsSubBox)
+	. . Set VerpakkingVolgnummer = 1 + VerpakkingVolgnummer
+	. . Set pxBoxTmp=..AddOptiBox(.pxParent, ID1, .Params, .Opties, .Qty, .BasisRef, .LijnRef,.PRNr,.ProductRef, .Gewicht, .Plaats,.IsSubBox, VerpakkingVolgnummer)
 	. . Set:'$isObject(pxBox) pxBox=pxBoxTmp
 	. . Set Sort2=""
 	. . For  Set Sort2=$O(Sort(Sort1,ID1,Sort2)) Quit:Sort2=""  Do
 	. . . Set ID2=""
 	. . . For  Set ID2=$O(Sort(Sort1,ID1,Sort2,ID2)) Quit:ID2=""  Do 
-	. . . . Set pxSubBox=..AddOptiBox(pxBox, ID2,.Params, .Opties, 1, .BasisRef, .LijnRef,.PRNr,.ProductRef, 0, "INSIDE",1)
+	. . . . Set VerpakkingVolgnummer = 1 + VerpakkingVolgnummer
+	. . . . Set pxSubBox=..AddOptiBox(pxBox, ID2,.Params, .Opties, 1, .BasisRef, .LijnRef,.PRNr,.ProductRef, 0, "INSIDE", 1, VerpakkingVolgnummer)
 	;Do WL^vhDBG("END LOOP"ObjType_"||"_ObjRef" "_$G(pxBox))
 	;Do WX^vhDBG(pxBox,1)
 	Quit $G(pxBox)
@@ -693,7 +696,7 @@
 <Method name="AddOptiBox">
 <Description>
 Lowlevel : Invullen van een te optimiseren box</Description>
-<FormalSpec><![CDATA[pxParent,OptiID,&Params,&Opties,Qty,BasisRef,LijnRef,PRNr,ProductRef,Gewicht,Plaats,IsSubBox]]></FormalSpec>
+<FormalSpec><![CDATA[pxParent,OptiID,&Params,&Opties,Qty,BasisRef,LijnRef,PRNr,ProductRef,Gewicht,Plaats,IsSubBox,VerpakkingVolgnummer:%Integer]]></FormalSpec>
 <ReturnType>WS.Prod.PanOpti.q1.BOXDEF</ReturnType>
 <Implementation><![CDATA[
 	Set:$G(PRNr)&&($G(ProductRef)="") ProductRef=$P($G(^KPR(PRNr,0)),"\")
@@ -746,6 +749,8 @@
 	. . Set pxBox.PRODUCT=$TR(ProductRef,"/\","  ")
 	. Else  If $G(PRNr)?4.7N Do
 	. . Set pxBox.PRODUCT=$TR($P(^KPR(PRNr,0),"\"),"/\","  ")
+	. If (VerpakkingVolgnummer > 1) Do
+	. . Set pxBox.PRODUCT = pxBox.PRODUCT _ " deel " _ VerpakkingVolgnummer
 	. ;d WL^vhDBG(oData.BreedteExec)
 	. ;d WL^vhDBG(oData.DiepteExec)
 	. Set pxBox.WIDTH=..Calc(oData.BreedteExec,.Params)