Index: APPS/Halux/Component/impl/ImportBSKey.cls.xml
===================================================================
diff -u
--- APPS/Halux/Component/impl/ImportBSKey.cls.xml	(revision 0)
+++ APPS/Halux/Component/impl/ImportBSKey.cls.xml	(revision 57128)
@@ -0,0 +1,80 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Component.impl.ImportBSKey">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="Familie">
+<Type>%String</Type>
+</Property>
+
+<Property name="BSKey">
+<Type>%String</Type>
+</Property>
+
+<Property name="Werkpost">
+<Type>%String</Type>
+</Property>
+
+<Property name="WerkpostAlsBinnenlade">
+<Type>%String</Type>
+</Property>
+
+<Property name="WerkpostAlsSpoelbak">
+<Type>%String</Type>
+</Property>
+
+<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.WerkpostAlsBinnenlade=reader.Column(4)
+		Set BS.WerkpostAlsSpoelbak=reader.Column(5)
+		Do BS.Save()
+	}
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.Halux.Com2704.ImportBSKeyD</DataLocation>
+<DefaultData>ImportBSKeyDefaultData</DefaultData>
+<IdLocation>^APPS.Halux.Com2704.ImportBSKeyD</IdLocation>
+<IndexLocation>^APPS.Halux.Com2704.ImportBSKeyI</IndexLocation>
+<StreamLocation>^APPS.Halux.Com2704.ImportBSKeyS</StreamLocation>
+<Data name="ImportBSKeyDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Familie</Value>
+</Value>
+<Value name="3">
+<Value>BSKey</Value>
+</Value>
+<Value name="4">
+<Value>Werkpost</Value>
+</Value>
+<Value name="5">
+<Value>WerkpostAlsBinnenlade</Value>
+</Value>
+<Value name="6">
+<Value>WerkpostAlsSpoelbak</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Component/impl/ProductieOrderIterator.cls.xml
===================================================================
diff -u
--- APPS/Halux/Component/impl/ProductieOrderIterator.cls.xml	(revision 0)
+++ APPS/Halux/Component/impl/ProductieOrderIterator.cls.xml	(revision 57128)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Component.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/Component/impl/Transfer.cls.xml
===================================================================
diff -u
--- APPS/Halux/Component/impl/Transfer.cls.xml	(revision 0)
+++ APPS/Halux/Component/impl/Transfer.cls.xml	(revision 57128)
@@ -0,0 +1,90 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Component.impl.Transfer">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Persistent</Super>
+
+<Property name="FabKey">
+<Type>%String</Type>
+</Property>
+
+<Property name="MoederProduct">
+<Type>Prod.Product</Type>
+</Property>
+
+<Property name="MoederAantal">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="KindAantal">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="DimensieMetUitval">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="DimensieNetto">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="BenodigdAantal">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="CreatieTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Index name="iToelev">
+<Properties>FabKey</Properties>
+</Index>
+
+<Index name="iProduct">
+<Properties>MoederProduct</Properties>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.Halux.Compon2704.TransferD</DataLocation>
+<DefaultData>TransferDefaultData</DefaultData>
+<IdLocation>^APPS.Halux.Compon2704.TransferD</IdLocation>
+<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>
+<Value name="2">
+<Value>FabKey</Value>
+</Value>
+<Value name="3">
+<Value>MoederProduct</Value>
+</Value>
+<Value name="4">
+<Value>MoederAantal</Value>
+</Value>
+<Value name="5">
+<Value>KindAantal</Value>
+</Value>
+<Value name="6">
+<Value>DimensieMetUitval</Value>
+</Value>
+<Value name="7">
+<Value>DimensieNetto</Value>
+</Value>
+<Value name="8">
+<Value>BenodigdAantal</Value>
+</Value>
+<Value name="9">
+<Value>CreatieTijdstip</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Component/impl/ConvertProductAbstract.cls.xml
===================================================================
diff -u
--- APPS/Halux/Component/impl/ConvertProductAbstract.cls.xml	(revision 0)
+++ APPS/Halux/Component/impl/ConvertProductAbstract.cls.xml	(revision 57128)
@@ -0,0 +1,171 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Component.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>lbMoederLijn:%List</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>