Index: APPS/Halux/Component/impl/ConvertProductAbstract.cls.xml
===================================================================
diff -u -r57128 -r57547
--- APPS/Halux/Component/impl/ConvertProductAbstract.cls.xml	(.../ConvertProductAbstract.cls.xml)	(revision 57128)
+++ APPS/Halux/Component/impl/ConvertProductAbstract.cls.xml	(.../ConvertProductAbstract.cls.xml)	(revision 57547)
@@ -1,8 +1,33 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.Component.impl.ConvertProductAbstract">
+<IncludeCode>Prod.Product</IncludeCode>
 <Super>%RegisteredObject</Super>
 
+<Property name="MProduct">
+<Type>Prod.Product</Type>
+</Property>
+
+<Property name="MPRNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="MoederAantal">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="Familie">
+<Type>%String</Type>
+</Property>
+
+<Property name="DueOut">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="FabKey">
+<Type>%String</Type>
+</Property>
+
 <Property name="BreedteCode">
 <Type>%Decimal</Type>
 </Property>
@@ -47,28 +72,39 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="PRNr">
+<Property name="IngegevenKenmerken">
+<Type>AXimpl.PM.Kenmerk.Kenmerken</Type>
+</Property>
+
+<Property name="ComponentTransfer">
+<Type>APPS.Halux.Component.impl.Transfer</Type>
+</Property>
+
+<Property name="BSRec">
 <Type>%String</Type>
 </Property>
 
-<Property name="ProductieOrderLijn">
-<Type>Flow.Toelev.Lijn</Type>
+<Property name="BSDimRec">
+<Type>%String</Type>
 </Property>
 
-<Property name="IngegevenKenmerken">
-<Type>AXimpl.PM.Kenmerk.Kenmerken</Type>
+<Property name="BSKey">
+<Type>%String</Type>
 </Property>
 
-<Property name="ResourceLijn">
-<Type>APPS.Halux.Planning.Resource.impl.ResourceLijn</Type>
+<Property name="TransferTo">
+<Type>%String</Type>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>lbMoederLijn:%List</FormalSpec>
+<FormalSpec>MProduct:Prod.Product,Aantal:%Decimal,DueOut:%TimeStamp,FabKey:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..ProductieOrderLijn=ProductieOrderLijn
-	Set ..PRNr=ProductieOrderLijn.ProductGetObjectId()
+	Set ..MProduct=MProduct
+	Set ..MPRNr=..MProduct.%Id()
+	Set ..MoederAantal=Aantal
+	Set ..DueOut=DueOut
+	Set ..FabKey=FabKey
 	Do ..OphalenIngegevenKenmerken()
 	;d:..PRNr=2223146 DumpObject^%apiOBJ(..IngegevenKenmerken)
 	Do ..BuildResourceCodes()
@@ -82,11 +118,11 @@
 	#Dim PRNr, AxProductID as %String
 	
 	Set ..IngegevenKenmerken=""
-	If '##class(AXimpl.PM.Kenmerk.Kenmerken).%ExistsId(..PRNr)
+	If '##class(AXimpl.PM.Kenmerk.Kenmerken).%ExistsId(..MPRNr)
 	{
-		Do ##class(AXimpl.PM.Kenmerk.ConvertAll).%New().ConverteerOne(..PRNr)
+		Do ##class(AXimpl.PM.Kenmerk.ConvertAll).%New().ConverteerOne(..MPRNr)
 	}
-	Set ..IngegevenKenmerken=##class(AXimpl.PM.Kenmerk.Kenmerken).%OpenId(..PRNr)
+	Set ..IngegevenKenmerken=##class(AXimpl.PM.Kenmerk.Kenmerken).%OpenId(..MPRNr)
 ]]></Implementation>
 </Method>
 
@@ -95,10 +131,8 @@
 </Method>
 
 <Method name="Converteer">
