Index: APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml
===================================================================
diff -u -r57301 -r57446
--- APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml	(.../ConvertLBX.cls.xml)	(revision 57301)
+++ APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml	(.../ConvertLBX.cls.xml)	(revision 57446)
@@ -5,24 +5,26 @@
 
 <Method name="BuildResourceCodes">
 <Implementation><![CDATA[
-	Set ..IngegevenKenmerken.Internebreedte=..IngegevenKenmerken.CorpusBreedte-(2*..IngegevenKenmerken.CorpusWandDikte)
-	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 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 ..AXKenmerken.Internebreedte=..AXKenmerken.CorpusBreedte-(2*..AXKenmerken.CorpusWandDikte)
+	Set ..BreedteCode=$S(..AXKenmerken.Internebreedte>600:2,1:1)
+	Set ..DiepteCode=$S(..AXKenmerken.LadeDiepte>550:2,1:1)
+	Set ..SpoelbakCode=$S(..AXKenmerken.Toepassing="L":"",$zcvt(..AXKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1)
+	Set VoorWandType=$zcvt(..AXKenmerken.VoorWandTypeVanCBinnenlade_..AXKenmerken.VoorWandTypeVanKBinnenlade_..AXKenmerken.VoorWandTypeVanMBinnenlade,"U")
+	Set ..FrontCode=$S($zcvt(..AXKenmerken.IsBinnenlade,"U")="TRUE":$S(VoorWandType["GLAS":"GLAS",VoorWandType["RELING":"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=..IngegevenKenmerken.ProductieWijze
+	Set ..SpeciaalCode=..AXKenmerken.ProductieWijze
 	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"
 	}
@@ -31,14 +33,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 ..CreateResourcePickingOnderdelen()
+		Do ..CreateResourcePickingZijkanten()
+		Do ..CreateResourceSnijdenHuls()
 	}
 	Else
 	{	Set ..SpeciaalCode="ZNDR KENMERK"
@@ -55,18 +60,18 @@
 		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")	
+			Do ..CreateOneResource("LBX&TBX","Voormontage","Syncro","LBX","INK:TIPON")	
 		}
 	}
 	
 	If $D(^PRBS("BS",..PRNr,"DWARSV.001"))
 	{
-		Do ..CreateOneResource("LBX&TBX","Voormontage","DwarsVerd","INK:DWARSV")	
+		Do ..CreateOneResource("LBX&TBX","Voormontage","DwarsVerd","LBX","INK:DWARSV")	
 	}
 	
 	If $D(^PRBS("BS",..PRNr,"ZIJSTABI.001"))
 	{
-		Do ..CreateOneResource("LBX&TBX","Voormontage","ZijStab","INK:ZIJSTAB")	
+		Do ..CreateOneResource("LBX&TBX","Voormontage","ZijStab","LBX","INK:ZIJSTAB")	
 	}
 ]]></Implementation>
 </Method>
@@ -76,8 +81,9 @@
 	Quit:..SpoelbakCode&&(..AantalCode>5)
 	Quit:..SpeciaalCode'=""
 
-	Set Lijn=$S(..VerpakCode="V1":"L1",1:"L2&3")
-	Do ..CreateOneResource("LBX&TBX",Lijn,"LBX","F:LBX;S:"_$S(..SpoelbakCode="":0,1:1)_";B:"_..BreedteCode,,1)
+	Set Lijn=$S(..VerpakCode="V1":"Lijn 1",1:"Lijn 2&3")
+	Set Selector="S:"_$S(..SpoelbakCode="":0,1:1)_";B:"_..BreedteCode
+	Do ..CreateOneResource("LBX&TBX",Lijn,"Lade","LBX",Selector,,1)
 ]]></Implementation>
 </Method>
 
@@ -89,31 +95,72 @@
 	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:LBX;FT:"_..FrontCode)
+	Do ..CreateOneResource("LBX&TBX","Voormontage","Front","LBX","FT:"_..FrontCode)
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceSpoelbak">
 <Implementation><![CDATA[
 	Quit:'..SpoelbakCode
 	Quit:..SpeciaalCode'=""
-	Do ..CreateOneResource("LBX&TBX","Spoelbak","LBX","F:LBX;S:"_..SpoelbakCode,,(..AantalCode>5))
+	Do ..CreateOneResource("LBX&TBX","Spoelbak LBX&TBX","Lade","LBX","S:"_..SpoelbakCode,,(..ProductieOrderLijn.Aantal>5))
 ]]></Implementation>
 </Method>
 
+<Method name="CreateResourcePickingOnderdelen">
+<Implementation><![CDATA[
+	Quit:..SpeciaalCode'=""
+	Set Activiteit="ProBox"
+	Set:$D(^PRBS("BS",..PRNr,"V1 LADED.001")) Activiteit="V1" ; V1 doos
+	Do ..CreateOneResource("LBX&TBX","Onderdelen LBX&TBX",Activiteit,"LBX",)
+]]></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","LBX",)
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourceSnijdenHuls">
+<Implementation><![CDATA[
+	Quit:..SpeciaalCode'=""
+	Quit:'$D(^PRBS("BS",..PRNr,"V1 LOSSE.001")) ; geen LOS onderdelen doos
+	Quit:'..IsDoosLosseOnderdelenTeSnijden()
+	Do ..CreateOneResource("LBX&TBX","KartonSnijMachine","Huls","LBX",)
+]]></Implementation>
+</Method>
+
+<Method name="IsDoosLosseOnderdelenTeSnijden">
+<Implementation><![CDATA[
+	;w ##class(APPS.Halux.Planning.Resource.impl.ConvertLBX).IsDoosLosseOnderdelenTeSnijden(1928725)
+	Set ..Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(..PRNr)
+	Set ..HalffabItemsBoom = ..Product.GeefHalffabItemsBoom(##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing())
+	Set ..IngegevenKenmerken = ..Product.GeefProductSpecificatie().GeefIngegevenKenmerken()
+
+	Set DoosBerekenaar = ##class(APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar).%New(..HalffabItemsBoom, ..IngegevenKenmerken)
+	Set DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
+	
+	Quit $isObject(DoosLosseOnderdelen)
+]]></Implementation>
+</Method>
+
 <Method name="CreateResourceSpeciaal">
 <Implementation><![CDATA[
 	Quit:..SpeciaalCode=""
-	Do ..CreateOneResource("LBX&TBX","Special","LBX","X:"_..SpeciaalCode)
+	Do ..CreateOneResource("LBX&TBX","Special","X","LBX","X:"_..SpeciaalCode)
 ]]></Implementation>
 </Method>
 </Class>