Index: APPS/Halux/Planning/Resource/impl/ConvertTAX.cls.xml
===================================================================
diff -u -r57131 -r57301
--- APPS/Halux/Planning/Resource/impl/ConvertTAX.cls.xml	(.../ConvertTAX.cls.xml)	(revision 57131)
+++ APPS/Halux/Planning/Resource/impl/ConvertTAX.cls.xml	(.../ConvertTAX.cls.xml)	(revision 57301)
@@ -32,6 +32,7 @@
 		Do ..CreateResourceMat()
 		Do ..CreateResourceLaserLogo()
 		Do ..CreateResourceSpoelbak()
+		Do ..CreateInkorten()
 	}
 	Else
 	{
@@ -41,29 +42,57 @@
 ]]></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,"PRTOSTANG.001")) ; OLD TIPON syncstang
+	{
+		Do ..CreateOneResource("LBX&TBX","Voormontage","TipOn ALU","INK:TIPON ALU")	
+	}
+	
+	If $D(^PRBS("BS",..PRNr,"ZIJSTABI.001"))
+	{
+		Do ..CreateOneResource("LBX&TBX","Voormontage","ZijStab","INK:ZIJSTAB")	
+	}
+]]></Implementation>
+</Method>
+
 <Method name="CreateResourceHoofdlijn">
-<Implementation><![CDATA[	Do ..CreateOneResource("TAX","Lijn","")
+<Implementation><![CDATA[	Do ..CreateOneResource("TAX","Tax","TAX","")
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceMat">
 <Implementation><![CDATA[
 	Quit:..MatCode=""
-	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="CreateResourceLaserLogo">
 <Implementation><![CDATA[
 	Quit:'..LogoCode
-	Do ..CreateOneResource("TAX","LaserLogo","")
+	Do ..CreateOneResource("TAX","LaserLogo","TAX","")
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceSpoelbak">
 <Implementation><![CDATA[
 	Quit:'..SpoelbakCode
-	Do ..CreateOneResource("TAX","Spoelbak","S:"_..SpoelbakCode)
+	Do ..CreateOneResource("TAX","Spoelbak","TAX","S:"_..SpoelbakCode)
 ]]></Implementation>
 </Method>