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>