Index: APPS/Halux/Component/impl/ConvertLBX.cls.xml
===================================================================
diff -u -r57552 -r62525
--- APPS/Halux/Component/impl/ConvertLBX.cls.xml	(.../ConvertLBX.cls.xml)	(revision 57552)
+++ APPS/Halux/Component/impl/ConvertLBX.cls.xml	(.../ConvertLBX.cls.xml)	(revision 62525)
@@ -6,6 +6,7 @@
 <Method name="BuildResourceCodes">
 <Implementation><![CDATA[
 	Set ..Familie="LBX"
+	Set ..IngegevenKenmerken.Internebreedte=..IngegevenKenmerken.CorpusBreedte-(2*..IngegevenKenmerken.CorpusWandDikte)
 
 	Set ..SpoelbakCode=$S(..IngegevenKenmerken.Toepassing="L":"",$zcvt(..IngegevenKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1)
 	Set VoorWandType=$zcvt(..IngegevenKenmerken.VoorWandTypeVanCBinnenlade_..IngegevenKenmerken.VoorWandTypeVanKBinnenlade_..IngegevenKenmerken.VoorWandTypeVanMBinnenlade,"U")
@@ -36,14 +37,6 @@
 	from APPS_Halux_Component_impl.ImportBSKey
 	where Familie=:Familie and BSKey=:BSKey)
 	
-	If BSKey="TOBSYS",$P(..BSRec,"\",1)=1297240,Werkpost[";" ; Syncro Stang op in te korten
-	{ 
-		Set Werkpost=$P(Werkpost,";",2)
-	}
-	Else
-	{
-		Set Werkpost=$P(Werkpost,";",1)
-	}
 
 	If ..FrontCode&&(WerkpostAlsBinnenlade'="")
 	{
@@ -61,6 +54,13 @@
 	{
 		Set ..TransferTo=Werkpost
 	}
+	
+	
+
+	If ..TransferTo["MAT>MONTAGE" && (..VerpakCode'="V1")
+	{
+		set ..TransferTo="MAT>PROBOX"
+	}
 ]]></Implementation>
 </Method>
 </Class>