Index: APPS/Halux/Planning/Resource/impl/ConvertDIV.cls.xml
===================================================================
diff -u -r57446 -r62511
--- APPS/Halux/Planning/Resource/impl/ConvertDIV.cls.xml	(.../ConvertDIV.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Resource/impl/ConvertDIV.cls.xml	(.../ConvertDIV.cls.xml)	(revision 62511)
@@ -3,42 +3,69 @@
 <Class name="APPS.Halux.Planning.Resource.impl.ConvertDIV">
 <Super>ConvertProductAbstract</Super>
 
-<Property name="ToepassingCode">
+<Property name="Productgroep">
 <Type>%String</Type>
 </Property>
 
 <Property name="Activiteit">
 <Type>%String</Type>
 </Property>
 
+<Property name="Selector">
+<Type>%String</Type>
+</Property>
+
+<Property name="Resource">
+<Type>%String</Type>
+</Property>
+
 <Method name="BuildResourceCodes">
 <Implementation><![CDATA[
+	
+	Set ..Productgroep="REST",..Resource="Ompak",..Activiteit="Rest",..Selector=""
+
 	Set KortTekst= $P(^KPR(..PRNr,0),"\")
-	Set ..ToepassingCode="Rest"
-	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)
+	Do ..BepaalDiverse(KortTekst,..ProductieOrderLijn.Aantal)
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalDiverse">
+<FormalSpec>KortTekst:%String,Aantal:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set (Resource,Activiteit,Productgroep,Selector)=""
+	&SQL( select Resource,Activiteit,Productgroep,Selector into :Resource,:Activiteit,:Productgroep,:Selector 
+		from APPS_Halux_Planning_Resource_dto.ResourceTijd 
+		where resourcegroep='DIV'
+			and left(:KortTekst,length(KortTekstMatch))=KortTekstMatch and isnull(MinAantal,0)<:Aantal
+		order by isnull(MinAantal,0) desc
+	)
+	
+	If $L(Resource),$L(Selector)
+	{
+		Set ..Resource=Resource
+		Set ..Activiteit=Activiteit
+		Set ..Productgroep=Productgroep
+		Set ..Selector=Selector
+	}
+]]></Implementation>
+</Method>
+
 <Method name="CreateResources">
 <Implementation><![CDATA[	Do ..CreateResource()
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResource">
 <Implementation><![CDATA[
-	;Quit:..MatCode=""
-	Do ..CreateOneResource("DIV","Div",..Activiteit,"","",,1)
+	If ..Productgroep="DEKPLAAT"
+	{
+		;Do ..CreateOneResource("DIV",..Resource,..Activiteit,..Productgroep,..Selector,,1)
+		Do ..CreateOneResource("MAT","Mat","Klantorder",..Productgroep,,,1)
+	}
+	Else
+	{
+		Do ..CreateOneResource("DIV",..Resource,..Activiteit,..Productgroep,..Selector,,1)
+	}
 ]]></Implementation>
 </Method>
 </Class>