Index: APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml	(revision 56901)
@@ -0,0 +1,171 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Resource.impl.ConvertProductAbstract">
+<Super>%RegisteredObject</Super>
+
+<Property name="BreedteCode">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="DiepteCode">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="HoogteCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="FrontCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="VerpakCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="MatCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="DwarsCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="DiversCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="SpeciaalCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="SpoelbakCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="AantalCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="PRNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductieOrderLijn">
+<Type>Flow.Toelev.Lijn</Type>
+</Property>
+
+<Property name="IngegevenKenmerken">
+<Type>AXimpl.PM.Kenmerk.Kenmerken</Type>
+</Property>
+
+<Property name="ResourceLijn">
+<Type>APPS.Halux.Planning.Resource.impl.ResourceLijn</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductieOrderLijn:Flow.Toelev.Lijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ProductieOrderLijn=ProductieOrderLijn
+	Set ..PRNr=ProductieOrderLijn.ProductGetObjectId()
+	Do ..OphalenIngegevenKenmerken()
+	;d:..PRNr=2223146 DumpObject^%apiOBJ(..IngegevenKenmerken)
+	Do ..BuildResourceCodes()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OphalenIngegevenKenmerken">
+<Implementation><![CDATA[
+	#Dim PRNr, AxProductID as %String
+	
+	Set ..IngegevenKenmerken=""
+	If '##class(AXimpl.PM.Kenmerk.Kenmerken).%ExistsId(..PRNr)
+	{
+		Do ##class(AXimpl.PM.Kenmerk.ConvertAll).%New().ConverteerOne(..PRNr)
+	}
+	Set ..IngegevenKenmerken=##class(AXimpl.PM.Kenmerk.Kenmerken).%OpenId(..PRNr)
+]]></Implementation>
+</Method>
+
+<Method name="Show">
+<FormalSpec>PRNr</FormalSpec>
+</Method>
+
+<Method name="Converteer">
+<FormalSpec>ProductieOrderLijn:Flow.Toelev.Lijn</FormalSpec>
+<Implementation><![CDATA[
+	;w ..PRNr," ", $P(^KPR(..PRNr,0),"\"),!
+	Do ..DeleteExisting()
+	Do ..CreateResources()
+]]></Implementation>
+</Method>
+
+<Method name="DeleteExisting">
+<Implementation><![CDATA[	;todo   Do ##class(Kenmerken).%DeleteId(..PRNr)
+]]></Implementation>
+</Method>
+
+<Method name="BuildResourceCodes">
+<Abstract>1</Abstract>
+</Method>
+
+<Method name="CreateResources">
+<Abstract>1</Abstract>
+</Method>
+
+<Method name="CreateOneResource">
+<FormalSpec>Hoofdgroep:%String,Groep:%String,Selector:%String,Lijn:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	Do ..InitResourceContext()
+	
+	Do ..CopyResourceCodes()
+	
+	Set ..ResourceLijn.Hoofdgroep=Hoofdgroep
+	Set ..ResourceLijn.Groep=Groep
+	Set ..ResourceLijn.Selector=Selector
+	Set ..ResourceLijn.Lijn=Lijn
+	
+	Do ..ResourceLijn.%Save()
+	;Write "  ",Hoofdgroep, " ",Groep, " ",Selector,!
+	;Do DumpObject^%apiOBJ(..ResourceLijn)
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourceZonderKenmerk">
+<FormalSpec>ToepassingCode:%String</FormalSpec>
+<Implementation><![CDATA[		Do ..CreateOneResource("DIV",ToepassingCode,"")
+]]></Implementation>
+</Method>
+
+<Method name="InitResourceContext">
+<Implementation><![CDATA[
+	Set ..ResourceLijn=##class(APPS.Halux.Planning.Resource.impl.ResourceLijn).%New()
+	Set ..ResourceLijn.Product=..ProductieOrderLijn.Product
+	Set ..ResourceLijn.AxInventTransId=..ProductieOrderLijn.AxInventTransId
+	Set ..ResourceLijn.AxConfigId=..ProductieOrderLijn.AxConfigId
+	Set ..ResourceLijn.AxMaatwerkGenerischItemId=..ProductieOrderLijn.AxMaatwerkGenerischItemId
+	Set ..ResourceLijn.ToeleveringNr=..ProductieOrderLijn.ToeleveringNr
+	Set ..ResourceLijn.UniekLijnNr=..ProductieOrderLijn.UniekLijnNr\100*100
+	Set ..ResourceLijn.Klant=..ProductieOrderLijn.Toelevering.Klant
+	Set ..ResourceLijn.CreatieTijdstip=$zdt($H,3)
+]]></Implementation>
+</Method>
+
+<Method name="CopyResourceCodes">
+<Implementation><![CDATA[
+	Set ..ResourceLijn.BreedteCode=..BreedteCode
+	Set ..ResourceLijn.DiepteCode=..DiepteCode
+	Set ..ResourceLijn.SpoelbakCode=..SpoelbakCode
+	Set ..ResourceLijn.FrontCode=..FrontCode
+	Set ..ResourceLijn.MatCode=..MatCode
+	Set ..ResourceLijn.VerpakCode=..VerpakCode
+	Set ..ResourceLijn.AantalCode=..AantalCode
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Resource/impl/ResourceLijn.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Resource/impl/ResourceLijn.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Resource/impl/ResourceLijn.cls.xml	(revision 56901)
@@ -0,0 +1,215 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Resource.impl.ResourceLijn">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Persistent</Super>
+
+<Property name="AxInventTransId">
+<Type>%String</Type>
+</Property>
+
+<Property name="AxConfigId">
+<Type>%String</Type>
+</Property>
+
+<Property name="AxMaatwerkGenerischItemId">
+<Type>%String</Type>
+</Property>
+
+<Property name="Klant">
+<Type>Derde.Klant.Klant</Type>
+</Property>
+
+<Property name="ToeleveringNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="UniekLijnNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="Product">
+<Type>Prod.Product</Type>
+</Property>
+
+<Property name="Hoofdgroep">
+<Type>%String</Type>
+</Property>
+
+<Property name="Groep">
+<Type>%String</Type>
+</Property>
+
+<Property name="Selector">
+<Type>%String</Type>
+</Property>
+
+<Property name="Lijn">
+<Type>%String</Type>
+</Property>
+
+<Property name="BreedteCode">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="DiepteCode">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="HoogteCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="AantalCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="FrontCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="VerpakCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="MatCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="DwarsVerdeling">
+<Type>%String</Type>
+</Property>
+
+<Property name="DwarsStabilisator">
+<Type>%String</Type>
+</Property>
+
+<Property name="DiverseCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="SpeciaalCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="SpoelbakCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="CreatieTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Index name="iToelev">
+<Properties>ToeleveringNr,UniekLijnNr</Properties>
+</Index>
+
+<Index name="iProduct">
+<Properties>Product</Properties>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.Halux.PlCE5B.ResourceLijnD</DataLocation>
+<DefaultData>ResourceLijnDefaultData</DefaultData>
+<IdLocation>^APPS.Halux.PlCE5B.ResourceLijnD</IdLocation>
+<IndexLocation>^APPS.Halux.PlCE5B.ResourceLijnI</IndexLocation>
+<StreamLocation>^APPS.Halux.PlCE5B.ResourceLijnS</StreamLocation>
+<Data name="ResourceLijnDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>AxInventTransId</Value>
+</Value>
+<Value name="3">
+<Value>AxConfigId</Value>
+</Value>
+<Value name="4">
+<Value>AxMaatwerkGenerischItemId</Value>
+</Value>
+<Value name="5">
+<Value>Hoofdgroep</Value>
+</Value>
+<Value name="6">
+<Value>Groep</Value>
+</Value>
+<Value name="7">
+<Value>Selector</Value>
+</Value>
+<Value name="8">
+<Value>Breedte</Value>
+</Value>
+<Value name="9">
+<Value>Diepte</Value>
+</Value>
+<Value name="10">
+<Value>HoogteCode</Value>
+</Value>
+<Value name="11">
+<Value>FrontCode</Value>
+</Value>
+<Value name="12">
+<Value>VerpakCode</Value>
+</Value>
+<Value name="13">
+<Value>MatCode</Value>
+</Value>
+<Value name="14">
+<Value>DwarsVerdeling</Value>
+</Value>
+<Value name="15">
+<Value>DwarsStabilisator</Value>
+</Value>
+<Value name="16">
+<Value>Diverse</Value>
+</Value>
+<Value name="17">
+<Value>Speciaal</Value>
+</Value>
+<Value name="18">
+<Value>Spoelbak</Value>
+</Value>
+<Value name="19">
+<Value>CreatieTijdstip</Value>
+</Value>
+<Value name="20">
+<Value>BreedteCode</Value>
+</Value>
+<Value name="21">
+<Value>DiepteCode</Value>
+</Value>
+<Value name="22">
+<Value>AantalCode</Value>
+</Value>
+<Value name="23">
+<Value>DiverseCode</Value>
+</Value>
+<Value name="24">
+<Value>SpeciaalCode</Value>
+</Value>
+<Value name="25">
+<Value>SpoelbakCode</Value>
+</Value>
+<Value name="26">
+<Value>ToeleveringNr</Value>
+</Value>
+<Value name="27">
+<Value>UniekLijnNr</Value>
+</Value>
+<Value name="28">
+<Value>Product</Value>
+</Value>
+<Value name="29">
+<Value>Lijn</Value>
+</Value>
+<Value name="30">
+<Value>Klant</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Resource/impl/ConvertTAX.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Resource/impl/ConvertTAX.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Resource/impl/ConvertTAX.cls.xml	(revision 56901)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Resource.impl.ConvertTAX">
+<Super>ConvertProductAbstract</Super>
+
+<Property name="LogoCode">
+<Type>%String</Type>
+</Property>
+
+<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(..IngegevenKenmerken.Toepassing="L":"",$zcvt(..IngegevenKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1)
+	Set ..FrontCode=$zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE"
+	Set ..MatCode=..IngegevenKenmerken.MatMateriaal
+	Set ..VerpakCode=..IngegevenKenmerken.VerpakkingType
+	Set ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3)
+	;
+	Set ..LogoCode=..IngegevenKenmerken.Zijkantlogoid'=""
+]]></Implementation>
+</Method>
+
+<Method name="CreateResources">
+<Implementation><![CDATA[
+	Do ..CreateResourceHoofdlijn()
+	Do ..CreateResourceMat()
+	Do ..CreateResourceLaserLogo()
+	Do ..CreateResourceSpoelbak()
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourceHoofdlijn">
+<Implementation><![CDATA[	Do ..CreateOneResource("TAX","Lijn","")
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourceMat">
+<Implementation><![CDATA[
+	Quit:..MatCode=""
+	Do ..CreateOneResource("ASM","Mat","")
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourceLaserLogo">
+<Implementation><![CDATA[
+	Quit:'..LogoCode
+	Do ..CreateOneResource("TAX","LaserLogo","")
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourceSpoelbak">
+<Implementation><![CDATA[
+	Quit:'..SpoelbakCode
+	Do ..CreateOneResource("TAX","Spoelbak","S:"_..SpoelbakCode)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Resource/impl/ConvertDIV.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Resource/impl/ConvertDIV.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Resource/impl/ConvertDIV.cls.xml	(revision 56901)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Resource.impl.ConvertDIV">
+<Super>ConvertProductAbstract</Super>
+
+<Property name="ToepassingCode">
+<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 ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3)
+]]></Implementation>
+</Method>
+
+<Method name="CreateResources">
+<Implementation><![CDATA[	Do ..CreateResource()
+]]></Implementation>
+</Method>
+
+<Method name="CreateResource">
+<Implementation><![CDATA[
+	;Quit:..MatCode=""
+	Do ..CreateOneResource("DIV",..ToepassingCode,"")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Resource/impl/ProductieOrderIterator.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Resource/impl/ProductieOrderIterator.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Resource/impl/ProductieOrderIterator.cls.xml	(revision 56901)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Resource.impl.ProductieOrderIterator">
+<IncludeCode>BL.Derde.LevSpecifiek</IncludeCode>
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ..VoerUitQuery(.VanafDatum)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<FormalSpec>VanafDatum:%Date=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	
+	Set SqlStatement = "SELECT " 
+ 	_"  ID"
+ 	_"  From Flow_Toelev.Lijn"
+ 	_"  Where leverancier="_$$$LevHalux
+	Set ..ResultSet =##class(%ResultSet).%New("%DynamicQuery:SQL")
+ 	#dim stPrepared As %Status = ..ResultSet.Prepare(SqlStatement)
+ 	Set stPrepared = ..ResultSet.Execute()
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..ResultSet.Next() > 0)
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>Flow.Toelev.Lijn</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductieOrderLijn as Flow.Toelev.Lijn
+	Set ID=..ResultSet.Data("ID")
+	Set ProductieOrderLijn=##class(Flow.Toelev.Lijn).%OpenId(ID)
+ 	Quit ProductieOrderLijn
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml	(revision 56901)
@@ -0,0 +1,91 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Resource.impl.ConvertLBX">
+<Super>ConvertProductAbstract</Super>
+
+<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 ..FrontCode=$zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE"
+	Set ..MatCode=..IngegevenKenmerken.MatMateriaal
+	Set ..VerpakCode=..IngegevenKenmerken.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="V" ..SpeciaalCode=""
+	If ((..IngegevenKenmerken.Internebreedte<79)||(..IngegevenKenmerken.Internebreedte>1600)) && (..IngegevenKenmerken.VerpakkingType="V1")
+	{
+		Set ..SpeciaalCode="BREEDTE"
+	}
+	If ((..IngegevenKenmerken.Internebreedte<165)||(..IngegevenKenmerken.Internebreedte>1500)) && (..IngegevenKenmerken.VerpakkingType'="V1")
+	{
+		Set ..SpeciaalCode="BREEDTE"
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CreateResources">
+<Implementation><![CDATA[
+	If $isObject(..IngegevenKenmerken)&&(..IngegevenKenmerken.Internebreedte>50)
+	{
+		Do ..CreateResourceHoofdlijn()
+		Do ..CreateResourceMat()
+		Do ..CreateResourceVoormontage()
+		Do ..CreateResourceSpoelbak()
+		Do ..CreateResourceSpeciaal()
+	}
+	Else
+	{	Set ..SpeciaalCode="ZNDR KENMERK"
+		Do ..CreateResourceSpeciaal()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourceHoofdlijn">
+<Implementation><![CDATA[
+	Quit:..SpoelbakCode&&(..AantalCode>5)
+	Quit:..SpeciaalCode'=""
+
+	Set Lijn=$S(..VerpakCode="V1":"L1",1:"L2&3")
+	Do ..CreateOneResource("LBX&TBX",Lijn,"F:LBX;S:"_..SpoelbakCode_";B:"_..BreedteCode)
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourceMat">
+<Implementation><![CDATA[
+	Quit:..MatCode=""
+	Quit:..SpeciaalCode'=""
+	Do ..CreateOneResource("ASM","Mat","")
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourceVoormontage">
+<Implementation><![CDATA[
+	Quit:'..FrontCode
+	Quit:..SpeciaalCode'="F"
+	Do ..CreateOneResource("LBX&TBX","Voormontage","")
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourceSpoelbak">
+<Implementation><![CDATA[
+	Quit:'..SpoelbakCode
+	Quit:..SpeciaalCode'=""
+	Do ..CreateOneResource("LBX&TBX","Spoelbak","S:"_..SpoelbakCode)
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourceSpeciaal">
+<Implementation><![CDATA[
+	Quit:..SpeciaalCode=""
+	Do ..CreateOneResource("LBX&TBX","Special","X:"_..SpeciaalCode)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Resource/impl/ConvertKAD.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Resource/impl/ConvertKAD.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Resource/impl/ConvertKAD.cls.xml	(revision 56901)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Resource.impl.ConvertKAD">
+<Super>ConvertProductAbstract</Super>
+
+<Property name="ToepassingCode">
+<Type>%String</Type>
+</Property>
+
+<Method name="BuildResourceCodes">
+<Implementation><![CDATA[
+	Set ..ToepassingCode=$P($$GENTYP^HAD(..PRNr),"\",2)
+	Set ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3)
+]]></Implementation>
+</Method>
+
+<Method name="CreateResources">
+<Implementation><![CDATA[	Do ..CreateResourceLijn()
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourceLijn">
+<Implementation><![CDATA[	Do ..CreateOneResource("KAD","Lijn",..ToepassingCode)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Resource/impl/ConvertASM.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Resource/impl/ConvertASM.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Resource/impl/ConvertASM.cls.xml	(revision 56901)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Resource.impl.ConvertASM">
+<Super>ConvertProductAbstract</Super>
+
+<Method name="BuildResourceCodes">
+<Implementation><![CDATA[	Set ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3)
+]]></Implementation>
+</Method>
+
+<Method name="CreateResources">
+<Implementation><![CDATA[	Do ..CreateResourceMat()
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourceMat">
+<Implementation><![CDATA[
+	;Quit:..MatCode=""
+	Do ..CreateOneResource("ASM","Mat","")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml	(revision 56901)
@@ -0,0 +1,95 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Resource.impl.ConvertTBX">
+<Super>ConvertProductAbstract</Super>
+
+<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=$zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE"
+	Set ..MatCode=..IngegevenKenmerken.MatMateriaal
+	Set ..VerpakCode=..IngegevenKenmerken.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")
+	{
+		Set ..SpeciaalCode="BREEDTE"
+	}
+	If ((..IngegevenKenmerken.Internebreedte<165)||(..IngegevenKenmerken.Internebreedte>1500)) && (..IngegevenKenmerken.VerpakkingType'="V1")
+	{
+		Set ..SpeciaalCode="BREEDTE"
+	}
+	If $isObject(..ProductieOrderLijn.Toelevering.Klant) && (..ProductieOrderLijn.Toelevering.Klant.%Id()=9197) ;$$$KlantDibo
+	{ 
+		Set:$D(^PRBS("IP",1155091,..PRNr)) ..SpeciaalCode="DIBO" ; component SLFXB40C588B-ROUND   BZDG
+		Set:$D(^PRBS("IP",1155092,..PRNr)) ..SpeciaalCode="DIBO" ; component SLFXB40R588B-LEFT    BZDG
+		Set:$D(^PRBS("IP",1155093,..PRNr)) ..SpeciaalCode="DIBO" ; component SLFXB40R588B-RIGHT   BZDG
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CreateResources">
+<Implementation><![CDATA[
+	If $isObject(..IngegevenKenmerken)&&(..IngegevenKenmerken.Internebreedte>50)
+	{
+		Do ..CreateResourceHoofdlijn()
+		Do ..CreateResourceMat()
+		Do ..CreateResourceVoormontage()
+		Do ..CreateResourceSpoelbak()
+		Do ..CreateResourceSpeciaal()
+	}
+	Else
+	{	Set ..SpeciaalCode="ZNDR KENMERK"
+		Do ..CreateResourceSpeciaal()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourceHoofdlijn">
+<Implementation><![CDATA[
+	Quit:..SpoelbakCode&&(..AantalCode>5)
+	Quit:..SpeciaalCode'=""
+	Set Lijn=$S(..VerpakCode="V1":"L1",1:"L4")
+	Do ..CreateOneResource("LBX&TBX",Lijn,"F:TBX;S:"_$S(..SpoelbakCode:1,1:0)_";B:"_..BreedteCode)
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourceMat">
+<Implementation><![CDATA[
+	Quit:..MatCode=""
+	Quit:..SpeciaalCode'=""
+	Do ..CreateOneResource("ASM","Mat","")
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourceVoormontage">
+<Implementation><![CDATA[
+	Quit:'..FrontCode
+	Quit:..SpeciaalCode'="F"
+	Do ..CreateOneResource("LBX&TBX","Voormontage","")
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourceSpoelbak">
+<Implementation><![CDATA[
+	Quit:'..SpoelbakCode
+	Quit:..SpeciaalCode'=""
+	Do ..CreateOneResource("LBX&TBX","Spoelbak","S:"_..SpoelbakCode)
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourceSpeciaal">
+<Implementation><![CDATA[
+	Quit:..SpeciaalCode=""
+	Do ..CreateOneResource("LBX&TBX","Special","X:"_..SpeciaalCode)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml	(revision 56901)
@@ -0,0 +1,140 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Resource.impl.ConvertAll">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductieOrderLijn">
+<Type>Flow.Toelev.Lijn</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="itProductieOrder">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="UpdateOnly">
+<Type>%Boolean</Type>
+<InitialExpression>1</InitialExpression>
+</Property>
+
+<Property name="Cnt">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="VerwijderAlles">
+<Description>
+D ##class(APPS.Halux.Planning.Resource.impl.ConvertAll).%New().Verwerk()
+D ##class(APPS.Halux.Planning.Resource.impl.ConvertAll).VerwijderAlles()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(ResourceLijn).%KillExtent()
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>UpdateOnly:%Boolean=1</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..UpdateOnly=UpdateOnly
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<Implementation><![CDATA[
+	;Do ..VerwijderAlles()
+	Set ..itProductieOrder=##class(ProductieOrderIterator).%New()
+	
+	#dim PRNr as %String
+	
+	While ..itProductieOrder.HasNext()
+	{
+		Set ..ProductieOrderLijn=..itProductieOrder.Next()
+		If $isObject(..ProductieOrderLijn)
+		{
+			If '..UpdateOnly||'..ResourceAlreadyExist()
+			{
+				Do ..DeleteResource()
+				Do ..ConverteerOne()
+			}
+		}
+		;Quit:..Cnt>10000
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ResourceAlreadyExist">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#Dim PRNr, AxProductID as %String
+	Set TOENr=..ProductieOrderLijn.ToeleveringNr
+	Set TLUNr=..ProductieOrderLijn.UniekLijnNr\100*100
+	Set ResourceID=""
+	&SQL(select top 1 ID into :ResourceID from APPS_Halux_Planning_Resource_impl.ResourceLijn where ToeleveringNr=:TOENr and UniekLijnNr=:TLUNr)
+	Quit $L(ResourceID)
+]]></Implementation>
+</Method>
+
+<Method name="DeleteResource">
+<Implementation><![CDATA[
+	#Dim PRNr, AxProductID as %String
+	Set TOENr=..ProductieOrderLijn.ToeleveringNr
+	Set TLUNr=..ProductieOrderLijn.UniekLijnNr\100*100
+	Set ResourceID=""
+	&sql(DECLARE DELRES CURSOR FOR
+		select ID into :ResourceID from APPS_Halux_Planning_Resource_impl.ResourceLijn where ToeleveringNr=:TOENr and UniekLijnNr=:TLUNr)
+   	&sql(OPEN DELRES)
+   	   	
+ 	For  &sql(FETCH DELRES) Quit:SQLCODE  Do  
+	. Do ##class(APPS.Halux.Planning.Resource.impl.ResourceLijn).%DeleteId(ResourceID)
+ 	&sql(CLOSE DELRES)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerOne">
+<Implementation><![CDATA[
+		#Dim PRNr,GenTyp,GenTyp2 as %String
+		Set PRNr=..ProductieOrderLijn.ProductGetObjectId()
+		Quit:'PRNr
+		Set GenTyp=$P($$GENTYP^HAD(PRNr),"\")
+		Set GenTyp2=$P($$GENTYP^HAD(PRNr),"\",1,2)
+			;quit:'("DIV"[GenTyp&&(GenTyp2=""))
+		Set ..Cnt=..Cnt+1
+		If GenTyp="TBX"
+		{   
+			Do ##class(ConvertTBX).%New(..ProductieOrderLijn).Converteer()
+		}
+		ElseIf GenTyp="LBX"
+		{	
+			Do ##class(ConvertLBX).%New(..ProductieOrderLijn).Converteer()
+		}
+		ElseIf GenTyp="TAO"
+		{
+			Do ##class(ConvertTAX).%New(..ProductieOrderLijn).Converteer()
+		}
+		ElseIf (GenTyp="KAD")||(GenTyp="PRF")||(GenTyp="GLA")
+		{
+			Do ##class(ConvertKAD).%New(..ProductieOrderLijn).Converteer()
+		}
+		ElseIf GenTyp2="DIV\ASM"
+		{
+			Do ##class(ConvertASM).%New(..ProductieOrderLijn).Converteer()
+		}
+		ElseIf GenTyp="DIV\ZSN"
+		{
+			Do ##class(ConvertDIV).%New(..ProductieOrderLijn).Converteer()
+		}
+		ElseIf GenTyp="DIV"
+		{
+			Do ##class(ConvertDIV).%New(..ProductieOrderLijn).Converteer()
+		}
+		Else
+		{
+			Do ##class(ConvertDIV).%New(..ProductieOrderLijn).Converteer()
+		}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>