Index: APPS/BD/CarbonFootprint/impl/AfstandBepaler.cls.xml
===================================================================
diff -u -r34388 -r34389
--- APPS/BD/CarbonFootprint/impl/AfstandBepaler.cls.xml	(.../AfstandBepaler.cls.xml)	(revision 34388)
+++ APPS/BD/CarbonFootprint/impl/AfstandBepaler.cls.xml	(.../AfstandBepaler.cls.xml)	(revision 34389)
@@ -2,7 +2,6 @@
 <Export generator="Cache" version="24">
 <Class name="APPS.BD.CarbonFootprint.impl.AfstandBepaler">
 <Description>
-TODO : HTTPS implementeren in Cache (zie congifurator voor SSL/TSL configuratie)
 MOMENTEEL KUNNEN ER MAAR 1000 NIEUWE AANVRAGEN BEREKEND WORDEN (LIMIET GOOGLE)</Description>
 <Super>%RegisteredObject</Super>
 
@@ -47,20 +46,27 @@
 <Method name="BepaalAfstandTot">
 <Description>
 s bl=##class(APPS.BD.CarbonFootprint.impl.AfstandBepaler).%New()
-w bl.BepaalAfstandTot("Geel","Belgie").Afstand</Description>
+w bl.BepaalAfstandTot("Höchst","AT").Afstand
+w bl.BerekenAfstandEnTijdpaalAfstandTot("Geel","BE").Afstand</Description>
 <FormalSpec>TotGemeente:%String,TotLand:%String</FormalSpec>
 <Implementation><![CDATA[	Quit ..BepaalAfstandVanTot(..VanGemeente, ..VanLand, TotGemeente, TotLand)
 ]]></Implementation>
 </Method>
 
