Index: APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml
===================================================================
diff -u -r57548 -r62511
--- APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml	(.../ConvertTBX.cls.xml)	(revision 57548)
+++ APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml	(.../ConvertTBX.cls.xml)	(revision 62511)
@@ -59,21 +59,39 @@
  
 	If $D(^PRBS("BS",..PRNr,"PRTOBSTG.001"))
 	{
-		Do ..CreateOneResource("LBX&TBX","Voormontage","Syncro","TBX","INK:TIPON")	
+		Do ..CreateOneResource("LBX&TBX","Voormontage","Syncro","TBX","")	
 	}
 	
 	If $D(^PRBS("BS",..PRNr,"DWARSV.001"))
 	{
-		Do ..CreateOneResource("LBX&TBX","Voormontage","DwarsVerd","TBX","INK:DWARSV")	
+		Do ..CreateOneResource("LBX&TBX","Voormontage","DwarsVerd","TBX","")	
 	}
 	
 	If $D(^PRBS("BS",..PRNr,"ZIJSTABI.001"))
 	{
-		Do ..CreateOneResource("LBX&TBX","Voormontage","ZijStab","TBX","F:LBX;INK:ZIJSTAB")	
+		Do ..CreateOneResource("LBX&TBX","Voormontage","ZijStab","TBX","")	
 	}
+	If $D(^PRBS("BS",..PRNr,"PRBXKG.001"))&&..VindBewerking("Inkorten inschuifelement")
+	{
+		Do ..CreateOneResource("LBX&TBX","Voormontage","Inschuifelement","TBX","")	
+	}
 ]]></Implementation>
 </Method>
 
+<Method name="VindBewerking">
+<FormalSpec>BewerkingsTekst:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set BSKey=$O(^PRBS("BS",..PRNr,"KST"))
+	Set Found=0
+	While (BSKey'="") || Found
+	{
+		Set Found=(^PRBS("BS",..PRNr,BSKey)[BewerkingsTekst)
+		Set BSKey=$O(^PRBS("BS",..PRNr,BSKey))
+	}
+	Quit Found
+]]></Implementation>
+</Method>
+
 <Method name="CreateResourceHoofdlijn">
 <Implementation><![CDATA[
 	Quit:..SpoelbakCode&&(..ProductieOrderLijn.Aantal>5)
@@ -92,8 +110,8 @@
 	Set SnijCode=..GeefMatAantalKeerSnijden()
 	Set:SnijCode="" SnijCode="STD"
 	Set:..SpoelbakCode SnijCode="SPOEL"
-	Set Selector="SN:"_SnijCode
-	Do ..CreateOneResource("MAT","Mat","Intern",$S(..MatCode="CV":"VILT",1:"ASM"),Selector)
+	Set Selector="SN:"_SnijCode_";NAAR:INTERN"
+	Do ..CreateOneResource("MAT","Mat","Intern","ASM",Selector)
 ]]></Implementation>
 </Method>