Index: AX/Uitgaand/VKP/ArtikelLijst/impl/ArtikelLijstGeneratorRefactored.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/ArtikelLijst/impl/ArtikelLijstGeneratorRefactored.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/ArtikelLijst/impl/ArtikelLijstGeneratorRefactored.cls.xml	(revision 43311)
@@ -0,0 +1,206 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.ArtikelLijst.impl.ArtikelLijstGeneratorRefactored">
+<ClassType/>
+<IncludeCode>Prod.Product</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductValidator">
+<Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SoprConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="GenerationId">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantID">
+<Description>
+Property AssortimentGroep As %String;</Description>
+<Type>%String</Type>
+</Property>
+
+<Property name="DeviceProducten">
+<Type>%String</Type>
+</Property>
+
+<Property name="DeviceKlanten">
+<Type>%String</Type>
+</Property>
+
+<Property name="CurrentTableID">
+<Type>%String</Type>
+</Property>
+
+<Property name="CounterTableID">
+<Type>%String</Type>
+</Property>
+
+<Property name="arVervangProd">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+ Do ##class(AX.Uitgaand.VKP.ArtikelLijst.impl.ArtikelLijstGenerator).%New().ExportAll()</Description>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set:..GenerationId="" ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..CounterTableID=1000
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExportAll">
+<Implementation><![CDATA[
+	Do ..OpenFiles()
+	
+	Set ..KlantID=0
+	Set KlantCount=0
+	For  Set ..KlantID=$O(^KKAAP(..KlantID)) Quit:..KlantID=""  Do  ;Quit:KlantCount>3
+	. Quit:'..CheckKlant()
+	. Do ..ExportOne()
+	. Set KlantCount=KlantCount+1
+	
+	Do ..CloseFiles()
+]]></Implementation>
+</Method>
+
+<Method name="OpenFiles">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Use 0
+	Set ..DeviceProducten=$$OPEN^vhDEV(,"ArtikelLijstProducten.csv","W","T")
+	Use ..DeviceProducten
+	Write "InventDimId;ItemId;ItemListTable;SalesQty;SalesUnit",!
+	Use 0
+	Set ..DeviceKlanten=$$OPEN^vhDEV(,"ArtikelLijstKlanten.csv","W")
+	Use ..DeviceKlanten
+	Write "CustAccount;Description;ItemListId",!
+]]></Implementation>
+</Method>
+
+<Method name="CloseFiles">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do CLOSE^vhDEV(..DeviceProducten)
+	Do CLOSE^vhDEV(..DeviceKlanten)
+]]></Implementation>
+</Method>
+
+<Method name="ExportOne">
+<Private>1</Private>
+<Implementation><![CDATA[
+
+	Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantID,..GenerationId)
+
+	Do ..ClearTableID()
+	Do ..ClearSOPR()
+	
+ 	Set HoofdGroep=0
+ 	Set LijnCnt=0
+ 	For  Set HoofdGroep=$O(^KKAAP(..KlantID,HoofdGroep)) Quit:HoofdGroep=""  Do
+	. Set Groep=""
+	. For  Set Groep=$O(^KKAAP(..KlantID,HoofdGroep,Groep)) Quit:Groep=""  Do
+	. . Set SubGroep=""
+	. . For  Set SubGroep=$O(^KKAAP(..KlantID,HoofdGroep,Groep,SubGroep)) Quit:SubGroep=""  Do
+	. . . Set KortText=""
+	. . . For  Set KortText=$O(^KKAAP(..KlantID,HoofdGroep,Groep,SubGroep,KortText)) Quit:KortText=""  Do
+	. . . . Set HistRec=^KKAAP(..KlantID,HoofdGroep,Groep,SubGroep,KortText)
+	. . . . Set PRNr=$P(HistRec,"\",15)
+	. . . . Quit:'..CheckProduct(PRNr)
+	. . . . Set PRNr=..VervangIndienSOPR(PRNr)
+	. . . . Quit:PRNr=""
+	. . . . Do ..ToevoegenArtikel(PRNr, HistRec)
+	Do ..ToevoegenKlant()
+]]></Implementation>
+</Method>
+
+<Method name="ToevoegenArtikel">
+<FormalSpec>PRNr:%String,HistRec:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set IdentNr=$$$PRGet($$$IdentNummer)
+	Use ..DeviceProducten
+	Write "AllBlank"
+	;Write ";",$$$PRGet($$$KortTekst)
+	Write ";",IdentNr,";",..GeefTableID(),";",1,";","STK",";",!
+]]></Implementation>
+</Method>
+
+<Method name="ToevoegenKlant">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Use ..DeviceKlanten
+	Write ..GeefKlantIDInAXFormaat(),";","Verkoopanalyse",";",..GeefTableID(),!
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantIDInAXFormaat">
+<Implementation><![CDATA[	Quit $E(..KlantID+100000,2,6)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTableID">
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ..CurrentTableID="" 
+	{
+		Set ..CounterTableID=..CounterTableID+1
+		Set ..CurrentTableID=$E(..CounterTableID+1000000000,2,10)
+	}
+	Quit ..CurrentTableID
+]]></Implementation>
+</Method>
+
+<Method name="ClearTableID">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..CurrentTableID=""
+]]></Implementation>
+</Method>
+
+<Method name="CheckKlant">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(AX.Uitgaand.EC.Klanten.impl.Klanten).%ExistsId(..GenerationId_"||"_..KlantID)
+]]></Implementation>
+</Method>
+
+<Method name="CheckProduct">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:'$D(^KPR(PRNr,0)) 0
+	Quit ..ProductValidator.InAssortiment(PRNr)
+]]></Implementation>
+</Method>
+
+<Method name="VervangIndienSOPR">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set VervangPRNr=..SoprConvertor.GeefVervangProductDoorSOPRInAX(PRNr)
+	Quit:(VervangPRNr="") PRNr
+	
+	Quit:$D(..arVervangProd(VervangPRNr)) "" ; reeds verwerkt
+	Set ..arVervangProd(VervangPRNr)=""
+	Quit VervangPRNr
+]]></Implementation>
+</Method>
+
+<Method name="ClearSOPR">
+<Implementation><![CDATA[	Kill ..arVervangProd
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>