Index: APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml
===================================================================
diff -u -r57131 -r57301
--- APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml	(.../ConvertLBX.cls.xml)	(revision 57131)
+++ APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml	(.../ConvertLBX.cls.xml)	(revision 57301)
@@ -9,7 +9,8 @@
 	Set ..BreedteCode=$S(..IngegevenKenmerken.Internebreedte>600:2,1:1)
 	Set ..DiepteCode=$S(..IngegevenKenmerken.LadeDiepte>550:2,1:1)
 	Set ..SpoelbakCode=$S(..IngegevenKenmerken.Toepassing="L":"",$zcvt(..IngegevenKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1)
-	Set ..FrontCode=$zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE"
+	Set VoorWandType=$zcvt(..IngegevenKenmerken.VoorWandTypeVanCBinnenlade_..IngegevenKenmerken.VoorWandTypeVanKBinnenlade_..IngegevenKenmerken.VoorWandTypeVanMBinnenlade,"U")
+	Set ..FrontCode=$S($zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE":$S(VoorWandType["GLAS":"GLAS",VoorWandType["RELING":"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)
@@ -37,6 +38,7 @@
 		Do ..CreateResourceVoormontage()
 		Do ..CreateResourceSpoelbak()
 		Do ..CreateResourceSpeciaal()
+		Do ..CreateInkorten()
 	}
 	Else
 	{	Set ..SpeciaalCode="ZNDR KENMERK"
@@ -45,44 +47,73 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CreateInkorten">
+<Implementation><![CDATA[
+ 
+	If $D(^PRBS("BS",..PRNr,"TOBSYS.001"))
+	{
+		Set KPRNr=$P(^PRBS("BS",..PRNr,"TOBSYS.001"),"\")
+		If KPRNr=1297240 ; T60.1125W Syncro stang om in te korten
+		{
+			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","INK:ZIJSTAB")	
+	}
+]]></Implementation>
+</Method>
+
 <Method name="CreateResourceHoofdlijn">
 <Implementation><![CDATA[
 	Quit:..SpoelbakCode&&(..AantalCode>5)
 	Quit:..SpeciaalCode'=""
 
 	Set Lijn=$S(..VerpakCode="V1":"L1",1:"L2&3")
-	Do ..CreateOneResource("LBX&TBX",Lijn,"F:LBX;S:"_..SpoelbakCode_";B:"_..BreedteCode)
+	Do ..CreateOneResource("LBX&TBX",Lijn,"LBX","F:LBX;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:LBX;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","LBX","F:LBX;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","LBX","X:"_..SpeciaalCode)
 ]]></Implementation>
 </Method>
 </Class>