Index: BL/Stat/Bedrijfsrondleiding.cls.xml
===================================================================
diff -u -r2692 -r13199
--- BL/Stat/Bedrijfsrondleiding.cls.xml	(.../Bedrijfsrondleiding.cls.xml)	(revision 2692)
+++ BL/Stat/Bedrijfsrondleiding.cls.xml	(.../Bedrijfsrondleiding.cls.xml)	(revision 13199)
@@ -1556,9 +1556,9 @@
 	. Set LC = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC"))  ; LadeCode
 	. Set DC = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DC"))  ; DesignCode
 	. Set ZW = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ZW"))  ; Zijwand
-	. Set Opp = %blPPSTBXOptiBox.QuickV1LadeBreedte(LC,LD)*%blPPSTBXOptiBox.QuickV1LadeLengte(LC,IB)
-	. Set:$G(Params("LOQTY")) Opp=Opp+(%blPPSTBXOptiBox.QuickV1LosBreedte(LC,LD)*%blPPSTBXOptiBox.QuickV1LosLengte(LC))
-	. Set:$G(Params("BKQTY")) Opp=Opp+(%blPPSTBXOptiBox.QuickV1LosBreedte(ZW,LD)*%blPPSTBXOptiBox.QuickV1BoxKapLengte(ZW,BS))
+	. Set Opp = %blPPSTBXOptiBox.QuickV1LadeBreedte(LC,LD,DC)*%blPPSTBXOptiBox.QuickV1LadeLengte(LC,IB,DC)
+	. Set:$G(Params("LOQTY")) Opp=Opp+(%blPPSTBXOptiBox.QuickV1LosBreedte(LC,LD,DC)*%blPPSTBXOptiBox.QuickV1LosLengte(LC,DC))
+	. Set:$G(Params("BKQTY")) Opp=Opp+(%blPPSTBXOptiBox.QuickV1BoxKapBreedte(ZW,LD)*%blPPSTBXOptiBox.QuickV1BoxKapLengte(ZW,BS))
 	. Set Opp = Opp / ( 1000 * 1000 )
 	.
 	. Set IdxDatum="" 
Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r11979 -r13199
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 11979)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 13199)
@@ -831,6 +831,72 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefV1LadeBreedte">
+<Description>
+Geeft de karton-breedte voor de V1-verpakking </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BreedteIntern:%Float,LadeCode:%String,LadeDiepte:%Integer,DesignCode:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ##class(BL.PPS.TBX.OptiBox).CompV1LadeBreedte(BreedteIntern,LadeCode,LadeDiepte,DesignCode)
+]]></Implementation>
+</Method>
+
+<Method name="GeefV1LadeLengte">
+<Description>
+Geeft de karton-lengte voor de V1-verpakking </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LadeCode:%String,BreedteIntern:%Float,DesignCode:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ##class(BL.PPS.TBX.OptiBox).QuickV1LadeLengte(LadeCode,BreedteIntern,DesignCode)
+]]></Implementation>
+</Method>
+
+<Method name="GeefV1LosseOnderdelenBreedte">
+<Description>
+Geeft de karton-breedte voor de doos met losse onderdelen bij V1-verpakking </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BreedteIntern:%Float,LadeCode:%String,LadeDiepte:%Integer,DesignCode:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ##class(BL.PPS.TBX.OptiBox).CompV1LosBreedte(BreedteIntern,LadeCode,LadeDiepte,DesignCode)
+]]></Implementation>
+</Method>
+
+<Method name="GeefV1LosseOnderdelenLengte">
+<Description>
+Geeft de karton-lengte voor de doos met losse onderdelen bij V1-verpakking </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LadeCode:%String,DesignCode:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ##class(BL.PPS.TBX.OptiBox).QuickV1LosLengte(LadeCode,DesignCode)
+]]></Implementation>
+</Method>
+
+<Method name="GeefV1BoxcapBreedte">
+<Description>
+Geeft de karton-breedte voor de boxcap bij V1-verpakking </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BreedteIntern:%Float,LadeZijkantHoogte:%String,LadeDiepte:%Integer</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ##class(BL.PPS.TBX.OptiBox).CompV1BoxKapBreedte(BreedteIntern,LadeZijkantHoogte,LadeDiepte)
+]]></Implementation>
+</Method>
+
+<Method name="GeefV1BoxcapLengte">
+<Description>
+Geeft de karton-lengte voor de boxcap bij V1-verpakking </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LadeZijkantHoogte:%String,Boxside:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ##class(BL.PPS.TBX.OptiBox).QuickV1BoxKapLengte(LadeZijkantHoogte,Boxside)
+]]></Implementation>
+</Method>
+
 <Method name="CalcProboxWikkelInfo">
 <Description>
 Geeft de wikkel-lengte voor een tandembox-lade in Probox verpakking </Description>
