Index: APPS/BD/OrderStat/impl/Extract2IntakeEnGeleverd.cls.xml
===================================================================
diff -u -r31827 -r34389
--- APPS/BD/OrderStat/impl/Extract2IntakeEnGeleverd.cls.xml	(.../Extract2IntakeEnGeleverd.cls.xml)	(revision 31827)
+++ APPS/BD/OrderStat/impl/Extract2IntakeEnGeleverd.cls.xml	(.../Extract2IntakeEnGeleverd.cls.xml)	(revision 34389)
@@ -82,6 +82,31 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Woonplaats">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PostKode">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Straat">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LandKode">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Afstand">
+<Type>%Float</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="PickDatum">
 <Type>%Date</Type>
 <Private>1</Private>
@@ -92,6 +117,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="AfstandBepaler">
+<Type>APPS.BD.CarbonFootprint.impl.AfstandBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Van:%Date,Tot:%Date</FormalSpec>
 <Private>1</Private>
@@ -101,8 +131,8 @@
 	Set ..VanDatum=+$G(Van)
 	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:..TotDatum=0 ..TotDatum=+$H-1 ;$$CALCDATE^vhLib.DataTypes($H,"M",0,"LD")
+	Set:..TotDatum=0 ..TotDatum=$$CALCDATE^vhLib.DataTypes($H,"BJ",-1,"LD") 
+	Set ..AfstandBepaler=##class(APPS.BD.CarbonFootprint.impl.AfstandBepaler).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -112,16 +142,20 @@
 <Description>
 	D ##class(APPS.BD.OrderStat.impl.Extract2IntakeEnGeleverd).%New().BouwEnFile()</Description>
 <Implementation><![CDATA[
+	;Set Dev=$$OPEN^vhDEV("c:\scratch","OrderStat_Build.txt","W","T")
+	;Use Dev
+
 	Do ..HerbouwenOrders()
-	Do ##class(OrderGeleverd).Export2File()
-	Do ##class(OrderIntake).Export2File()
+	;Do CLOSE^vhDEV(Dev)
+	Do ##class(APPS.BD.OrderStat.impl.OrderGeleverd).Export2File()
+	Do ##class(APPS.BD.OrderStat.impl.OrderIntake).Export2File()
 ]]></Implementation>
 </Method>
 
 <Method name="HerbouwenOrders">
 <Implementation><![CDATA[
-	Do ##class(OrderIntake).DeleteAll()
-	Do ##class(OrderGeleverd).DeleteAll()
+	Do ##class(APPS.BD.OrderStat.impl.OrderIntake).DeleteAll()
+	Do ##class(APPS.BD.OrderStat.impl.OrderGeleverd).DeleteAll()
 
 	Do ..HerbouwenOrdersVanuitKFA()
 	Do ..HerbouwenOrdersVanuitKFAP()
@@ -142,7 +176,7 @@
 		;w !,"KLNr",..KLNr
 		;w " mindatum",..MinDatum," ",-..VanDatum
 		
-		While ..MinDatum'>(-..VanDatum)
+		While ..MinDatum'="" ;'>(-..VanDatum)
 		{
 			;w !," mindatum",..MinDatum
 	 		Set ..FAKNr=$O(^KFA1(..Node,..KLNr,..MinDatum,""))
@@ -166,6 +200,8 @@
 	{
 		Set ..BONNr=$E(BONNr,2,99)
 		Do ..ExtractLeverDatum(^KFA(..Node,..FAKNr,BONNr,1))
+		Do ..ExtractLeverAdres(^KFA(..Node,..FAKNr,BONNr,3))
+
 		Set LNr=$O(^KFA(..Node,..FAKNr,BONNr,99))
 		While LNr
 		{
@@ -183,7 +219,7 @@
 				Set VerwachteLeverDatum=$P(Rec,"\",29)
 				Set OmzetVerkoop=$P(Rec,"\",34)
 				Set OmzetAankoop=$P(Rec,"\",33)
-				Do ..AddIntake(PRNr,Qty,OmzetVerkoop,OmzetAankoop)
+				Do ..AddIntake(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 				Do ..AddGeleverd(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 			}
 			Set LNr=$O(^KFA(..Node,..FAKNr,BONNr,LNr))
@@ -202,12 +238,12 @@
 	While ..KLNr'=""
 	{
 		Set ..MinDatum=$O(^KFAP1(..Node,..KLNr,""))
-		While ..MinDatum'>(-..VanDatum)
+		While ..MinDatum'=""
 		{
 	 		Set ..FAKNr=$O(^KFAP1(..Node,..KLNr,..MinDatum,""))
 	 		While ..FAKNr'="" 
 	 		{
-				Do ..HerbouwOrderVanuitKFALijnen()
+				Do ..HerbouwOrderVanuitKFAPLijnen()
 		 		Set ..FAKNr=$O(^KFAP1(..Node,..KLNr,..MinDatum,..FAKNr))	
 	 		}
 	 		Set ..MinDatum=$O(^KFAP1(..Node,..KLNr,..MinDatum))
@@ -224,6 +260,7 @@
 	{
 		Set ..BONNr=$E(BONNr,2,99)
 		Do ..ExtractLeverDatum(^KFAP(..Node,..FAKNr,BONNr,1))
+		Do ..ExtractLeverAdres(^KFAP(..Node,..FAKNr,BONNr,3))
 
 		Set LNr=$O(^KFAP(..Node,..FAKNr,BONNr,99))
 		While LNr
@@ -241,7 +278,7 @@
 				Set VerwachteLeverDatum=$P(Rec,"\",29)
 				Set OmzetVerkoop=$P(Rec,"\",34)
 				Set OmzetAankoop=$P(Rec,"\",33)
-				Do ..AddIntake(PRNr,Qty,OmzetVerkoop,OmzetAankoop)
+				Do ..AddIntake(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 				Do ..AddGeleverd(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 			}
 			Set LNr=$O(^KFAP(..Node,..FAKNr,BONNr,LNr))
@@ -278,6 +315,7 @@
 <Method name="HerbouwOrderVanuitKULLijnen">
 <Implementation><![CDATA[
 	Do ..ExtractLeverDatum(^KUL(..KLNr,..Node,..BONNr,1))
+	Do ..ExtractLeverAdres(^KUL(..KLNr,..Node,..BONNr,3))
 	Set LNr=$O(^KUL(..KLNr,..Node,..BONNr,100))
 	While LNr
 	{
@@ -294,7 +332,7 @@
 			Set VerwachteLeverDatum=$P(Rec,"\",29)
  			Set OmzetVerkoop=$P(Rec,"\",9)
  			Set OmzetAankoop=..CifPPL(PRNr)*Qty
- 			Do ..AddIntake(PRNr,Qty,OmzetVerkoop,OmzetAankoop)
+ 			Do ..AddIntake(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 			Do ..AddGeleverd(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 		}
 		Set LNr=$O(^KUL(..KLNr,..Node,..BONNr,LNr))
@@ -303,7 +341,7 @@
 </Method>
 
 <Method name="ExtractLeverDatum">
-<FormalSpec>Rec</FormalSpec>
+<FormalSpec>Rec:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..LeverDatum=$$INTDATE^vhLib.DataTypes($P(Rec,"\",2),"DKP")
 	Set ..Verzendwijze=$P($P($P(Rec,"\",7),"#",1)," ")
@@ -323,8 +361,36 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ExtractLeverAdres">
+<FormalSpec>AdresRec:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set KLNr=..KLNr
+	If ($TR($P(AdresRec,"\",1,9),"\ ","")="") && ($P(AdresRec,"\",19)?4.6N) ; adres van een andere klant gebruiken
+	{
+		Set KLNr=$P(AdresRec,"\",19)
+	}
+	
+	If $TR($P(AdresRec,"\",1,9),"\ ","")=$P(AdresRec,"\",1) ; verwijziging naar een leveringsadres van de klant
+	{
+		Set AdresNode="   "_$P(AdresRec,"\",1)
+		Set AdresNode="L"_$E(AdresNode,$L(AdresNode)-3)
+		Set AdresRec=$G(^KKL(^KK1(..KLNr),AdresNode))
+	}
+	
+	If $TR($P(AdresRec,"\",1,9),"\ ","")="" ; geen adres opgegeven default naar de klant hoofdadres
+	{
+		Set AdresRec=$G(^KKL(^KK1(..KLNr),0))
+	}
+	Set ..Woonplaats=$P(AdresRec,"\",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)
+]]></Implementation>
+</Method>
+
 <Method name="ExtractHoofdingUitKUL">
-<FormalSpec>Rec</FormalSpec>
+<FormalSpec>Rec:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..OrderVerwerker=$P($P(Rec,"\",4),"#")
 	Set ..ORDNr=$P($P(Rec,"\",5)," - ")
@@ -377,16 +443,18 @@
 		Set Rec=^KOD(..KLNr,..Node,..ORDNr,LNr)
  		Set PRNr=$P(Rec,"\",2)
  		Set Qty=$P(Rec,"\",3)
+ 		Set BevestigdeLeverDatum=$P(Rec,"\",25)
+		Set VerwachteLeverDatum=$P(Rec,"\",29)
  		Set OmzetVerkoop=$P(Rec,"\",9)
  		Set OmzetAankoop=..CifPPL(PRNr)*Qty
- 		Do ..AddIntake(PRNr,Qty,OmzetVerkoop,OmzetAankoop)
+ 		Do ..AddIntake(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 		Set LNr=$O(^KOD(..KLNr,..Node,..ORDNr,LNr))
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="ExtractHoofdingUitKOD">
-<FormalSpec>Rec</FormalSpec>
+<FormalSpec>Rec:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set OrderIntakeRec=$P(Rec,"\",24)
 	Set ..OrderVerwerker=$P($P(Rec,"\",8),"#")
@@ -409,40 +477,41 @@
 </Method>
 
 <Method name="AddIntake">
-<FormalSpec>PRNr:%Integer,Qty:%Integer,OmzetVerkoop:%Float,OmzetAankoop:%Float</FormalSpec>
+<FormalSpec>PRNr:%String,Qty:%Integer,BevestigdeLeverDatum:%Date,VerwachteLeverDatum:%Date,OmzetVerkoop:%Float,OmzetAankoop:%Float</FormalSpec>
 <Implementation><![CDATA[
-  
 	Quit:'..ExistProduct(PRNr)
+  	;Write PRNr, *9, ..KLNr, *9,..ORDNr,*9,$$$ExcelDat(..OrderDatum),*9,Qty,!
 	Quit:'..CheckDatum(..OrderDatum)
 	
-	Set OrderIntake=##class(OrderIntake).Add(..FromType,..KLNr,..ORDNr,..OrderDatum,..OrderTijd,..IntakeType,..OrderVerwerker,PRNr,Qty,OmzetVerkoop,OmzetAankoop)
+	Set OrderIntake=##class(OrderIntake).Add(..FromType,..KLNr,..ORDNr,..OrderDatum,..OrderTijd,..IntakeType,..OrderVerwerker,PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 ]]></Implementation>
 </Method>
 
 <Method name="AddGeleverd">
-<FormalSpec>PRNr:%Integer,Qty:%Integer,BevestigdeLeverDatum:%Date,VerwachteLeverDatum:%Date,OmzetVerkoop:%Float,OmzetAankoop:%Float</FormalSpec>
+<FormalSpec>PRNr:%String,Qty:%Integer,BevestigdeLeverDatum:%Date,VerwachteLeverDatum:%Date,OmzetVerkoop:%Float,OmzetAankoop:%Float</FormalSpec>
 <Implementation><![CDATA[
 	
 	Quit:'..ExistProduct(PRNr)
 	Quit:'..CheckDatum(..PickDatum)
 	
-	Set OrderInLevering=##class(OrderGeleverd).Add(..FromType,..KLNr,..ORDNr,..OrderDatum,..OrderTijd,..IntakeType,..OrderVerwerker,..BONNr,..LeverDatum,..Verzendwijze,..PickDatum,..PickTijd,PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
+	Set OrderInLevering=##class(OrderGeleverd).Add(..FromType,..KLNr,..ORDNr,..OrderDatum,..OrderTijd,..IntakeType,..OrderVerwerker,..BONNr,..LeverDatum,..Verzendwijze,..PickDatum,..PickTijd,..Straat,..PostKode,..Woonplaats,..LandKode,..Afstand.Afstand,PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 ]]></Implementation>
 </Method>
 
 <Method name="ExistProduct">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%String</FormalSpec>
 <Implementation><![CDATA[
 	Quit:PRNr'?4.8N 0
 	Quit:'$D(^KPR(PRNr)) 0
+	;Quit:'(($P($$GENTYP^HAD(PRNr),"\")="TBX")||($P($$GENTYP^HAD(PRNr),"\")="LBX")) 0
 	Quit 1
 ]]></Implementation>
 </Method>
 
 <Method name="CifPPL">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%String</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	Quit:'..ExistProduct(PRNr) 0
@@ -452,7 +521,7 @@
 </Method>
 
 <Method name="CheckDatum">
-<FormalSpec>Datum</FormalSpec>
+<FormalSpec>Datum:%Date</FormalSpec>
 <Implementation><![CDATA[	Quit (Datum'<..VanDatum)&&(Datum'>..TotDatum)
 ]]></Implementation>
 </Method>