+<Method name="Converteer">
+<FormalSpec>String:%String</FormalSpec>
+<Implementation><![CDATA[	Quit $ZCVT($TR(String,"ÂÄÀÉÈËÖÜàáäâèéëêìíïîòóöôùúüûç°Øø"_$C(177),"AAAEEEOUaaaaeeeeiiiioooouuuucgOo~"),"U")
+]]></Implementation>
+</Method>
+
 <Method name="BepaalAfstandVanTot">
 <FormalSpec>VanGemeente:%String,VanLand:%String,TotGemeente:%String,TotLand:%String</FormalSpec>
 <Implementation><![CDATA[
 	; omzetten naar uppercase
-	Set VanGemeente=$ZCVT(VanGemeente,"U")
-	Set VanLand=$ZCVT(VanLand,"U")
-	Set TotGemeente=$ZCVT(TotGemeente,"U")
-	Set TotLand=$ZCVT(TotLand,"U")
+	Set VanGemeente=..Converteer(VanGemeente)
+	Set VanLand=..Converteer(VanLand)
+	Set TotGemeente=..Converteer(TotGemeente)
+	Set TotLand=..Converteer(TotLand)
 	
 	If (VanGemeente="")||(VanLand="")||(TotGemeente="")||(TotLand="")
 	{
@@ -86,22 +92,25 @@
 
 <Method name="MoetAfstandBerekendWorden">
 <FormalSpec>Afstand:APPS.BD.CarbonFootprint.impl.AfstandTussenGemeenten</FormalSpec>
+<Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	Quit:'$isObject(Afstand) 1 ; niet gevonden
-	Quit:(+Afstand.Afstand=0)&&(Afstand.CreatieDatum<+$H) 1 ; Geen afstand en de berekening is niet van vandaag
+	Quit:(+Afstand.Afstand=0)&&((Afstand.VanLand'=Afstand.TotLand)||(Afstand.VanGemeente'=Afstand.TotGemeente)) 1 ; Geen afstand EN de berekening is niet van vandaag EN Van = Tot
 	Quit 0
 ]]></Implementation>
 </Method>
 
 <Method name="GeefReedsBerekend">
 <FormalSpec>VanGemeente:%String,VanLand:%String,TotGemeente:%String,TotLand:%String</FormalSpec>
-<Implementation><![CDATA[	 Quit ##class(AfstandTussenGemeenten).%OpenId(VanLand_"||"_VanGemeente_"||"_TotLand_"||"_TotGemeente)
+<Private>1</Private>
+<Implementation><![CDATA[	Quit ##class(AfstandTussenGemeenten).%OpenId(VanLand_"||"_VanGemeente_"||"_TotLand_"||"_TotGemeente)
 ]]></Implementation>
 </Method>
 
 <Method name="MaakAfstandObject">
 <FormalSpec>VanGemeente:%String,VanLand:%String,TotGemeente:%String,TotLand:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set Afstand=##class(AfstandTussenGemeenten).%New()
 	Set Afstand.VanLand=VanLand
@@ -115,6 +124,7 @@
 <Method name="SaveAfstandObject">
 <FormalSpec>Afstand:APPS.BD.CarbonFootprint.impl.AfstandTussenGemeenten</FormalSpec>
 <Implementation><![CDATA[
+	Set sc=##class(AfstandTussenGemeenten).%DeleteId(Afstand.VanLand_"||"_Afstand.VanGemeente_"||"_Afstand.TotLand_"||"_Afstand.TotGemeente) ;oude verwijderen
 	Set Afstand.CreatieDatum=+$H
 	Do Afstand.Save()
 ]]></Implementation>
@@ -126,15 +136,16 @@
 	
 	;voorbeeld URL : http://maps.googleapis.com/maps/api/distancematrix/xml?origins=Sint-Niklaas,Belgie&destinations=Olen,Belgie&language=nl-BE
 	Set httprequest=##class(%Net.HttpRequest).%New()
-	;Set httprequest.Https=1
-	;Set httprequest.SSLConfiguration="???"
+	Set httprequest.Https=1
+	Set httprequest.SSLConfiguration="GoogleAPI"
 	Set httprequest.Server="maps.googleapis.com"
 	Do httprequest.SetParam("origins",VanGemeente_","_VanLand)
 	Do httprequest.SetParam("destinations",TotGemeente_","_TotLand)
 	Do httprequest.SetParam("language","nl-BE")
-	;Do httprequest.SetParam("key","AIzaSyCEXxwESaVF8KPfUrA26ZBfTyAgx_yiS9w")
-	Do httprequest.Get("/maps/api/distancematrix/xml")
+	Do httprequest.SetParam("key","AIzaSyCK-xrNAAE2vncS4pWxW8JAPnjI2bDPv-g")
 	;d DumpObject^%apiOBJ(httprequest)
+	;w httprequest.ReturnParams()
+	Do httprequest.Get("/maps/api/distancematrix/xml")
 	;d DumpObject^%apiOBJ(httprequest.HttpResponse)
 	;d httprequest.HttpResponse.OutputToDevice()
 	Set XMLData=..GetResponseData(httprequest.HttpResponse)
@@ -144,6 +155,7 @@
 
 <Method name="GetResponseData">
 <FormalSpec>httpResponse:%Net.HttpResponse</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	If $isobject(httpResponse.Data) {
 		If httpResponse.Data.Size>0 Set Data=httpResponse.Data.Read()
@@ -156,6 +168,7 @@
 
 <Method name="ExtractAfstand">
 <FormalSpec>XMLData:%String,Afstand:APPS.BD.CarbonFootprint.impl.AfstandTussenGemeenten</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set Afstand.Afstand=+$P($P(XMLData,"<distance>",2),"<value>",2)
 	Set Afstand.Duur=+$P($P(XMLData,"<duration>",2),"<value>",2)
Index: APPS/BD/CarbonFootprint/impl/VerpakkingLevering.cls.xml
===================================================================
diff -u
--- APPS/BD/CarbonFootprint/impl/VerpakkingLevering.cls.xml	(revision 0)
+++ APPS/BD/CarbonFootprint/impl/VerpakkingLevering.cls.xml	(revision 34389)
@@ -0,0 +1,256 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.BD.CarbonFootprint.impl.VerpakkingLevering">
+<ClassType/>
+<CompileAfter>APPS.BD.OrderStat.impl.OrderIntake,APPS.BD.OrderStat.impl.OrderGeleverd</CompileAfter>
+<IncludeCode>vhLib.Macro,Prod.Product,BL.Derde.LevSpecifiek</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="VanDatum">
+<Type>%Date</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TotDatum">
+<Type>%Date</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VolgNr">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PRNr">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HistRec">
+<Type>%String</Type>
+<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>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	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 ..AfstandBepaler=##class(APPS.BD.CarbonFootprint.impl.AfstandBepaler).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BouwEnFile">
+<Description>
+	D ##class(APPS.BD.CarbonFootprint.impl.VerpakkingLevering).%New().BouwEnFile()</Description>
+<Implementation><![CDATA[
+	Set Dev=$$OPEN^vhDEV(,"CarbonFootprintVerpakking.txt","W","T")
+	Use Dev
+	Do ..WriteHeader()
+	Do ..ExportRecepties()
+	Do CLOSE^vhDEV(Dev)
+]]></Implementation>
+</Method>
+
+<Method name="ExportRecepties">
+<Implementation><![CDATA[
+	Set ..PRNr=$O(^PRHIST(""))
+	While ..PRNr'=""
+	{
+		If ..CheckProduct()
+		{
+			Set ..VolgNr=$O(^PRHIST(..PRNr,""))
+		
+			While ..VolgNr'="" 
+			{
+		 		Set ..HistRec=^PRHIST(..PRNr,..VolgNr)
+		 		If ..CheckHistoriek()
+		 		{
+					Do ..WriteReceptie()
+		 		}
+		 		Set ..VolgNr=$O(^PRHIST(..PRNr,..VolgNr))
+			}
+		}
+		Set ..PRNr=$O(^PRHIST(..PRNr))
+	 }
+]]></Implementation>
+</Method>
+
+<Method name="WriteReceptie">
+<Implementation><![CDATA[
+	Set Gewicht=$$$ProductGet(..PRNr,$$$Gewicht)
+	Set Aantal=-$P(..HistRec,"\",2) ;uitgaande beweging is negatief
+	Set Magazijn=$P(..HistRec,"\",5)
+	Set Actie=$P(..HistRec,"\",4)
+	Set Datum=+$P(..HistRec,"\",1)
+	Set BONNr=+$P(..HistRec,"\",7)
+	Set FAKNr=+$P(..HistRec,"\",10)
+	Set KLNr=$P(..HistRec,"\",6)
+	Set KLNm=$S(KLNr:$P(^KKL(^KK1(KLNr),0),"\",2),1:"")
+	Set KLLandKode=$$LAND^vhRtn1(KLNr,"K",1)
+	Set LEVNr=$$$ProductGet(..PRNr,$$$LeveranciersNr)
+	Set LEVNm=$P(^KLE(^KL1(LEVNr),0),"\",2)
+	Set LEVStraat=$P(^KLE(^KL1(LEVNr),0),"\",5)
+	Set LEVPostKode=$P(^KLE(^KL1(LEVNr),0),"\",6)
+	Set LEVGemeente=$P(^KLE(^KL1(LEVNr),0),"\",7)
+	Set LEVLandKode=$$LAND^vhRtn1(LEVNr,"L",1)
+	Set IsRecuPak=$D(^HISTPAK("P",..PRNr))
+	Set MPRNr=$P(..HistRec,"\",15)
+
+	Set RecuPackPRNr=$$$ProductGet(..PRNr,$$$VerpakkingsProduct)
+ 	Set RecuPackProd=$S(RecuPackPRNr:$P($G(^KPR(RecuPackPRNr,0),"***"_RecuPackPRNr_"***"),"\",1),1:"")
+ 	Set VerpakkingsAantal=$$$ProductGet(..PRNr,$$$GrootVerpakking)
+ 	Set GenTyp=$$GENTYP^HAD(..PRNr)
+ 	If ($P(GenTyp,"\")="TBX")||($P(GenTyp,"\")="LBX")
+ 	{
+	  Set Verpak=$$GeefVerpakking^HATBXLeanLijst(..PRNr)
+ 	  Set:(Verpak="VHoss") RecuPackProd=Verpak
+ 	}
+ 	Set (BrutoGewicht, NettoGewicht)=""
+ 	If LEVNr=$$$LevBlum {
+ 		Set BLID="0"_$TR($E($$$ProductGet(..PRNr,$$$IdentNummer),2,99),".","")
+ 		Set BLRec=$G(^BLProd("D",BLID))
+		Set BrutoGewicht=$P(BLRec,"\",9)
+		Set NettoGewicht=$P(BLRec,"\",26)
+ 	}
+	Do ..GewichtPerGroepVoorMaatwerk(.GewichtHout, .GewichtKarton, .GewichtBeslag, .GewichtGlijder)
+	Write ..PRNr,*9,$$$ProductGet(..PRNr,$$$KortTekst),*9,IsRecuPak
+	Write *9,$P(GenTyp,"\")
+	Write *9,LEVNr,*9,LEVNm,*9,LEVLandKode
+	Write *9,KLNr,*9,KLNm,*9,KLLandKode
+	Write *9,BONNr,*9,FAKNr,*9,$$$ExcelDat(Datum),*9,$$$ExcelNum(Aantal),*9,$$$ExcelNum(Aantal*Gewicht),*9,Actie,*9,Magazijn
+	Write *9,$$$ExcelNum(NettoGewicht*Aantal),*9,$$$ExcelNum(BrutoGewicht*Aantal),*9,RecuPackProd,*9,VerpakkingsAantal
+	Write *9,$$$ExcelNum(GewichtBeslag*Aantal),*9,$$$ExcelNum(GewichtHout*Aantal),*9,$$$ExcelNum(GewichtKarton*Aantal),*9,$$$ExcelNum(GewichtGlijder*Aantal)
+	Write !
+]]></Implementation>
+</Method>
+
+<Method name="GewichtPerGroepVoorMaatwerk">
+<FormalSpec><![CDATA[&GewichtHout:%Float,&GewichtKarton:%Float,&GewichtBeslag:%Float,&GewichtGlijder:%Float]]></FormalSpec>
+<Implementation><![CDATA[
+	Set (GewichtHout, GewichtKarton, GewichtBeslag, GewichtGlijder)=0
+ 	Set GenTyp=$$GENTYP^HAD(..PRNr)
+	If (($P(GenTyp,"\")="TBX")||($P(GenTyp,"\")="LBX")||($P(GenTyp,"\")="TAO"))&&(0[$$$ProductGet(..PRNr,$$$NONAktief))
+	{
+		Set BSKey=$O(^PRBS("BS",..PRNr,""))
+		While BSKey'=""
+		{
+			Set BSRec=^PRBS("BS",..PRNr,BSKey)
+			If $P(BSRec,"\",3)="H"
+			{
+				Do ..ToevoegenBouwsteenGewicht(BSKey, .GewichtHout, .GewichtKarton, .GewichtBeslag, .GewichtGlijder)
+			}
+			Set BSKey=$O(^PRBS("BS",..PRNr,BSKey))		
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ToevoegenBouwsteenGewicht">
+<FormalSpec><![CDATA[BSKey:%String,&GewichtHout:%Float,&GewichtKarton:%Float,&GewichtBeslag:%Float,&GewichtGlijder:%Float]]></FormalSpec>
+<Implementation><![CDATA[
+	; Gewicht in GR
+	Set BSRec=^PRBS("BS",..PRNr,BSKey)
+ 	Set Qty=$P(BSRec,"\",2)
+	Set HFPRNr=$P(BSRec,"\",1)
+	
+ 	If HFPRNr?4.7N 
+ 	{
+  	Set Gewicht=$$$ProductGet(HFPRNr,$$$Gewicht)
+ 	Quit:'Gewicht
+	If $D(^PRBS("BS",..PRNr,BSKey,"D")) 
+	{  ;Dimensie afhankelijk
+ 		Set DimHFNet=$P(^PRBS("BS",..PRNr,BSKey,"D"),"\",1)
+ 		Set DimFull=$$$ProductGet(HFPRNr,$$$WerkvloerGrootteBruto)
+ 		Set:'DimFull DimFull=$P(^KPR(HFPRNr,15),"\",7) ; Netto dimensie
+ 		Set:DimFull&&DimHFNet Gewicht=Gewicht*DimHFNet/DimFull
+	}
+	Set Gewicht=$J(Gewicht*Qty,0,2)
+ 	If ..IsHout(HFPRNr) {
+	 	Set GewichtHout=GewichtHout+Gewicht 
+	} ElseIf ..IsKarton(HFPRNr) {
+	 	Set GewichtKarton=GewichtKarton+Gewicht 
+	} ElseIf ..IsGlijder(HFPRNr,BSKey) {
+	 	Set GewichtGlijder=GewichtGlijder+Gewicht 
+	} Else {
+	 	Set GewichtBeslag=GewichtBeslag+Gewicht 
+ 	}
+ 	
+ 	;Write BSKey," ","H"," ",Gewicht,!
+ 	
+ 	}
+]]></Implementation>
+</Method>
+
+<Method name="IsGlijder">
+<FormalSpec>HFPRNr:%String,BSKey:%String</FormalSpec>
+<Implementation><![CDATA[	Quit ($E(BSKey,1,4)="PRCP")||($E(BSKey,1,6)="PRGLIJ")
+]]></Implementation>
+</Method>
+
+<Method name="IsKarton">
+<FormalSpec>HFPRNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set LevNr=$$$ProductGet(HFPRNr,$$$LeveranciersNr)
+	Quit (LevNr=$$$LevZetacarton)||(LevNr=$$$LevLefevereBeel)||(LevNr=$$$LevEuropal)
+]]></Implementation>
+</Method>
+
+<Method name="IsHout">
+<FormalSpec>HFPRNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set HoutCertificaat=$$$ProductGet(HFPRNr,$$$HoutCertificaat)
+	Quit HoutCertificaat'=""
+]]></Implementation>
+</Method>
+
+<Method name="WriteHeader">
+<Implementation><![CDATA[
+	Write "PRNr	KortTekst	IsRecuPak	GenTyp	LEVNr	LEVNm	LEVLand	KLNr	KLNm	KLLand	BONNr	FAKNr	Datum	Aantal	Gewicht	Actie	Magazijn	NettoGewicht	BrutoGewicht	Recupereerbareverpakking	Verpakkingsaantal	GewichtBeslag	GewichtHout	GewichtKarton"
+	Write !
+]]></Implementation>
+</Method>
+
+<Method name="CheckProduct">
+<Implementation><![CDATA[
+	
+	Quit:..PRNr'?4.8N 0
+	Quit:'$D(^KPR(..PRNr)) 0
+	Quit:$E($$$ProductGet(..PRNr,$$$IdentNummer))=7 0 ; DO product
+	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="CheckHistoriek">
+<Implementation><![CDATA[
+	Quit:$P(..HistRec,"\",4)'="U" 0
+	Quit:$P(..HistRec,"\",4)="T" 0 ; geen transferorders
+	Quit:$P(..HistRec,"\",5)="W" 0 ; geen werkvloer
+	Quit:$P(..HistRec,"\",5)="Z" 0 ; zonder stock aanpassing
+ 	Set MPRNr=$P(..HistRec,"\",15)
+	Quit:(MPRNr?4.8N) 0 ; geen producten waarbij er een moeder is, om dubbeltellingen te vermijden
+	Quit:(MPRNr?4.8N)&&($$$ProductGet(MPRNr,$$$LinkType)="S") 0 ; geen producten waarbij de moeder STOCK OVER KINDEREN ingesteld is, dit om dubbeltelling te vermijden
+	Quit:+$$$ProductGet(..PRNr,$$$Gewicht)=0 0
+	
+	Set Datum=+$P(..HistRec,"\",1)
+	Quit (Datum'<..VanDatum)&&(Datum'>..TotDatum)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/BD/CarbonFootprint/impl/Leveringen.cls.xml
===================================================================
diff -u -r34388 -r34389
--- APPS/BD/CarbonFootprint/impl/Leveringen.cls.xml	(.../Leveringen.cls.xml)	(revision 34388)
+++ APPS/BD/CarbonFootprint/impl/Leveringen.cls.xml	(.../Leveringen.cls.xml)	(revision 34389)
@@ -17,6 +17,7 @@
 	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 ..AfstandBepaler=##class(APPS.BD.CarbonFootprint.impl.AfstandBepaler).%New()
 
 	Quit $$$OK
 ]]></Implementation>
@@ -26,12 +27,8 @@
 <Description>
 	D ##class(APPS.BD.CarbonFootprint.impl.Leveringen).%New().BouwEnFile()</Description>
 <Implementation><![CDATA[
-	;Set Dev=$$OPEN^vhDEV("c:\scratch","OrderStat_Build.txt","W","T")
-	;Use Dev
 	Do ..HerbouwenOrders()
-	;Do CLOSE^vhDEV(Dev)
 	Do ##class(APPS.BD.OrderStat.impl.OrderGeleverd).Export2File()
-	;Do ##class(OrderIntake).Export2File()
 ]]></Implementation>
 </Method>
 
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>
Index: APPS/BD/CarbonFootprint/impl/Toeleveringen.cls.xml
===================================================================
diff -u -r34388 -r34389
--- APPS/BD/CarbonFootprint/impl/Toeleveringen.cls.xml	(.../Toeleveringen.cls.xml)	(revision 34388)
+++ APPS/BD/CarbonFootprint/impl/Toeleveringen.cls.xml	(.../Toeleveringen.cls.xml)	(revision 34389)
@@ -3,7 +3,7 @@
 <Class name="APPS.BD.CarbonFootprint.impl.Toeleveringen">
 <ClassType/>
 <CompileAfter>APPS.BD.OrderStat.impl.OrderIntake,APPS.BD.OrderStat.impl.OrderGeleverd</CompileAfter>
-<IncludeCode>vhLib.Macro,Prod.Product</IncludeCode>
+<IncludeCode>vhLib.Macro,Prod.Product,BL.Derde.LevSpecifiek</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 
@@ -33,7 +33,7 @@
 </Property>
 
 <Property name="AfstandBepaler">
-<Type>APPS.BD.CarbonFootprint.impl.Afstandbepaler</Type>
+<Type>APPS.BD.CarbonFootprint.impl.AfstandBepaler</Type>
 <Private>1</Private>
 </Property>
 
@@ -47,7 +47,7 @@
 	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 ..AfstandBepaler=##class(APPS.BD.CarbonFootprint.impl.Afstandbepaler).%New()
+	Set ..AfstandBepaler=##class(APPS.BD.CarbonFootprint.impl.AfstandBepaler).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -104,17 +104,34 @@
 	Set Gemeente=$P(^KLE(^KL1(LEVNr),0),"\",7)
 	Set LandKode=$$LAND^vhRtn1(LEVNr,"L",1)
 	Set IsRecuPak=$D(^HISTPAK("P",..PRNr))
-	Set Afstand=..AfstandBepaler.BepaalAfstand(Gemeente,LandKode)
+	Set Afstand=..AfstandBepaler.BepaalAfstandTot(Gemeente,LandKode)
+	
+	Set RecuPackPRNr=$$$ProductGet(..PRNr,$$$VerpakkingsProduct)
+ 	Set RecuPackProd=$S(RecuPackPRNr:$P($G(^KPR(RecuPackPRNr,0),"***"_RecuPackPRNr_"***"),"\",1),1:"")
+ 	Set GenTyp=$$GENTYP^HAD(..PRNr)
+ 	If ($P(GenTyp,"\")="TBX")||($P(GenTyp,"\")="LBX")
+ 	{
+	  Set Verpak=$$GeefVerpakking^HATBXLeanLijst(..PRNr)
+ 	  Set:(Verpak="VHoss") RecuPackProd=Verpak
+ 	}
+ 	Set (BrutoGewicht, NettoGewicht)=""
+ 	If LEVNr=$$$LevBlum {
+ 		Set BLID="0"_$TR($E($$$ProductGet(..PRNr,$$$IdentNummer),2,99),".","")
+ 		Set BLRec=$G(^BLProd("D",BLID))
+		Set BrutoGewicht=$P(BLRec,"\",9)
+		Set NettoGewicht=$P(BLRec,"\",26)
+ 	}
 	Write ..PRNr,*9,$$$ProductGet(..PRNr,$$$KortTekst),*9,IsRecuPak
-	Write *9,LEVNr,*9,LEVNm,*9,Straat,*9,PostKode,*9,Gemeente,*9,LandKode,*9,$$$ExcelNum(Afstand)
+	Write *9,LEVNr,*9,LEVNm,*9,Straat,*9,PostKode,*9,Gemeente,*9,LandKode,*9,$$$ExcelNum(Afstand.Afstand)
 	Write *9,TOENr,*9,RCPNr,*9,$$$ExcelDat(Datum),*9,$S('RCPNr:"D"_$$$ExcelDat(Datum),1:RCPNr),*9,$$$ExcelNum(Aantal),*9,$$$ExcelNum(Aantal*Gewicht),*9,Actie,*9,Magazijn
+	Write *9,$$$ExcelNum(NettoGewicht*Aantal),*9,$$$ExcelNum(BrutoGewicht*Aantal),*9,RecuPackProd
 	Write !
 ]]></Implementation>
 </Method>
 
 <Method name="WriteHeader">
 <Implementation><![CDATA[
-	Write "PRNr	KortTekst	IsRecuPak	LEVNr	LEVNm	Straat	PostKode	Gemeente	Land	Afstand	TOENr	RCPNr	Datum	RCPOfDatum	Aantal	Gewicht	Actie	Magazijn"
+	Write "PRNr	KortTekst	IsRecuPak	LEVNr	LEVNm	Straat	PostKode	Gemeente	Land	Afstand	TOENr	RCPNr	Datum	RCPOfDatum	Aantal	Gewicht	Actie	Magazijn	NettoGewicht	BrutoGewicht	Recupereerbareverpakkking"
 	Write !
 ]]></Implementation>
 </Method>