Index: APPS/BD/CarbonFootprint/impl/AfstandBepaler.cls.xml
===================================================================
diff -u
--- APPS/BD/CarbonFootprint/impl/AfstandBepaler.cls.xml	(revision 0)
+++ APPS/BD/CarbonFootprint/impl/AfstandBepaler.cls.xml	(revision 34388)
@@ -0,0 +1,167 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<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>
+
+<Property name="VanGemeente">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VanLand">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AlleenCacheGebruiken">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VanGemeente:%String,VanLand:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	If $G(VanGemeente)=""
+	{
+		Set ..VanGemeente="SINT-NIKLAAS"
+		Set ..VanLand="BE"
+	}
+	Else
+	{
+		Set ..VanGemeente=VanGemeente
+		Set ..VanLand=VanLand
+	}	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="AlleenCacheGebruiken">
+<Implementation><![CDATA[	Set ..AlleenCacheGebruiken=1
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAfstandTot">
+<Description>
+s bl=##class(APPS.BD.CarbonFootprint.impl.AfstandBepaler).%New()
+w bl.BepaalAfstandTot("Geel","Belgie").Afstand</Description>
+<FormalSpec>TotGemeente:%String,TotLand:%String</FormalSpec>
+<Implementation><![CDATA[	Quit ..BepaalAfstandVanTot(..VanGemeente, ..VanLand, TotGemeente, TotLand)
+]]></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")
+	
+	If (VanGemeente="")||(VanLand="")||(TotGemeente="")||(TotLand="")
+	{
+		Set Afstand=##class(AfstandTussenGemeenten).%New()
+	}
+	Else
+	{
+		Set Afstand=..GeefReedsBerekend(VanGemeente,VanLand, TotGemeente, TotLand)
+		If ..MoetAfstandBerekendWorden(Afstand) 
+		{		 
+			Set Afstand=..MaakAfstandObject(VanGemeente,VanLand, TotGemeente, TotLand)
+			If '..AlleenCacheGebruiken
+			{
+				Do ..BerekenAfstandEnTijd(VanGemeente,VanLand, TotGemeente, TotLand, Afstand)
+				Do ..SaveAfstandObject(Afstand)
+			}
+		}
+	
+	}
+	Quit Afstand
+]]></Implementation>
+</Method>
+
+<Method name="MoetAfstandBerekendWorden">
+<FormalSpec>Afstand:APPS.BD.CarbonFootprint.impl.AfstandTussenGemeenten</FormalSpec>
+<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 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)
+]]></Implementation>
+</Method>
+
+<Method name="MaakAfstandObject">
+<FormalSpec>VanGemeente:%String,VanLand:%String,TotGemeente:%String,TotLand:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Afstand=##class(AfstandTussenGemeenten).%New()
+	Set Afstand.VanLand=VanLand
+	Set Afstand.VanGemeente=VanGemeente
+	Set Afstand.TotLand=TotLand
+	Set Afstand.TotGemeente=TotGemeente
+	Quit Afstand
+]]></Implementation>
+</Method>
+
+<Method name="SaveAfstandObject">
+<FormalSpec>Afstand:APPS.BD.CarbonFootprint.impl.AfstandTussenGemeenten</FormalSpec>
+<Implementation><![CDATA[
+	Set Afstand.CreatieDatum=+$H
+	Do Afstand.Save()
+]]></Implementation>
+</Method>
+
+<Method name="BerekenAfstandEnTijd">
+<FormalSpec>VanGemeente:%String,VanLand:%String,TotGemeente:%String,TotLand:%String,Afstand:APPS.BD.CarbonFootprint.impl.AfstandTussenGemeenten</FormalSpec>
+<Implementation><![CDATA[
+	
+	;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.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")
+	;d DumpObject^%apiOBJ(httprequest)
+	;d DumpObject^%apiOBJ(httprequest.HttpResponse)
+	;d httprequest.HttpResponse.OutputToDevice()
+	Set XMLData=..GetResponseData(httprequest.HttpResponse)
+	Do ..ExtractAfstand(XMLData, Afstand)
+]]></Implementation>
+</Method>
+
+<Method name="GetResponseData">
+<FormalSpec>httpResponse:%Net.HttpResponse</FormalSpec>
+<Implementation><![CDATA[
+	If $isobject(httpResponse.Data) {
+		If httpResponse.Data.Size>0 Set Data=httpResponse.Data.Read()
+	} ElseIf $length(httpResponse.Data)>0 {
+		Set Data=httpResponse.Data
+	}
+	Quit Data
+]]></Implementation>
+</Method>
+
+<Method name="ExtractAfstand">
+<FormalSpec>XMLData:%String,Afstand:APPS.BD.CarbonFootprint.impl.AfstandTussenGemeenten</FormalSpec>
+<Implementation><![CDATA[
+	Set Afstand.Afstand=+$P($P(XMLData,"<distance>",2),"<value>",2)
+	Set Afstand.Duur=+$P($P(XMLData,"<duration>",2),"<value>",2)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/BD/CarbonFootprint/impl/Leveringen.cls.xml
===================================================================
diff -u
--- APPS/BD/CarbonFootprint/impl/Leveringen.cls.xml	(revision 0)
+++ APPS/BD/CarbonFootprint/impl/Leveringen.cls.xml	(revision 34388)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.BD.CarbonFootprint.impl.Leveringen">
+<ClassType/>
+<CompileAfter>APPS.BD.OrderStat.impl.OrderIntake,APPS.BD.OrderStat.impl.OrderGeleverd</CompileAfter>
+<IncludeCode>vhLib.Macro,BL.Derde.KlantSpecifiek</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.BD.OrderStat.impl.Extract2IntakeEnGeleverd</Super>
+
+<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") 
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BouwEnFile">
+<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>
+
+<Method name="ExistProduct">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr</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>
+</Class>
+
+
+</Export>
Index: APPS/BD/CarbonFootprint/impl/AfstandTussenGemeenten.cls.xml
===================================================================
diff -u
--- APPS/BD/CarbonFootprint/impl/AfstandTussenGemeenten.cls.xml	(revision 0)
+++ APPS/BD/CarbonFootprint/impl/AfstandTussenGemeenten.cls.xml	(revision 34388)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.BD.CarbonFootprint.impl.AfstandTussenGemeenten">
+<Description>
+Reconstructie van de orderintake, vertrekkend van de uitleveringen en orders
+De data wordt opgeslagen in een tijdelijke datastructuur (process afhankelijk)</Description>
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="VanLand">
+<Type>%String</Type>
+</Property>
+
+<Property name="VanGemeente">
+<Type>%String</Type>
+</Property>
+
+<Property name="TotLand">
+<Type>%String</Type>
+</Property>
+
+<Property name="TotGemeente">
+<Type>%String</Type>
+</Property>
+
+<Property name="CreatieDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="Afstand">
+<Description>
+Afstand in meter</Description>
+<Type>%Float</Type>
+</Property>
+
+<Property name="Duur">
+<Description>
+Tijd in seconden</Description>
+<Type>%Integer</Type>
+</Property>
+
+<Index name="PrimeKey">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>VanLand,VanGemeente,TotLand,TotGemeente</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.BD.Ca1F8D.AfstandTussAA9AD</DataLocation>
+<DefaultData>AfstandTussenGemeentenDefaultData</DefaultData>
+<IdLocation>^APPS.BD.Ca1F8D.AfstandTussAA9AD</IdLocation>
+<IndexLocation>^APPS.BD.Ca1F8D.AfstandTussAA9AI</IndexLocation>
+<StreamLocation>^APPS.BD.Ca1F8D.AfstandTussAA9AS</StreamLocation>
+<Data name="AfstandTussenGemeentenDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>CreatieDatum</Value>
+</Value>
+<Value name="3">
+<Value>Afstand</Value>
+</Value>
+<Value name="4">
+<Value>Duur</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/BD/CarbonFootprint/impl/Toeleveringen.cls.xml
===================================================================
diff -u
--- APPS/BD/CarbonFootprint/impl/Toeleveringen.cls.xml	(revision 0)
+++ APPS/BD/CarbonFootprint/impl/Toeleveringen.cls.xml	(revision 34388)
@@ -0,0 +1,145 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<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>
+<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.Toeleveringen).%New().BouwEnFile()</Description>
+<Implementation><![CDATA[
+	Set Dev=$$OPEN^vhDEV(,"CarbonFootprintToeleveringen.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)
+	Set Magazijn=$P(..HistRec,"\",5)
+	Set Actie=$P(..HistRec,"\",4)
+	Set Datum=+$P(..HistRec,"\",1)
+	Set TOENr=+$P(..HistRec,"\",7)
+	Set RCPNr=+$P(..HistRec,"\",10)
+	Set LEVNr=$$$ProductGet(..PRNr,$$$LeveranciersNr)
+	Set LEVNm=$P(^KLE(^KL1(LEVNr),0),"\",2)
+	Set Straat=$P(^KLE(^KL1(LEVNr),0),"\",5)
+	Set PostKode=$P(^KLE(^KL1(LEVNr),0),"\",6)
+	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)
+	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,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 !
+]]></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 !
+]]></Implementation>
+</Method>
+
+<Method name="CheckProduct">
+<Implementation><![CDATA[
+	Quit:..PRNr'?4.8N 0
+	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)'="I" 0
+	Quit:$P(..HistRec,"\",5)="K" 0
+	Quit:$P(..HistRec,"\",4)="H" 0
+	Quit:+$$$ProductGet(..PRNr,$$$Gewicht)=0 0
+	Set Datum=+$P(..HistRec,"\",1)
+	Quit (Datum'<..VanDatum)&&(Datum'>..TotDatum)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>