Index: AX/Uitgaand/VKP/Port/impl/PortPrijzenBuildCache.cls.xml
===================================================================
diff -u -r48140 -r48558
--- AX/Uitgaand/VKP/Port/impl/PortPrijzenBuildCache.cls.xml	(.../PortPrijzenBuildCache.cls.xml)	(revision 48140)
+++ AX/Uitgaand/VKP/Port/impl/PortPrijzenBuildCache.cls.xml	(.../PortPrijzenBuildCache.cls.xml)	(revision 48558)
@@ -4,94 +4,11 @@
 <IncludeCode>BL.Derde.LevSpecifiek,Prod.Product,vhLib.Macro</IncludeCode>
 <Super>TECH.RegisteredObject,TECH.Iterator</Super>
 
-<Property name="LineNum">
-<Type>%Integer</Type>
-<Private>1</Private>
-</Property>
-
-<UDLText name="T">
-<Content><![CDATA[
-// Property Converter As PrijsUitzDixfConverter [ Private ];
-
-]]></Content>
-</UDLText>
-
-<Property name="DynIterator">
-<Type>TECH.Iterator</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="QueryAPI">
-<Type>TECH.Query.QueryAPI</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="ResultSet">
-<Type>TECH.ResultSet</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="Nodes">
-<Type>%String</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="Data">
-<Type>%String</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="itKlant">
-<Type>TECH.Iterator</Type>
-</Property>
-
-<Property name="Klant">
-<Type>DOM.VKP.VanHoeckeKlant</Type>
-</Property>
-
-<Property name="KLNr">
-<Type>%String</Type>
-</Property>
-
-<Property name="LaatsteAankoopMaand">
-<Type>%String</Type>
-</Property>
-
-<Property name="CacheGUID">
-<Type>%String</Type>
-<MultiDimensional>1</MultiDimensional>
-</Property>
-
-<Property name="OphalenTijd">
-<Type>%String</Type>
-</Property>
-
-<Property name="AantalAanvragen">
-<Type>%Decimal</Type>
-</Property>
-
-<Property name="AantalVerschillen">
-<Type>%Decimal</Type>
-</Property>
-
-<Property name="PrijsAXTijd">
-<Type>%String</Type>
-</Property>
-
-<Property name="PrijsAdminTijd">
-<Type>%String</Type>
-</Property>
-
-<Property name="SalesPriceService">
-<Type>AXimpl.Admin.VKP.SalesPriceService</Type>
-</Property>
-
 <Method name="%OnNew">
