Index: APPS/Halux/Planning/Resource/impl/ConvertDIV.cls.xml
===================================================================
diff -u -r57301 -r57446
--- APPS/Halux/Planning/Resource/impl/ConvertDIV.cls.xml	(.../ConvertDIV.cls.xml)	(revision 57301)
+++ APPS/Halux/Planning/Resource/impl/ConvertDIV.cls.xml	(.../ConvertDIV.cls.xml)	(revision 57446)
@@ -7,21 +7,25 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="Activiteit">
+<Type>%String</Type>
+</Property>
+
 <Method name="BuildResourceCodes">
 <Implementation><![CDATA[
 	Set KortTekst= $P(^KPR(..PRNr,0),"\")
 	Set ..ToepassingCode="Rest"
-	Set:$E(KortTekst,1,3)="INP" ..ToepassingCode="Ompak"
-	Set:$E(KortTekst,1,6)="INP.SD" ..ToepassingCode="SD"
-	Set:$E(KortTekst,1,3)="Z37" ..ToepassingCode="Z37"
-	Set:$E(KortTekst,1,3)="Z31" ..ToepassingCode="Inkorten"
-	Set:$E(KortTekst,1,3)="ZRG" ..ToepassingCode="Inkorten"
-	Set:$E(KortTekst,1,3)="ZW7" ..ToepassingCode="Front"
-	Set:$E(KortTekst,1,3)="ZR7" ..ToepassingCode="Inkorten"
-	Set:$E(KortTekst,1,3)="ZE7" ..ToepassingCode="Inkorten"
-	Set:$E(KortTekst,2,3)="20" ..ToepassingCode="Aventos"
-	Set:$E(KortTekst,1,3)="Z40" ..ToepassingCode="Inkorten"
-    Set:$E(KortTekst,1,3)="Z10" ..ToepassingCode="Ompak"
+	Set:$E(KortTekst,1,3)="INP" ..ToepassingCode="Ompak",..Activiteit="Ompak"
+	Set:$E(KortTekst,1,6)="INP.SD" ..ToepassingCode="SD",..Activiteit="Set"
+	Set:$E(KortTekst,1,3)="Z37" ..ToepassingCode="Ompak",..Activiteit="Set"
+	Set:$E(KortTekst,1,3)="Z31" ..ToepassingCode="Inkorten",..Activiteit="Inkorten"
+	Set:$E(KortTekst,1,3)="ZRG" ..ToepassingCode="Inkorten",..Activiteit="Inkorten"
+	Set:$E(KortTekst,1,3)="ZW7" ..ToepassingCode="Front",..Activiteit="Set"
+	Set:$E(KortTekst,1,3)="ZR7" ..ToepassingCode="Inkorten",..Activiteit="Inkorten"
+	Set:$E(KortTekst,1,3)="ZE7" ..ToepassingCode="Inkorten",..Activiteit="Inkorten"
+	Set:$E(KortTekst,2,3)="20" ..ToepassingCode="Aventos",..Activiteit="Set"
+	Set:$E(KortTekst,1,3)="Z40" ..ToepassingCode="Inkorten",..Activiteit="Inkorten"
+    Set:$E(KortTekst,1,3)="Z10" ..ToepassingCode="Ompak",..Activiteit="Ompak"
 	Set ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3)
 ]]></Implementation>
 </Method>
@@ -34,7 +38,7 @@
 <Method name="CreateResource">
 <Implementation><![CDATA[
 	;Quit:..MatCode=""
-	Do ..CreateOneResource("DIV","Div",..ToepassingCode,"")
+	Do ..CreateOneResource("DIV","Div",..Activiteit,"","",,1)
 ]]></Implementation>
 </Method>
 </Class>