Index: APPS/Halux/Component/impl/ConvertASM.cls.xml
===================================================================
diff -u
--- APPS/Halux/Component/impl/ConvertASM.cls.xml	(revision 0)
+++ APPS/Halux/Component/impl/ConvertASM.cls.xml	(revision 57552)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Component.impl.ConvertASM">
+<Super>ConvertProductAbstract</Super>
+
+<Method name="BuildResourceCodes">
+<Implementation><![CDATA[	Set ..Familie="MAT"
+]]></Implementation>
+</Method>
+
+<Method name="SelectTransfer">
+<Implementation><![CDATA[	Set ..TransferTo="MAT"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Component/impl/ConvertAll.cls.xml
===================================================================
diff -u
--- APPS/Halux/Component/impl/ConvertAll.cls.xml	(revision 0)
+++ APPS/Halux/Component/impl/ConvertAll.cls.xml	(revision 57552)
@@ -0,0 +1,173 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Component.impl.ConvertAll">
+<IncludeCode>Prod.Product</IncludeCode>
+<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="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>
+
+<Property name="Dev">
+<Type>%String</Type>
+</Property>
+
+<Property name="BeginDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="EindDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="Convertor">
+<Type>APPS.Halux.Component.impl.ConvertOneProduct</Type>
+</Property>
+
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+D ##class(APPS.Halux.Component.impl.ConvertAll).%New().ExportHistoriek()</Description>
+<FormalSpec>UpdateOnly:%Boolean=1</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Convertor=##class(APPS.Halux.Component.impl.ConvertOneProduct).%New(UpdateOnly)
+	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Set ..BeginDatum=$H-5
+	Set ..EindDatum=$H-1
+	Do ..Convertor.VerwijderAlles()
+	Set ..Cnt=0
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExportHistoriek">
+<Implementation><![CDATA[
+
+	Set ..Dev=$$OPEN^vhDEV(,"Export Productie transfers","W","T")
+	Use ..Dev
+	Write $TR("MPRNr,MKorttekst,MIdentNr,MFamilie,MAantal,ReceptieTijdstip,FabKey,BouwsteenKey,KPRNr,KKorttekst,KIdentNr,Firma,TransferTo,AantalStuksVoor1Moeder,AantalStuksVoorMAantal,NettoDimInMM,BasisDimensie,Eenheid",",",$c(9)),!
+	#dim PRNr as %String = $O(^PRHIST(2200000))
+	s PrevCnt=0
+	While (PRNr'="")&&(..Cnt<100)
+	{
+		 //w:..Cnt'=PrevCnt ..Cnt r k
+		 //s PrevCnt=..Cnt
+		If ..IsValidProduct(PRNr)
+		{
+			#dim VolgNr as %String = $O(^PRHIST(PRNr,""))
+		
+			While VolgNr'=""
+			{
+				If ..IsValidHistory(PRNr,VolgNr)
+				{
+					Set ..Cnt=..Cnt+1
+					Do ..VerwerkOneHistory(PRNr,VolgNr)
+				}
+			Set VolgNr=$O(^PRHIST(PRNr,VolgNr))
+		}
+		}
+		Set PRNr=$O(^PRHIST(PRNr))
+	}
+	Do CLOSE^vhDEV(..Dev)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkOneHistory">
+<FormalSpec>PRNr:%String,VolgNr:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Convertor.Converteer(PRNr)
+	Set rs=..Convertor.GeefResultSet(PRNr)
+	Set Rec=^PRHIST(PRNr,VolgNr)
+ 	Set ReceptieTijdstip=$zdt($P(Rec,"\"),3)
+	Set Aantal=$P(Rec,"\",2)
+	Set ToeleveringNr=$P(Rec,"\",7)
+	Set LijnNr=$P(Rec,"\",8)\100*100
+	While rs.Next(.sc)
+	{
+		If $$$ISERR(sc) Quit
+		Write PRNr, *9,$$$PRGet($$$KortTekst),*9,..Translator.GeefItemIDForAX(PRNr),*9,rs.Data("Familie")
+		Set KindPRNr=rs.Data("KindProduct")
+		Set IsHalux=$S($E($$$ProductGet(KindPRNr,$$$LinkType),1,2)="HH":"HLX",1:"VHBE")
+		Write *9,Aantal,*9,ReceptieTijdstip,*9,ToeleveringNr_";"_LijnNr,*9,rs.Data("BSKey")
+		Write *9,KindPRNr,*9,$$$ProductGet(KindPRNr,$$$KortTekst),*9,..Translator.GeefItemIDForAX(KindPRNr),*9,IsHalux
+		Write *9,rs.Data("TransferTo"),*9,$$$ExcelNum(rs.Data("BenodigdAantal"))
+		Set Totaal=rs.Data("BenodigdAantal")*Aantal
+		Set DimNet=$S($$$ProductGet(KindPRNr,$$$WerkvloerEenheid)="MM":rs.Data("DimensieNetto")*$$$ProductGet(KindPRNr,$$$WerkvloerGrootteNetto),1:"")
+		Write *9,$$$ExcelNum(Totaal),*9,$$$ExcelNum(DimNet),*9,$$$ExcelNum($$$ProductGet(KindPRNr,$$$WerkvloerGrootteNetto)),*9,$$$ProductGet(KindPRNr,$$$WerkvloerEenheid)
+		Write !
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsValidHistory">
+<FormalSpec>PRNr:%String,VolgNr:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set Rec=^PRHIST(PRNr,VolgNr)
+ 	Quit:+$P(Rec,"\")<..BeginDatum 0
+ 	Quit:+$P(Rec,"\")>..EindDatum 0
+ 	Quit:$P(Rec,"\",5)'="M" 0
+ 	Quit:$P(Rec,"\",4)'="I" 0
+ 	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="IsValidProduct">
+<FormalSpec>PRNr</FormalSpec>
+<Implementation><![CDATA[
+	; Gemaakt door Halux en heeft bouwstenen
+	Quit $D(^KPR(PRNr,"J6332"))&&$D(^PRBS("BS",PRNr))
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkOrders">
+<FormalSpec>DeleteAll=0</FormalSpec>
+<Implementation><![CDATA[
+	;Lock +ComponentTransfer:0 Else  Quit
+	;Do:DeleteAll ..VerwijderAlles()
+	Set ..itProductieOrder=##class(ProductieOrderIterator).%New()
+	
+	#dim PRNr as %String
+	
+	While ..itProductieOrder.HasNext()
+	{
+		Set ProductieOrderLijn=..itProductieOrder.Next()
+		Set ..MProduct=ProductieOrderLijn.Product
+		Do ..Convertor.Converteer(..MProduct.%Id())
+	}
+	;Lock -ComponentTransfer
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Component/impl/ConvertKAD.cls.xml
===================================================================
diff -u
--- APPS/Halux/Component/impl/ConvertKAD.cls.xml	(revision 0)
+++ APPS/Halux/Component/impl/ConvertKAD.cls.xml	(revision 57552)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Component.impl.ConvertKAD">
+<Super>ConvertProductAbstract</Super>
+
+<Property name="ToepassingCode">
+<Type>%String</Type>
+</Property>
+
+<Method name="BuildResourceCodes">
+<Implementation><![CDATA[
+	Set ..Familie="KAD"
+
+
+	Set ..ToepassingCode=$P($$GENTYP^HAD(..MPRNr),"\",2)
+]]></Implementation>
+</Method>
+
+<Method name="SelectTransfer">
+<Implementation><![CDATA[	Set ..TransferTo="KAD"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Component/impl/ConvertLBX.cls.xml
===================================================================
diff -u
--- APPS/Halux/Component/impl/ConvertLBX.cls.xml	(revision 0)
+++ APPS/Halux/Component/impl/ConvertLBX.cls.xml	(revision 57552)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Component.impl.ConvertLBX">
+<Super>ConvertProductAbstract</Super>
+
+<Method name="BuildResourceCodes">
+<Implementation><![CDATA[
+	Set ..Familie="LBX"
+
+	Set ..SpoelbakCode=$S(..IngegevenKenmerken.Toepassing="L":"",$zcvt(..IngegevenKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1)
+	Set VoorWandType=$zcvt(..IngegevenKenmerken.VoorWandTypeVanCBinnenlade_..IngegevenKenmerken.VoorWandTypeVanKBinnenlade_..IngegevenKenmerken.VoorWandTypeVanMBinnenlade,"U")
+	Set ..FrontCode=$S($zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE":$S(VoorWandType["GLAS":"GLAS",VoorWandType["RELING":"RELING",1:"BASIS"),1:"")
+	Set ..VerpakCode=..IngegevenKenmerken.VerpakkingType
+
+	/// SPECIAAL (Front only, te kleine of te grote 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="SelectTransfer">
+<Implementation><![CDATA[
+	Set Familie=..Familie
+	Set BSKey=$P(..BSKey,".")
+	set (Werkpost,WerkpostAlsBinnenlade,WerkpostAlsSpoelbak,WerkpostAlsSpecial)=""
+	&SQL(Select Werkpost,WerkpostAlsBinnenlade,WerkpostAlsSpoelbak,WerkpostAlsSpecial 
+	into :Werkpost,:WerkpostAlsBinnenlade,:WerkpostAlsSpoelbak,:WerkpostAlsSpecial 
+	from APPS_Halux_Component_impl.ImportBSKey
+	where Familie=:Familie and BSKey=:BSKey)
+	
+	If BSKey="TOBSYS",$P(..BSRec,"\",1)=1297240,Werkpost[";" ; Syncro Stang op in te korten
+	{ 
+		Set Werkpost=$P(Werkpost,";",2)
+	}
+	Else
+	{
+		Set Werkpost=$P(Werkpost,";",1)
+	}
+
+	If ..FrontCode&&(WerkpostAlsBinnenlade'="")
+	{
+		Set ..TransferTo=WerkpostAlsBinnenlade
+	}
+	elseIf ..SpoelbakCode&&(WerkpostAlsSpoelbak'="")
+	{
+		Set ..TransferTo=WerkpostAlsSpoelbak
+	}
+	elseIf ..SpeciaalCode&&(WerkpostAlsSpecial'="")
+	{
+		Set ..TransferTo="SPECIAL" ;WerkpostAlsSpecial
+	}
+	Else
+	{
+		Set ..TransferTo=Werkpost
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Component/impl/ConvertTBX.cls.xml
===================================================================
diff -u
--- APPS/Halux/Component/impl/ConvertTBX.cls.xml	(revision 0)
+++ APPS/Halux/Component/impl/ConvertTBX.cls.xml	(revision 57552)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Component.impl.ConvertTBX">
+<Super>ConvertProductAbstract</Super>
+
+<Method name="BuildResourceCodes">
+<Implementation><![CDATA[
+	Set ..SpoelbakCode=$S("L"[..IngegevenKenmerken.Toepassing:"",$zcvt(..IngegevenKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1)
+	Set ..FrontCode=$zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE"
+	Set ..VerpakCode=..IngegevenKenmerken.VerpakkingType
+	Set ..Familie="TBX"
+	
+	/// SPECIAAL (Front only, te kleine of te grote breedte, afgerond front voor klant Dibo
+	Set ..SpeciaalCode=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..MPRNr,"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 0 ;$isObject(..ProductieOrderLijn.Toelevering.Klant) && (..ProductieOrderLijn.Toelevering.Klant.%Id()=9197) ;$$$KlantDibo
+	{ 
+		Set:$D(^PRBS("IP",1155091,..MPRNr)) ..SpeciaalCode="DIBO" ; component SLFXB40C588B-ROUND   BZDG
+		Set:$D(^PRBS("IP",1155092,..MPRNr)) ..SpeciaalCode="DIBO" ; component SLFXB40R588B-LEFT    BZDG
+		Set:$D(^PRBS("IP",1155093,..MPRNr)) ..SpeciaalCode="DIBO" ; component SLFXB40R588B-RIGHT   BZDG
+	}
+]]></Implementation>
+</Method>
+
+<Method name="SelectTransfer">
+<Implementation><![CDATA[
+	Set Familie=..Familie
+	Set BSKey=$P(..BSKey,".")
+	set (Werkpost,WerkpostAlsBinnenlade,WerkpostAlsSpoelbak,WerkpostAlsSpecial)=""
+	&SQL(Select Werkpost,WerkpostAlsBinnenlade,WerkpostAlsSpoelbak,WerkpostAlsSpecial 
+	into :Werkpost,:WerkpostAlsBinnenlade,:WerkpostAlsSpoelbak,:WerkpostAlsSpecial 
+	from APPS_Halux_Component_impl.ImportBSKey
+	where Familie=:Familie and BSKey=:BSKey)
+	
+	If ..FrontCode&&(WerkpostAlsBinnenlade'="")
+	{
+		Set ..TransferTo=WerkpostAlsBinnenlade
+	}
+	elseIf ..SpoelbakCode&&(WerkpostAlsSpoelbak'="")
+	{
+		Set ..TransferTo=WerkpostAlsSpoelbak
+	}
+	elseIf ..SpeciaalCode&&(WerkpostAlsSpecial'="")
+	{
+		Set ..TransferTo="SPECIAL" ;WerkpostAlsSpecial
+	}
+	Else
+	{
+		Set ..TransferTo=Werkpost
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Component/impl/ConvertTAX.cls.xml
===================================================================
diff -u
--- APPS/Halux/Component/impl/ConvertTAX.cls.xml	(revision 0)
+++ APPS/Halux/Component/impl/ConvertTAX.cls.xml	(revision 57552)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Component.impl.ConvertTAX">
+<Super>ConvertProductAbstract</Super>
+
+<Method name="BuildResourceCodes">
+<Implementation><![CDATA[
+	Set ..Familie="TAX"
+
+	Set ..SpoelbakCode=$S(..IngegevenKenmerken.Toepassing="L":"",$zcvt(..IngegevenKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1)
+	Set VoorWandType=$zcvt(..IngegevenKenmerken.VoorWandTypeVanCBinnenlade_..IngegevenKenmerken.VoorWandTypeVanKBinnenlade_..IngegevenKenmerken.VoorWandTypeVanMBinnenlade,"U")
+	Set ..FrontCode=$S($zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE":$S(VoorWandType["GLAS":"GLAS",VoorWandType["RELING":"RELING",1:"BASIS"),1:"")
+	Set ..VerpakCode=..IngegevenKenmerken.VerpakkingType
+]]></Implementation>
+</Method>
+
+<Method name="SelectTransfer">
+<Implementation><![CDATA[
+	Set Familie=..Familie
+	Set BSKey=$P(..BSKey,".")
+	set (Werkpost,WerkpostAlsBinnenlade,WerkpostAlsSpoelbak,WerkpostAlsSpecial)=""
+	&SQL(Select Werkpost,WerkpostAlsBinnenlade,WerkpostAlsSpoelbak,WerkpostAlsSpecial 
+	into :Werkpost,:WerkpostAlsBinnenlade,:WerkpostAlsSpoelbak,:WerkpostAlsSpecial 
+	from APPS_Halux_Component_impl.ImportBSKey
+	where Familie=:Familie and BSKey=:BSKey)
+	
+	If (..FrontCode'="")&&(WerkpostAlsBinnenlade'="")
+	{
+		Set ..TransferTo=WerkpostAlsBinnenlade
+	}
+	elseIf (..SpoelbakCode'="")&&(WerkpostAlsSpoelbak'="")
+	{
+		Set ..TransferTo=WerkpostAlsSpoelbak
+	}
+	elseIf ..SpeciaalCode&&(WerkpostAlsSpecial'="")
+	{
+		Set ..TransferTo=WerkpostAlsSpecial
+	}
+	Else
+	{
+		Set ..TransferTo=Werkpost
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Component/impl/ConvertDIV.cls.xml
===================================================================
diff -u
--- APPS/Halux/Component/impl/ConvertDIV.cls.xml	(revision 0)
+++ APPS/Halux/Component/impl/ConvertDIV.cls.xml	(revision 57552)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Component.impl.ConvertDIV">
+<Super>ConvertProductAbstract</Super>
+
+<Property name="ToepassingCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="Activiteit">
+<Type>%String</Type>
+</Property>
+
+<Method name="BuildResourceCodes">
+<Implementation><![CDATA[
+	Set ..Familie="DIV"
+
+	Set KortTekst= $P(^KPR(..MPRNr,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"
+]]></Implementation>
+</Method>
+
+<Method name="SelectTransfer">
+<Implementation><![CDATA[
+	If ..ToepassingCode="Front"
+	{
+		Set ..TransferTo="FRONT"
+	}
+	elseif ..ToepassingCode="Inkorten"
+	{
+		Set ..TransferTo="INKORTEN"
+	}
+	Else {
+		Set ..TransferTo="OMPAK"
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>