Index: BL/PPS/TBX/OptiBox.cls.xml
===================================================================
diff -u -r2589 -r13199
--- BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 2589)
+++ BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 13199)
@@ -301,9 +301,9 @@
 
 <Method name="CompV1LadeBreedte">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Breedte,LC,LD</FormalSpec>
+<FormalSpec>Breedte,LC,LD,DC:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set BenodigeBreedte=..QuickV1LadeBreedte(LC,LD)
+	Set BenodigeBreedte=..QuickV1LadeBreedte(LC,LD,.DC)
 	Quit:Breedte<BenodigeBreedte 99999
 	Quit Breedte-BenodigeBreedte
 ]]></Implementation>
@@ -313,10 +313,10 @@
 <Description>
 Prijsberekening TBX : V1 lade</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LC,LD</FormalSpec>
+<FormalSpec>LC,LD,DC:%String</FormalSpec>
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
-	Set BoxDef=..GetV1Def(LC)	
+	Set BoxDef=..GetV1Def(LC,.DC)
 	Set Hoogte=$S(+$P(BoxDef,";",3):+$P(BoxDef,";",3),1:+$P(BoxDef,";",2))
 	Quit (Hoogte*2)+(LD*2)+110 ; extra 110 voor de flap
 ]]></Implementation>
@@ -326,20 +326,20 @@
 <Description>
 Prijsberekening TBX : V1 lade</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LC,IB</FormalSpec>
+<FormalSpec>LC,IB,DC:%String</FormalSpec>
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
-	Set BoxDef=..GetV1Def(LC)	
+	Set BoxDef=..GetV1Def(LC,.DC)
 	Set Hoogte=$S(+$P(BoxDef,";",3):+$P(BoxDef,";",3),1:+$P(BoxDef,";",2))
 	Quit (Hoogte*4)+IB+50 ; extra 50 voor de losse onderdelen
 ]]></Implementation>
 </Method>
 
 <Method name="CompV1LosBreedte">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Breedte,LC,LD</FormalSpec>
+<FormalSpec>Breedte,LC,LD,DC:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set BenodigeBreedte=..QuickV1LosBreedte(LC,LD)
+	Set BenodigeBreedte=..QuickV1LosBreedte(LC,LD,.DC)
 	Quit:Breedte<BenodigeBreedte 99999
 	Quit Breedte-BenodigeBreedte
 ]]></Implementation>
@@ -349,10 +349,10 @@
 <Description>
 Prijsberekening TBX : V1 losse onderdelen</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LC,LD</FormalSpec>
+<FormalSpec>LC,LD,DC:%String</FormalSpec>
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
-	Set BoxDef=..GetV1Def(LC)	
+	Set BoxDef=..GetV1Def(LC,.DC)
 	Set Hoogte=+$P(BoxDef,";",2)
 	Quit LD+(Hoogte*2)+100
 ]]></Implementation>
@@ -362,20 +362,20 @@
 <Description>
 Prijsberekening TBX : V1 losse onderdelen</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LC</FormalSpec>
+<FormalSpec>LC,DC:%String</FormalSpec>
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
-	Set BoxDef=..GetV1Def(LC)	
+	Set BoxDef=..GetV1Def(LC,.DC)
 	Set Hoogte=+$P(BoxDef,";",2)
 	Quit 5*60+(Hoogte*2)+100
 ]]></Implementation>
 </Method>
 
 <Method name="CompV1BoxKapBreedte">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Breedte,DC,LD</FormalSpec>
+<FormalSpec>Breedte,ZW,LD</FormalSpec>
 <Implementation><![CDATA[
-	Set BenodigeBreedte=..QuickV1BoxKapBreedte(DC,LD)
+	Set BenodigeBreedte=..QuickV1BoxKapBreedte(ZW,LD)
 	Quit:Breedte<BenodigeBreedte 99999
 	Quit Breedte-BenodigeBreedte
 ]]></Implementation>
@@ -869,9 +869,12 @@
 	Else  If Last="B"&&($L(LC)>1) Set DefList=$$$Buro
 	Else  Set DefList=$S(LC["DL":$$$LadeINTIVO,1:$$$Lade)
 	;do WLIP^vhDBG(15,Last_"->"_DefList)	
-
+	Set IsAntaroKBinnenlade = (($G(DC) = "A") && (LC = "K/Z"))
 	Set LC=$E(LC)
 	Set DefOne=$P($P(DefList,LC_";",2),"\",1)
+	If IsAntaroKBinnenlade {
+		Set $P(DefOne, ";", 2) = $P(DefOne, ";", 2) + 5
+	}
 	Quit DefOne
 ]]></Implementation>
 </Method>