Index: AX/Uitgaand/VKP/PrijsVerschilNrUitz/impl/PrijsUitzBuildCache.cls.xml
===================================================================
diff -u -r48131 -r50904
--- AX/Uitgaand/VKP/PrijsVerschilNrUitz/impl/PrijsUitzBuildCache.cls.xml	(.../PrijsUitzBuildCache.cls.xml)	(revision 48131)
+++ AX/Uitgaand/VKP/PrijsVerschilNrUitz/impl/PrijsUitzBuildCache.cls.xml	(.../PrijsUitzBuildCache.cls.xml)	(revision 50904)
@@ -1,65 +1,17 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="AX.Uitgaand.VKP.PrijsVerschilNrUitz.impl.PrijsUitzBuildCache">
-<IncludeCode>BL.Derde.LevSpecifiek,Prod.Product,vhLib.Macro</IncludeCode>
-<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+<IncludeCode>BL.Derde.LevSpecifiek,Prod.Product</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
 
-<Property name="LineNum">
-<Type>%Integer</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="Converter">
-<Type>PrijsUitzDixfConverter</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="DynIterator">
+<Property name="KlantIterator">
 <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>
@@ -82,110 +34,166 @@
 
 <Property name="SalesPriceService">
 <Type>AXimpl.Admin.VKP.SalesPriceService</Type>
+<Private>1</Private>
 </Property>
 
+<Property name="ProductDataFactory">
+<Type>AXimpl.Admin.VKP.SalesPriceService.ProductDataFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MessageIdFormatter">
+<Type>AXimpl.MessageIdFormatter</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <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
+	Set ..SalesPriceService = ##class(AXimpl.Admin.VKP.SalesPriceService).%New()
+	Set ..ProductDataFactory = ##class(AXimpl.Admin.VKP.SalesPriceService.ProductDataFactory).%New()
+	Set ..MessageIdFormatter = ##class(AXimpl.MessageIdFormatter).%New()
+	
+	Set ..KlantIterator = ##class(TECH.DynamicIterator).%New(##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlantIterator(),,"(Item.GeefRegio()'=98)&&(Item.GeefRegio()'=99)")
+	Set ..LaatsteAankoopMaand = "2016.01 "
+	
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="BuildAll">
-<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set StartTijdstip=$zH
-	Set TotaalAantalAanvragen=0
-	Set TotaalAantalVerschillen=0
+	#dim StartTijdstip As %Integer = $zhorolog
+	#dim TotaalAantalAanvragen As %Integer = 0
+	#dim TotaalAantalVerschillen As %Integer = 0
+	
 	Kill ^||PrijsVerschillen
 	Kill ^||PrijsControle
-	While ..itKlant.HasNext()
-	{
-		Set ..Klant=..itKlant.Next()
-		Set ..KLNr=$P(..Klant.GeefID(),"||",2)
- 		Continue:(..Klant.GeefBusinessType() = ##class(DOM.VKP.enu.BusinessType).B2C())
+	
+	While (..KlantIterator.HasNext()) {
+		#dim Klant As DOM.VKP.VanHoeckeKlant = ..KlantIterator.Next()
+		
+ 		Continue:(Klant.GeefBusinessType() = ##class(DOM.VKP.enu.BusinessType).B2C())
 
-		;Do:";3042;23112;4810;1736;"[(";"_..KLNr_";") 
-		Do ..ControleerPrijzenVanKlant()
+		#dim KlantNummer As %String = $piece(Klant.GeefID(), "||", 2)
+		
+		Do ..ControleerPrijzenVanKlant(KlantNummer)
+		
 		Set TotaalAantalAanvragen=TotaalAantalAanvragen+..AantalAanvragen
 		Set TotaalAantalVerschillen=TotaalAantalVerschillen+..AantalVerschillen
-		Write $J($zH-StartTijdstip,0,0)," / "
+		
+		Write $justify($zhorolog - StartTijdstip, 0, 0), " / "
 	}
-	Write "Tijd/Aantal overall vr build cache: ", $zH-StartTijdstip," / ",TotaalAantalAanvragen," -> ",TotaalAantalVerschillen,!
+	
+	Write "Tijd/Aantal overall vr build cache: ", $zhorolog - StartTijdstip, " / ", TotaalAantalAanvragen, " -> ", TotaalAantalVerschillen, !
 ]]></Implementation>
 </Method>
 
 <Method name="ControleerPrijzenVanKlant">
+<FormalSpec>KlantNummer:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	Set (..OphalenTijd,..PrijsAXTijd,..PrijsAdminTijd,..AantalVerschillen,..AantalAanvragen)=0
-	Do ..OphalenProductenVanuitStatistiek()
-	If ..AantalAanvragen {
-		Do ..VoerUitPrijsCalculatieInAX()
-		Do ..VergelijkPrijzen()
+	Set (..OphalenTijd, ..PrijsAXTijd, ..PrijsAdminTijd, ..AantalVerschillen) = 0
+	
+	#dim ProductDataLijst As %ListOfDataTypes = ..GeefProductenVanuitStatistiek(KlantNummer)
+	Set ..AantalAanvragen = ProductDataLijst.Count()
+	
+	If (ProductDataLijst.Count() > 0) {
+		Do ..VoerUitPrijsCalculatieInAX(KlantNummer, ProductDataLijst)
+		Do ..VergelijkPrijzen(KlantNummer, ProductDataLijst)
 	}
-	Write ..KLNr,*9,..AantalAanvragen," -> ",..AantalVerschillen,*9,$J(..OphalenTijd,0,1)
-	Write " / ", $J(..PrijsAXTijd,0,1)," / ",$J(..PrijsAdminTijd,0,1),!
+	
+	Write KlantNummer, * 9, ..AantalAanvragen, " -> ", ..AantalVerschillen, * 9, $justify(..OphalenTijd, 0, 1)
+	Write " / ", $justify(..PrijsAXTijd, 0, 1), " / ", $justify(..PrijsAdminTijd, 0, 1), !
 ]]></Implementation>
 </Method>
 
-<Method name="OphalenProductenVanuitStatistiek">
+<Method name="GeefProductenVanuitStatistiek">
+<FormalSpec>KlantNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
 <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))
