Index: APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml
===================================================================
diff -u -r57301 -r57446
--- APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml	(.../ConvertTBX.cls.xml)	(revision 57301)
+++ APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml	(.../ConvertTBX.cls.xml)	(revision 57446)
@@ -5,22 +5,22 @@
 
 <Method name="BuildResourceCodes">
 <Implementation><![CDATA[
-	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=$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 ..BreedteCode=$S(..AXKenmerken.Internebreedte>600:2,1:1)
+	Set ..DiepteCode=$S(..AXKenmerken.LadeDiepte>550:2,1:1)
+	Set ..SpoelbakCode=$S("L"[..AXKenmerken.Toepassing:"",$zcvt(..AXKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1)
+	Set ..FrontCode=$s($zcvt(..AXKenmerken.IsBinnenlade,"U")="TRUE":$S(..HoogteCode?1(1"D",1"C",1"B"):"RELING",1:"BASIS"),1:"")
+	Set ..MatCode=..AXKenmerken.MatMateriaal
+	Set ..VerpakCode=..AXKenmerken.VerpakkingType
 	Set ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3)
 	
 	/// SPECIAAL (Front only, te kleine of te gorte breedte, afgerond front voor klant Dibo
 	Set ..SpeciaalCode=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..PRNr,"ODSP"))
 	Set:..SpeciaalCode="V" ..SpeciaalCode=""
-	If ((..IngegevenKenmerken.Internebreedte<79)||(..IngegevenKenmerken.Internebreedte>1600)) && (..IngegevenKenmerken.VerpakkingType="V1")
+	If ((..AXKenmerken.Internebreedte<79)||(..AXKenmerken.Internebreedte>1600)) && (..AXKenmerken.VerpakkingType="V1")
 	{
 		Set ..SpeciaalCode="BREEDTE"
 	}
-	If ((..IngegevenKenmerken.Internebreedte<165)||(..IngegevenKenmerken.Internebreedte>1500)) && (..IngegevenKenmerken.VerpakkingType'="V1")
+	If ((..AXKenmerken.Internebreedte<165)||(..AXKenmerken.Internebreedte>1500)) && (..AXKenmerken.VerpakkingType'="V1")
 	{
 		Set ..SpeciaalCode="BREEDTE"
 	}
@@ -35,14 +35,17 @@
 
 <Method name="CreateResources">
 <Implementation><![CDATA[
-	If $isObject(..IngegevenKenmerken)&&(..IngegevenKenmerken.Internebreedte>50)
+	If $isObject(..AXKenmerken)&&(..AXKenmerken.Internebreedte>50)
 	{
 		Do ..CreateResourceHoofdlijn()
 		Do ..CreateResourceMat()
 		Do ..CreateResourceVoormontage()
 		Do ..CreateResourceSpoelbak()
 		Do ..CreateResourceSpeciaal()
-		Do ..CreateInkorten()
+		Do ..CreateResourceInkorten()
+		Do ..CreateResourcePickingOnderdelen()
+		Do ..CreateResourcePickingZijkanten()
+		Do ..CreateResourceSnijdenHuls()
 	}
 	Else
 	{	Set ..SpeciaalCode="ZNDR KENMERK"
@@ -51,22 +54,22 @@
 ]]></Implementation>
 </Method>
 
-<Method name="CreateInkorten">
+<Method name="CreateResourceInkorten">
 <Implementation><![CDATA[
  
 	If $D(^PRBS("BS",..PRNr,"PRTOBSTG.001"))
 	{
-		Do ..CreateOneResource("LBX&TBX","Voormontage","TipOn","INK:TIPON")	
+		Do ..CreateOneResource("LBX&TBX","Voormontage","Syncro","TBX","INK:TIPON")	
 	}
 	
 	If $D(^PRBS("BS",..PRNr,"DWARSV.001"))
 	{
-		Do ..CreateOneResource("LBX&TBX","Voormontage","DwarsVerd","INK:DWARSV")	
+		Do ..CreateOneResource("LBX&TBX","Voormontage","DwarsVerd","TBX","INK:DWARSV")	
 	}
 	
 	If $D(^PRBS("BS",..PRNr,"ZIJSTABI.001"))
 	{
-		Do ..CreateOneResource("LBX&TBX","Voormontage","ZijStab","F:LBX;INK:ZIJSTAB")	
+		Do ..CreateOneResource("LBX&TBX","Voormontage","ZijStab","TBX","F:LBX;INK:ZIJSTAB")	
 	}
 ]]></Implementation>
 </Method>
@@ -75,8 +78,9 @@
 <Implementation><![CDATA[
 	Quit:..SpoelbakCode&&(..AantalCode>5)
 	Quit:..SpeciaalCode'=""
-	Set Lijn=$S(..VerpakCode="V1":"L1",1:"L4")
-	Do ..CreateOneResource("LBX&TBX",Lijn,"TBX","F:TBX;S:"_$S(..SpoelbakCode="":0,1:1)_";B:"_..BreedteCode,,1)
+	Set Lijn=$S(..VerpakCode="V1":"Lijn 1",1:"Lijn 4")
+	Set Selector="S:"_$S(..SpoelbakCode="":0,1:1)_";B:"_..BreedteCode
+	Do ..CreateOneResource("LBX&TBX",Lijn,"Lade","TBX",Selector,,1)
 ]]></Implementation>
 </Method>
 
@@ -88,31 +92,58 @@
 	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")
+	Set Selector="SN:"_SnijCode
+	Do ..CreateOneResource("MAT","Mat","Intern",$S(..MatCode="CV":"VILT",1:"ASM"),Selector)
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceVoormontage">
 <Implementation><![CDATA[
 	Quit:..FrontCode=""
 	Quit:(..SpeciaalCode'="F")&&(..SpeciaalCode'="")
-	Do ..CreateOneResource("LBX&TBX","Voormontage","Front","F:TBX;FT:"_..FrontCode)
+	Do ..CreateOneResource("LBX&TBX","Voormontage","Front","TBX","FT:"_..FrontCode)
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceSpoelbak">
 <Implementation><![CDATA[
 	Quit:'..SpoelbakCode
 	Quit:..SpeciaalCode'=""
-	Do ..CreateOneResource("LBX&TBX","Spoelbak","TBX","F:TBX;S:"_..SpoelbakCode,,(..AantalCode>5))
+	Do ..CreateOneResource("LBX&TBX","Spoelbak LBX&TBX","Lade","TBX","S:"_..SpoelbakCode, ,(..ProductieOrderLijn.Aantal>5))
 ]]></Implementation>
 </Method>
 
+<Method name="CreateResourcePickingOnderdelen">
+<Implementation><![CDATA[
+	Quit:..SpeciaalCode'=""
+	Set Activiteit="ProBox"
+	Set:$D(^PRBS("BS",..PRNr,"PRVPV1DOOS.001")) Activiteit="V1" ; V1 doos
+	Do ..CreateOneResource("LBX&TBX","Onderdelen LBX&TBX",Activiteit,"TBX","")
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourcePickingZijkanten">
+<Implementation><![CDATA[
+	Quit:..SpoelbakCode ;geen spoelbakken
+	Quit:..SpeciaalCode'=""
+	Quit:'$D(^PRBS("BS",..PRNr,"PRLALI.001"))&&'$D(^PRBS("BS",..PRNr,"PRLARE.001")) ; geen zijkanten
+	Do ..CreateOneResource("LBX&TBX","Zijkant LBX&TBX","Zijkant","TBX","")
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourceSnijdenHuls">
+<Implementation><![CDATA[
+	Quit:..SpeciaalCode'=""
+	Quit:'$D(^PRBS("BS",..PRNr,"PVVPV1LOS.001"))&&'$D(^PRBS("BS",..PRNr,"PRVPV1LOS.001")) ; geen LOS onderdelen doos
+	Quit:##class(BL.PPS.TBX.OptiBox).VoorgesnedenHuls(..PRNr)
+	Do ..CreateOneResource("LBX&TBX","KartonSnijMachine","Huls","TBX","")
+]]></Implementation>
+</Method>
+
 <Method name="CreateResourceSpeciaal">
 <Implementation><![CDATA[
 	Quit:..SpeciaalCode=""
-	Do ..CreateOneResource("LBX&TBX","Special","TBX","X:"_..SpeciaalCode)
+	Do ..CreateOneResource("LBX&TBX","Special","X","TBX","X:"_..SpeciaalCode)
 ]]></Implementation>
 </Method>
 </Class>