Index: APPS/Halux/Component/impl/ConvertOneProduct.cls.xml
===================================================================
diff -u
--- APPS/Halux/Component/impl/ConvertOneProduct.cls.xml	(revision 0)
+++ APPS/Halux/Component/impl/ConvertOneProduct.cls.xml	(revision 57547)
@@ -0,0 +1,162 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Component.impl.ConvertOneProduct">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="MProduct">
+<Type>Prod.Product</Type>
+</Property>
+
+<Property name="Aantal">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="DueOut">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="FabKey">
+<Type>%String</Type>
+</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.Component.impl.ConvertAll).VerwijderAlles()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(Transfer).%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="GeefResultSet">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	
+	Set SqlStatement = "SELECT " 
+ 	_"  TransferTo,BenodigdAantal,Familie,KindProduct,DimensieNetto,BSKey"
+ 	_"  From APPS_Halux_Component_impl.Transfer"
+ 	_"  Where Moederproduct=?"
+	Set rs =##class(%ResultSet).%New("%DynamicQuery:SQL")
+ 	#dim stPrepared As %Status = rs.Prepare(SqlStatement)
+ 	Set stPrepared = rs.Execute(PRNr)
+ 	Quit rs
+]]></Implementation>
+</Method>
+
+<Method name="Converteer">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..MProductSetObjectId(PRNr)
+	Set ..Aantal=""
+	Set ..DueOut=""
+	Set ..FabKey=""
+	
+	If $isObject(..MProduct)
+	{
+		If '..UpdateOnly||'..ResourceAlreadyExist()
+		{
+			Do ..DeleteComponenten()
+			Do ..ConverteerOne()
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ResourceAlreadyExist">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#Dim PRNr, ComponentID as %String
+	Set MPRNr=..MProduct.%Id()
+	Set ComponentID=""
+	&SQL(select top 1 ID into :ComponentID from APPS_Halux_Component_impl.Transfer where MoederProduct=:MPRNr)
+	Quit $L(ComponentID)
+]]></Implementation>
+</Method>
+
+<Method name="DeleteComponenten">
+<Implementation><![CDATA[
+	
+	#Dim PRNr,ComponentID as %String
+	Set MPRNr=..MProduct.%Id()
+	Set ComponentID=""
+	&sql(DECLARE DELRES CURSOR FOR
+		select ID into :ComponentID from APPS_Halux_Component_impl.Transfer where MoederProduct=:MPRNr)
+   	&sql(OPEN DELRES)
+   	   	
+ 	For  &sql(FETCH DELRES) Quit:SQLCODE  Do  
+	. Do ##class(APPS.Halux.Component.impl.Transfer).%DeleteId(ComponentID)
+ 	&sql(CLOSE DELRES)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerOne">
+<Implementation><![CDATA[
+		#Dim PRNr,GenTyp,GenTyp2 as %String
+		Set PRNr=..MProduct.%Id()
+		Quit:'PRNr
+		Set GenTyp=$P($$GENTYP^HAD(PRNr),"\")
+		Set GenTyp2=$P($$GENTYP^HAD(PRNr),"\",1,2)
+		Set:GenTyp="TAO" GenTyp="TAX"
+		
+		;quit:'("TBX"[GenTyp) ;&&(GenTyp2=""))
+		;quit:("TBX;LBX;TAX"[GenTyp)&&(GenTyp'="") ;&&(GenTyp2=""))
+		;w PRNr," ",GenTyp," "
+		
+		Set ..Cnt=..Cnt+1
+		If GenTyp="TBX"
+		{   
+			Do ##class(ConvertTBX).%New(..MProduct, ..Aantal,..FabKey,..DueOut).Converteer()
+		}
+		
+		ElseIf GenTyp="LBX"
+		{	
+			Do ##class(ConvertLBX).%New(..MProduct, ..Aantal,..FabKey,..DueOut).Converteer()
+		}
+		ElseIf GenTyp="TAX"
+		{
+			Do ##class(ConvertTAX).%New(..MProduct, ..Aantal,..FabKey,..DueOut).Converteer()
+		}
+		ElseIf (GenTyp="KAD")||(GenTyp="PRF")||(GenTyp="GLA")
+		{
+			Do ##class(ConvertKAD).%New(..MProduct, ..Aantal,..FabKey,..DueOut).Converteer()
+		}
+		ElseIf GenTyp2="DIV\ASM"
+		{
+			Do ##class(ConvertASM).%New(..MProduct, ..Aantal,..FabKey,..DueOut).Converteer()
+		}
+		ElseIf GenTyp="DIV\ZSN"
+		{
+			Do ##class(ConvertDIV).%New(..MProduct, ..Aantal,..FabKey,..DueOut).Converteer()
+		}
+		ElseIf GenTyp="DIV"
+		{
+			Do ##class(ConvertDIV).%New(..MProduct, ..Aantal,..FabKey,..DueOut).Converteer()
+		}
+		Else
+		{
+			Do ##class(ConvertDIV).%New(..MProduct, ..Aantal,..FabKey,..DueOut).Converteer()
+		}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Component/impl/Transfer.cls.xml
===================================================================
diff -u -r57128 -r57547
--- APPS/Halux/Component/impl/Transfer.cls.xml	(.../Transfer.cls.xml)	(revision 57128)
+++ APPS/Halux/Component/impl/Transfer.cls.xml	(.../Transfer.cls.xml)	(revision 57547)
@@ -5,14 +5,29 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Persistent</Super>
 
-<Property name="FabKey">
+<Property name="BSKey">
 <Type>%String</Type>
 </Property>
 
+<UDLText name="T">
+<Content><![CDATA[
+// Property FabKey As %String;
+
+]]></Content>
+</UDLText>
+
 <Property name="MoederProduct">
 <Type>Prod.Product</Type>
 </Property>
 
+<Property name="KindProduct">
+<Type>Prod.Product</Type>
+</Property>
+
+<Property name="Familie">
+<Type>%String</Type>
+</Property>
+
 <Property name="MoederAantal">
 <Type>%Decimal</Type>
 </Property>
@@ -37,10 +52,26 @@
 <Type>%TimeStamp</Type>
 </Property>
 
-<Index name="iToelev">
-<Properties>FabKey</Properties>
-</Index>
+<Property name="TransferTo">
+<Type>%String</Type>
+</Property>
 
+<Property name="FrontCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="SpeciaalCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="SpoelbakCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="VerpakCode">
+<Type>%String</Type>
+</Property>
+
 <Index name="iProduct">
 <Properties>MoederProduct</Properties>
 </Index>
@@ -53,8 +84,6 @@
 <IndexLocation>^APPS.Halux.Compon2704.TransferI</IndexLocation>
 <StreamLocation>^APPS.Halux.Compon2704.TransferS</StreamLocation>
 <Data name="TransferDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>%%CLASSNAME</Value>
 </Value>
@@ -82,6 +111,30 @@
 <Value name="9">
 <Value>CreatieTijdstip</Value>
 </Value>
+<Value name="10">
+<Value>KindProduct</Value>
+</Value>
+<Value name="11">
+<Value>TransferTo</Value>
+</Value>
+<Value name="12">
+<Value>FrontCode</Value>
+</Value>
+<Value name="13">
+<Value>SpeciaalCode</Value>
+</Value>
+<Value name="14">
+<Value>SpoelbakCode</Value>
+</Value>
+<Value name="15">
+<Value>VerpakCode</Value>
+</Value>
+<Value name="16">
+<Value>Familie</Value>
+</Value>
+<Value name="17">
+<Value>BSKey</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/Component/impl/ImportBSKey.cls.xml
===================================================================
diff -u -r57128 -r57547
--- APPS/Halux/Component/impl/ImportBSKey.cls.xml	(.../ImportBSKey.cls.xml)	(revision 57128)
+++ APPS/Halux/Component/impl/ImportBSKey.cls.xml	(.../ImportBSKey.cls.xml)	(revision 57547)
@@ -24,21 +24,29 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="WerkpostAlsSpecial">
+<Type>%String</Type>
+</Property>
+
+<Index name="iBSKey">
+<Properties>Familie,BSKey</Properties>
+</Index>
+
 <Method name="Import">
 <Description>
 d ##class(APPS.Halux.Component.impl.ImportBSKey).Import()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	Do ..%DeleteExtent()
 	Set reader=##class(TECH.FileReader).%New("\\notes01\shared\P V\Maatwerk bouwstenen.txt")
-	;Do reader.AddHeaderTranslation(From, To, DataType) ; optioneel, 1 per translatie
 	While reader.Next()
 	{
 		w "*"
 		Set BS=..%New()
 		Set BS.Familie=reader.Column(1)
-		Set BS.BSKey=reader.Column(2)
-		Set BS.Werkpost=reader.Column(3)
+		Set:BS.Familie="TA.B" BS.Familie="TAX"
+		Set BS.BSKey=$P(reader.Column(2),".",1)
+		Set BS.Werkpost=$tr(reader.Column(3),"""")
 		Set BS.WerkpostAlsBinnenlade=reader.Column(4)
 		Set BS.WerkpostAlsSpoelbak=reader.Column(5)
 		Do BS.Save()
@@ -72,6 +80,9 @@
 <Value name="6">
 <Value>WerkpostAlsSpoelbak</Value>
 </Value>
+<Value name="7">
+<Value>WerkpostAlsSpecial</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/Component/impl/ProductieOrderIterator.cls.xml
===================================================================
diff -u -r57128 -r57547
--- APPS/Halux/Component/impl/ProductieOrderIterator.cls.xml	(.../ProductieOrderIterator.cls.xml)	(revision 57128)
+++ APPS/Halux/Component/impl/ProductieOrderIterator.cls.xml	(.../ProductieOrderIterator.cls.xml)	(revision 57547)
@@ -21,7 +21,6 @@
 </Method>
 
 <Method name="VoerUitQuery">
-<FormalSpec>VanafDatum:%Date=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#Dim SqlStatement as %String
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>