+	#dim ProductDataLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim StartTijdstip As %Integer = $zhorolog
+	
+	#dim ProductNummer As %String = $order(^KSTKL(KlantNummer,0))
+	While ProductNummer {
+		Quit:($order(^KSTKL(KlantNummer, ProductNummer, ..LaatsteAankoopMaand)) = "")
+		Quit:$data(^KPR(ProductNummer, "J" _ $$$LevHalux))
+		Quit:$$$Not($$$PRGet($$$GenProduct) = "")
+		Quit:($$$PRGet($$$NONAktief) = 1)
+		
+		#dim ProductData As AXimpl.Admin.VKP.SalesPriceService.ProductData = ..ProductDataFactory.MaakProductData(ProductNummer)
+		Do ProductDataLijst.Insert(ProductData)
+		
+		Set ProductNummer = $order(^KSTKL(KlantNummer, ProductNummer))
 	}
-	Set ..OphalenTijd=$zH-StartTijdstip
+	
+	Set ..OphalenTijd = $zhorolog - StartTijdstip
+	
+	Quit ProductDataLijst
 ]]></Implementation>
 </Method>
 
 <Method name="VoerUitPrijsCalculatieInAX">
+<FormalSpec>KlantNummer:%String,ProductDataLijst:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	Set StartTijdstip=$zH
-	Do ..SalesPriceService.VoerUit()
-	Set ..PrijsAXTijd=$zH-StartTijdstip
+	#dim StartTijdstip As %Integer = $zhorolog
+	#dim Resultaat As AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC = ..SalesPriceService.GeefPrijsVoorProducten(KlantNummer, ProductDataLijst)
+	
+	Set ..PrijsAXTijd = $zhorolog - StartTijdstip
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductNummer">
+<FormalSpec>ProductDataLijst:%ListOfDataTypes,MessageId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductNummer As %String = ""
+	#dim ProductDataIterator As TECH.Iterator = ##class(TECH.ListIterator).%New()
+	
+	While (ProductDataIterator.HasNext() && (ProductNummer = "")) {
+		#dim ProductData As AXimpl.Admin.VKP.SalesPriceService.ProductData = ProductDataIterator.Next()
+		
+		If (ProductData.Guid = MessageId) {
+			Set ProductNummer = ProductData.ProductNummer	
+		}
+	}
+	
+	Quit ProductNummer
+]]></Implementation>
+</Method>
+
 <Method name="VergelijkPrijzen">
+<FormalSpec>KlantNummer:%String,ProductDataLijst:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
 <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^KPRIJSADMIN(..KLNr,PRNr)
+	#dim Iterator As TECH.Iterator = ..SalesPriceService.GeefResultaatIterator()
+	
+	While (Iterator.HasNext()) {
+		Set Result = Iterator.Next()
 		
-		If ((+Result.Price'=+$P(PrijsRec,"\",1))||(+Result.PriceUnit'=+$P(PrijsRec,"\",11)))&&('$L(Result.ErrorTxt))
-		{
-			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
+		#dim MessageId As %String = ..MessageIdFormatter.Format(Result.MessageId)
+		#dim ProductNummer As %String = ..GeefProductNummer(ProductDataLijst, MessageId)
+		#dim PrijsRecord As %String = $$KLANTPR^KPRIJSADMIN(KlantNummer, ProductNummer)
+		#dim AdminPrice As %String = $piece(PrijsRecord, "\", 1)
+		#dim AdminPriceUnit As %String = $piece(PrijsRecord, "\", 11)
+		
+		If (($$$Not(+Result.Price = +AdminPrice) || $$$Not(+Result.PriceUnit = +AdminPriceUnit)) && $$$Not($length(Result.ErrorTxt))) {
+			Set $piece(PrijsRecord, "\", 20) = Result.Price
+			Set $piece(PrijsRecord, "\", 21) = Result.PriceUnit
+			
+			Set ^||PrijsVerschillen(KlantNummer, ProductNummer) = PrijsRecord
+			Do ..WriteControle(KlantNummer, ProductNummer, PrijsRecord, Result, "Prijs")
+			Set ..AantalVerschillen = ..AantalVerschillen + 1
 		}
-		If ($L(Result.ErrorTxt))
-		{
-			Do ..WriteControle(..KLNr,PRNr,PrijsRec,Result,"Error")
+		
+		If ($length(Result.ErrorTxt)) {
+			Do ..WriteControle(KlantNummer, ProductNummer, PrijsRecord, Result, "Error")
 		}
 	}
 ]]></Implementation>