Index: APPS/BD/OrderStat/impl/BIProduct.cls.xml
===================================================================
diff -u -r54050 -r54527
--- APPS/BD/OrderStat/impl/BIProduct.cls.xml	(.../BIProduct.cls.xml)	(revision 54050)
+++ APPS/BD/OrderStat/impl/BIProduct.cls.xml	(.../BIProduct.cls.xml)	(revision 54527)
@@ -16,6 +16,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="ConfigID">
+<Type>%String</Type>
+</Property>
+
 <Property name="KortTekst">
 <Type>%String</Type>
 </Property>
@@ -45,6 +49,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="HoutCertificaatID">
+<Type>%String</Type>
+</Property>
+
 <Property name="InternVoorraadType">
 <Type>%String</Type>
 </Property>
@@ -159,24 +167,34 @@
 
 <Method name="Add">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Translator:AX.Uitgaand.EC.DataAX.impl.Translator,PRNr:%String,ProductID:%String,OrderDatum:%Date</FormalSpec>
+<FormalSpec>Translator:AX.Uitgaand.EC.DataAX.impl.Translator,PRNr:%String,GenPRNr:%String,ProductID:%String,ConfigID:%String,OrderDatum:%Date</FormalSpec>
 <Implementation><![CDATA[
 	Quit:$d(^||MemProduct(PRNr)) ""
+
+	Set HoutCertificaatService = ##class(DOM.PM.HoutCertificaatService).%New()
+	#dim HoutCertificaatID as %String=""
+	#dim HoutCertificaatGewicht as %Decimal=""
+	If $D(^KPR(PRNr))
+	{
+		Do HoutCertificaatService.CodeAndGewicht(PRNr,1,.HoutCertificaatID,.HoutCertificaatGewicht)
+	}
+	
 	Set ProductDtl=..%New()
 	;Set Product = ##class(Prod.Product).%OpenId(PRNr)
-	Set ProductDtl.ItemID=Translator.GeefItemIDForAX(PRNr)
+	Set ProductDtl.ItemID=Translator.GeefItemIDForAX($S(GenPRNr:GenPRNr,1:PRNr))
 	Set ProductDtl.ProductID=ProductID
 	Set ProductDtl.CreatieTijdstip=$zdatetime(OrderDatum,3,,6)
 	Set ProductDtl.ModifyTijdstip=$zdatetime(OrderDatum,3,,6)
 	Set ProductDtl.AdminProductNummer=PRNr
 	Set ProductDtl.KortTekst=$$GetOrOld^PRODUKT(PRNr,$$$KortTekst)
-	Set ProductDtl.NettoGewicht=$$GetOrOld^PRODUKT(PRNr,$$$Gewicht)/1000
+	Set ProductDtl.NettoGewicht=$$GetOrOld^PRODUKT(PRNr,$$$Gewicht)
+	Set ProductDtl.HoutCertificaatID=HoutCertificaatID
 	Set ProductDtl.LangTekst=$E(##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr,,"<br/>"),1,490)
 	Set ProductDtl.AfgeleideVan=ProductDtl.ItemID
-	Set ProductDtl.AXProductType="Variant"
+	Set ProductDtl.AXProductType=$S($$GetOrOld^PRODUKT(PRNr,$$$GenProduct)?1.10N:"Variant",1:"Standalone")
 	Set ProductDtl.CalcTechBomBol=2
-	Set ProductDtl.InternVoorraadType="Maatwerk"
-	Set ProductDtl.ExternVoorraadType="M"
+	Set ProductDtl.InternVoorraadType=$S($$GetOrOld^PRODUKT(PRNr,$$$GenProduct)?1.10N:"Maatwerk",$$GetOrOld^PRODUKT(PRNr,$$$StockType)=0:"NietStock",1:"Stock")
+	Set ProductDtl.ExternVoorraadType=$S($$GetOrOld^PRODUKT(PRNr,$$$GenProduct)?1.10N:"M",$$GetOrOld^PRODUKT(PRNr,$$$StockType)=0:"N",1:"S")
 	Set ProductDtl.LeverTermijn=$$GetOrOld^PRODUKT(PRNr,$$$Gewicht)
 
 	Set ProductDtl.BehoefteGroep=$S($$GetOrOld^PRODUKT(PRNr,$$$StockType)=0:"BTO",1:"BTS")
@@ -190,7 +208,7 @@
 	Set ProductDtl.KlasHoofdgroep =$E($$GetOrOld^PRODUKT(PRNr,$$$Hoofdgroep),3,4)
 	Set ProductDtl.KlasGroep =ProductDtl.KlasHoofdgroep_"-"_$E($$GetOrOld^PRODUKT(PRNr,$$$Groep),7,9)
 	Set ProductDtl.KlasSubgroep =ProductDtl.KlasGroep_"-"_$E($$GetOrOld^PRODUKT(PRNr,$$$SubGroep),12,17)
-	Set ProductDtl.CodexGroep="STD"
+	Set ProductDtl.CodexGroep=$S(ProductDtl.ProductGroep="OL":"OL",1:"STD")
 	Set ProductDtl.Afbeelding =""
 	Set ProductDtl.KleinVerpakAantal =$$GetOrOld^PRODUKT(PRNr,$$$NormaleVerpakking)
 	Set ProductDtl.GrootVerpakAantal =$$GetOrOld^PRODUKT(PRNr,$$$GrootVerpakking)
@@ -369,6 +387,12 @@
 <Value name="53">
 <Value>KostPrijs</Value>
 </Value>
+<Value name="54">
+<Value>HoutCertificaatID</Value>
+</Value>
+<Value name="55">
+<Value>ConfigID</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/BD/OrderStat/impl/OrderFacturen.cls.xml
===================================================================
diff -u -r54050 -r54527
--- APPS/BD/OrderStat/impl/OrderFacturen.cls.xml	(.../OrderFacturen.cls.xml)	(revision 54050)
+++ APPS/BD/OrderStat/impl/OrderFacturen.cls.xml	(.../OrderFacturen.cls.xml)	(revision 54527)
@@ -44,10 +44,6 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="LeverDatum">
-<Type>%Date</Type>
-</Property>
-
 <Property name="Verzendwijze">
 <Type>%String</Type>
 </Property>
@@ -77,14 +73,30 @@
 <Type>%Integer</Type>
 </Property>
 
-<Property name="BevestigdeLeverDatum">
+<Property name="OntvangstDatumGevraagd">
 <Type>%Date</Type>
 </Property>
 
-<Property name="VerwachteLeverDatum">
+<Property name="VerzendDatumGevraagd">
 <Type>%Date</Type>
 </Property>
 
+<Property name="OntvangstDatumBevestigd">
+<Type>%Date</Type>
+</Property>
+
+<Property name="VerzendDatumBevestigd">
+<Type>%Date</Type>
+</Property>
+
+<Property name="OntvangstDatumLevering">
+<Type>%Date</Type>
+</Property>
+
+<Property name="VerzendDatumLevering">
+<Type>%Date</Type>
+</Property>
+
 <Property name="Omzet">
 <Type>%Float</Type>
 </Property>
@@ -151,26 +163,49 @@
 	Set OrderDtl.BONNr=BONNr
 	Set OrderDtl.FactuurNr=FAKNr
 	Set OrderDtl.FactuurDatum=FakDatum
+	
+	Set Verzendwijze=$P($P(Verzendwijze,";"),":")
+	Set TransportDuur=$P($G(^RES("KLANT","PI","VERZENDWIJZE","D",$S(Verzendwijze="":"*",1:Verzendwijze))),"`",7)
+	Set:TransportDuur="" TransportDuur=1
+	
 	If BevestigdeLeverDatum["/" Set BevestigdeLeverDatum=$$INTDATE^vhLib.DataTypes(BevestigdeLeverDatum,"DW")
-	Set OrderDtl.BevestigdeLeverDatum=BevestigdeLeverDatum
+	Set OrderDtl.OntvangstDatumBevestigd=BevestigdeLeverDatum
+	Set OrderDtl.VerzendDatumBevestigd=$$CALCDATE^vhLib.DataTypes(BevestigdeLeverDatum,"A",-TransportDuur)
+
 	If VerwachteLeverDatum["/" Set VerwachteLeverDatum=$$INTDATE^vhLib.DataTypes(VerwachteLeverDatum,"DW")
 	Set:VerwachteLeverDatum="" VerwachteLeverDatum=BevestigdeLeverDatum
-	Set OrderDtl.VerwachteLeverDatum=VerwachteLeverDatum
+	Set OrderDtl.OntvangstDatumGevraagd=BevestigdeLeverDatum
+	Set OrderDtl.VerzendDatumGevraagd=$$CALCDATE^vhLib.DataTypes(BevestigdeLeverDatum,"A",-TransportDuur)
+
+	Set OrderDtl.OntvangstDatumLevering=LeverDatum
+	Set OrderDtl.VerzendDatumLevering=$$CALCDATE^vhLib.DataTypes(LeverDatum,"A",-TransportDuur)
+	
 	Set OrderDtl.Verzendwijze=Verzendwijze
-	Set OrderDtl.LeverDatum=LeverDatum
 	Set OrderDtl.Straat=Straat
 	Set OrderDtl.PostKode=PostKode
 	Set OrderDtl.Woonplaats=Woonplaats
 	Set OrderDtl.LandKode=LandKode
 	Set OrderDtl.ItemID=Translator.GeefItemIDForAX(PRNr)
 	Set OrderDtl.ProductID=OrderDtl.ItemID
-	If $$GetOrOld^PRODUKT(PRNr,$$$GenProduct)?4.10N
+	If ($$GetOrOld^PRODUKT(PRNr,$$$GenProduct)?4.10N)
 	{
-		Set OrderDtl.ProductID=OrderDtl.ProductID_":PR:"_PRNr
+		Set GenPRNr=$$GetOrOld^PRODUKT(PRNr,$$$GenProduct)
+		Set OrderDtl.ItemID=Translator.GeefItemIDForAX(GenPRNr)
+		Set OrderDtl.ProductID=OrderDtl.ItemID_":PR:"_PRNr
+		Do ##class(BIProduct).Add(Translator,PRNr,GenPRNr,OrderDtl.ProductID,"PR"_PRNr,OrderDatum_","_OrderTijd)
+		Do ##class(AXimpl.PM.Kenmerk.ConvertAll).Add(OrderDtl.ProductID,PRNr,"PR"_PRNr)
 		
-		Do ##class(BIProduct).Add(Translator,PRNr,OrderDtl.ProductID,OrderDatum_","_OrderTijd)
-		Do ##class(AXimpl.PM.Kenmerken.ConvertAll).Add(OrderDtl.ProductID,PRNr,"PR"_PRNr)
 	}
+	ElseIf ($$GetOrOld^PRODUKT(PRNr,$$$KortTekst)?1"IO.".E)
+	{
+		Set OrderDtl.ProductID=OrderDtl.ItemID_":PR:"_PRNr
+		Do ##class(BIProduct).Add(Translator,PRNr,PRNr,OrderDtl.ProductID,"",OrderDatum_","_OrderTijd)
+	}
+	ElseIf ('$D(^KPR(PRNr)))&&$D(^KPRO(PRNr))
+	{
+		Set OrderDtl.ProductID=OrderDtl.ItemID_":DEL:"_PRNr
+		Do ##class(BIProduct).Add(Translator,PRNr,PRNr,OrderDtl.ProductID,"",OrderDatum_","_OrderTijd)
+	}
 	
 	Set OrderDtl.AdminProductNummer=PRNr
 	Set OrderDtl.KortTekst=$$GetOrOld^PRODUKT(PRNr,$$$KortTekst)
@@ -335,6 +370,27 @@
 <Value name="41">
 <Value>ProductID</Value>
 </Value>
+<Value name="42">
+<Value>OntvangstDatumGevraagd</Value>
+</Value>
+<Value name="43">
+<Value>VerzendDatumBevestigd</Value>
+</Value>
+<Value name="44">
+<Value>OntvangstDatumBevestigd</Value>
+</Value>
+<Value name="45">
+<Value>VerzendDatumInitieelBevestigd</Value>
+</Value>
+<Value name="46">
+<Value>VerzendDatumLevering</Value>
+</Value>
+<Value name="47">
+<Value>OntvangstDatumLevering</Value>
+</Value>
+<Value name="48">
+<Value>VerzendDatumGevraagd</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/BD/OrderStat/impl/Extract2IntakeEnGeleverd.cls.xml
===================================================================
diff -u -r54045 -r54527
--- APPS/BD/OrderStat/impl/Extract2IntakeEnGeleverd.cls.xml	(.../Extract2IntakeEnGeleverd.cls.xml)	(revision 54045)
+++ APPS/BD/OrderStat/impl/Extract2IntakeEnGeleverd.cls.xml	(.../Extract2IntakeEnGeleverd.cls.xml)	(revision 54527)
@@ -140,7 +140,7 @@
 	Set ..TotDatum=+$G(Tot)
 	If ..Jaar="All"
 	{
-		Set ..VanDatum=$$INTDATE^vhLib.DataTypes("01/07/"_2017)
+		Set ..VanDatum=$$INTDATE^vhLib.DataTypes("01/01/"_2015)
 		Set ..TotDatum=$$INTDATE^vhLib.DataTypes("31/12/"_2017)
 	}
 	Else
@@ -159,7 +159,9 @@
 <Method name="BouwEnFile">
 <Description>
 	D ##class(APPS.BD.OrderStat.impl.Extract2IntakeEnGeleverd).%New("All").BouwEnFile("F")
-	D ##class(APPS.BD.OrderStat.impl.Extract2IntakeEnGeleverd).%New(),CorrStatistiek()</Description>
+	D ##class(APPS.BD.OrderStat.impl.Extract2IntakeEnGeleverd).%New(),CorrStatistiek()
+d ##class(APPS.BD.OrderStat.impl.OrderFacturen).Export2File("All")
+d ##class(APPS.BD.OrderStat.impl.BIProduct).Export2File("All")</Description>
 <FormalSpec>WelkBestand:%String="IL"</FormalSpec>
 <Implementation><![CDATA[
 	;Set Dev=$$OPEN^vhDEV("c:\scratch","OrderStat_Build.txt","W","T")