+<Description>
+d ##class(AX.Uitgaand.VKP.Port.impl.PortPrijzenBuildCache).%New().BuildAll()</Description>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-		Set ..itKlant = ##class(TECH.DynamicIterator).%New(##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlantIterator(),,"(Item.GeefRegio()'=98)&&(Item.GeefRegio()'=99)")
-		Set ..LaatsteAankoopMaand="2016.01 "
-		Quit $$$OK
+<Implementation><![CDATA[		Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -100,106 +17,27 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set StartTijdstip=$zH
-	Set TotaalAantalAanvragen=0
-	Set TotaalAantalVerschillen=0
-	Kill ^||PrijsVerschillen
-	Kill ^||PrijsControle
-	While ..itKlant.HasNext()
+	Set Dev=$$OPEN^vhDEV("f:\AX.EC","PortKosten.txt","W")
+	Use Dev
+	Set LandID=$O(^KPORT(0,""))
+	While LandID'=""
 	{
-		Set ..Klant=..itKlant.Next()
-		Set ..KLNr=$P(..Klant.GeefID(),"||",2)
- 		Continue:(..Klant.GeefBusinessType() = ##class(DOM.VKP.enu.BusinessType).B2C())
-
-		;Do:";3042;23112;4810;1736;"[(";"_..KLNr_";") 
-		Do ..ControleerPrijzenVanKlant()
-		Set TotaalAantalAanvragen=TotaalAantalAanvragen+..AantalAanvragen
-		Set TotaalAantalVerschillen=TotaalAantalVerschillen+..AantalVerschillen
-		Write $J($zH-StartTijdstip,0,0)," / "
-	}
-	Write "Tijd/Aantal overall vr build cache: ", $zH-StartTijdstip," / ",TotaalAantalAanvragen," -> ",TotaalAantalVerschillen,!
-]]></Implementation>
-</Method>
-
-<Method name="ControleerPrijzenVanKlant">
-<Implementation><![CDATA[
-	Set (..OphalenTijd,..PrijsAXTijd,..PrijsAdminTijd,..AantalVerschillen,..AantalAanvragen)=0
-	Do ..OphalenProductenVanuitStatistiek()
-	If ..AantalAanvragen {
-		Do ..VoerUitPrijsCalculatieInAX()
-		Do ..VergelijkPrijzen()
-	}
-	Write ..KLNr,*9,..AantalAanvragen," -> ",..AantalVerschillen,*9,$J(..OphalenTijd,0,1)
-	Write " / ", $J(..PrijsAXTijd,0,1)," / ",$J(..PrijsAdminTijd,0,1),!
-]]></Implementation>
-</Method>
-
-<Method name="OphalenProductenVanuitStatistiek">
-<Implementation><![CDATA[
-	Set StartTijdstip=$zH
-	Set ..SalesPriceService=##class(AXimpl.Admin.VKP.SalesPriceService).%New()
-	Do ..SalesPriceService.Initialisatie(..KLNr)
-	Kill ..CacheGUID
-	Set PRNr=$O(^KSTKL(..KLNr,0))
-	Set ..AantalAanvragen=0
-	While PRNr
-	{
-		Quit:$O(^KSTKL(..KLNr,PRNr,..LaatsteAankoopMaand))=""
-		Quit:$D(^KPR(PRNr,"J"_$$$LevHalux))
-		Quit:$$$PRGet($$$GenProduct)'=""
-		Quit:$$$PRGet($$$NONAktief)=1
-		Set MessageId=..SalesPriceService.VoegToeProduct(PRNr)
-		Set ..AantalAanvragen=..AantalAanvragen+1
-		Set ..CacheGUID(MessageId)=PRNr
-		Set PRNr=$O(^KSTKL(..KLNr,PRNr))
-	}
-	Set ..OphalenTijd=$zH-StartTijdstip
-]]></Implementation>
-</Method>
-
-<Method name="VoerUitPrijsCalculatieInAX">
-<Implementation><![CDATA[
-	Set StartTijdstip=$zH
-	Do ..SalesPriceService.VoerUit()
-	Set ..PrijsAXTijd=$zH-StartTijdstip
-]]></Implementation>
-</Method>
-
-<Method name="VergelijkPrijzen">
-<Implementation><![CDATA[
-	#dim Result as AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceLineOutputDC
-	Set StartTijdstip=$zH
-	Set it=..SalesPriceService.GeefResultaatIterator()
-	While it.HasNext()
-	{
-		Set Result=it.Next()
-		Set MessageId="{"_$zcvt(Result.MessageId,"U")_"}"
-		Set PRNr=$G(..CacheGUID(MessageId))
-		Set PrijsRec=$$KLANTPR^KPRIJS(..KLNr,PRNr)
-		
-		If ((+Result.Price'=+$P(PrijsRec,"\",1))||(+Result.PriceUnit'=+$P(PrijsRec,"\",11)))&&('$L(Result.ErrorTxt))
+		Set LandCode=$$LAND^vhRtn1(LandID,1,1)
+		Set Gewicht=$O(^KPORT(0,LandID,""))*1000
+		While Gewicht'=""
 		{
-			Set $P(PrijsRec,"\",20)=Result.Price
-			Set $P(PrijsRec,"\",21)=Result.PriceUnit
-			Set ^||PrijsVerschillen(..KLNr,PRNr)=PrijsRec
-			Do ..WriteControle(..KLNr,PRNr,PrijsRec,Result,"Prijs")
-			Set ..AantalVerschillen=..AantalVerschillen+1
+			Set PortKost=$P(^KPORT(0,LandID,Gewicht),"\")
+			If PortKost
+			{
+				Write *9,LandCode, *9,$$$ExcelNum(Gewicht),*9, $$$ExcelNum(PortKost),!
+			}
+			Set Gewicht=$O(^KPORT(0,LandID,Gewicht))
 		}
-		If ($L(Result.ErrorTxt))
-		{
-			Do ..WriteControle(..KLNr,PRNr,PrijsRec,Result,"Error")
-		}
+		Set LandID=$O(^KPORT(0,LandID))
 	}
+	Do CLOSE^vhDEV(Dev)
 ]]></Implementation>
 </Method>
-
-<Method name="WriteControle">
-<FormalSpec>KLNr:%String,PRNr:%String,PrijsRec:%String,Result:AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceLineOutputDC,Error:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set lb=$LB(KLNr, PRNr, $P(PrijsRec,"\",1),$P(PrijsRec,"\",11),$piece(PrijsRec,"\",4),Error,Result.Price,Result.PriceUnit,Result.GrossPrice)
-	Set ^||PrijsControle(KLNr,PRNr,Error)=lb
-]]></Implementation>
-</Method>
 </Class>