-<FormalSpec>ProductieOrderLijn:Flow.Toelev.Lijn</FormalSpec>
 <Implementation><![CDATA[
 	;w ..PRNr," ", $P(^KPR(..PRNr,0),"\"),!
-	Do ..DeleteExisting()
 	Do ..CreateResources()
 ]]></Implementation>
 </Method>
@@ -113,56 +147,79 @@
 </Method>
 
 <Method name="CreateResources">
+<Implementation><![CDATA[
+	Set ..BSKey=$O(^PRBS("BS",..MPRNr,""))
+	While ..BSKey'=""
+	{
+		Set ..BSRec=^PRBS("BS",..MPRNr,..BSKey)
+		If $P(..BSRec,"\",1),($P(..BSRec,"\",3)="H"),$P(..BSRec,"\",2)
+		{
+			Do ..SelectTransfer()
+			Do ..CreateOneResource()
+		}
+		Set ..BSKey=$O(^PRBS("BS",..MPRNr,..BSKey))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="SelectTransfer">
 <Abstract>1</Abstract>
 </Method>
 
 <Method name="CreateOneResource">
-<FormalSpec>Hoofdgroep:%String,Groep:%String,Selector:%String,Lijn:%String=""</FormalSpec>
 <Implementation><![CDATA[
-	Do ..InitResourceContext()
+	Do ..InitContext()
 	
-	Do ..CopyResourceCodes()
+	Do ..VulAanCodes()
+	Do ..VulAanBouwsteen()
 	
-	Set ..ResourceLijn.Hoofdgroep=Hoofdgroep
-	Set ..ResourceLijn.Groep=Groep
-	Set ..ResourceLijn.Selector=Selector
-	Set ..ResourceLijn.Lijn=Lijn
-	
-	Do ..ResourceLijn.%Save()
+	Do ..ComponentTransfer.Save()
 	;Write "  ",Hoofdgroep, " ",Groep, " ",Selector,!
 	;Do DumpObject^%apiOBJ(..ResourceLijn)
 ]]></Implementation>
 </Method>
 
-<Method name="CreateResourceZonderKenmerk">
-<FormalSpec>ToepassingCode:%String</FormalSpec>
-<Implementation><![CDATA[		Do ..CreateOneResource("DIV",ToepassingCode,"")
+<Method name="InitContext">
+<Implementation><![CDATA[
+	Set ..ComponentTransfer=##class(APPS.Halux.Component.impl.Transfer).%New()
+	Set ..ComponentTransfer.MoederProduct=..MProduct
+	Set ..ComponentTransfer.Familie=..Familie
+	Set ..ComponentTransfer.MoederAantal=..MoederAantal
+	;Set ..ComponentTransfer.DueOut=
+	;Set ..ComponentTransfer.FabKey=..FabKey
+	Set ..ComponentTransfer.CreatieTijdstip=$zdt($H,3)
 ]]></Implementation>
 </Method>
 
-<Method name="InitResourceContext">
+<Method name="VulAanCodes">
 <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)
+	Set ..ComponentTransfer.SpoelbakCode=..SpoelbakCode
+	Set ..ComponentTransfer.FrontCode=..FrontCode
+	Set ..ComponentTransfer.VerpakCode=..VerpakCode
+	Set ..ComponentTransfer.SpeciaalCode=..SpeciaalCode
 ]]></Implementation>
 </Method>
 
-<Method name="CopyResourceCodes">
+<Method name="VulAanBouwsteen">
 <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
+	Set ..BSDimRec=$G(^PRBS("BS",..MProduct.%Id(), ..BSKey,"D"))
+	Set ..ComponentTransfer.BSKey=$P(..BSKey,".")
+	
+	Do ..ComponentTransfer.KindProductSetObjectId($P(..BSRec,"\",1))
+	Set ..ComponentTransfer.KindAantal=$P(..BSRec,"\",2)
+	Set NettoGrootte=$$$ProductGet($P(..BSRec,"\",1),$$$WerkvloerGrootteNetto)
+	If NettoGrootte && $P(..BSDimRec,"\",1)
+	{
+		Set ..ComponentTransfer.DimensieMetUitval=$P(..BSDimRec,"\",3)/NettoGrootte
+		Set ..ComponentTransfer.DimensieNetto=$P(..BSDimRec,"\",1)/NettoGrootte
+		Set ..ComponentTransfer.BenodigdAantal=..ComponentTransfer.KindAantal*..ComponentTransfer.DimensieMetUitval
+	}
+	else
+	{
+		Set ..ComponentTransfer.BenodigdAantal=..ComponentTransfer.KindAantal
+	}
+	
+	Set ..ComponentTransfer.TransferTo=..TransferTo
 ]]></Implementation>
 </Method>
 </Class>