Index: APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml
===================================================================
diff -u -r57131 -r57301
--- APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml	(.../ConvertTBX.cls.xml)	(revision 57131)
+++ APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml	(.../ConvertTBX.cls.xml)	(revision 57301)
@@ -8,7 +8,7 @@
 	Set ..BreedteCode=$S(..IngegevenKenmerken.Internebreedte>600:2,1:1)
 	Set ..DiepteCode=$S(..IngegevenKenmerken.LadeDiepte>550:2,1:1)
 	Set ..SpoelbakCode=$S("L"[..IngegevenKenmerken.Toepassing:"",$zcvt(..IngegevenKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1)
-	Set ..FrontCode=$zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE"
+	Set ..FrontCode=$s($zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE":$S(..HoogteCode?1(1"D",1"C",1"B"):"RELING",1:"BASIS"),1:"")
 	Set ..MatCode=..IngegevenKenmerken.MatMateriaal
 	Set ..VerpakCode=..IngegevenKenmerken.VerpakkingType
 	Set ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3)
@@ -42,6 +42,7 @@
 		Do ..CreateResourceVoormontage()
 		Do ..CreateResourceSpoelbak()
 		Do ..CreateResourceSpeciaal()
+		Do ..CreateInkorten()
 	}
 	Else
 	{	Set ..SpeciaalCode="ZNDR KENMERK"
@@ -50,43 +51,68 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CreateInkorten">
+<Implementation><![CDATA[
+ 
+	If $D(^PRBS("BS",..PRNr,"PRTOBSTG.001"))
+	{
+		Do ..CreateOneResource("LBX&TBX","Voormontage","TipOn","INK:TIPON")	
+	}
+	
+	If $D(^PRBS("BS",..PRNr,"DWARSV.001"))
+	{
+		Do ..CreateOneResource("LBX&TBX","Voormontage","DwarsVerd","INK:DWARSV")	
+	}
+	
+	If $D(^PRBS("BS",..PRNr,"ZIJSTABI.001"))
+	{
+		Do ..CreateOneResource("LBX&TBX","Voormontage","ZijStab","F:LBX;INK:ZIJSTAB")	
+	}
+]]></Implementation>
+</Method>
+
 <Method name="CreateResourceHoofdlijn">
 <Implementation><![CDATA[
 	Quit:..SpoelbakCode&&(..AantalCode>5)
 	Quit:..SpeciaalCode'=""
 	Set Lijn=$S(..VerpakCode="V1":"L1",1:"L4")
-	Do ..CreateOneResource("LBX&TBX",Lijn,"F:TBX;S:"_$S(..SpoelbakCode:1,1:0)_";B:"_..BreedteCode)
+	Do ..CreateOneResource("LBX&TBX",Lijn,"TBX","F:TBX;S:"_$S(..SpoelbakCode="":0,1:1)_";B:"_..BreedteCode,,1)
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceMat">
 <Implementation><![CDATA[
 	Quit:..MatCode=""
 	Quit:..SpeciaalCode'=""
-	Do ..CreateOneResource("MAT","Intern","")
+	
+	Set SnijCode=..GeefMatAantalKeerSnijden()
+	Set:SnijCode="" SnijCode="STD"
+	Set:..SpoelbakCode SnijCode="SPOEL"
+
+	Do ..CreateOneResource("MAT","Mat","Intern","F:"_$S(..MatCode="CV":"VILT",1:"STD")_";SN:"_SnijCode_";O:Intern")
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceVoormontage">
 <Implementation><![CDATA[
-	Quit:'..FrontCode
+	Quit:..FrontCode=""
 	Quit:(..SpeciaalCode'="F")&&(..SpeciaalCode'="")
-	Do ..CreateOneResource("LBX&TBX","Voormontage","")
+	Do ..CreateOneResource("LBX&TBX","Voormontage","Front","F:TBX;FT:"_..FrontCode)
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceSpoelbak">
 <Implementation><![CDATA[
 	Quit:'..SpoelbakCode
 	Quit:..SpeciaalCode'=""
-	Do ..CreateOneResource("LBX&TBX","Spoelbak","S:"_..SpoelbakCode)
+	Do ..CreateOneResource("LBX&TBX","Spoelbak","TBX","F:TBX;S:"_..SpoelbakCode,,(..AantalCode>5))
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceSpeciaal">
 <Implementation><![CDATA[
 	Quit:..SpeciaalCode=""
-	Do ..CreateOneResource("LBX&TBX","Special","X:"_..SpeciaalCode)
+	Do ..CreateOneResource("LBX&TBX","Special","TBX","X:"_..SpeciaalCode)
 ]]></Implementation>
 </Method>
 </Class>