Index: vhPowerTools/DOM/VKP/LeveradresIdCombiOplijster.cls.xml
===================================================================
diff -u
--- vhPowerTools/DOM/VKP/LeveradresIdCombiOplijster.cls.xml	(revision 0)
+++ vhPowerTools/DOM/VKP/LeveradresIdCombiOplijster.cls.xml	(revision 53131)
@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.DOM.VKP.LeveradresIdCombiOplijster">
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="Filename">
+<Type>%String</Type>
+<Default>LeveradressenIdCombinaties.csv</Default>
+</Parameter>
+
+<Parameter name="FullPath">
+<Type>%String</Type>
+<Default>\\NOTES01\Shared\Ict\Projecten\ERP</Default>
+</Parameter>
+
+<Property name="Console">
+<Type>TECH.Console.Console</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LeveradresIdCombiLijst">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LegacyPartijApi">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopApi">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BestandGenerator">
+<Type>APPS.common.Rapport.impl.BestandGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+	Do ##class(vhPowerTools.DOM.VKP.LeveradresIdCombiOplijster).%New().ProduceerCsvBestandMetCombisLeveradresIds()</Description>
+<FormalSpec>Console:TECH.Console.Console="",LegacyPartijApi:DOM.PARTIJ.LegacyPartijAPI="",VerkoopApi:DOM.VKP.VerkoopAPI="",BestandGenerator:APPS.common.Rapport.impl.BestandGenerator=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Console = $$$Inject(Console, ##class(TECH.Console.impl.TerminalConsole).%New())
+	Set ..LegacyPartijApi = $$$Inject(LegacyPartijApi, ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New())
+	Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.VKP.impl.VerkoopAPI).%New())
+	Set ..BestandGenerator = $$$Inject(BestandGenerator, ##class(APPS.common.Rapport.impl.BestandGenerator).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ProduceerCsvBestandMetCombisLeveradresIds">
+<Implementation><![CDATA[
+	Set ..LeveradresIdCombiLijst = ##class(%ListOfDataTypes).%New()
+	
+	#dim KlantIterator As TECH.Iterator = ..VerkoopApi.GeefKlantIterator()
+	#dim LeveradresIterator As TECH.Iterator
+	#dim Klant As DOM.VKP.VanHoeckeKlant
+	#dim Leveradres As DOM.VKP.LeverAdres
+	#dim CacheUniekId, AxLeveradresId, Klantnaam As %String
+	#dim Klantnummer As %Integer
+	
+	While KlantIterator.HasNext() {
+		Set Klant = KlantIterator.Next()
+		Set Klantnummer = ..LegacyPartijApi.GeefKlantNummerVoorPartijID(Klant.GeefID())
+		Set Klantnaam = Klant.GeefNaam()
+		Set LeveradresIterator = Klant.GeefAdresIterator()
+		While LeveradresIterator.HasNext() {
+			Set Leveradres = LeveradresIterator.Next()
+			Set CacheUniekId = Leveradres.GeefUniekId()
+			Set AxLeveradresId = Leveradres.GeefAxLeveradresId()
+			Do ..VoegLeveradresIdComboToe(Klantnummer, Klantnaam, CacheUniekId, AxLeveradresId)
+		}
+	}
+	
+	Do ..GenereerBestand()
+	
+	Do ..Console.WriteLine("Bestand '"_..#Filename_"' is gegenereerd op locatie: '"_..#Filename_"'.")
+	
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="VoegLeveradresIdComboToe">
+<FormalSpec>Klantnummer:%Integer,Klantnaam:%String,CacheUniekId:%String,AxLeveradresId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set LeveradresIdCombo = ##class(vhPowerTools.DOM.VKP.dto.LeveradresIdCombo).%New()
+	Set LeveradresIdCombo.AxLeveradresId = AxLeveradresId
+	Set LeveradresIdCombo.Klantnaam = Klantnaam
+	Set LeveradresIdCombo.Klantnummer = Klantnummer
+	Set LeveradresIdCombo.CacheUniekId = CacheUniekId
+	
+	Do ..LeveradresIdCombiLijst.Insert(LeveradresIdCombo)
+]]></Implementation>
+</Method>
+
+<Method name="GenereerBestand">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Bestand As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Set LeveradresIdCombiLijstIterator = ##class(TECH.ListIterator).%New(..LeveradresIdCombiLijst)
+	
+	Do Bestand.VoegToeVeld("vhPowerTools.DOM.VKP.dto.LeveradresIdCombo", "Klantnummer")
+	Do Bestand.VoegToeVeld("vhPowerTools.DOM.VKP.dto.LeveradresIdCombo", "Klantnaam")
+	Do Bestand.VoegToeVeld("vhPowerTools.DOM.VKP.dto.LeveradresIdCombo", "CacheUniekId")
+	Do Bestand.VoegToeVeld("vhPowerTools.DOM.VKP.dto.LeveradresIdCombo", "AxLeveradresId")
+	
+	Set Bestand.ScheidingsTeken = ";"
+	Set Bestand.Iterator = LeveradresIdCombiLijstIterator
+	Set Bestand.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(..#FullPath,..#Filename)
+	
+	Do ..BestandGenerator.MaakBestand(Bestand)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhPowerTools/DOM/VKP/dto/LeveradresIdCombo.cls.xml
===================================================================
diff -u
--- vhPowerTools/DOM/VKP/dto/LeveradresIdCombo.cls.xml	(revision 0)
+++ vhPowerTools/DOM/VKP/dto/LeveradresIdCombo.cls.xml	(revision 53131)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.DOM.VKP.dto.LeveradresIdCombo">
+<Super>TECH.DataTransferObject</Super>
+
+<Parameter name="XMLTYPE">
+<Default>vhPowerTools.DOM.VKP.dto.LeveradresIdCombo</Default>
+</Parameter>
+
+<Property name="AxLeveradresId">
+<Type>%String</Type>
+</Property>
+
+<Property name="CacheUniekId">
+<Type>%String</Type>
+</Property>
+
+<Property name="Klantnaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="Klantnummer">
+<Type>%Integer</Type>
+</Property>
+</Class>
+
+
+</Export>