MOMENTEEL KUNNEN ER MAAR 1000 NIEUWE AANVRAGEN BEREKEND WORDEN (LIMIET GOOGLE) %RegisteredObject %String 1 %String 1 %Boolean 1 VanGemeente:%String,VanLand:%String %Status s bl=##class(APPS.BD.CarbonFootprint.impl.AfstandBepaler).%New() w bl.BepaalAfstandTot("Höchst","AT").Afstand w bl.BerekenAfstandEnTijdpaalAfstandTot("Geel","BE").Afstand TotGemeente:%String,TotLand:%String String:%String VanGemeente:%String,VanLand:%String,TotGemeente:%String,TotLand:%String Afstand:APPS.BD.CarbonFootprint.impl.AfstandTussenGemeenten 1 %Boolean VanGemeente:%String,VanLand:%String,TotGemeente:%String,TotLand:%String 1 VanGemeente:%String,VanLand:%String,TotGemeente:%String,TotLand:%String 1 Afstand:APPS.BD.CarbonFootprint.impl.AfstandTussenGemeenten Postkode:%String,Gemeente:%String,Land:%String,Straat:%String XMLData ",2),"",1) Set Lon=+$P($P(XMLData,"",2),"",1) Write Lat, ":",Lon,! Quit $lb(Lat,Lon) ]]> VanGemeente:%String,VanLand:%String,TotGemeente:%String,TotLand:%String,Afstand:APPS.BD.CarbonFootprint.impl.AfstandTussenGemeenten httpResponse:%Net.HttpResponse 1 0 Set Data=httpResponse.Data.Read() } ElseIf $length(httpResponse.Data)>0 { Set Data=httpResponse.Data } Quit Data ]]> XMLData:%String,Afstand:APPS.BD.CarbonFootprint.impl.AfstandTussenGemeenten 1 ",2),"",2) Set Afstand.Duur=+$P($P(XMLData,"",2),"",2) ]]>