Index: APPS/BD/OrderStat/impl/Extract2IntakeEnGeleverd.cls.xml
===================================================================
diff -u -r34389 -r39394
--- APPS/BD/OrderStat/impl/Extract2IntakeEnGeleverd.cls.xml	(.../Extract2IntakeEnGeleverd.cls.xml)	(revision 34389)
+++ APPS/BD/OrderStat/impl/Extract2IntakeEnGeleverd.cls.xml	(.../Extract2IntakeEnGeleverd.cls.xml)	(revision 39394)
@@ -132,6 +132,8 @@
 	Set ..TotDatum=+$G(Tot)
 	Set:..VanDatum=0 ..VanDatum=$$CALCDATE^vhLib.DataTypes($H,"BJ",-1,"FD")
 	Set:..TotDatum=0 ..TotDatum=$$CALCDATE^vhLib.DataTypes($H,"BJ",-1,"LD") 
+	Set ..VanDatum=$$CALCDATE^vhLib.DataTypes($H,"J",-1,"FD")
+	Set ..TotDatum=$$CALCDATE^vhLib.DataTypes($H,"M",-1,"LD") 
 	Set ..AfstandBepaler=##class(APPS.BD.CarbonFootprint.impl.AfstandBepaler).%New()
 	
 	Quit $$$OK
@@ -148,7 +150,7 @@
 	Do ..HerbouwenOrders()
 	;Do CLOSE^vhDEV(Dev)
 	Do ##class(APPS.BD.OrderStat.impl.OrderGeleverd).Export2File()
-	Do ##class(APPS.BD.OrderStat.impl.OrderIntake).Export2File()
+	;Do ##class(APPS.BD.OrderStat.impl.OrderIntake).Export2File()
 ]]></Implementation>
 </Method>
 
@@ -385,7 +387,7 @@
 	Set ..PostKode=$P(AdresRec,"\",6)
 	Set ..Straat=$P(AdresRec,"\",5)
 	Set ..LandKode=$$LAND^vhRtn1($P(AdresRec,"\",8),1,1)
-	Set ..Afstand=..AfstandBepaler.BepaalAfstandTot(..Woonplaats,..LandKode)
+	;Set ..Afstand=..AfstandBepaler.BepaalAfstandTot(..Woonplaats,..LandKode)
 ]]></Implementation>
 </Method>