Index: APPS/Halux/Planning/Resource/impl/ConvertTAX.cls.xml
===================================================================
diff -u -r57301 -r57446
--- APPS/Halux/Planning/Resource/impl/ConvertTAX.cls.xml	(.../ConvertTAX.cls.xml)	(revision 57301)
+++ APPS/Halux/Planning/Resource/impl/ConvertTAX.cls.xml	(.../ConvertTAX.cls.xml)	(revision 57446)
@@ -9,30 +9,35 @@
 
 <Method name="BuildResourceCodes">
 <Implementation><![CDATA[
-	Set ..IngegevenKenmerken.Internebreedte=..IngegevenKenmerken.CorpusBreedte-(2*..IngegevenKenmerken.CorpusWandDikte)
+	;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 ..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 ..AXKenmerken.Internebreedte=..AXKenmerken.CorpusBreedte-(2*..AXKenmerken.CorpusWandDikte)
 
-	Set ..FrontCode=$zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE"
-	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=$zcvt(..AXKenmerken.IsBinnenlade,"U")="TRUE"
+	Set ..MatCode=..AXKenmerken.MatMateriaal
+	Set ..VerpakCode=..AXKenmerken.VerpakkingType
 	Set ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3)
 	;
-	Set ..LogoCode=..IngegevenKenmerken.Zijkantlogoid'=""
+	Set ..LogoCode=..AXKenmerken.Zijkantlogoid'=""
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResources">
 <Implementation><![CDATA[
-	If $isObject(..IngegevenKenmerken)&&(..IngegevenKenmerken.Internebreedte>50)
+	If $isObject(..AXKenmerken)&&(..AXKenmerken.Internebreedte>50)
 	{
 		Do ..CreateResourceHoofdlijn()
 		Do ..CreateResourceMat()
 		Do ..CreateResourceLaserLogo()
 		Do ..CreateResourceSpoelbak()
 		Do ..CreateInkorten()
+		Do ..CreateResourcePickingOnderdelen()
 	}
 	Else
 	{
@@ -49,57 +54,67 @@
 		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","TAX","INK:TIPON")	
 		}
 	}
 	
 	If $D(^PRBS("BS",..PRNr,"PRTOSTANG.001")) ; OLD TIPON syncstang
 	{
-		Do ..CreateOneResource("LBX&TBX","Voormontage","TipOn ALU","INK:TIPON ALU")	
+		Do ..CreateOneResource("LBX&TBX","Voormontage","Syncro","TAX","INK:TIPON ALU")	
 	}
 	
 	If $D(^PRBS("BS",..PRNr,"ZIJSTABI.001"))
 	{
-		Do ..CreateOneResource("LBX&TBX","Voormontage","ZijStab","INK:ZIJSTAB")	
+		Do ..CreateOneResource("LBX&TBX","Voormontage","ZijStab","TAX","INK:ZIJSTAB")	
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceHoofdlijn">
-<Implementation><![CDATA[	Do ..CreateOneResource("TAX","Tax","TAX","")
+<Implementation><![CDATA[	Do ..CreateOneResource("TAX","Prod TAX","Lade","TAX","",,1)
 ]]></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("TAX","Onderdelen TAX",Activiteit,"TAX",)
+]]></Implementation>
+</Method>
+
 <Method name="CreateResourceMat">
 <Implementation><![CDATA[
 	Quit:..MatCode=""
 	
 	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="CreateResourceLaserLogo">
 <Implementation><![CDATA[
 	Quit:'..LogoCode
-	Do ..CreateOneResource("TAX","LaserLogo","TAX","")
+	Do ..CreateOneResource("TAX","LaserLogo","Zijkant","TAX","")
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceSpoelbak">
 <Implementation><![CDATA[
 	Quit:'..SpoelbakCode
-	Do ..CreateOneResource("TAX","Spoelbak","TAX","S:"_..SpoelbakCode)
+	Do ..CreateOneResource("TAX","Spoelbak TAX","Lade","TAX","S:"_..SpoelbakCode)
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceSpeciaal">
 <Implementation><![CDATA[
 	Quit:..SpeciaalCode=""
-	Do ..CreateOneResource("TAX","Special","X:"_..SpeciaalCode)
+	Do ..CreateOneResource("TAX","Special","x","TAX","X:"_..SpeciaalCode)
 ]]></Implementation>
 </Method>
 </Class>